init
This commit is contained in:
11
.dir-locals.el
Normal file
11
.dir-locals.el
Normal file
@@ -0,0 +1,11 @@
|
||||
((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!"))))))))
|
||||
Reference in New Issue
Block a user