thanos-commands: Add thanos/sync-notes

1 files changed, 12 insertions, 1 deletions

diff --git a/.emacs.d/modules/thanos-commands.el b/.emacs.d/modules/thanos-commands.el
index f4220c3..beb474b 100644
--- a/.emacs.d/modules/thanos-commands.el
+++ b/.emacs.d/modules/thanos-commands.el
@@ -257,7 +257,18 @@
   (let ((input-method (nth thanos/input-methods-index thanos/input-methods)))
     (set-input-method (if (string= "nil" input-method) nil input-method))))
 
-;; (define-key global-map (kbd "C-\\") #'thanos/toggle-input-method)
+(defun thanos/sync-notes ()
+  "Sync org-oram notes"
+  (interactive)
+  (let ((git (executable-find "git"))
+	(default-directory org-roam-directory))
+    (message "Synching org-roam notes %s" org-roam-directory)
+    (unless git
+      (error "Git not found, please install git"))
+    (unless (file-exists-p (expand-file-name ".git" gnosis-dir))
+      (message "Creating git repository")
+      (vc-create-repo 'Git))
+    (vc-git-push nil)))
 
 (provide 'thanos-commands)
 ;;; thanos-commands.el ends here