Commit | Line | Data |
---|---|---|
3afbc435 | 1 | ;;; cal-french.el --- calendar functions for the French Revolutionary calendar |
7e1dae73 | 2 | |
dbfca9c4 | 3 | ;; Copyright (C) 1988, 1989, 1992, 1994, 1995, 1997, 2001, 2002, 2003, |
114f9c96 | 4 | ;; 2004, 2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc. |
7e1dae73 JB |
5 | |
6 | ;; Author: Edward M. Reingold <reingold@cs.uiuc.edu> | |
dbfca9c4 | 7 | ;; Maintainer: Glenn Morris <rgm@gnu.org> |
e9571d2a ER |
8 | ;; Keywords: calendar |
9 | ;; Human-Keywords: French Revolutionary calendar, calendar, diary | |
7e1dae73 JB |
10 | |
11 | ;; This file is part of GNU Emacs. | |
12 | ||
2ed66575 | 13 | ;; GNU Emacs is free software: you can redistribute it and/or modify |
59243403 | 14 | ;; it under the terms of the GNU General Public License as published by |
2ed66575 GM |
15 | ;; the Free Software Foundation, either version 3 of the License, or |
16 | ;; (at your option) any later version. | |
59243403 | 17 | |
7e1dae73 | 18 | ;; GNU Emacs is distributed in the hope that it will be useful, |
59243403 RS |
19 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
20 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
21 | ;; GNU General Public License for more details. | |
22 | ||
23 | ;; You should have received a copy of the GNU General Public License | |
2ed66575 | 24 | ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. |
7e1dae73 JB |
25 | |
26 | ;;; Commentary: | |
27 | ||
eaf7038f | 28 | ;; See calendar.el. |
7e1dae73 | 29 | |
7e1dae73 JB |
30 | ;;; Code: |
31 | ||
32 | (require 'calendar) | |
33 | ||
d8e55af8 | 34 | (defconst calendar-french-epoch (calendar-absolute-from-gregorian '(9 22 1792)) |
5424a530 | 35 | "Absolute date of start of French Revolutionary calendar = Sept 22, 1792.") |
9fadf1a5 | 36 | |
d8e55af8 | 37 | (defconst calendar-french-month-name-array |
780249f8 | 38 | ["Vende'miaire" "Brumaire" "Frimaire" "Nivo^se" "Pluvio^se" "Vento^se" |
5424a530 GM |
39 | "Germinal" "Flore'al" "Prairial" "Messidor" "Thermidor" "Fructidor"] |
40 | "Array of month names in the French calendar.") | |
780249f8 | 41 | |
d8e55af8 | 42 | (defconst calendar-french-multibyte-month-name-array |
780249f8 | 43 |