[mhc:01531] Re: mhc-scan-month-hook

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

From: Sawada Toyonobu <non@xxxxxxxxxxxx> さん曰く
Subject: [mhc:01530] Re: mhc-scan-month-hook
Message-ID: <20020131.143645.73373780.non@xxxxxxxxxxxx>
Date: Thu, 31 Jan 2002 14:36:45 +0900 (JST)

の> お久しぶりの澤田です。

こんにちは、白井です。

鯉> mhc-goto-next-monthをお手軽にしたいなぁとおもったので
鯉> overlayをつかってやってみました。
鯉> Mewをつかっている人向けで、 < や > を2連打すると月を移動できます。

の> ">>" では次の月に行けませんでした。
の> ;; TODO の行があるとダメなのかな?未確認ですが。
の> ;; 予定はかなり過ぎてるのですがまだ消せないの(T_T)

さくっと試してみました。">" だと (point-max) ではなくて、最後の
行に動くからですね。

# 便利だ。

とりあえず、mhc 本体を変えないで advice でやってみました。

(defadvice mhc-scan-month (after easy-navi activate)
  (save-excursion
    (let* ((ov-keymap (make-sparse-keymap))
           (ov (make-overlay (point-min) (1+ (point-min)))))
      (overlay-put ov 'evaporate t)
      (set-keymap-parent ov-keymap (current-local-map))
      (define-key ov-keymap "<" 'mhc-goto-prev-month)
      (overlay-put ov 'local-map ov-keymap))
    (let* ((ov-keymap (make-sparse-keymap))
           (ov (make-overlay
		(progn (goto-char (point-max))
		       (forward-line -1)
		       (point))
		(point-max))))
      (overlay-put ov 'evaporate t)
      (set-keymap-parent ov-keymap (current-local-map))
      (define-key ov-keymap ">" 'mhc-goto-next-month)
      (overlay-put ov 'local-map ov-keymap))))

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