tre/emacs.d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Add org-capture template for DW posts

Browse source
This commit is contained in:
mez 2023-12-30 23:12:21 +00:00
parent 759c011e98
commit b45ed7449e
1 changed files with 12 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
custom/capture.el
View file

@ -43,6 +43,14 @@
(insert "* places\n** visited")) (insert "* places\n** visited"))
(insert "\n** visited")))) (insert "\n** visited"))))
(defun finddw ()
"Find or create heading for DW posts"
(goto-char (point-min))
(if (not (search-forward "* dw" nil t))
(progn
(goto-char (point-max))
(insert "* dw"))))
(defun therating () (defun therating ()
"Rate some media" "Rate some media"
(setq therating nil) (setq therating nil)
@ -80,6 +88,10 @@
(file+function "" findread) (file+function "" findread)
"* %^{Author} /%^{Title}/%(therating)" "* %^{Author} /%^{Title}/%(therating)"
:jump-to-captured t) :jump-to-captured t)
("d" "DW post" entry
(file+function "" finddw)
"* %^{Title}\n%?"
:jump-to-captured t)
("f" "Watched film" entry ("f" "Watched film" entry
(file+function "" findwatched) (file+function "" findwatched)
"* %^{Title} (%^{Year})%(therating)" "* %^{Title} (%^{Year})%(therating)"