diff --git a/custom/capture.el b/custom/capture.el index 74d8f9f..0544008 100644 --- a/custom/capture.el +++ b/custom/capture.el @@ -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 ()