diff options
| -rw-r--r-- | emacs/.emacs.d/init/ycp-org.el | 3 | ||||
| -rw-r--r-- | emacs/.emacs.d/lisp/my/my-org.el | 17 |
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." |