top  Index  Search  Changes  RSS  Login

ReverseDoneReminder

ToDo リストで「.」が新しい順に並んでほしい. また, 「[2008-02-15]. [2008-02-15]:!」は ToDo リストに出したくない. -- 2ch3:443-446n

;; howm-test071107 でテスト

;; ToDo リストで「.」が新しい順に並んでほしい.
(defadvice howm-todo-priority-done
           (around reverse-order (late lz item) activate)
  (setq late (- late))
  ad-do-it)
;; しかもメニューに「.」が表示されてほしい.
(defvar howm-huge++ 99999)
(setq howm-menu-todo-priority (- howm-huge++))

;; 「[2008-02-15]!」の「!」上で RET を叩いたら,
;; 「[2008-02-15]. [2008-02-15]:!」でなく
;; 「[2008-02-15], [2008-02-15]:!」になるようにする (やっつけ改造)
(defadvice howm-action-lock-done-done
           (around my-mark (date type lazy desc &optional done-mark) activate)
  (let ((my-mark ","))
    (setq done-mark
          (concat my-mark (substring (or done-mark ".") 1))))
  ad-do-it)

(Please LogIn to post comments.)

Last modified:2008/03/11 00:36:11
Keyword(s):
References:[実装済]