emacs/protesilaos.denote
1
0
Fork 0
mirror of https://github.com/protesilaos/denote.git synced 2026-09-15 09:46:24 -04:00
Code Issues Actions Packages Projects Releases Wiki Activity

Change functon from commit 2fac6ba into a private one; rename and tweak it

Browse source 
The original was done by Kostas Andreadis as part of pull request 173
on the GitHub mirror: <https://github.com/protesilaos/denote/pull/173>.

The tweaks I am making:

1. Make the function private in case we decide to introduce more
   changes to it.

2. Make the doc string consistent with the style of the Denote
   code base.
This commit is contained in:
Protesilaos Stavrou 2023-10-09 20:49:25 +03:00
parent bb083fd532
commit 1a04d808fd
No known key found for this signature in database
GPG key ID: 99BD6459CD5CA3EA
1 changed files with 10 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
denote-journal-extras.el
View file

@ -105,10 +105,15 @@ journal entry (refer to the `tmr' package on GNU ELPA)."
('day-date-month-year-12h "%A %e %B %Y %I:%M %^p"))))
(t (denote-title-prompt (format-time-string "%F")))))
(defun denote-journal-extras-template ()
"Check for journal template, and return it or prompt the user for one from `denote-templates'. Otherwise do not use a template, if `denote-templates' is empty."
(if-let ((denote-journal-extras-daily--template (cdr (assoc 'journal denote-templates))))
denote-journal-extras-daily--template
(defun denote-journal-extras--get-template ()
"Return template that has `journal' key in `denote-templates'.
If no template with `journal' key exists but `denote-templates'
is non-nil, prompt the user for a template among
`denote-templates'. Else return nil.
Also see `denote-journal-extras-new-entry'."
(if-let ((template (alist-get 'journal denote-templates)))
template
(when denote-templates
(denote-template-prompt))))
@ -128,7 +133,7 @@ created file."
(denote-journal-extras-daily--title-format)
`(,denote-journal-extras-keyword)
nil nil nil
(denote-journal-extras-template))
(denote-journal-extras--get-template))
(run-hooks 'denote-journal-extras-hook)))
(defun denote-journal-extras--entry-today ()