From a2b2af24d6b3c88e2143f0f0d7128de1b4fcdd0f Mon Sep 17 00:00:00 2001 From: mez Date: Sun, 18 May 2025 15:14:38 +0100 Subject: [PATCH] Capture tag games --- custom/capture.el | 7 +++++-- 1 file changed, 5 insertions(+), 2 deletions(-) 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 ()