calendar m17n

[Andreas Roehler]

Hi,

I'm looking for a way to localize names in calendar.el.

Below an example with German names.

As there will exist several lists already with names in
different languages, seems no need to collect it from
the scratch.

It's just to find and pick the right one. Could someone
give me a hint, where to collect it respecting GPl
questions?

Thanks!

__
Andreas Roehler

(defun calendar-local-names ()
 "Read months and days in your mothers tongue"
 (interactive)
 (let ((lang (getenv "LANG")))
   (cond ((string-match "\\(de\\)\\|\\(DE\\)" lang)
      (message "%s" (format "%s" (match-string 0 lang)))
      (setq calendar-day-name-array
        ["Sonntag" "Montag" "Dienstag" "Mittwoch" "Donnerstag" 
"Freitag" "Samstag"])
      (setq calendar-month-name-array
        ["Januar" "Februar" "März" "April" "Mai" "Juni" "Juli" "August"
         "September" "Oktober" "November" "Dezember"])))))