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

[mhc:00297] design in summary buffer (一例)

白井です。xcal から mhc に 100% 乗り換え完了。:-)

# だけど、まだ Ruby/Perl は動かしていません。^^;

ちょっと前に、

nom> summary の表示フォーマットは、過去の技術的限界をひきずっているの
nom> で、elisp で全部できる今となっては、かなり自由にできると思います。
nom> ので、いいデザイン案募集です。

白井> 了解、考えておきます。

という話がありましたが、hook を使って少しみた目を改造してみまし
た。完璧に私の趣味なんですが一例として紹介します。
以下のものを ~/.emacs にどうぞ。Wanderlust で動くかどうかはわか
りません。(_ _)

# 最初は 'underline を入れようと思ったんですが、face の保存がめ
# んどくさいのと、一行空いた方が週の区切りがわかりやすいかな？と
# いうことでこうしてしまいました。間数名はその名残です。

## といってもたいしたことをやっているわけではないのでなんなので
## すが

(add-hook 'mhc-mode-hook 'mhc-underline)
(set-face-foreground (make-face 'mhc-underline-face) "Grey")
(defun mhc-underline ()
  "週ごとに underline？ を引いたりする"
  (interactive)
  (let ((buffer-read-only nil)
	(width (- (window-width) 2))
	(buff (buffer-name))
	(date (ddate-now))
	beg)
    (save-excursion
      (goto-char (point-min))
      (while (re-search-forward "^[0-9]+ | [0-9][0-9]/[0-9][0-9] (Sun)" nil t)
	(if (> (count-lines (point-min) (point)) 1) ;; これは必要無い？
	    (progn
	      (beginning-of-line)
	      (setq beg (point))
	      (insert (make-string width ?-))
	      (insert "\n")
	      (put-text-property beg (point) 'invisible nil)
	      (put-text-property beg (point) 'face 'mhc-underline-face)
	      (forward-line 2))))
      ;; 今日を反転表示する	      
      (goto-char (point-min))
      (and (string-match
	    buff (format "+schedule/%4d/%2d" (car date) (nth 1 date)))
	   (re-search-forward
	    (format "^[0-9]+ | \\(%s\\)" (ddate-mmdd-s1 date "/")) nil t)
	   (put-text-property (match-beginning 1) (match-end 1) 'face 'conf)))
    (set-buffer-modified-p nil)))


こういうのをやると Mew だと、current message を示す underline が
邪魔になってしょうがないので、こういうこともやっています。ちょっ
と(相当)邪悪。

(defadvice mhc-goto-today (after mew-cursor activate)
  (make-local-variable 'mew-use-cursor-mark)
  (make-local-variable 'mew-use-highlight-cursor-line)
  (setq mew-use-cursor-mark nil)
  (setq mew-use-highlight-cursor-line nil))


また、senさんが言われていましたが、X-SC-Location が導入されたら、

12/24  Fri  14:00-16:00 打ち合せ [D2-4 会議室]
           location 用の face => ~~~~~~~~~~~~~

と summary に一緒に出るととってもうれしいです。
(というか summary の表示にはそれ以上は望みませんです :-)


P.S.
mhc-goto-today が '年' が違っていても反応しちゃうのは今一かな？
と思いますです。

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