yet another emacs function

By Hal Canary, 2011-07-18 12:00:00 (link)

(defun diary () (interactive)
  (let ((ddir "d:/")
        (year (format-time-string "%Y"))
        (ymd (format-time-string "%Y-%m-%d"))
	(ymdt (format-time-string "%Y-%m-%d %H:%M:%S %z")))
    (make-directory (concat ddir year ) 't)
    (find-file (concat ddir year "/" ymd ".txt"))
    (goto-char (point-max)) (newline)
    (insert  ymdt) (newline) (newline)))

(back)