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

Capture tag games

Browse source
This commit is contained in:
mez 2025-05-18 15:14:38 +01:00
parent ccbf1daaf5
commit a2b2af24d6
1 changed files with 5 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

7
custom/capture.el
View file

@ -187,10 +187,13 @@
(defun setcategory () (defun setcategory ()
"Set a category for a website post" "Set a category for a website post"
(setq thecategory (completing-read "Category: " '("journal memes" "month" "reminding myself how to do stuff" "revues" "writing notes"))) (setq thecategory (completing-read "Category: " '("journal memes" "month" "reminding myself how to do stuff" "revues" "tumblr" "writing notes")))
(when (string-match "revues" thecategory) (when (string-match "revues" thecategory)
(setq revtype (completing-read "Type: " '("book" "game" "music" "sight"))) (setq revtype (completing-read "Type: " '("book" "game" "music" "sight")))
(setq thecategory (concat thecategory "\n:type: "revtype))) (setq thecategory (concat thecategory "\n:type: " revtype)))
(when (string-match "tumblr" thecategory)
(setq theop (read-string "OP username: "))
(setq thecategory (concat thecategory "\n:op: " theop)))
thecategory) thecategory)
(defun setconsole () (defun setconsole ()