🚀 go-pugleaf

池田孝志です。

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