No need to make post categories secret
This commit is contained in:
parent
2ae99ce7e5
commit
ccbf1daaf5
1 changed files with 2 additions and 4 deletions
|
@ -187,11 +187,9 @@
|
|||
|
||||
(defun setcategory ()
|
||||
"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))
|
||||
(setq thecategory (completing-read "Category: " '("journal memes" "month" "reminding myself how to do stuff" "revues" "writing notes")))
|
||||
(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 revtype (completing-read "Type: " '("book" "game" "music" "sight")))
|
||||
(setq thecategory (concat thecategory "\n:type: "revtype)))
|
||||
thecategory)
|
||||
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue