Capture type for revue posts
This commit is contained in:
parent
c9e84010d9
commit
2ae99ce7e5
1 changed files with 4 additions and 0 deletions
|
@ -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 ()
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue