X-Git-Url: https://git.distorted.org.uk/~mdw/epls/blobdiff_plain/2cf61248c24dd7e3c643915bd8ba5ff03e5e7ec7..d1f1c5785c7fcd7a9a6df471f1937c56e78e8d65:/24.epls diff --git a/24.epls b/24.epls index 5d52e8c..58c30bc 100644 --- a/24.epls +++ b/24.epls @@ -2,6 +2,7 @@ ;; (defun insert-clock (start &optional end) (do ((i start (mod (1+ i) 24)) (any nil t)) ((and any (= i (or end start)))) (insert (format "%d:00%s–%d:00%s\n" (1+ (mod (1- i) 12)) (if (< i 12) "am" "pm") (1+ (mod i 12)) (if (or (< i 11) (= i 23)) "am" "pm"))))) +!title 24 !vdir #/24 !explen 42:00/10%