(defpackage murja.newui.simpledate
(:documentation "Provides render method for postmodern's simpledate classes. Do not load if you do not use :D")
(:use :cl)
(:import-from :murja.newui :render))
(in-package :murja.newui.simpledate)
(defmethod render ((ts simple-date:timestamp))
(multiple-value-bind (year month day hour minute second millisec)
(simple-date:decode-timestamp ts)
(format nil "~2,'0d.~2,'0d.~d ~2,'0d:~2,'0d" day month year hour minute)))