feat(fun/🕰️): get the time as an emoji clock face
This small tool prints the current time rounded to half-hour precision as an emoji clock face and exists. It can use both the local time zone and UTC. Additionally it supports a pseudo dot time format. Via fun.🕰️.lib we reexpose the internal library which allows conversion from LOCAL-TIME:TIMESTAMP to an emoji clock face — maybe we'll want to integrate this into //web/panettone? //fun/🕰️ is the spritual (and actual) successor to <https://github.com/sternenseemann/unicode_clock>. It likely only works in SBCL due to its heavy usage of unicode symbol names. Change-Id: I44204107a14f99b04b0c5290d88e8659f013f423 Reviewed-on: https://cl.tvl.fyi/c/depot/+/3164 Tested-by: BuildkiteCI Reviewed-by: tazjin <mail@tazj.in>
This commit is contained in:
parent
f60d174591
commit
8418e01a84
4 changed files with 162 additions and 0 deletions
3
fun/🕰️/OWNERS
Normal file
3
fun/🕰️/OWNERS
Normal file
|
@ -0,0 +1,3 @@
|
||||||
|
inherited: true
|
||||||
|
owners:
|
||||||
|
- sterni
|
91
fun/🕰️/bin.lisp
Normal file
91
fun/🕰️/bin.lisp
Normal file
|
@ -0,0 +1,91 @@
|
||||||
|
(defpackage 🕰️.bin
|
||||||
|
(:shadow :describe)
|
||||||
|
(:use :cl :opts)
|
||||||
|
(:import-from :uiop :quit)
|
||||||
|
(:import-from :local-time
|
||||||
|
:now :timestamp-subtimezone :+utc-zone+
|
||||||
|
:*default-timezone* :define-timezone)
|
||||||
|
(:import-from :klatre :format-dottime-offset)
|
||||||
|
(:import-from :🕰️ :⌚)
|
||||||
|
(:export :🚂))
|
||||||
|
|
||||||
|
(in-package :🕰️.bin)
|
||||||
|
(declaim (optimize (safety 3)))
|
||||||
|
|
||||||
|
(opts:define-opts
|
||||||
|
(:name :help
|
||||||
|
:description "Print this help text"
|
||||||
|
:short #\h
|
||||||
|
:long "help")
|
||||||
|
(:name :dot-time
|
||||||
|
:description "Use pseudo dot-time format (implies -u)"
|
||||||
|
:short #\d
|
||||||
|
:long "dot-time")
|
||||||
|
(:name :utc
|
||||||
|
:description "Display time in UTC instead of local time"
|
||||||
|
:short #\u
|
||||||
|
:long "utc")
|
||||||
|
(:name :no-newline
|
||||||
|
:description "Don't print a trailing newline"
|
||||||
|
:short #\n
|
||||||
|
:long "no-newline"))
|
||||||
|
|
||||||
|
(defun make-slash-terminated (str)
|
||||||
|
(if (eq (char str (1- (length str))) #\/)
|
||||||
|
str
|
||||||
|
(concatenate 'string str "/")))
|
||||||
|
|
||||||
|
; TODO(sterni): upstream this into local-time
|
||||||
|
(defun setup-default-timezone ()
|
||||||
|
(let* ((tz (uiop:getenv "TZ"))
|
||||||
|
(tz-dir (uiop:getenv "TZDIR"))
|
||||||
|
(tz-file (if (and tz tz-dir)
|
||||||
|
(merge-pathnames
|
||||||
|
(pathname tz)
|
||||||
|
(pathname (make-slash-terminated tz-dir)))
|
||||||
|
(pathname "/etc/localtime"))))
|
||||||
|
(handler-case
|
||||||
|
(define-timezone *default-timezone* tz-file :load t)
|
||||||
|
(t () (setf *default-timezone* +utc-zone+)))))
|
||||||
|
|
||||||
|
|
||||||
|
(defun 🚂 ()
|
||||||
|
(let ((ts (now)))
|
||||||
|
(multiple-value-bind (options free-args)
|
||||||
|
(handler-case (opts:get-opts)
|
||||||
|
; only handle subset of conditions that can happen here
|
||||||
|
(opts:unknown-option (c)
|
||||||
|
(format t "error: unknown option ~s~%" (opts:option c))
|
||||||
|
(quit 100)))
|
||||||
|
|
||||||
|
; check if we have any free args we don't know what to do with
|
||||||
|
(when (> (length free-args) 0)
|
||||||
|
(write-string "error: unexpected command line argument(s): ")
|
||||||
|
(loop for arg in free-args
|
||||||
|
do (progn (write-string arg) (write-char #\space)))
|
||||||
|
(write-char #\newline)
|
||||||
|
(quit 100))
|
||||||
|
|
||||||
|
; print help and exit
|
||||||
|
(when (getf options :help)
|
||||||
|
(opts:describe :usage-of "🕰️")
|
||||||
|
(quit 0))
|
||||||
|
|
||||||
|
; reinit *default-timezone* as it is cached from compilation
|
||||||
|
(setup-default-timezone)
|
||||||
|
; dot-time implies UTC, naturally
|
||||||
|
(when (getf options :dot-time)
|
||||||
|
(setf (getf options :utc) t))
|
||||||
|
; print clock face
|
||||||
|
(format t "~A" (⌚ ts (if (getf options :utc)
|
||||||
|
local-time:+utc-zone+
|
||||||
|
local-time:*default-timezone*)))
|
||||||
|
; render dot-time offset if necessary
|
||||||
|
(when (getf options :dot-time)
|
||||||
|
(multiple-value-bind (offset-secs _dst _name)
|
||||||
|
(timestamp-subtimezone ts local-time:*default-timezone*)
|
||||||
|
(write-string
|
||||||
|
(format-dottime-offset (round (/ offset-secs 3600))))))
|
||||||
|
; write newline if necessary
|
||||||
|
(when (not (getf options :no-newline))
|
||||||
|
(write-char #\newline)))))
|
36
fun/🕰️/default.nix
Normal file
36
fun/🕰️/default.nix
Normal file
|
@ -0,0 +1,36 @@
|
||||||
|
{ depot, ... }:
|
||||||
|
|
||||||
|
let
|
||||||
|
inherit (depot.nix)
|
||||||
|
buildLisp
|
||||||
|
;
|
||||||
|
|
||||||
|
lib = buildLisp.library {
|
||||||
|
name = "lib🕰️";
|
||||||
|
deps = [
|
||||||
|
depot.third_party.lisp.local-time
|
||||||
|
];
|
||||||
|
|
||||||
|
srcs = [
|
||||||
|
./lib.lisp
|
||||||
|
];
|
||||||
|
};
|
||||||
|
|
||||||
|
bin = buildLisp.program {
|
||||||
|
name = "🕰️";
|
||||||
|
deps = [
|
||||||
|
depot.third_party.lisp.unix-opts
|
||||||
|
depot.lisp.klatre
|
||||||
|
(buildLisp.bundled "uiop")
|
||||||
|
lib
|
||||||
|
];
|
||||||
|
|
||||||
|
srcs = [
|
||||||
|
./bin.lisp
|
||||||
|
];
|
||||||
|
|
||||||
|
main = "🕰️.bin:🚂";
|
||||||
|
};
|
||||||
|
in bin // {
|
||||||
|
inherit lib;
|
||||||
|
}
|
32
fun/🕰️/lib.lisp
Normal file
32
fun/🕰️/lib.lisp
Normal file
|
@ -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))))
|
Loading…
Reference in a new issue