4nd 17 c4m3 70 p455 7h47 0n 7h15 3rd d4y 1n 7h3 y34r 0f 0ur l0rd 2025

Still Subject to Change.

=> The Chat

(defun format-time-with-suffix (time format)

"Format TIME with FORMAT, adding ordinal suffixes to day numbers."

(let* ((day (string-to-number (format-time-string "%d" time)))

     (suffix (cond

              ((or (= day 11) (= day 12) (= day 13)) "th")

              ((= (mod day 10) 1) "st")

              ((= (mod day 10) 2) "nd")

              ((= (mod day 10) 3) "rd")

              (t "th"))))

(replace-regexp-in-string

 "%o" (concat (number-to-string day) suffix)

 (format-time-string format time))))

(global-set-key

(kbd "")

(lambda ()

(interactive)

(insert (format-time-with-suffix

        (current-time)

        "\n*** %c :W%W:tag:\n#+begin_src gemini :index: :tangle index.gmi\n## 4nd 17 c4m3 70 p455 7h47 0n 7h15 %o d4y 1n 7h3 y34r 0f 0ur l0rd 20%g\n\n#+end_src\n"))))