diff --git a/custom/capture.el b/custom/capture.el index 96a8207..b564ed0 100644 --- a/custom/capture.el +++ b/custom/capture.el @@ -106,10 +106,10 @@ "Find or create heading for website posts" (filedate) (goto-char (point-min)) - (if (not (search-forward "* site" nil t)) + (if (not (search-forward "* post" nil t)) (progn (goto-char (point-max)) - (insert "* site")))) + (insert "* post")))) (defun therating () "Rate some media" @@ -136,15 +136,6 @@ (setq workbookreturn " :work:")) workbookreturn) - (defun thecomments () - "Set whether a post should allow comments" - (setq commentsreturn "") - (setq querycomments (y-or-n-p "Allow comments?")) - (if querycomments - (setq commentsreturn "t") - (setq commentsreturn "nil")) - commentsreturn) - (defun thevisitdate () "Add dates for a visit" (setq visitreturn "") @@ -154,16 +145,6 @@ (setq visitreturn (concat " <" visitstart ">--<" visitend ">"))) visitreturn) - (defun realtitle () - "Set title for the list of posts" - (setq realtitlereturn (read-string "Real title: ")) - realtitlereturn) - - (defun realdesc () - "Set post description" - (setq realdescreturn (read-string "Description (full stop will be appended): ")) - realdescreturn) - (defun findperf () "Find or create heading for performances" (filedate) @@ -185,12 +166,6 @@ (setq thevenue (completing-read "Venue: " venues)) thevenue) - (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)) - thecategory) - (defun setconsole () "Get the console a game is played on" (setq consoles (s-split "\n" (f-read "~/Documents/drive/admin/emacs/consoles.txt") t)) @@ -248,7 +223,7 @@ :jump-to-captured t) ("w" "Website post" entry (file+function "" findweb) - "* %^{Title} :post:\n:PROPERTIES:\n:realtitle: %(realtitle)\n:ogdesc: %(realdesc).\n:category: %(setcategory)\n:comments: %(thecomments)\n:END:\n%?" + "* %^{Title}\n%?" :jump-to-captured t) ("1" "Completed game" entry (file+function "" findhundred)