awesome-emacs/org-roam
1
0
Fork 0
mirror of https://github.com/org-roam/org-roam synced 2025-08-01 12:17:21 -05:00
Code Issues Packages Projects Releases Wiki Activity

(fix): dailies: avoid assuming value of org-roam-dailies-directory (#1426)

Browse Source
This commit is contained in:
Sean Whitton
2021-03-05 19:51:29 -07:00
committed by GitHub
parent b0fd12647b
commit 643b98eeb3
1 changed files with 7 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
org-roam-dailies.el
View File

@ -59,18 +59,19 @@
:type 'hook) :type 'hook)
(defcustom org-roam-dailies-capture-templates (defcustom org-roam-dailies-capture-templates
'(("d" "default" entry (function org-roam-capture--get-point) `(("d" "default" entry (function org-roam-capture--get-point)
"* %?" "* %?"
:file-name "daily/%<%Y-%m-%d>" :file-name ,(concat org-roam-dailies-directory "%<%Y-%m-%d>")
:head "#+title: %<%Y-%m-%d>\n")) :head "#+title: %<%Y-%m-%d>\n"))
"Capture templates for daily-notes in Org-roam." "Capture templates for daily-notes in Org-roam."
:group 'org-roam :group 'org-roam
;; Adapted from `org-capture-templates' ;; Adapted from `org-capture-templates'
:type :type
'(repeat `(repeat
(choice :value ("d" "default" plain (function org-roam-capture--get-point) (choice :value ("d" "default" plain (function org-roam-capture--get-point)
"%?" "%?"
:file-name "daily/%<%Y-%m-%d>" :file-name ,(concat org-roam-dailies-directory
"%<%Y-%m-%d>")
:head "#+title: %<%Y-%m-%d>\n" :head "#+title: %<%Y-%m-%d>\n"
:unnarrowed t) :unnarrowed t)
(list :tag "Multikey description" (list :tag "Multikey description"
@ -94,7 +95,8 @@ Template string :\n%v")
(const :format "" function) (const :format "" function)
(function :tag "Template function "))) (function :tag "Template function ")))
(const :format "File name format :" :file-name) (const :format "File name format :" :file-name)
(string :format " %v" :value "daily/%<%Y-%m-%d>") (string :format " %v" :value ,(concat org-roam-dailies-directory
"%<%Y-%m-%d>"))
(const :format "Header format :" :head) (const :format "Header format :" :head)
(string :format " %v" :value "#+title: ${title}\n") (string :format " %v" :value "#+title: ${title}\n")
(plist :inline t (plist :inline t