From efb750020240baabef1914c4f36aed262b5fa499 Mon Sep 17 00:00:00 2001 From: Daniel Borchmann Date: Sat, 8 Jan 2022 15:42:40 +0100 Subject: [PATCH] Add original value as default when changing Org item headlines This allows to make simple changes to the original headline of an item. --- site-lisp/db-org.el | 10 +++++++++- 1 file changed, 9 insertions(+), 1 deletion(-) diff --git a/site-lisp/db-org.el b/site-lisp/db-org.el index 5db0b0a..4338e6a 100644 --- a/site-lisp/db-org.el +++ b/site-lisp/db-org.el @@ -691,7 +691,15 @@ Interactively query for HEADLINE when not provided." (user-error "Neither in an Org mode nor Org agenda buffer, aborting")) (unless new-headline - (setq new-headline (read-string "New Headline: "))) + (let ((default-value (cond + ((derived-mode-p 'org-mode) + (org-entry-get (point) "ITEM")) + ((derived-mode-p 'org-agenda-mode) + (org-agenda-with-point-at-orig-entry + nil (org-entry-get (point) "ITEM")))))) + (setq new-headline (read-string "New Headline: " + nil nil + default-value)))) (unless (stringp new-headline) (user-error "New headline must be string"))