きがついたら、関数

今やってる作業は作業をすすめると全体のサイズが増えることがあるという種類のしごとだった。
それで適当に、Emacsのスクラッチバッファで

(/ 23.00 89) ;整数だと切り捨てになるよ!!

ちまちま作業の進捗を計算していたはずだったんだけど、きがついたら、

(/ (float a) b)

になって、そのうちに関数になってた。

(defun my-work-progress (a b)
   "calc my work progress"
   (interactive "nNow:\nnTotal:")
   (let ((now (float a)))
        (insert (current-time-string))
        (insert " : ") ;splitter
        (insert (number-to-string (/ now b)))))