[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
Re: german Holidays
From: |
Matthias Rempe |
Subject: |
Re: german Holidays |
Date: |
11 Sep 2003 02:23:59 +0200 |
User-agent: |
Gnus/5.09 (Gnus v5.9.0) Emacs/21.3.50 |
>>>>> "rk" == ray <ray@nabuli.de> writes:
> Hello there, is there a way to have emacs show the german
> holidays instead of Hebrew, Islam et al?
I've set calendar-holidays to this value:
((holiday-fixed 1 1 "Neujahr")
(holiday-fixed 5 1 "1. Mai")
(holiday-fixed 10 3 "Tag der Deutschen Einheit")
(holiday-float 12 0 -4 "1. Advent" 24)
(holiday-float 12 0 -3 "2. Advent" 24)
(holiday-float 12 0 -2 "3. Advent" 24)
(holiday-float 12 0 -1 "4. Advent" 24)
(holiday-fixed 12 25 "1. Weihnachtstag")
(holiday-fixed 12 26 "2. Weihnachtstag")
(holiday-fixed 1 6 "Heilige Drei Könige")
(let*
((century
(1+
(/ displayed-year 100)))
(shifted-epact
(%
(+ 14
(* 11
(% displayed-year 19))
(-
(/
(* 3 century)
4))
(/
(+ 5
(* 8 century))
25)
(* 30 century))
30))
(adjusted-epact
(if
(or
(= shifted-epact 0)
(and
(= shifted-epact 1)
(< 10
(% displayed-year 19))))
(1+ shifted-epact)
shifted-epact))
(paschal-moon
(-
(calendar-absolute-from-gregorian
(list 4 19 displayed-year))
adjusted-epact))
(easter
(calendar-dayname-on-or-before 0
(+ paschal-moon 7))))
(filter-visible-calendar-holidays
(mapcar
(lambda
(l)
(list
(calendar-gregorian-from-absolute
(+ easter
(car l)))
(nth 1 l)))
'((-2 "Karfreitag")
(0 "Ostersonntag")
(1 "Ostermontag")
(39 "Christi Himmelfahrt")
(49 "Pfingstsonntag")
(50 "Pfingstmontag")
(60 "Fronleichnam")))))
(holiday-fixed 11 1 "Allerheiligen")
(holiday-float 11 0 1 "Totensonntag" 20)
(if
(fboundp 'atan)
(solar-equinoxes-solstices))
(if
(progn
(require 'cal-dst)
t)
(funcall 'holiday-sexp calendar-daylight-savings-starts
'(format "Daylight Savings Time Begins %s"
(if
(fboundp 'atan)
(solar-time-string
(/ calendar-daylight-savings-starts-time
(float 60))
calendar-standard-time-zone-name)
""))))
(funcall 'holiday-sexp calendar-daylight-savings-ends
'(format "Daylight Savings Time Ends %s"
(if
(fboundp 'atan)
(solar-time-string
(/ calendar-daylight-savings-ends-time
(float 60))
calendar-daylight-time-zone-name)
""))))
--
Matthias