140 lines
3.9 KiB
Org Mode
140 lines
3.9 KiB
Org Mode
#+TITLE: Org-Roam Configuration
|
|
#+PROPERTY: header-args :tangle ~/.emacs.d/config.el
|
|
|
|
* Org-roam
|
|
|
|
** Basic org-roam setup
|
|
|
|
#+begin_src elisp
|
|
(use-package org-roam
|
|
:init (setq org-roam-v2-ack t) ;; Acknowledge V2 upgrade
|
|
:after org
|
|
:config
|
|
(org-roam-db-autosync-enable)
|
|
(require 'org-roam-dailies)
|
|
:bind (
|
|
("C-c n f" . org-roam-node-find)
|
|
("C-c n g" . org-roam-graph)
|
|
("C-c n r" . org-roam-node-random)
|
|
("C-c n h" . org-roam-node-convert-headline)
|
|
("C-c n i" . org-roam-node-insert)
|
|
("C-c n o" . org-id-get-create)
|
|
("C-c n t" . org-roam-tag-add)
|
|
("C-c n a" . org-roam-alias-add)
|
|
("C-c n l" . org-roam-buffer-display-dedicated)
|
|
)
|
|
)
|
|
#+end_src
|
|
|
|
#+begin_src elisp
|
|
(setq org-roam-directory (concat org-directory "notes"))
|
|
(setq org-roam-dailies-directory (concat org-directory "daily"))
|
|
#+end_src
|
|
|
|
#+begin_src elisp :tangle no
|
|
(use-package sqlite3)
|
|
(require 'sqlite3)
|
|
#+end_src
|
|
|
|
Include subdirectories in org-roam
|
|
#+begin_src elisp
|
|
(setq org-roam-file-exclude-regexp "^[.][.]?/")
|
|
#+end_src
|
|
|
|
** Display in org-roam-buffer
|
|
#+begin_src elisp :tangle no
|
|
(setq org-roam-mode-sections
|
|
(list #'org-roam-backlinks-section
|
|
#'org-roam-reflinks-section
|
|
#'org-roam-unlinked-references-section
|
|
)
|
|
)
|
|
#+end_src
|
|
|
|
** Filter org-roam nodes find by tag
|
|
|
|
#+begin_src elisp :tangle no
|
|
(defun my/org-roam-node-has-tag (node tag)
|
|
"Filter function to check if the given NODE has the specified TAG."
|
|
(member tag (org-roam-node-tags node))
|
|
)
|
|
|
|
(defun my/org-roam-node-find-by-tag ()
|
|
"Find and open an Org-roam node based on a specified tag."
|
|
(interactive)
|
|
(let ((tag (read-string "Enter tag: ")))
|
|
(org-roam-node-find nil nil (lambda (node) (my/org-roam-node-has-tag node tag))))
|
|
)
|
|
#+end_src
|
|
|
|
** org-roam-capture templates
|
|
#+begin_src elisp
|
|
(setq org-roam-capture-templates
|
|
'(
|
|
("L" "link" plain
|
|
(function org-roam--capture-get-point)
|
|
"%?"
|
|
:file-name "web/%<%Y-%m-%dT%H%M%S>.org"
|
|
:head "#+TITLE: ${title}\n#+CREATED: %<%Y-%m-%dT%H%M%S>"
|
|
:immediate-finish t
|
|
:unnarrowed t
|
|
)
|
|
|
|
("h" "hugo post" plain
|
|
"%?"
|
|
:target (file+head "posts/${slug}.org"
|
|
"#+TITLE: ${title}\n#+DATE: %U\n#+HUGO_BASE_DIR: ~/gharbeia.net\n#+HUGO_SECTION: ./posts\n#+HUGO_AUTO_SET_LASTMOD: t\n#+HUGO_TAGS: article\n#+HUGO_DRAFT: true\n")
|
|
:immediate-finish t
|
|
:unnarrowed t
|
|
)
|
|
|
|
("p" "person" plain
|
|
"%?"
|
|
:if-new (file+head "people/${slug}.org"
|
|
"#+TITLE: ${title}")
|
|
:immediate-finish t
|
|
:unnarrowed t
|
|
)
|
|
)
|
|
)
|
|
#+end_src
|
|
|
|
#+begin_src elisp
|
|
(setq org-roam-dailies-capture-templates
|
|
'(
|
|
("d" "daily" plain
|
|
""
|
|
:target ("file+heaed %<%Y-%m-%d>.org" "#+title: %<%Y-%m-%d>\n\n")
|
|
:immediate-finish t
|
|
)
|
|
)
|
|
)
|
|
#+end_src
|
|
|
|
** Move org header to org-roam-daily
|
|
|
|
#+begin_src elisp :tangle no
|
|
(defun my/org-move-entry-to-daily-notes ()
|
|
"Move the current org-mode headline to the daily notes file based on its :CREATED: property."
|
|
(interactive)
|
|
(let*
|
|
(
|
|
(created-prop (org-entry-get nil "CREATED"))
|
|
(created-date (when created-prop
|
|
(org-parse-time-string created-prop)))
|
|
(year (nth 5 created-date)) ; Extract year (6th element)
|
|
(month (nth 4 created-date)) ; Extract month (5th element)
|
|
(day (nth 3 created-date)) ; Extract day (4th element)
|
|
(target-date (format "%04d-%02d-%02d" year month day)) ; Format date string
|
|
(target-file (org-roam-dailies-goto target-date))
|
|
)
|
|
(when target-file
|
|
(org-cut-subtree)
|
|
(find-file target-file)
|
|
(goto-char (point-max))
|
|
(unless (bolp) (newline))
|
|
(org-paste-subtree)
|
|
)
|
|
)
|
|
)
|
|
#+end_src |