Capture tag games

This commit is contained in:
mez 2025-05-18 15:14:38 +01:00
parent ccbf1daaf5
commit a2b2af24d6

View file

@ -187,10 +187,13 @@
(defun setcategory ()
"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)
(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)
(defun setconsole ()