msyds/sydnix
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Move from ZFS to btrfs

Browse Source
This commit is contained in:
Madeleine Sydney
2024-12-28 16:28:03 -07:00
parent be5341b5b1
commit 6240431d36
3 changed files with 69 additions and 78 deletions
Download Patch File Download Diff File Expand all files Collapse all files

32
.dir-locals.el
View File

@@ -1,11 +1,23 @@
((nil
. ((eval . (defun dots/install-to-vm (clean-first?)
(interactive "P")
(let ((dest "/ssh:root@192.168.122.116:/nixos")
(root (project-root (project-current))))
(progn
(when clean-first?
(delete-directory dest t))
(org-babel-tangle-file (file-name-concat root "README.org"))
(copy-file root dest)
(message "Finished installing to VM!"))))))))
. ((eval
. (defun dots/install-to-vm (clean-first?)
(interactive "P")
(let ((dest-directory "/ssh:root@192.168.122.116:/nixos")
(root (project-root (project-current)))
(ignored-paths '(".jj" ".git" ".gitignore" ".dir-locals.el")))
(progn
;; (message "Tangling...")
;; (org-babel-tangle-file (file-name-concat root "README.org"))
(when clean-first?
(delete-directory dest t))
(make-directory dest-directory t)
(let ((files-to-install
(--> (directory-files root)
(-filter (lambda (x) (not (memq x ignored-paths))) it))))
(dolist (file-src files-to-install)
(let ((file-dest-directory
(file-name-concat dest-directory
(file-name-directory file-src))))
(make-directory file-dest-directory t)
(copy-file file file-dest-directory))))
(message "Finished installing to VM!"))))))))