2013-04-21から1日間の記事一覧
(defun a-todo-to-lisp ( a-todo ) (cl-ppcre:register-groups-bind (section detail estimate) ("(\\++)\\S*([^,]*)(.*)" a-todo) (list (let ((sum 0 )) (cl-ppcre:do-matches (s e "\\+" section) (incf sum (- e s))) sum) detail (let ((str-estimate (…