;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(require 'calendar)
#@74 Absolute date of start of French Revolutionary calendar = Sept 22, 1792.
(defconst calendar-french-epoch (byte-code "\300\211\301
8\262
\302
\303U\203\304\305!\207
\303V\203\204
S\262
\306\211\211@\262

\211A@\262
\301
8\262

\307S_\\\301V\203s\211\310\311_\\\312\245Z\262

\211\303W\203T\313
!S\262
\211\311\246\303U\205j\211\314\246\303U?\206j\211\315\246\303U\262
\203s\211T\262
\266\204\316_\311\245\314\245[\315\245%\207\313T!\262
\317\211\211@\262

\211A@\262
\301
8\262

\307S_\\\301V\203\341\211\310\311_\\\312\245Z\262

\211\303W\203\302\313
!S\262
\211\311\246\303U\205\330\211\314\246\303U?\206\330\211\315\246\303U\262
\203\341\211T\262
\266\204\316_\311\245\314\245[\315\245\320\211\211@\262

\211A@\262
\301
8\262

\307S_\\\301V\203F
\211\310\311_\\\312\245Z\262

\211\303W\203'
\313
!S\262
\211\311\246\303U\205=
\211\314\246\303U?\206=
\211\315\246\303U\262
\203F
\211T\262
\266\204&\207" [(9 22 1792) 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1)] 18) (#$ . 104))
(byte-code "\300\301\302\303#\210\304\211\203(\211@\301
N\203!\302
N\204!\305\302\301N#\210
A\266\202\202\210\306\301\302\307#\207" [defvaralias calendar-french-multibyte-month-name-array calendar-french-month-name-array nil (saved-value saved-variable-comment) put make-obsolete-variable "28.1"] 7)
#@46 Array of month names in the French calendar.
(defconst calendar-french-month-name-array ["Vendémiaire" "Brumaire" "Frimaire" "Nivôse" "Pluviôse" "Ventôse" "Germinal" "Floréal" "Prairial" "Messidor" "Thermidor" "Fructidor" "jour complémentaire"] (#$ . 1478))
#@44 Array of day names in the French calendar.
(defconst calendar-french-day-name-array ["Primidi" "Duodi" "Tridi" "Quartidi" "Quintidi" "Sextidi" "Septidi" "Octidi" "Nonidi" "Décadi"] (#$ . 1748))
(byte-code "\300\301\302\303#\210\304\211\203(\211@\301
N\203!\302
N\204!\305\302\301N#\210
A\266\202\202\210\306\301\302\307#\207" [defvaralias calendar-french-multibyte-special-days-array calendar-french-special-days-array nil (saved-value saved-variable-comment) put make-obsolete-variable "28.1"] 7)
#@52 Array of special day names in the French calendar.
(defconst calendar-french-special-days-array ["de la Vertu" "du Génie" "du Travail" "de la Raison" "des Récompenses" "de la Révolution"] (#$ . 2260))
#@45 Array of day feasts in the French calendar.
(defconst calendar-french-feasts-array ["du Raisin" "du Safran" "de la Châtaigne" "de la Colchique" "du Cheval" "de la Balsamine" "de la Carotte" "de l'Amarante" "du Panais" "de la Cuve" "de la Pomme de terre" "de l'Immortelle" "du Potiron" "du Réséda" "de l'Âne" "de la Belle de nuit" "de la Citrouille" "du Sarrasin" "du Tournesol" "du Pressoir" "du Chanvre" "de la Pêche" "du Navet" "de l'Amaryllis" "du Bœuf" "de l'Aubergine" "du Piment" "de la Tomate" "de l'Orge" "du Tonneau" "de la Pomme" "du Céleri" "de la Poire" "de la Betterave" "de l'Oie" "de l'Héliotrope" "de la Figue" "de la Scorsonère" "de l'Alisier" "de la Charrue" "du Salsifis" "de la Macre" "du Topinambour" "de l'Endive" "du Dindon" "du Chervis" "du Cresson" "de la Dentelaire" "de la Grenade" "de la Herse" "de la Bacchante" "de l'Azerole" "de la Garance" "de l'Orange" "du Faisan" "de la Pistache" "du Macjon" "du Coing" "du Cormier" "du Rouleau" "de la Raiponce" "du Turneps" "de la Chicorée" "de la Nèfle" "du Cochon" "de la Mâche" "du Chou-fleur" "du Miel" "du Genièvre" "de la Pioche" "de la Cire" "du Raifort" "du Cèdre" "du Sapin" "du Chevreuil" "de l'Ajonc" "du Cyprès" "du Lierre" "de la Sabine" "du Hoyau" "de l'Érable-sucre" "de la Bruyère" "du Roseau" "de l'Oseille" "du Grillon" "du Pignon" "du Liège" "de la Truffe" "de l'Olive" "de la Pelle" "de la Tourbe" "de la Houille" "du Bitume" "du Soufre" "du Chien" "de la Lave" "de la Terre végétale" "du Fumier" "du Salpêtre" "du Fléau" "du Granit" "de l'Argile" "de l'Ardoise" "du Grès" "du Lapin" "du Silex" "de la Marne" "de la Pierre à chaux" "du Marbre" "du Van" "de la Pierre à plâtre" "du Sel" "du Fer" "du Cuivre" "du Chat" "de l'Étain" "du Plomb" "du Zinc" "du Mercure" "du Crible" "de la Lauréole" "de la Mousse" "du Fragon" "du Perce-neige" "du Taureau" "du Laurier-thym" "de l'Amadouvier" "du Mézéréon" "du Peuplier" "de la Cognée" "de l'Ellébore" "du Brocoli" "du Laurier" "de l'Avelinier" "de la Vache" "du Buis" "du Lichen" "de l'If" "de la Pulmonaire" "de la Serpette" "du Thlaspi" "du Thymelé" "du Chiendent" "de la Traînasse" "du Lièvre" "de la Guède" "du Noisetier" "du Cyclamen" "de la Chélidoine" "du Traîneau" "du Tussilage" "du Cornouiller" "du Violier" "du Troène" "du Bouc" "de l'Asaret" "de l'Alaterne" "de la Violette" "du Marsault" "de la Bêche" "du Narcisse" "de l'Orme" "de la Fumeterre" "du Vélar" "de la Chèvre" "de l'Épinard" "du Doronic" "du Mouron" "du Cerfeuil" "du Cordeau" "de la Mandragore" "du Persil" "du Cochléaria" "de la Pâquerette" "du Thon" "du Pissenlit" "de la Sylvie" "du Capillaire" "du Frêne" "du Plantoir" "de la Primevère" "du Platane" "de l'Asperge" "de la Tulipe" "de la Poule" "de la Blette" "du Bouleau" "de la Jonquille" "de l'Aulne" "du Couvoir" "de la Pervenche" "du Charme" "de la Morille" "du Hêtre" "de l'Abeille" "de la Laitue" "du Mélèze" "de la Ciguë" "du Radis" "de la Ruche" "du Gainier" "de la Romaine" "du Marronnier" "de la Roquette" "du Pigeon" "du Lilas" "de l'Anémone" "de la Pensée" "de la Myrtille" "du Greffoir" "de la Rose" "du Chêne" "de la Fougère" "de l'Aubépine" "du Rossignol" "de l'Ancolie" "du Muguet" "du Champignon" "de la Jacinthe" "du Rateau" "de la Rhubarbe" "du Sainfoin" "du Bâton-d'or" "du Chamérisier" "du Ver à soie" "de la Consoude" "de la Pimprenelle" "de la Corbeille-d'or" "de l'Arroche" "du Sarcloir" "du Statice" "de la Fritillaire" "de la Bourrache" "de la Valériane" "de la Carpe" "du Fusain" "de la Civette" "de la Buglosse" "du Sénevé" "de la Houlette" "de la Luzerne" "de l'Hémérocalle" "du Trèfle" "de l'Angélique" "du Canard" "de la Mélisse" "du Fromental" "du Martagon" "du Serpolet" "de la Faux" "de la Fraise" "de la Bétoine" "du Pois" "de l'Acacia" "de la Caille" "de l'Œillet" "du Sureau" "du Pavot" "du Tilleul" "de la Fourche" "du Barbeau" "de la Camomille" "du Chèvrefeuille" "du Caille-lait" "de la Tanche" "du Jasmin" "de la Verveine" "du Thym" "de la Pivoine" "du Chariot" "du Seigle" "de l'Avoine" "de l'Oignon" "de la Véronique" "du Mulet" "du Romarin" "du Concombre" "de l'Échalotte" "de l'Absinthe" "de la Faucille" "de la Coriandre" "de l'Artichaut" "de la Giroflée" "de la Lavande" "du Chamois" "du Tabac" "de la Groseille" "de la Gesse" "de la Cerise" "du Parc" "de la Menthe" "du Cumin" "du Haricot" "de l'Orcanète" "de la Pintade" "de la Sauge" "de l'Ail" "de la Vesce" "du Blé" "de la Chalémie" "de l'Épautre" "du Bouillon-blanc" "du Melon" "de l'Ivraie" "du Bélier" "de la Prèle" "de l'Armoise" "du Carthame" "de la Mûre" "de l'Arrosoir" "du Panis" "du Salicor" "de l'Abricot" "du Basilic" "de la Brebis" "de la Guimauve" "du Lin" "de l'Amande" "de la Gentiane" "de l'Écluse" "de la Carline" "du Câprier" "de la Lentille" "de l'Aunée" "de la Loutre" "de la Myrte" "du Colza" "du Lupin" "du Coton" "du Moulin" "de la Prune" "du Millet" "du Lycoperdon" "de l'Escourgeon" "du Saumon" "de la Tubéreuse" "du Sucrion" "de l'Apocyn" "de la Réglisse" "de l'Échelle" "de la Pastèque" "du Fenouil" "de l'Épine-vinette" "de la Noix" "de la Truite" "du Citron" "de la Cardère" "du Nerprun" "du Tagette" "de la Hotte" "de l'Églantier" "de la Noisette" "du Houblon" "du Sorgho" "de l'Écrevisse" "de la Bagarade" "de la Verge-d'or" "du Maïs" "du Marron" "du Panier" "de la Vertu" "du Génie" "du Travail" "de la Raison" "des Récompenses" "de la Révolution"] (#$ . 2470))
(defalias 'calendar-french-accents-p #[0 "\300\207" [t] 1])
(make-obsolete 'calendar-french-accents-p nil "28.1")
#@78 Return the array of month names, depending on whether accents are available.
(defalias 'calendar-french-month-name-array #[0 "\207" [calendar-french-month-name-array] 1 (#$ . 8046)])
(make-obsolete 'calendar-french-month-name-array "use the variable of the same name instead" "28.1")
#@32 Return the array of day names.
(defalias 'calendar-french-day-name-array #[0 "\207" [calendar-french-day-name-array] 1 (#$ . 8337)])
(make-obsolete 'calendar-french-day-name-array "use the variable of the same name instead" "28.1")
#@75 Return the special day names, depending on whether accents are available.
(defalias 'calendar-french-special-days-array #[0 "\207" [calendar-french-special-days-array] 1 (#$ . 8576)])
(make-obsolete 'calendar-french-special-days-array "use the variable of the same name instead" "28.1")
#@106 Remove the article from the FEAST.
E.g. "du Raisin" -> "Raisin" or "de la Vertu" -> "Vertu".

(fn FEAST)
(defalias 'calendar-french-trim-feast #[257 "\211\300\301O\302\232\203\211\301\303O\207\211\300\304O\305\232\203\211\304\303O\207\211\300\306O\307\232\203*\211\306\303O\207\211\300\310O\311\232\2038\211\310\303O\207\207" [0 3 "du " nil 6 "de la " 5 "de l'" 4 "des "] 4 (#$ . 8871)])
#@466 True if YEAR is a leap year on the French Revolutionary calendar.
For Gregorian years 1793 to 1805, the years of actual operation of the
calendar, follows historical practice based on equinoxes (years 3, 7,
and 11 were leap years; 15 and 20 would have been leap years).  For later
years uses the proposed rule of Romme (never adopted)--leap years fall every
four years except century years not divisible 400 and century years that are
multiples of 4000.

(fn YEAR)
(defalias 'calendar-french-leap-year-p #[257 "\211\300>\206)\211\301>\206)\211\302V\205)\211\303\246\304U\205)\211\305\246\306>?\205)\211\307\246\304U?\207" [(3 7 11) (15 20) 20 4 0 400 (100 200 300) 4000] 3 (#$ . 9272)])
#@208 Return last day of MONTH, YEAR on the French Revolutionary calendar.
The 13th month is not really a month, but the 5 (6 in leap years) day period of
`sansculottides' at the end of the year.

(fn MONTH YEAR)
(defalias 'calendar-french-last-day-of-month #[514 "
\300W\203\301\207\302
!\203\303\207\304\207" [13 30 calendar-french-leap-year-p 6 5] 4 (#$ . 9971)])
#@183 Compute absolute date from French Revolutionary date DATE.
The absolute date is the number of days elapsed since the (imaginary)
Gregorian date Sunday, December 31, 1 BC.

(fn DATE)
(defalias 'calendar-french-to-absolute #[257 "\211\211@\262

\211A@\262
\301
8\262
\302\303S_\304W\203\"\305\245\2027\302S\305\245S\306\245[S\307\245S\310\245[$\311S_S%\207" [calendar-french-epoch 2 + 365 20 4 100 400 4000 30] 12 (#$ . 10343)])
#@243 Compute the French Revolutionary equivalent for absolute date DATE.
The result is a list of the form (MONTH DAY YEAR).
The absolute date is the number of days elapsed since the
(imaginary) Gregorian date Sunday, December 31, 1 BC.

(fn DATE)
(defalias 'calendar-french-from-absolute #[257 "\211W\203\301\211\211E\207\211Z\302\245\211
\301\303\304\211TE!Y\203*\211T\262

T\262\202\262
\\\304\301\303\305\"E!V\203J\211T\262

T\262\202/\262
T\303\304E!SZ

E\207" [calendar-french-epoch 0 366 calendar-french-to-absolute 1 calendar-french-last-day-of-month] 11 (#$ . 10792)])
#@186 String of French Revolutionary date of Gregorian DATE.
Returns the empty string if DATE is pre-French Revolutionary.
Defaults to today's date if DATE is not given.

(fn &optional DATE)
(defalias 'calendar-french-date-string #[256 "\303
\206\304 \211\305
8\262
\306
\307U\203\310\311!\266\203\202Z

\307V\203\222
S\262
\312\211\211@\262

\211A@\262
\305
8\262

\313S_\\\305V\203}\211\314\315_\\\316\245Z\262

\211\307W\203^\317
!S\262
\211\315\246\307U\205t\211\320\246\307U?\206t\211\321\246\307U\262
\203}\211T\262
\266\204\322_\315\245\320\245[\321\245%\266\203\202Z
\317T!\262
\323\211\211@\262

\211A@\262
\305
8\262

\313S_\\\305V\203\357\211\314\315_\\\316\245Z\262

\211\307W\203\320\317
!S\262
\211\315\246\307U\205\346\211\320\246\307U?\206\346\211\321\246\307U\262
\203\357\211T\262
\266\204\322_\315\245\320\245[\321\245\324\211\211@\262

\211A@\262
\305
8\262

\313S_\\\305V\203T
\211\314\315_\\\316\245Z\262

\211\307W\2035
\317
!S\262
\211\315\246\307U\205K
\211\320\246\307U?\206K
\211\321\246\307U\262
\203T
\211T\262
\266\204&\266\203!\211\305
8\262

\211@\262
\211A@\262
\325W\203t
\326\207\327\330S\316\246H	SH\n\331\332\n_\\\\H&\207" [calendar-french-day-name-array calendar-french-month-name-array calendar-french-feasts-array calendar-french-from-absolute calendar-current-date 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) 1 "" format "%s %d %s an %d de la Révolution, jour %s" -31 30] 20 (#$ . 11395)])
#@73 Show the French Revolutionary calendar equivalent of the selected date.
(defalias 'calendar-french-print-date #[0 "\300\301\302!!\211\303\230\203\304\305!\207\304\306\"\207" [calendar-french-date-string calendar-cursor-to-date t "" message "Date is pre-French Revolution" "French Revolutionary date: %s"] 4 (#$ . 12924) nil])
#@133 Move cursor to French Revolutionary date DATE.
Echo French Revolutionary date unless NOECHO is non-nil.

(fn DATE &optional NOECHO)
(defalias 'calendar-french-goto-date #[513 "\300\301\302!!!\210\211\206\303 \207" [calendar-goto-date calendar-gregorian-from-absolute calendar-french-to-absolute calendar-french-print-date] 6 (#$ . 13260) (byte-code "	\303\304\305\306\307 \211\310
8\262
\311
\312U\203\313\314!\266\203\202[

\312V\203\223
S\262
\315\211\211@\262

\211A@\262
\310
8\262

\316S_\\\310V\203~\211\317\320_\\\321\245Z\262

\211\312W\203_\322
!S\262
\211\320\246\312U\205u\211\323\246\312U?\206u\211\324\246\312U\262
\203~\211T\262
\266\204\325_\320\245\323\245[\324\245%\266\203\202[
\322T!\262
\326\211\211@\262

\211A@\262
\310
8\262

\316S_\\\310V\203\360\211\317\320_\\\321\245Z\262

\211\312W\203\321\322
!S\262
\211\320\246\312U\205\347\211\323\246\312U?\206\347\211\324\246\312U\262
\203\360\211T\262
\266\204\325_\320\245\323\245[\324\245\327\211\211@\262

\211A@\262
\310
8\262

\316S_\\\310V\203U
\211\317\320_\\\321\245Z\262

\211\312W\2036
\322
!S\262
\211\320\246\312U\205L
\211\323\246\312U?\206L
\211\324\246\312U\262
\203U
\211T\262
\266\204&\266\203!\310
8\262
#\330\331\332\333!\203t
\330\334\"\202~
\335\211\330\334	\"!A!\"\"\336\337\340\341\311\336$\342\343\344#\336#A\345
\346^\"
\346V\203\243

\346Z\202\255
\303\347\350\"\351\352\"\"\346V\203\267
\343\202\270
\211E)C\207" [calendar-french-month-name-array calendar-french-feasts-array completion-ignore-case calendar-read-sexp "Année de la Révolution (>0)" #[257 "\211\300V\207" [0] 3 "\n\n(fn X)"] calendar-french-from-absolute calendar-current-date 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) mapcar list append calendar-french-leap-year-p calendar-french-trim-feast reverse t assoc-string completing-read "Mois ou \"jour complémentaire\" ou fête: " calendar-make-alist 1 car calendar-french-last-day-of-month 13 format "Jour (1-%d): " make-closure #[257 "\301\302\300#\207" [V0 <= 1] 5 "\n\n(fn X)"]] 24)])
#@49 French calendar equivalent of date diary entry.
(defalias 'diary-french-date #[0 "\301!\211\302\230\203\303\207\304\305\"\207" [date calendar-french-date-string "" "Date is pre-French Revolution" format "French Revolutionary date: %s"] 4 (#$ . 15369)])
(provide 'cal-french)