Add tag for work-related books in org-capture

custom/capture.el

@@ -128,6 +128,14 @@
         (setq ratingreturn " and rated ★★★★★"))
       ratingreturn)
 
+    (defun theworkbook ()
+      "Mark a book as work-related"
+      (setq workbookreturn "")
+      (setq queryworkbook (y-or-n-p "Work-related?"))
+      (if queryworkbook
+          (setq workbookreturn " :work:"))
+      workbookreturn)
+
     (defun thevisitdate ()
       "Add dates for a visit"
       (setq visitreturn "")
@@ -181,11 +189,11 @@
     (setq org-capture-templates
           '(("a" "Acquired book" entry
              (file+function "" findacquired)
-             "* %^{Author} /%^{Title}/ (%^{Acquisition method})"
+             "* %^{Author} /%^{Title}/ (%^{Acquisition method})%(theworkbook)"
              :jump-to-captured t)
             ("b" "Finished book" entry
              (file+function "" findread)
-             "* %^{Author} /%^{Title}/%(therating)"
+             "* %^{Author} /%^{Title}/%(therating)%(theworkbook)"
              :jump-to-captured t)
             ("d" "DW post" entry
              (file+function "" finddw)
@@ -217,7 +225,7 @@
              :jump-to-captured t)
             ("r" "Reading progress" entry
              (file+function "" findreading)
-             "* %^{Author} /%^{Title}/\n%(bookcalc)%?"
+             "* %^{Author} /%^{Title}/%(theworkbook)\n%(bookcalc)%?"
              :jump-to-captured t)
             ("1" "Completed game" entry
              (file+function "" findhundred)