12 lines
514 B
EmacsLisp
12 lines
514 B
EmacsLisp
((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!"))))))))
|