[mhc:01007] delete from TODO list

[Yoichi NAKAYAMA <yoichi@xxxxxxxxxxxxxxxxxxxxxxxx>]

なかやまです
やり終えた TODO が TODO リストにいっぱいたまってきたので
DONE のチェックがついたやつに対してリストから外れるように
する操作を作ってしてみました．
＃ elisp ちゃんと書けないのでまずい書き方してるかもですが．
チェックついたものをリストに出さないようにする方がよいの
かもしれないのですが，DONE な奴も要らなくなるまではリスト
に残しておきたい気分だったので…．

--- mhc/emacs/mhc.el	Fri Aug 25 14:30:38 2000
+++ yoichi/mhc/emacs/mhc.el	Mon Aug 28 23:01:25 2000
@@ -518,6 +518,14 @@
   (mhc-draft-finish)
   (message ""))
 
+(defun mhc-todo-set-as-not-todo ()
+  "Delete TODO already DONE from TODO list."
+  (interactive)
+  (mhc-modify-file (mhc-summary-filename))
+  (mhc-draft-set-as-not-todo)
+  (mhc-draft-finish)
+  (message ""))
+
 (defcustom mhc-browse-x-url-function 'browse-url
   "*A function to browse URL."
   :group 'mhc

--- mhc/emacs/mhc-draft.el	Thu Aug 10 12:58:02 2000
+++ yoichi/mhc/emacs/mhc-draft.el	Mon Aug 28 22:46:49 2000
@@ -141,6 +141,14 @@
   (if (mhc-draft-in-category-p "todo")
       (mhc-draft-delete-category "done")))
 
+(defun mhc-draft-set-as-not-todo ()
+  "Set current draft as NOT-TODO."
+  (interactive)
+  (if (mhc-draft-in-category-p "todo done")
+      (progn
+       (mhc-draft-append-category "Done")
+       (mhc-draft-delete-category "todo"))))
+
 (defun mhc-draft-append-category (category)
   "Append CATEGORY if it is not contained yet."
   (mhc-header-narrowing

-- 
Yoichi Nakayama <yoichi@xxxxxxxxxxxxxxxxxxxxxxxx>
 E-ken, Dept. of Physics, Nagoya University 
 http://www.eken.phys.nagoya-u.ac.jp/~yoichi/