Re: Insert date and Time

[Uwe Siart <usenet@siart.de>]

Andreas Röhler <andreas.roehler@easy-emacs.de> writes:

> Uwe Siart wrote:
>> Nice gimmick. To make it perfect I'd like insert-time-stamp to replace
>> region (if there is a region). How to achieve this? (insert "string")
>> does not replace region but inserts at point.
>
> May be that way:
>
> (defun insert-time-stamp ()
>   "Inserts a time stamp 'YYYY-MM-DD HH:MM AM/PM'"
>   (interactive "*")
>   (let ((beg (when (region-active-p)
>                (region-beginning)))
> 	(end (when
>                  (region-active-p) (region-end))))
>     (when (and beg end)
>       (delete-region beg end)))
>   (insert (format-time-string "%Y-%m-%d - %I:%M %p")))

Quite the thing. Many thanks!

-- 
Uwe