diff options
author | Bastien Guerry <bzg@altern.org> | 2011-03-07 11:43:58 +0100 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2011-03-07 11:43:58 +0100 |
commit | b969081ebd0da2711f1006fec39e04fe4a90ef71 (patch) | |
tree | 367c53ca85da7ba7585d73daf1b8cc8c64b795f6 | |
parent | e5eeea99fefe478979c6cff7a89e2e83cd702e7c (diff) | |
download | org-mode-b969081ebd0da2711f1006fec39e04fe4a90ef71.tar.gz |
org-capture.el: new :no-clock-out template option.
* org-capture.el (org-capture-templates): New option
:no-clock-out.
(org-capture): Use the new option.
* org.texi (Template elements): document the new template
option :no-clock-out.
-rw-r--r-- | doc/org.texi | 3 | ||||
-rw-r--r-- | lisp/org-capture.el | 5 |
2 files changed, 7 insertions, 1 deletions
diff --git a/doc/org.texi b/doc/org.texi index 8143712..7970be8 100644 --- a/doc/org.texi +++ b/doc/org.texi @@ -6412,6 +6412,9 @@ Start the clock in this item. If starting the capture interrupted a clock, restart that clock when finished with the capture. +@item :no-clock-out +Don't clock out when filing the captured entry. + @item :unnarrowed Do not narrow the target buffer, simply show the full buffer. Default is to narrow it so that you only see the new material. diff --git a/lisp/org-capture.el b/lisp/org-capture.el index dfb9c6d..241a797 100644 --- a/lisp/org-capture.el +++ b/lisp/org-capture.el @@ -184,6 +184,8 @@ properties are: :clock-resume Start the interrupted clock when finishing the capture. + :no-clock-out Don't clock out when filing the captured entry. + :unnarrowed Do not narrow the target buffer, simply show the full buffer. Default is to narrow it so that you only see the new stuff. @@ -316,6 +318,7 @@ calendar | %:type %:date" ((const :format "%v " :immediate-finish) (const t)) ((const :format "%v " :empty-lines) (const 1)) ((const :format "%v " :clock-in) (const t)) + ((const :format "%v " :no-clock-out) (const nil)) ((const :format "%v " :clock-resume) (const t)) ((const :format "%v " :unnarrowed) (const t)) ((const :format "%v " :kill-buffer) (const t)))))))) @@ -454,7 +457,7 @@ bypassed." (org-capture-get :key) (nth 1 error)))) (if (org-capture-get :immediate-finish) - (org-capture-finalize nil t) + (org-capture-finalize nil (not (org-capture-get :no-clock-out))) (if (and (org-mode-p) (org-capture-get :clock-in)) (condition-case nil |