[mhc:00810] Re: faces of calender

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

From: Yoshinari Nomura <nom@xxxxxxxxxxxxxxxxxxx> さん曰く
Subject: [mhc:00808] Re: faces of calender
Message-ID: <20000719132025S.nom@xxxxxxxxxxxxxxxxxxx>
Date: Wed, 19 Jul 2000 13:20:25 +0900

乃村> >   (let ((new-face (intern (concat "mhc-effect-"
乃村> > 				  (symbol-name face) "-"
乃村> > 				  (symbol-name effect))))
乃村> > 
乃村> > で face の名前が mhc-effect-bold-busy とかなった方が良いと思う。
乃村> 
乃村> なるほど。よい命名法を探しています。
乃村> 上の例だと、親の名前が、mhc-sumamry-face とかの場合は、
乃村> 
乃村>   mhc-summary-face-mhc-effect-today-busy-sunday
乃村> というように。なったりしませんか。

正解は mhc-effect-mhc-summary-face-sunday-busy だと思います。^^;;

乃村> デフォルトの face を bold や default にしないで、
乃村> mhc-summary-face としておいて、
乃村> 関数はそのままというのはどうでしょうか。

実は commit してしまってから冗長なのに気づきました。
default しか目に入っていませんでした。ごめんなさい。

  (let ((new-face (intern (concat
			   (if (string-match "^mhc-" (symbol-name face))
			       "" "mhc-face-")
			   (symbol-name face) "-"
			   (symbol-name effect))))
=>
mhc-face-default-busy
mhc-face-default-today 
mhc-calendar-face-saturday-busy

ではどうでしょうか？

乃村> # today-busy-sunday は、悲しい人の例。:-)

## デートかもしれないですよ。全然悲しくない :-)

乃村> > 1. 今月のような第6週まである月もちゃんと印刷出来る。
乃村> 
乃村> 試してみます。

よろしくお願いします。いかんせん、cut & try でやったらできちゃっ
た、という代物なので。。。

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