mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-08-26 20:02:53 +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
|
** 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
|
*** New commands for export to PDF
|
||||||
This is using LaTeX export, and then processes it to PDF
|
This is using LaTeX export, and then processes it to PDF
|
||||||
using pdflatex.
|
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>
|
2008-10-15 Carsten Dominik <dominik@science.uva.nl>
|
||||||
|
|
||||||
* org-publish.el (org-publish-org-to): Handle case when
|
* org-publish.el (org-publish-org-to): Handle case when
|
||||||
|
|
16
lisp/org.el
16
lisp/org.el
|
@ -1492,6 +1492,14 @@ empty string.
|
||||||
(unless (assq 'note org-log-note-headings)
|
(unless (assq 'note org-log-note-headings)
|
||||||
(push '(note . "%t") 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
|
(defcustom org-log-states-order-reversed t
|
||||||
"Non-nil means, the latest state change note will be directly after heading.
|
"Non-nil means, the latest state change note will be directly after heading.
|
||||||
When nil, the notes will be orderer according to time."
|
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)
|
(org-back-to-heading t)
|
||||||
(narrow-to-region (point) (save-excursion
|
(narrow-to-region (point) (save-excursion
|
||||||
(outline-next-heading) (point)))
|
(outline-next-heading) (point)))
|
||||||
(while (re-search-forward
|
(when org-log-state-notes-insert-after-drawers
|
||||||
(concat "\\(" org-drawer-regexp "\\|" org-property-end-re "\\)")
|
(while (re-search-forward
|
||||||
(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]*"
|
(looking-at (concat outline-regexp "\\( *\\)[^\r\n]*"
|
||||||
"\\(\n[^\r\n]*?" org-keyword-time-not-clock-regexp
|
"\\(\n[^\r\n]*?" org-keyword-time-not-clock-regexp
|
||||||
"[^\r\n]*\\)?"))
|
"[^\r\n]*\\)?"))
|
||||||
|
|
Loading…
Reference in a new issue