Add revue category

This commit is contained in:
mez 2025-06-23 20:21:34 +01:00
parent 778862669e
commit 42d61029a9

View file

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