diff options
Diffstat (limited to '.config/emacs/modules/bd--notes.el')
| -rw-r--r-- | .config/emacs/modules/bd--notes.el | 60 |
1 files changed, 28 insertions, 32 deletions
diff --git a/.config/emacs/modules/bd--notes.el b/.config/emacs/modules/bd--notes.el index a9f58b5..fafc56a 100644 --- a/.config/emacs/modules/bd--notes.el +++ b/.config/emacs/modules/bd--notes.el @@ -12,6 +12,34 @@ ("C-c l" . 'denote-link)) :config (require 'denote-journal-extras) + + ;;;; skribe + (defvar bd/denote-skribe-front-matter + "(post + :title \"%s\" + :date %s + :tags '(\"%s\") + ;; identifier: %s +\n\n)") + (defun bd/denote-skribe-format-date (date) + "Format DATE as a scheme procedure." + (format-time-string "(make-date* %Y %m %d %H %M)" date)) + (defun bd/denote-format-keywords-for-skribe-front-matter (keywords) + "Format front matter KEYWORDS for skribe file type. +KEYWORDS is a list of strings." + (string-join keywords "\" \"")) + (add-to-list 'denote-file-types '(skribe + :extension ".skr" + :date-function bd/denote-skribe-format-date + :front-matter bd/denote-skribe-front-matter + :title-key-regexp "^:title\\s-*" + :title-value-function identity + :title-value-reverse-function denote-trim-whitespace + :keywords-key-regexp "^:tags\\s-*" + :keywords-value-function bd/denote-format-keywords-for-skribe-front-matter + :keywords-value-reverse-function denote-extract-keywords-from-front-matter + :link my-denote-shell-link-format + :link-in-context-regexp my-denote-shell-link-in-context-regexp)) :custom (denote-file-type 'org) (denote-known-keywords '("ss" "writing" "reading" "art" "csu" "umass" "cs" "guix" "emacs" "programs" "mem")) @@ -21,38 +49,6 @@ (denote-journal-extras-directory (expand-file-name "~/dc/log")) (denote-journal-extras-title-format 'day-date-month-year)) -(require 'denote) -(defvar bd/denote-skribe-front-matter - "(post - :title \"%s\" - :date %s - :tags '(\"%s\") - ;; identifier: %s -\n\n)") - -(defun bd/denote-skribe-format-date (date) - "Format DATE as a scheme procedure." - (format-time-string "(make-date* %Y %m %d %H %M)" date)) - -(defun bd/denote-format-keywords-for-skribe-front-matter (keywords) - "Format front matter KEYWORDS for skribe file type. -KEYWORDS is a list of strings." - (string-join keywords "\" \"")) - -(add-to-list 'denote-file-types '(skribe - :extension ".skr" - :date-function bd/denote-skribe-format-date - :front-matter bd/denote-skribe-front-matter - :title-key-regexp "^:title\\s-*" - :title-value-function identity - :title-value-reverse-function denote-trim-whitespace - :keywords-key-regexp "^:tags\\s-*" - :keywords-value-function bd/denote-format-keywords-for-skribe-front-matter - :keywords-value-reverse-function denote-extract-keywords-from-front-matter - :link my-denote-shell-link-format - :link-in-context-regexp my-denote-shell-link-in-context-regexp)) - - (provide 'bd--notes) ;;; bd-notes ends here |