((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!"))))))))