tre/emacs.d
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

No need to make post categories secret

Browse source
This commit is contained in:
mez 2025-05-16 20:04:15 +01:00
parent 2ae99ce7e5
commit ccbf1daaf5
1 changed files with 2 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

6
custom/capture.el
View file

@ -187,11 +187,9 @@
(defun setcategory () (defun setcategory ()
"Set a category for a website post" "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: " '("journal memes" "month" "reminding myself how to do stuff" "revues" "writing notes")))
(setq thecategory (completing-read "Category: " categories))
(when (string-match "revues" thecategory) (when (string-match "revues" thecategory)
(setq revtypes (s-split "\n" (f-read "~/Documents/drive/admin/emacs/revtypes.txt") t)) (setq revtype (completing-read "Type: " '("book" "game" "music" "sight")))
(setq revtype (completing-read "Type: " revtypes))
(setq thecategory (concat thecategory "\n:type: "revtype))) (setq thecategory (concat thecategory "\n:type: "revtype)))
thecategory) thecategory)