Capture type for revue posts

This commit is contained in:
mez 2025-05-16 19:51:45 +01:00
parent c9e84010d9
commit 2ae99ce7e5

View file

@ -189,6 +189,10 @@
"Set a category for a website post"
(setq categories (s-split "\n" (f-read "~/Documents/drive/admin/emacs/categories.txt") t))
(setq thecategory (completing-read "Category: " categories))
(when (string-match "revues" thecategory)
(setq revtypes (s-split "\n" (f-read "~/Documents/drive/admin/emacs/revtypes.txt") t))
(setq revtype (completing-read "Type: " revtypes))
(setq thecategory (concat thecategory "\n:type: "revtype)))
thecategory)
(defun setconsole ()