[mhc:01594] Re: Todo リストを日付でソート

[Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxx>]

From:  dicek <d@xxxxxxxxx> さん曰く
Subject: [mhc:01593] Todo リストを日付でソート
Message-ID: <u65xmt6s8.wl@xxxxxxxxxxxxxx>
Date: Wed, 04 Sep 2002 18:59:03 +0900

> ひとつ質問させてください、Todo リストを (あと * 日) の日数が少ない順に
> ソートできないでしょうか？現状では intersect 内のファイル名でソートさ
> れているようで、ファイル名が 10 のものが 1 より先に来てしまったりしま
> す。もしソートする設定方法があれば教えてください。よろしくお願いします。

あまり Todo って使っていないので、テスト不十分なのですが、こんな
感じかしら。試していただけるとありがたいです。

# MHC の Todo って優先順位ってないよね？ 忘れてしまった。^^;;;

-- 
白井秀行 (mailto:shirai@xxxxxxxxxxxxx)

--- mhc-summary.el	9 Feb 2001 11:48:32 -0000	1.35
+++ mhc-summary.el	4 Sep 2002 10:33:24 -0000
@@ -532,6 +532,11 @@
 		    (format mhc-todo-string-heading
 			    year month day-of-month))
 		  "\n")
+	  (setq schedules (sort schedules
+				(lambda (x y)
+				  (< (mhc-schedule-todo-deadline x)
+				     (mhc-schedule-todo-deadline y)))))
+				  
 	  (while schedules
 	    (if (and (if (mhc-schedule-in-category-p (car schedules) "done")
 			 mhc-todo-display-done t)