#!/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))

