about summary refs log tree commit diff
path: root/fun/๐Ÿ•ฐ๏ธ/lib.lisp
diff options
context:
space:
mode:
Diffstat (limited to 'fun/๐Ÿ•ฐ๏ธ/lib.lisp')
-rw-r--r--fun/๐Ÿ•ฐ๏ธ/lib.lisp32
1 files changed, 32 insertions, 0 deletions
diff --git a/fun/๐Ÿ•ฐ๏ธ/lib.lisp b/fun/๐Ÿ•ฐ๏ธ/lib.lisp
new file mode 100644
index 000000000000..d23db033743e
--- /dev/null
+++ b/fun/๐Ÿ•ฐ๏ธ/lib.lisp
@@ -0,0 +1,32 @@
+(defpackage ๐Ÿ•ฐ๏ธ
+  (:use :cl)
+  (:import-from :local-time
+   :timestamp-subtimezone :*default-timezone* :sec-of)
+  (:export :โŒš))
+
+(in-package :๐Ÿ•ฐ๏ธ)
+(declaim (optimize (safety 3)))
+
+(defparameter *clock-emojis*
+  (vector #\๐Ÿ•› #\๐Ÿ•ง   ; 00:00 - 00:30
+          #\๐Ÿ• #\๐Ÿ•œ   ; 01:00 - 01:30
+          #\๐Ÿ•‘ #\๐Ÿ•   ; 00:00 - 00:30
+          #\๐Ÿ•’ #\๐Ÿ•ž   ; 00:00 - 00:30
+          #\๐Ÿ•“ #\๐Ÿ•Ÿ   ; 00:00 - 00:30
+          #\๐Ÿ•” #\๐Ÿ•    ; 00:00 - 00:30
+          #\๐Ÿ•• #\๐Ÿ•ก   ; 00:00 - 00:30
+          #\๐Ÿ•– #\๐Ÿ•ข   ; 00:00 - 00:30
+          #\๐Ÿ•— #\๐Ÿ•ฃ   ; 00:00 - 00:30
+          #\๐Ÿ•˜ #\๐Ÿ•ค   ; 00:00 - 00:30
+          #\๐Ÿ•™ #\๐Ÿ•ฅ   ; 00:00 - 00:30
+          #\๐Ÿ•š #\๐Ÿ•ฆ)) ; 11:00 - 11:30
+
+(defun โŒš (timestamp &optional (tz *default-timezone*))
+  "Convert a LOCAL-TIME:TIMESTAMP into the nearest Unicode clock face.
+  Use TZ (which defaults to LOCAL-TIME:*DEFAULT-TIMEZONE*) to determine
+  the UTC offset to factor when determining the local clock face."
+  (let* ((offset (multiple-value-bind (offset-secs _dst _name)
+                   (timestamp-subtimezone timestamp tz)
+                   offset-secs))
+         (secs (+ (sec-of timestamp) offset)))
+    (elt *clock-emojis* (mod (round (/ secs 1800)) 24))))