#!/usr/local/bin/klone

;; numerical date of today

(wait (system ">/tmp/.,numdate"))
(setq stats (file-stats "/tmp/.,numdate"))
(wait (system '("rm" "-f" "/tmp/.,numdate")))

(setq date-sec (get stats 'mtime 0))

(setq datel (seconds-to-date date-sec))

(defun pad2 (n)
  (+ (if (< n 10) "0" "") (String n))
)

(print-format () "%0-%1-%2\n"
  (pad2 (- (get datel 0 0) 1900))
  (pad2 (get datel 1 0))
  (pad2 (get datel 2 0))
)
