mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-26 18:02:52 +00:00
New option `org-log-state-notes-insert-after-drawers'.
Default is nil.
This commit is contained in:
parent
3e72fb8c35
commit
a1d3086419
|
@ -18,6 +18,10 @@
|
|||
|
||||
** Details
|
||||
|
||||
*** New option `org-log-state-notes-insert-after-drawers'
|
||||
Set this to t if you want state change notes to be inserted
|
||||
after any drawers.
|
||||
|
||||
*** New commands for export to PDF
|
||||
This is using LaTeX export, and then processes it to PDF
|
||||
using pdflatex.
|
||||
|
|
|
@ -1,3 +1,9 @@
|
|||
2008-10-16 Carsten Dominik <dominik@science.uva.nl>
|
||||
|
||||
* org.el (org-add-log-setup): Respect
|
||||
`org-log-state-notes-insert-after-drawers'.
|
||||
(org-log-state-notes-insert-after-drawers): New option.
|
||||
|
||||
2008-10-15 Carsten Dominik <dominik@science.uva.nl>
|
||||
|
||||
* org-publish.el (org-publish-org-to): Handle case when
|
||||
|
|
14
lisp/org.el
14
lisp/org.el
|
@ -1492,6 +1492,14 @@ empty string.
|
|||
(unless (assq 'note org-log-note-headings)
|
||||
(push '(note . "%t") org-log-note-headings))
|
||||
|
||||
(defcustom org-log-state-notes-insert-after-drawers nil
|
||||
"Non-nil means, insert state change notes after any drawers in entry.
|
||||
When nil, insert them right after the heading and perhaps the line
|
||||
with deadline/scheduling if present."
|
||||
:group 'org-todo
|
||||
:group 'org-progress
|
||||
:type 'boolean)
|
||||
|
||||
(defcustom org-log-states-order-reversed t
|
||||
"Non-nil means, the latest state change note will be directly after heading.
|
||||
When nil, the notes will be orderer according to time."
|
||||
|
@ -8347,9 +8355,11 @@ EXTRA is additional text that will be inserted into the notes buffer."
|
|||
(org-back-to-heading t)
|
||||
(narrow-to-region (point) (save-excursion
|
||||
(outline-next-heading) (point)))
|
||||
(when org-log-state-notes-insert-after-drawers
|
||||
(while (re-search-forward
|
||||
(concat "\\(" org-drawer-regexp "\\|" org-property-end-re "\\)")
|
||||
(point-max) t) (forward-line))
|
||||
(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]*\\)?"))
|
||||
|
|
Loading…
Reference in a new issue