Re: [Orgmode] [PATCH 5/9] Fix note insertion in entries with drawers.

[Carsten Dominik]

Hi JD,

I have now made this change configurable, please configure
the new option `org-log-state-notes-insert-after-drawers'
if you want your notes after the drawers.  Default is the old
behavior to insert before the drawers (I got some requests for this).

- Carsten

On Sep 20, 2008, at 11:09 PM, James TD Smith wrote:

> The code to find the insertion point after a heading for notes was  
> not skipping
> over drawers, resulting in notes being added inbetween the  
> scheduling keywords
> and the first drawer. Notes are now inserted after any drawers in an  
> item.
> ---
>
> lisp/ChangeLog |    2 ++
> lisp/org.el    |   41 +++++++++++++++++++++++------------------
> 2 files changed, 25 insertions(+), 18 deletions(-)
>
> diff --git a/lisp/ChangeLog b/lisp/ChangeLog
> index b52700d..1753881 100755
> --- a/lisp/ChangeLog
> +++ b/lisp/ChangeLog
> @@ -3,6 +3,8 @@
>         * org.el (org-get-refile-targets): Replace links with their
>         descriptions
>         (org-imenu-get-tree): Replace links with their descriptions
> +       (org-add-log-setup): Skip over drawers (properties, clocks etc)
> +       when adding notes.
>
>         * org-agenda.el (org-agenda-get-closed): show durations of clocked
>         items as well as the start and end times.
> diff --git a/lisp/org.el b/lisp/org.el
> index 99b62d0..10c2cdc 100644
> --- a/lisp/org.el
> +++ b/lisp/org.el
> @@ -9038,7 +9038,7 @@ The auto-repeater uses this.")
>   "Add a note to the current entry.
> This is done in the same way as adding a state change note."
>   (interactive)
> -  (org-add-log-setup 'note nil t nil))
> +  (org-add-log-setup 'note nil 'findpos nil))
>
> (defun org-add-log-setup (&optional purpose state findpos how  
> &optional extra)
>   "Set up the post command hook to take a note.
> @@ -9047,23 +9047,28 @@ When FINDPOS is non-nil, find the correct  
> position for the note in
> the current entry.  If not, assume that it can be inserted at point.
> HOW is an indicator what kind of note should be created.
> EXTRA is additional text that will be inserted into the notes buffer."
> -  (save-excursion
> -    (when findpos
> -      (org-back-to-heading t)
> -      (looking-at (concat outline-regexp "\\( *\\)[^\r\n]*"
> -                         "\\(\n[^\r\n]*?" org-keyword-time-not-clock-regexp
> -                         "[^\r\n]*\\)?"))
> -      (goto-char (match-end 0))
> -      (unless org-log-states-order-reversed
> -       (and (= (char-after) ?\n) (forward-char 1))
> -       (org-skip-over-state-notes)
> -       (skip-chars-backward " \t\n\r")))
> -    (move-marker org-log-note-marker (point))
> -    (setq org-log-note-purpose purpose
> -         org-log-note-state state
> -         org-log-note-how how
> -         org-log-note-extra extra)
> -    (add-hook 'post-command-hook 'org-add-log-note 'append)))
> +  (save-restriction
> +    (save-excursion
> +      (when findpos
> +       (org-back-to-heading t)
> +       (org-narrow-to-subtree)
> +       (while (re-search-forward
> +               (concat "\\(" org-drawer-regexp "\\|" org-property-end-re "\\)")
> +               (point-max) t) (forward-line))
> +       (looking-at (concat outline-regexp "\\( *\\)[^\r\n]*"
> +                           "\\(\n[^\r\n]*?" org-keyword-time-not-clock-regexp
> +                           "[^\r\n]*\\)?"))
> +       (goto-char (match-end 0))
> +       (unless org-log-states-order-reversed
> +         (and (= (char-after) ?\n) (forward-char 1))
> +         (org-skip-over-state-notes)
> +         (skip-chars-backward " \t\n\r")))
> +      (move-marker org-log-note-marker (point))
> +      (setq org-log-note-purpose purpose
> +           org-log-note-state state
> +           org-log-note-how how
> +           org-log-note-extra extra)
> +      (add-hook 'post-command-hook 'org-add-log-note 'append))))
>
> (defun org-skip-over-state-notes ()
>   "Skip past the list of State notes in an entry."
>
>
>
> _______________________________________________
> Emacs-orgmode mailing list
> Remember: use `Reply All' to send replies to the list.
> address@hidden
> http://lists.gnu.org/mailman/listinfo/emacs-orgmode