todo管理もどき

xyzzy

こういう中途半端なスクリプトって本人以外誰も使わないからこういう場所に置くのもアレかとも思ったけどまあいいや。とりあえず日付管理すらありません。
howmが必要だし、行入れ替えモード(http://d.hatena.ne.jp/Nos/20100531/1275297718)と小遣い管理もどき*1(http://d.hatena.ne.jp/Nos/20100226/1267149632)に無駄に依存。
C-x m vでtodoを記録するテキストファイルが開くので

mon
tue
wed
thu
fri
sat
sun

とか書いておく。C-x m tでバッファの一番後ろに1行でtodoが追加されるのでCtrl+上下キーで適当に入れ替える。howmの機能でチェックマークぐらいは付けられる。{ }のところでreturn。

(defvar *money-todo-logfile* "c:/docs/howm/etc/todo.txt")
(defun money-todo-throw (todo)
  "todoファイルに登録"
  (interactive "swhat? : ")
  (save-excursion
    (let ((days-to-sink 7))
      (find-file *money-todo-logfile*)
      (end-of-buffer)
      (unless (bolp) (newline))
      (insert (concat (format-date-string "{ }")  " " todo))
      (newline))))

*1:キーマップを流用してるだけだけど