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

Make function to update Org item headlines also work in agenda

This commit is contained in:
Daniel Borchmann 2021-11-29 17:35:15 +01:00
parent 25a7051c12
commit 5c36dba12c
No known key found for this signature in database
GPG Key ID: 1C7071A75BB72D64
1 changed files with 23 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -626,27 +626,35 @@ Interactively query for HEADLINE when not provided."
(interactive "sNew Headline: ")
;; We should check this before asking the user for the new headline, but how?
(unless (derived-mode-p 'org-mode)
(user-error "Not in an Org mode buffer, aborting"))
(unless (derived-mode-p 'org-mode 'org-agenda-mode)
(user-error "Neither in an Org mode nor Org agenda buffer, aborting"))
(when (string-match-p "\n" new-headline)
(user-error "New headline contains newlines, aborting"))
(when (org-before-first-heading-p)
(user-error "Point is before first headline, aborting"))
(save-window-excursion
(save-mark-and-excursion
(when (derived-mode-p 'org-agenda-mode)
(org-agenda-goto))
(let ((old-headline (org-entry-get (point) "ITEM")))
(org-edit-headline new-headline)
(when (org-before-first-heading-p)
(user-error "Point is before first headline, aborting"))
;; This simulates adding a note by manually. It may also work by directly
;; using `org-add-note', but this function makes use of `post-command-hook'
;; in a way I do not understand. So let's try it that way.
(move-marker org-log-note-marker (point))
(let ((org-log-note-purpose 'note))
(org-add-log-note nil)
(insert ; This goes into the *Org Note* buffer.
(format "Changed headline from: %s" old-headline))
(org-store-log-note))))
(let ((old-headline (org-entry-get (point) "ITEM")))
(org-edit-headline new-headline)
;; This simulates manually adding a note. It may also work by directly
;; using `org-add-note', but this function makes use of `post-command-hook'
;; in a way I do not understand. So let's try it that way.
(move-marker org-log-note-marker (point))
(let ((org-log-note-purpose 'note))
(org-add-log-note nil)
(insert ; This goes into the *Org Note* buffer.
(format "Changed headline from: %s" old-headline))
(org-store-log-note)))))
(when (derived-mode-p 'org-agenda-mode)
(org-agenda-redo)))
;;; Calendar