Merge branch 'org-item-to-headline'

site-lisp/db-org.el

@@ -13,6 +13,7 @@
 (require 'cl-lib)
 (require 'org)
 (require 'org-agenda)
+(require 'org-capture)
 (require 'org-clock)
 (require 'hydra)
 (require 'db-customize)
@@ -388,6 +389,71 @@ In ~%s~:
 (advice-add 'org-capture-finalize
             :after #'db/delete-frame-if-capture)
 
+(defun db/org-convert-item-to-headline ()
+  "Convert list item around point to headline.
+
+Search for the outermost list item enclosing point and convert it
+to a Org headline.  Use the first line of the item as actual
+headline, and move the rest to the body of the headline.  A
+property CREATED is added with an inactive timestamp capturing
+the current time.
+
+The converted headline will be shown in a capture buffer for
+further editing.  After finishing this buffer, the final headline
+will be stored in `db/org-default-refilefile'.
+
+Note that the original list item will be deleted before the
+capture buffer will open.  If the buffer is aborted, the original
+list item is _not_ restored.  This has to be done using the undo
+history of the buffer."
+  (interactive)
+
+  (let ((element (org-element-at-point))
+        last-seen-item)
+
+    ;; Get outermost list item
+    (while element
+      (when (eq (org-element-type element) 'item)
+        (setq last-seen-item element))
+      (setq element (org-element-parent element)))
+
+    (unless last-seen-item
+      (user-error "Cannot find enclosing list item at point to convert to headline"))
+
+    ;; Generate headline and store it somewhere
+    (let* ((body (buffer-substring-no-properties (org-element-contents-begin last-seen-item)
+                                                 (org-element-end last-seen-item)))
+           (first-line-of-body (seq-take-while #'(lambda (x) (not (= x ?\n))) body))
+           (rest-of-body (string-trim (seq-drop-while #'(lambda (x) (not (= x ?\n))) body))))
+
+      ;; Remove old entry first
+      (delete-region (org-element-begin last-seen-item)
+                     (org-element-end last-seen-item))
+
+      ;; Set up capture buffer
+      (org-capture-put :key "")
+      (org-capture-put :description "")
+      (org-capture-put :target '(file db/org-default-refile-file))
+      (org-capture-put :empty-lines-before 1)
+      (org-capture-put :empty-lines-after 1)
+      (org-capture-put :template (org-capture-fill-template
+                                  (format "* TODO [#B] %s
+:PROPERTIES:
+:CREATED: %%U
+:END:
+
+Via %%(with-temp-buffer (db/org-add-link-to-current-clock) (string-trim (buffer-string))).
+
+%s
+
+%%?"
+                                          first-line-of-body
+                                          rest-of-body)))
+      (org-capture-set-target-location)
+      (org-capture-place-template)
+
+      (indent-region (point-min) (point-max)))))
+
 
 ;;; Refiling