Mercurial > emacs

comparison lisp/calendar/cal-french.el @ 28781:dc2a0cf401ab

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(french-calendar-multibyte-special-days-array) (french-calendar-special-days-array): Change French text. (calendar-french-date-string): Change output. (calendar-goto-french-date): Likewise.
author Gerd Moellmann <gerd@gnu.org>
date Tue, 02 May 2000 13:43:45 +0000
parents 4f1b1bddae88
children 7a94f1c588c4
comparison
equal deleted inserted replaced
28780:6bc5854eef8b 28781:dc2a0cf401ab
67 (defconst french-calendar-day-name-array 67 (defconst french-calendar-day-name-array
68 ["Primidi" "Duodi" "Tridi" "Quartidi" "Quintidi" "Sextidi" "Septidi" 68 ["Primidi" "Duodi" "Tridi" "Quartidi" "Quintidi" "Sextidi" "Septidi"
69 "Octidi" "Nonidi" "Decadi"]) 69 "Octidi" "Nonidi" "Decadi"])
70 70
71 (defconst french-calendar-multibyte-special-days-array 71 (defconst french-calendar-multibyte-special-days-array
72 ["de la Vertu" "du Génie" "du Labour" "de la Raison" "de la Récompense" 72 ["de la Vertu" "du Génie" "du Travail" "de la Raison" "des Récompenses"
73 "de la Révolution"]) 73 "de la Révolution"])
74 74
75 (defconst french-calendar-special-days-array 75 (defconst french-calendar-special-days-array
76 ["de la Vertu" "du Ge'nie" "du Labour" "de la Raison" "de la Re'compense" 76 ["de la Vertu" "du Ge'nie" "du Travail" "de la Raison" "des Re'compenses"
77 "de la Re'volution"]) 77 "de la Re'volution"])
78 78
79 (defun french-calendar-month-name-array () 79 (defun french-calendar-month-name-array ()
80 (if (french-calendar-accents) 80 (if (french-calendar-accents)
81 french-calendar-multibyte-month-name-array 81 french-calendar-multibyte-month-name-array
178 "Jour %s de l'Anne'e %d de la Re'volution") 178 "Jour %s de l'Anne'e %d de la Re'volution")
179 (aref (french-calendar-special-days-array) (1- d)) 179 (aref (french-calendar-special-days-array) (1- d))
180 y)) 180 y))
181 (t (format 181 (t (format
182 (if (french-calendar-accents) 182 (if (french-calendar-accents)
183 "Décade %s, %s de %s de l'Année %d de la Révolution" 183 "%d %s an %d de la Révolution"
184 "De'cade %s, %s de %s de l'Anne'e %d de la Re'volution") 184 "%d %s an %d de la Re'volution")
185 (make-string (1+ (/ (1- d) 10)) ?I) 185 d
186 (aref (french-calendar-day-name-array) (% (1- d) 10))
187 (aref (french-calendar-month-name-array) (1- m)) 186 (aref (french-calendar-month-name-array) (1- m))
188 y))))) 187 y)))))
189 188
190 (defun calendar-print-french-date () 189 (defun calendar-print-french-date ()
191 "Show the French Revolutionary calendar equivalent of the selected date." 190 "Show the French Revolutionary calendar equivalent of the selected date."
233 (completing-read 232 (completing-read
234 "Mois ou Sansculottide: " 233 "Mois ou Sansculottide: "
235 month-list 234 month-list
236 nil t) 235 nil t)
237 (calendar-make-alist month-list 1 'car)))) 236 (calendar-make-alist month-list 1 'car))))
238 (decade (if (> month 12)
239 1
240 (calendar-read
241 (if accents
242 "Décade (1-3): "
243 "De'cade (1-3): ")
244 '(lambda (x) (memq x '(1 2 3))))))
245 (day (if (> month 12) 237 (day (if (> month 12)
246 (- month 12) 238 (- month 12)
247 (calendar-read 239 (calendar-read
248 "Jour (1-10): " 240 "Jour (1-10): "
249 '(lambda (x) (and (<= 1 x) (<= x 10)))))) 241 '(lambda (x) (and (<= 1 x) (<= x 30))))))
250 (month (if (> month 12) 13 month)) 242 (month (if (> month 12) 13 month)))
251 (day (+ day (* 10 (1- decade)))))
252 (list (list month day year))))) 243 (list (list month day year)))))
253 (calendar-goto-date (calendar-gregorian-from-absolute 244 (calendar-goto-date (calendar-gregorian-from-absolute
254 (calendar-absolute-from-french date))) 245 (calendar-absolute-from-french date)))
255 (or noecho (calendar-print-french-date))) 246 (or noecho (calendar-print-french-date)))
256 247