📦 org-node 導入

yewton · Sep 29, 2024 · ce7d84a · ce7d84a
1 parent 00e7310
commit ce7d84a
Show file tree

Hide file tree

Showing 5 changed files with 37 additions and 2 deletions.
diff --git a/etc/el-get-recipes/llama.rcp b/etc/el-get-recipes/llama.rcp
@@ -0,0 +1,6 @@
+(:name llama
+       :website "https://github.com/tarsius/llama"
+       :description "Compact syntax for short lambda"
+       :type github
+       :pkgname "tarsius/llama"
+       :minimum-emacs-version "26.1")
diff --git a/etc/el-get-recipes/org-node-fakeroam.rcp b/etc/el-get-recipes/org-node-fakeroam.rcp
@@ -0,0 +1,7 @@
+(:name org-node-fakeroam
+       :website "https://github.com/meedstrom/org-node-fakeroam"
+       :description "Stand-ins for org-roam-autosync-mode"
+       :type github
+       :pkgname "meedstrom/org-node-fakeroam"
+       :depends (compat org-node org-roam emacsql persist)
+       :minimum-emacs-version "28.1")
diff --git a/etc/el-get-recipes/org-node.rcp b/etc/el-get-recipes/org-node.rcp
@@ -0,0 +1,9 @@
+(:name org-node
+       :website "https://github.com/meedstrom/org-node"
+       :description "Link org-id entries into a network"
+       :type github
+       :pkgname "meedstrom/org-node"
+       :depends (compat llama)
+       :compile ("\\.el$")
+       :load-path (".")
+       :minimum-emacs-version "28.1")
diff --git a/lisp/toncs-config-org-roam.org b/lisp/toncs-config-org-roam.org
@@ -11,6 +11,8 @@
 (require 'org-roam-protocol)
 (require 'no-littering)
 (require 'general)
+(require 'org-node)
+(require 'org-node-fakeroam)
 
 (defun toncs-org-roam-search ()
   (interactive)
@@ -42,7 +44,14 @@
            :unnarrowed t)))
   (general-def org-mode-map
     "C-c n l" #'org-roam-buffer-toggle)
-  (org-roam-db-autosync-enable))
+
+  (org-roam-db-autosync-enable)
+  (setq org-node-creation-fn #'org-node-fakeroam-new-via-roam-capture)
+  (setq org-node-slug-fn #'org-node-fakeroam-slugify-via-roam)
+  (setq org-node-datestamp-format "%Y%m%d%H%M%S-")
+
+  (add-to-list 'org-node-extra-id-dirs org-roam-directory)
+  (org-node-cache-mode))
 #+end_src
 
 #+begin_src emacs-lisp :comments no

diff --git a/lisp/toncs-deps.org b/lisp/toncs-deps.org
@@ -187,7 +187,11 @@
 
     (:name goggles :checkout "ab7d0ce3c049d72f97d87ddc15064bb527c0e990")
 
-    (:name recursion-indicator :checkout "86cc7bc8ca15bfaa2b767ff332c1f72d1b4975cf"))
+    (:name recursion-indicator :checkout "86cc7bc8ca15bfaa2b767ff332c1f72d1b4975cf")
+
+    (:name llama :checkout "e23b81b153683895e3dea2acbfa4f157e077a647")
+    (:name org-node :checkout "3ca5a95ca95ba09514df40e57d8f25fffe6e03ea")
+    (:name org-node-fakeroam :checkout "d570c9f6b70bb28faed928eb8c80b932c446ef53"))
   "無くてもそこまで困らないけど、あるとちょっと便利なパッケージ達です。")
 #+end_src