From 480d4f99295a003053e59f42e847d7f54f2c5729 Mon Sep 17 00:00:00 2001 From: Thanos Apollo Date: Tue, 19 Mar 2024 14:07:53 +0200 Subject: thanos-commands: Add thanos/sync-notes --- .emacs.d/modules/thanos-commands.el | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) (limited to '.emacs.d') 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 -- cgit v1.2.3