[emacs] Some further fixes to my-org-task.

- Read categories from local
- Add more documentation
- Change my-org-task-relations to defcustom

2 files changed, 15 insertions, 5 deletions

diff --git a/emacs/.emacs.d/init/ycp-org.el b/emacs/.emacs.d/init/ycp-org.el
index 815216c..378e0c3 100644
--- a/emacs/.emacs.d/init/ycp-org.el
+++ b/emacs/.emacs.d/init/ycp-org.el
@@ -489,7 +489,8 @@
 	   :around 'my-org-capture-place-template-dont-delete-windows))
   (advice-add 'org-insert-structure-template :after 'my-org-edit-special)
   (advice-add 'org-edit-src-exit :before 'my-org-edit-src-before-exit)
-  (advice-add 'org-edit-src-exit :after 'my-org-edit-src-after-exit))
+  (advice-add 'org-edit-src-exit :after 'my-org-edit-src-after-exit)
+  (my-setq-from-local my-org-task-categories))
 
 (my-package my-org
   (:delay 30)
diff --git a/emacs/.emacs.d/lisp/my/my-org.el b/emacs/.emacs.d/lisp/my/my-org.el
index 7aabf9a..9900195 100644
--- a/emacs/.emacs.d/lisp/my/my-org.el
+++ b/emacs/.emacs.d/lisp/my/my-org.el
@@ -1422,7 +1422,11 @@ or filename if no title."
 
 ;;; task management
 (defcustom my-org-task-categories nil
-  "Task categories for org custom_id creation."
+  "Task categories for org task id creation.
+
+Task ID will be in the format of <category>-<counter>. For
+example, if `my-org-task-categories' is '(WORK CHORE), task ids
+will be in the format of WORK-42 CHORE-1024 etc."
   :group 'my-org
   :type '(repeat symbol))
 
@@ -1437,7 +1441,7 @@ or filename if no title."
   :type 'string)
 
 (defun my-org-task-init ()
-  "Initialise next ids and write them to `my-org-task-next-id-file'."
+  "Initialise next ids to be 0 and write them to `my-org-task-next-id-file'."
   (my-org-task-write-next-ids
    (mapcar
     (lambda (cat)
@@ -1495,7 +1499,7 @@ Return the next id before incrementing."
     (org-entry-put (point) my-org-task-property-name id)
     (org-edit-headline new-headline)))
 
-(defvar my-org-task-relations
+(defcustom my-org-task-relations
   '(("BLOCKS" . "BLOCKED_BY")
     ("CAUSES" . "CAUSED_BY")
     ("DUPLICATES" . "DUPLICATED_BY")
@@ -1503,7 +1507,12 @@ Return the next id before incrementing."
     ("BLOCKED_BY" . "BLOCKS")
     ("CAUSED_BY" . "CAUSES")
     ("DUPLICATED_BY" . "DUPLICATES"))
-  "Task relations and their dual relations.")
+  "Task relations and their dual relations.
+
+Better be symmetric, i.e. if (A . B) is an element, so should (B
+. A)."
+  :group 'my-org
+  :type '(repeat (cons string string)))
 
 (defcustom my-org-properties-separator ", "
   "Separator in a property value field."