today's goal - no goals allowed

today's goal - no goals allowed

[Emanuel Berg]

;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/today.el

(defun date (&optional fmt)
  (or fmt (setq fmt "%F"))
  (format-time-string fmt) )

(defun today (&optional no-insert)
  (interactive "P")
  (let ((date (date)))
    (if no-insert
        (prog1 date
          (message date) )
      (save-excursion
        (if (looking-at "[[:digit:]]\\{4\\}-[[:digit:]]\\{2\\}-[[:digit:]]\\{2\\}")
            (replace-match date)
          (insert date) )
        (save-buffer) ))))

(provide 'today)

-- 
underground experts united
https://dataswamp.org/~incal