do it today, in a different way

[Emanuel Berg]

What you once feared, now makes you free ...

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

(defun get-date ()
  (format-time-string "%F") )

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

(provide 'today)

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