Emacs: add command to insert a formatted date
Alan Pearce alan@alanpearce.co.uk
Tue, 28 May 2013 21:05:51 +0100
1 files changed, 10 insertions(+), 0 deletions(-)
jump to
M emacs/init.el → emacs/init.el
@@ -306,6 +306,16 @@ :config (progn (setq calendar-week-start-day 1) (calendar-set-date-style 'iso))) +(defun insert-date (prefix) + "Insert the current date. With prefix-argument, use British format. With + two prefix arguments, write out the day and month name." + (interactive "P") + (let ((format (cond + ((not prefix) "%Y-%m-%d") + ((equal prefix '(4)) "%d/%m/%Y") + ((equal prefix '(16)) "%A, %d %B %Y")))) + (insert (format-time-string format)))) + ;;;; Directory browsing (use-package dired :defer t