19 lines
851 B
EmacsLisp
19 lines
851 B
EmacsLisp
|
|
||
|
|
;; code for the simple (but powerful) automation of posts creation
|
||
|
|
|
||
|
|
(defvar blog-org-files-directory "/mnt/Data/Documents/org-files/org/blog")
|
||
|
|
|
||
|
|
(defun generate-blog-file-path ()
|
||
|
|
(concat blog-org-files-directory "/"
|
||
|
|
(format-time-string "%Y-%m-%d-%H-%M-%S") ".org"))
|
||
|
|
|
||
|
|
|
||
|
|
(setq org-capture-templates
|
||
|
|
`(("b" "Blog Post" entry
|
||
|
|
(file ,(lambda () (generate-blog-file-path))) ; Target file path generation
|
||
|
|
"* DRAFT %i %?\n:PROPERTIES:\n :EXPORT_HUGO_DRAFT: true\n :EXPORT_HUGO_SECTION_FRAG: \n :EXPORT_FILE_NAME: index\n :TITLE: %^{Title}\n :EXPORT_HUGO_CUSTOM_FRONT_MATTER: :subtitle %^{Subtitle}\n :EXPORT_HUGO_CUSTOM_FRONT_MATTER+: :summary %^{Summary}\n:END:\n\n"
|
||
|
|
:empty-lines 1 ; Ensure an empty line after the captured content
|
||
|
|
:jump-to-captured t))) ; Jump to the captured entry after completion
|
||
|
|
|
||
|
|
|