From: Bernt Hansen <bernt@norang.ca>
To: Thorsten Jolitz <tjolitz@googlemail.com>
Cc: emacs-orgmode@gnu.org
Subject: Re: Temporally/occasionally turn off hooks?
Date: Tue, 29 Jan 2013 14:14:42 -0500 [thread overview]
Message-ID: <87libb4x99.fsf@norang.ca> (raw)
In-Reply-To: <87r4l42nzi.fsf@googlemail.com> (Thorsten Jolitz's message of "Tue, 29 Jan 2013 13:05:37 +0100")
Thorsten Jolitz <tjolitz@googlemail.com> writes:
> I copied this from Bernt Hansens set-up:
>
> ,-----------------------------------------------------------
> | org-insert-heading-hook is a variable defined in `org.el'.
> | Its value is (bh/insert-heading-inactive-timestamp)
> | Original value was nil
> `-----------------------------------------------------------
>
> and its often quite usefull to have a timestamp for each newly inserted
> todo-item (e.g.). But in other cases, like writing documents or building
> Org files programmatically, there is no need for
> heading-creation-timestamps, so I would like to turn the timestamp
> insertion off.
>
> I could probably use
>
> ,-----------------------------------------
> | (remove-hook
<snip>
> but this is of course not a very generic solution for a program I want
> to share with others, their 'org-insert-heading-hook' might look
> different.
>
> Is there a way to inhibit a hook in a program, or to run it only
> conditionally in certain situations?
Hi Thorsten!
I would leave the hook always enabled but make it smart enough to skip
inserting timestamps when you don't want them. Something like the
following:
f9-T will toggle adding the timestamps ON and OFF
f9-t will always insert a timestamp at point
C-RET and M-RET will use the hook which checks if the variable
bh/insert-inactive-timestamps is t before adding the timestamp,
otherwise it does nothing.
--8<---------------cut here---------------start------------->8---
(global-set-key (kbd "<f9> T") 'bh/toggle-insert-inactive-timestamp)
(global-set-key (kbd "<f9> t") 'bh/insert-inactive-timestamp)
(defvar bh/insert-inactive-timestamp t)
(defun bh/toggle-insert-inactive-timestamp ()
(interactive)
(setq bh/insert-inactive-timestamp (not bh/insert-inactive-timestamp))
(message "Heading timestamps are %s" (if bh/insert-inactive-timestamp "ON" "OFF")))
(defun bh/insert-inactive-timestamp ()
(interactive)
(org-insert-time-stamp nil t t nil nil nil))
(defun bh/insert-heading-inactive-timestamp ()
(save-excursion
(when bh/insert-inactive-timestamp
(org-return)
(org-cycle)
(bh/insert-inactive-timestamp))))
(add-hook 'org-insert-heading-hook 'bh/insert-heading-inactive-timestamp 'append)
--8<---------------cut here---------------end--------------->8---
Thanks for this idea :)
Regards,
Bernt
next prev parent reply other threads:[~2013-01-29 19:15 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2013-01-29 12:05 Temporally/occasionally turn off hooks? Thorsten Jolitz
2013-01-29 19:14 ` Bernt Hansen [this message]
2013-01-30 12:21 ` Thorsten Jolitz
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=87libb4x99.fsf@norang.ca \
--to=bernt@norang.ca \
--cc=emacs-orgmode@gnu.org \
--cc=tjolitz@googlemail.com \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).