18 lines
441 B
Plaintext
18 lines
441 B
Plaintext
|
#!/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))
|
|||
|
|
|