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

Still Subject to Change.

(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 "<f5>")

(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"))))