;;; ll time --- ll-time -*- lexical-binding: t -*-
;;; Commentary:
;;; Code:

(require 'cl-lib)
(cl-pushnew "." load-path :test #'string=)
(require 'll)

(defun eat-and-beat (re data &optional no-save)
  (if (looking-at re)
      (replace-match data)
    (@i data)
    (& (! 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-time)
;;; ll-time.el ends here