unknownplace.org

自動で時間が挿入されるように clmemo.el 弄った。

--- /home/murase/temp/clmemo.el
+++ /usr/share/emacs/site-lisp/clmemo.el

@@ -334,7 +334,7 @@
       (end-of-line))
     ;; Insert item-heading separater after title.
     (unless (string= "" title)
-      (insert title ": "))
+      (insert (concat (format-time-string "%H:%M " (current-time)) title ": ")))
     (clmemo-mapc (lambda (func) (funcall func buf)) clmemo-buffer-function-list)
     (run-hooks 'clmemo-new-title-hook)))

clmemo-titlle-format-function とか clmemo-new-title-hook とかでやろうとしたけど、どっちも微妙にうまくいかないので直接書き換えた。

Lisp むずいなぁ。。