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, |
f0fa15c5 | 4 | ;; 2004, 2005, 2006, 2007 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 | ||
59243403 RS |
13 | ;; GNU Emacs is free software; you can redistribute it and/or modify |
14 | ;; it under the terms of the GNU General Public License as published by | |
075969b4 | 15 | ;; the Free Software Foundation; either version 3, or (at your option) |
59243403 RS |
16 | ;; any later version. |
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 | |
b578f267 | 24 | ;; along with GNU Emacs; see the file COPYING. If not, write to the |
3a35cf56 LK |
25 | ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, |
26 | ;; Boston, MA 02110-1301, USA. | |
7e1dae73 JB |
27 | |
28 | ;;; Commentary: | |
29 | ||
30 | ;; This collection of functions implements the features of calendar.el and | |
31 | ;; diary.el that deal with the French Revolutionary calendar. | |
32 | ||
d098eb39 | 33 | ;; Technical details of the French Revolutionary calendar can be found in |
fffaba77 PE |
34 | ;; ``Calendrical Calculations: The Millennium Edition'' by Edward M. Reingold |
35 | ;; and Nachum Dershowitz, Cambridge University Press (2001), and in | |
327c8eb2 RS |
36 | ;; ``Calendrical Calculations, Part II: Three Historical Calendars'' by |
37 | ;; E. M. Reingold, N. Dershowitz, and S. M. Clamen, Software--Practice and | |
38 | ;; Experience, Volume 23, Number 4 (April, 1993), pages 383-404. | |
7e1dae73 | 39 | |
7e1dae73 JB |
40 | ;;; Code: |
41 | ||
04ec3414 JB |
42 | (defvar date) |
43 | ||
7e1dae73 JB |
44 | (require 'calendar) |
45 | ||
780249f8 RS |
46 | (defun french-calendar-accents () |
47 | "True if diacritical marks are available." | |
48 | (and (or window-system | |
49 | (terminal-coding-system)) | |
50 | (or enable-multibyte-characters | |
51 | (and (char-table-p standard-display-table) | |
52 | (equal (aref standard-display-table 161) [161]))))) | |
327c8eb2 | 53 | |
9fadf1a5 ER |
54 | (defconst french-calendar-epoch (calendar-absolute-from-gregorian '(9 22 1792)) |
55 | "Absolute date of start of French Revolutionary calendar = September 22, 1792.") | |
56 | ||
7e1dae73 | 57 | (defconst french-calendar-month-name-array |
780249f8 RS |
58 | ["Vende'miaire" "Brumaire" "Frimaire" "Nivo^se" "Pluvio^se" "Vento^se" |
59 | "Germinal" "Flore'al" "Prairial" "Messidor" "Thermidor" "Fructidor"]) | |
60 | ||
61 | (defconst french-calendar-multibyte-month-name-array | |
62 |