diff --git a/lisp/org-config/my-org-roam-logger.el b/lisp/org-config/my-org-roam-logger.el index a0b21e1..07f37b1 100644 --- a/lisp/org-config/my-org-roam-logger.el +++ b/lisp/org-config/my-org-roam-logger.el @@ -37,13 +37,19 @@ (file+head+olp "%<%Y%m%d%H%M%S>-${slug}.org" "#+title: ${title}\n" ("Journal" "%<%b %d, %Y>"))) - ("J" "Journal with source" entry "* %<%H:%M> %?\n:PROPERTIES:\n:LOCATION: %a\n:END:\n\n%s" + ("t" "Timed journal" entry "* %<%H:%M> %?\n%U" :unnarrowed t :target (file+head+olp "%<%Y%m%d%H%M%S>-${slug}.org" "#+title: ${title}\n" ("Journal" "%<%b %d, %Y>"))) - ("s" "source location" entry "* %^{Short Description? }\n:PROPERTIES:\n:DATE: [%<%Y-%m-%d %H:%M>]\n:LOCATION: %a\n:END:\n\n%?" + ("J" "Journal with source" entry "* %<%H:%M> %?\n:PROPERTIES:\n:LOCATION: %a\n:END:\n%U\n\n%s" + :unnarrowed t + :target + (file+head+olp "%<%Y%m%d%H%M%S>-${slug}.org" + "#+title: ${title}\n" + ("Journal" "%<%b %d, %Y>"))) + ("s" "source location" entry "* %^{Short Description? }\n:PROPERTIES:\n:DATE: %U\n:LOCATION: %a\n:END:\n\n%?" :unnarrowed t :target (file+head+olp "%<%Y%m%d%H%M%S>-${slug}.org" diff --git a/lisp/org-config/org-roam-update-agenda.el b/lisp/org-config/org-roam-update-agenda.el index 0bed2e5..10e64b6 100644 --- a/lisp/org-config/org-roam-update-agenda.el +++ b/lisp/org-config/org-roam-update-agenda.el @@ -32,7 +32,14 @@ (setq org-agenda-files (append orua/agenda-files - (my/get-org-roam-files-by-tags '("Project" "active"))))) + (my/get-org-roam-files-by-tags '("Project" "active")) + (my/get-org-roam-most-recent-dailies)))) + +(defun my/get-org-roam-most-recent-dailies () + (let ((roam-daily-directory + (expand-file-name "daily" org-roam-directory))) + (when (file-exists-p roam-daily-directory) + (last (directory-files roam-daily-directory t "^[^#\\.]") 10)))) (advice-add #'org-agenda :before diff --git a/lisp/ti-config/work-org-stuff.el b/lisp/ti-config/work-org-stuff.el index 6a02580..cdbc137 100644 --- a/lisp/ti-config/work-org-stuff.el +++ b/lisp/ti-config/work-org-stuff.el @@ -441,6 +441,7 @@ ("C-c n t" . org-roam-dailies-capture-today) ("C-c n i" . org-roam-node-insert) ("C-c n j" . my/org-roam-logger-capture-current) + ("C-c n s" . consult-org-roam-search) :map org-mode-map ("C-M-i" . completion-at-point)) :commands my/get-org-roam-files-by-tags