diff options
author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2018-06-13 22:15:56 +0200 |
---|---|---|
committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2018-06-13 22:15:56 +0200 |
commit | f50f37338953b6d9978e3edfa57a4299ac860886 (patch) | |
tree | bb7d93f1cc4ff75fc04dc6b43a0fca4058e2c76f | |
parent | 3f26c9bd2e824d0034f7db0bb9aeb2aa14f22d7a (diff) | |
download | org-mode-f50f37338953b6d9978e3edfa57a4299ac860886.tar.gz |
Add facility for commit log messages from Org documents
* lisp/org-compat.el (org-add-log-current-headline): New function.
* lisp/org.el (org-mode): Use new function.
-rw-r--r-- | lisp/org-compat.el | 8 | ||||
-rw-r--r-- | lisp/org.el | 2 |
2 files changed, 10 insertions, 0 deletions
diff --git a/lisp/org-compat.el b/lisp/org-compat.el index 702cd7f..febfba4 100644 --- a/lisp/org-compat.el +++ b/lisp/org-compat.el @@ -712,6 +712,14 @@ To get rid of the restriction, use `\\[org-agenda-remove-restriction-lock]'." (add-hook 'speedbar-visiting-tag-hook (lambda () (and (derived-mode-p 'org-mode) (org-show-context 'org-goto)))))) +;;;; Add Log + +(defun org-add-log-current-headline () + "Return current headline or nil. +This function ignores inlinetasks. It is meant to be used as +`add-log-current-defun-function' value." + (org-with-limited-levels (org-get-heading t t t t))) + ;;;; Flyspell (defun org--flyspell-object-check-p (element) diff --git a/lisp/org.el b/lisp/org.el index cee98e5..a9537c9 100644 --- a/lisp/org.el +++ b/lisp/org.el @@ -5509,6 +5509,8 @@ The following commands are available: (forward-char -1)))) ;; Next error for sparse trees (setq-local next-error-function 'org-occur-next-match) + ;; Make commit log messages from Org documents easier. + (setq-local add-log-current-defun-function #'org-add-log-current-headline) ;; Make sure dependence stuff works reliably, even for users who set it ;; too late :-( (if org-enforce-todo-dependencies |