Re: german Holidays

[Matthias Rempe]

>>>>> "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