exot/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Use default Org function to remove identation

Browse Source 
Should be more robust?
This commit is contained in:
Daniel Borchmann 2025-11-16 17:57:13 +01:00
parent b798b13a94
commit a53a8ccbd2
No known key found for this signature in database
GPG Key ID: 50EA937BF472ADD1
1 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
site-lisp/db-org.el
View File

@ -414,8 +414,6 @@ history of the buffer."
;; 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)))
(indent-offset (- (org-element-begin last-seen-item)
(org-element-contents-begin 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))))
@ -423,12 +421,6 @@ history of the buffer."
(delete-region (org-element-begin last-seen-item)
(org-element-end last-seen-item))
;; Adjust indentation of `rest-of-body' by `indent-offset'
(with-temp-buffer
(insert rest-of-body)
(indent-region (point-min) (point-max) indent-offset)
(setq rest-of-body (buffer-string)))
;; Set up capture buffer
(org-capture-put :key "")
(org-capture-put :description "")
@ -449,7 +441,7 @@ Via %%(with-temp-buffer (db/org-add-link-to-current-clock) (string-trim (buffer-
;; Quote % to prevent unintented expansion by
;; `org-capture-fill-template'.
(replace-regexp-in-string "%" "\\\\%" first-line-of-body)
(replace-regexp-in-string "%" "\\\\%" rest-of-body))))
(replace-regexp-in-string "%" "\\\\%" (org-remove-indentation rest-of-body)))))
(org-capture-set-target-location)
(org-capture-place-template)