18 lines
441 B
Plaintext
Executable File
18 lines
441 B
Plaintext
Executable File
#!/usr/bin/env hy3
|
||
|
||
(import [datetime [datetime]])
|
||
|
||
(setv fullwidth (str.maketrans
|
||
(dfor [i ch] (enumerate "０１２３４５６７８９") [(str i) ch])))
|
||
|
||
(setv weekdays "日月火水木金土") (comment 曜日)
|
||
|
||
(defn ctime []
|
||
(setv d (datetime.now))
|
||
(-> (.format "{}年{}月{}日 {:02d}：{:02d}：{:02d}"
|
||
d.year d.month d.day d.hour d.minute d.second)
|
||
(.translate fullwidth)))
|
||
|
||
(print (ctime))
|
||
|