[emacs] Use ~ as task id separator for better completion with partial-completion

1 files changed, 9 insertions, 1 deletions

diff --git a/emacs/.emacs.d/lisp/my/my-org.el b/emacs/.emacs.d/lisp/my/my-org.el
index 1f5ca63..b189b78 100644
--- a/emacs/.emacs.d/lisp/my/my-org.el
+++ b/emacs/.emacs.d/lisp/my/my-org.el
@@ -1493,7 +1493,10 @@ Return the next id before incrementing."
                                (lambda (cat) (format "%s" cat))
                                my-org-task-categories)))))
   (my-org-task-remove-id)
-  (let* ((id (format "%s-%d" category (my-org-task-increment-id category)))
+  (let* ((id (format "%s%s%d"
+                     category
+                     my-org-task-id-separator
+                     (my-org-task-increment-id category)))
          (headline (org-entry-get (point) "ITEM"))
          (new-headline (format "%s %s" id headline)))
     (org-entry-put (point) my-org-task-property-name id)
@@ -1514,6 +1517,11 @@ Better be symmetric, i.e. if (A . B) is an element, so should (B
   :group 'my-org
   :type '(repeat (cons string string)))
 
+(defcustom my-org-task-id-separator "~"
+  "Separator in task id, separating task category from number."
+  :group 'my-org
+  :type 'string)
+
 (defcustom my-org-properties-separator ", "
   "Separator in a property value field."
   :group 'my-org