;;; -*- lexical-binding: t -*-

(require 'luki-lisp)

(defun eat-and-beat (re data &optional no-save)
  (if (looking-at re)
      (replace-match data)
    (@i data)
    (unless no-save
      (save-buffer))))

(defun today () (i)
  (when-let* ((re   "[[:digit:]]\\{4\\}-[[:digit:]]\\{2\\}-[[:digit:]]\\{2\\}")
              (date (format-time-string "%F")))
    (eat-and-beat re date)))

(defun now () (i)
  (when-let* ((time-re "[[:digit:]]\\{2\\}:[[:digit:]]\\{2\\}:[[:digit:]]\\{2\\}")
              (time    (format-time-string "%T")))
    (eat-and-beat time-re time)))

(<- 'll-today)