mmk2410/dot-emacs
1
0
Fork 0
Code Issues Pull requests Activity Actions

[Org] Use official ox-hugo capture template

Browse source
This commit is contained in:
Marcel Kapfer 2022-01-16 17:03:47 +01:00
parent 24c4c59c1e
commit 851d989c16
Signed by: mmk2410
GPG key ID: CADE6F0C09F21B09
1 changed files with 23 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

29
config.org
View file

@ -1209,17 +1209,34 @@ Since [[https://mmk2410.org/2020/05/15/switching-my-website-to-hugo-using-ox-hug
:after org) :after org)
#+end_src #+end_src
Then I add a org capture template for easily creating new blog posts. A detailed explanation about the can be found in a [[https://mmk2410.org/2022/01/15/improving-my-new-blog-post-creation/][dedicated blog post.]] After I wrote an [[https://mmk2410.org/2022/01/15/improving-my-new-blog-post-creation/][own capture template]] for starting a new blog post, Kashual Modi, the creator of =ox-hugo=, made me aware of [[https://ox-hugo.scripter.co/doc/org-capture-setup/][an existing template in the documentation]] that also handles the automatic creation of the =EXPORT_FILE_NAME= property. I copied if from there and made some very slight adjustments to fit my needs.
#+begin_src emacs-lisp #+begin_src emacs-lisp
(defconst mmk2410/blog-posts-file (defconst mmk2410/blog-posts-file
"~/projects/mmk2410.org/content-org/blog.org" "~/projects/mmk2410.org/content-org/blog.org"
"Position of my org file containing all blog posts.") "Position of my org file containing all blog posts.")
(add-to-list 'org-capture-templates
'("b" "Blog post" entry (file mmk2410/blog-posts-file) ;; Populates only the EXPORT_FILE_NAME property in the inserted heading.
"* %^{Title} %^g\n:PROPERTIES:\n:EXPORT_DATE: %^{EXPORT_DATE}U%^{EXPORT_FILE_NAME}p\n:END:" (with-eval-after-load 'org-capture
:prepend t :empty-lines 1 (defun org-hugo-new-subtree-post-capture-template ()
:immediate-finish t :jump-to-captured t)) "Returns `org-capture' template string for new Hugo post. See `org-capture-templates' for more information."
(let* ((title (read-from-minibuffer "Post Title: ")) ;Prompt to enter the post title
(fname (org-hugo-slug title)))
(mapconcat #'identity
`(
,(concat "* TODO " title)
":PROPERTIES:"
,(concat ":EXPORT_FILE_NAME: " fname)
":END:")
"\n")))
(add-to-list 'org-capture-templates
'("b" "Blog post" entry
(file mmk2410/blog-posts-file)
(function org-hugo-new-subtree-post-capture-template)
:prepend t :empty-lines 1
:immediate-finish t :jump-to-captured t)))
#+end_src #+end_src
* Org Research Assistant * Org Research Assistant