Add better configuration for org-zettelkasten

1 files changed, 29 insertions, 1 deletions

diff --git a/init.el b/init.el
index a32f9d6..b6de11b 100644
--- a/init.el
+++ b/init.el
@@ -513,7 +513,34 @@ https://yannherklotz.com"))
 
 (use-package org-zettelkasten
   :after org
+  :init
+  (setq org-zettelkasten-directory "~/Dropbox/zk")
   :config
+  (defun org-zettelkasten-goto-id (id)
+    "Go to an ID."
+    (interactive "sID: #")
+    (cond ((string-prefix-p "1" id)
+           (org-link-open-from-string
+            (concat "[[file:" org-zettelkasten-directory
+                    "/hls.org::#" id "]]")))
+          ((string-prefix-p "2" id)
+           (org-link-open-from-string
+            (concat "[[file:" org-zettelkasten-directory
+                    "/computing.org::#" id "]]")))
+          ((string-prefix-p "3" id)
+           (org-link-open-from-string
+            (concat "[[file:" org-zettelkasten-directory
+                    "/verification.org::#" id "]]")))
+          ((string-prefix-p "4" id)
+           (org-link-open-from-string
+            (concat "[[file:" org-zettelkasten-directory
+                    "/mathematics.org::#" id "]]")))
+          ((string-prefix-p "5" id)
+           (org-link-open-from-string
+            (concat "[[file:" org-zettelkasten-directory
+                    "/hardware.org::#" id "]]")))))
+  (define-key ymh-map (kbd "C-g") #'org-zettelkasten-goto-id)
+
   (define-key ymh-map (kbd "s")
     (lambda () (interactive)
       (let ((org-agenda-files
@@ -521,7 +548,8 @@ https://yannherklotz.com"))
                "~/Dropbox/zk/computing.org"
                "~/Dropbox/zk/verification.org"
                "~/Dropbox/zk/mathematics.org"
-               "~/Dropbox/zk/hardware.org"))) (org-search-view)))))
+               "~/Dropbox/zk/hardware.org"))) (org-search-view))))
+  (add-hook 'org-mode-hook #'org-zettelkasten-mode))
 
 (use-package pdf-tools
   :config