[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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



From:  Hideyuki SHIRAI (白井秀行) <shirai@xxxxxxxxxxxxx> 曰く
Subject: [mhc:01597] Re: Todo リストを日付でソート
Message-ID: <20020905.111626.76200606.shirai@xxxxxxxxxxxxxxxxxxx>
Date: Thu, 05 Sep 2002 11:16:26 +0900 (JST)

白井> mhc-db-scan-todo() を見ていて思い出したのですが、X-SC-Priority:
白井> の存在をすっかり忘れていました。考え直します。^^;;;

というわけで、昨日のパッチは捨てていただいて、こちらで御願いしま
す。(_ _)

## あとで commit しておきます。

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

--- mhc-db.el	16 Oct 2000 09:04:36 -0000	1.25
+++ mhc-db.el	5 Sep 2002 02:55:10 -0000
@@ -142,11 +142,14 @@
 		 (lambda (schedule)
 		   (cons (mhc-schedule-priority schedule)
 			 schedule))
-		 (mhc-day-schedules
-		  (mhc-logic-eval-for-date
-		   (mhc-day-let day
-		     (mhc-db/get-sexp-list-for-month year month))
-		   day 'todo)))
+		 (sort (mhc-day-schedules
+			(mhc-logic-eval-for-date
+			 (mhc-day-let day
+			   (mhc-db/get-sexp-list-for-month year month))
+			 day 'todo))
+		       (lambda (x y)
+			 (< (mhc-schedule-todo-deadline x)
+			    (mhc-schedule-todo-deadline y)))))
 		(lambda (a b)
 		  (if (and (null (car a)) (car b))
 		      nil