Re: [O] Timestamp practices?

[Thorsten Jolitz]

Lawrence Bottorff <address@hidden> writes:

> I'm trying to give each header entry a timestamp.

This is from Bernt Hansen and automagically inserts a timestamp each
time you insert a new header - if you want so. 
If not, you can toggle the behaviour. Nice.

,------------------------------------------------------------------------
| (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)
`-------------------------------------------------------------------------

,---------------------------------------------------------------------
| (global-set-key (kbd "<f9> T") 'bh/toggle-insert-inactive-timestamp)
| (global-set-key (kbd "<f9> t") 'bh/insert-inactive-timestamp)
`---------------------------------------------------------------------

-- 
cheers,
Thorsten