calendar on Meadow

Thread View: fj.editor.mule

2 messages

[T] Back to Threads [V] Tree View [G] Group Articles

2 total messages Started by Takahiro Yamaguchi Wed, 17 Nov 1999 00:00

#410

Author: Takahiro Yamaguchi
Date: Wed, 17 Nov 1999 00:00

23 lines
1123 bytes

(Meadow-version)
"Meadow-1.10 (TSUYU)"
(calendar-version)
"Version 6, October 12, 1995"

の環境で、other-holidays 変数に休みの設定をしているのですが、

(setq other-holidays
      '((holiday-fixed 12 27 "Flex Holiday")
	(holiday-fixed 12 28 "Flex Holiday")
	(holiday-fixed 12 29 "Flex Holiday")
	.....
	(holiday-sexp (if (equal dayname "Saturday")
			  (month day "Saturday")))
	))

holiday-sexp でエラーがでてしまいます。
したいことは、土曜日を other-holidays に休みとして設定したい
だけです。
elisp に詳しくないので悪戦苦闘しているのですが、解決できませ
ん。　
ご教授よろしくお願いします。

Re: calendar on Meadow

#411

Author: cercine
Date: Fri, 19 Nov 1999 00:00

49 lines
2304 bytes

池田孝志です。

yamat@st.rim.or.jp (Takahiro Yamaguchi) writes:

> の環境で、other-holidays 変数に休みの設定をしているのですが、
> 
> (setq other-holidays
>       '((holiday-fixed 12 27 "Flex Holiday")
> 	(holiday-fixed 12 28 "Flex Holiday")
> 	(holiday-fixed 12 29 "Flex Holiday")
> 	.....
> 	(holiday-sexp (if (equal dayname "Saturday")
> 			  (month day "Saturday")))
> 	))
> 
> holiday-sexp でエラーがでてしまいます。
> したいことは、土曜日を other-holidays に休みとして設定したい
> だけです。

僕の認識では、holiday-sexp は１回に１個の休日を指定できるだ
けのようです。

こういうのはどうでしょうか。
下の list) の右にカーソルを置いて C-x C-e すると分かるように、
第n週目の土曜日を休みにする holiday-float のリストを作るだけ
です。
第5週目まで計算しているので、どの年でも休日となります。

(setq other-holidays
      (append 
       '((holiday-fixed 12 27 "Flex Holiday")
	 (holiday-fixed 12 28 "Flex Holiday")
	 (holiday-fixed 12 29 "Flex Holiday")
	 .....
	 )
       ;; １年中の土曜日を休日にする
       (let ((month 1) (i 1) list)
	 (while (<= month 12) 
	   (while (<= i 5)
	     (setq list (cons 
			 (list 'holiday-float month 6 i "Saturday") 
			 list)
		   i (1+ i)))
	   (setq i 1 month (1+ month)))
	 list)
       ))

-- 
池田 孝志  cercine@kcn.ne.jp

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads