Capture tag games
This commit is contained in:
parent
ccbf1daaf5
commit
a2b2af24d6
1 changed files with 5 additions and 2 deletions
|
@ -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 ()
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue