Commit | Line | Data |
---|---|---|
3afbc435 | 1 | ;;; cal-french.el --- calendar functions for the French Revolutionary calendar |
7e1dae73 | 2 | |
780249f8 | 3 | ;; Copyright (C) 1988, 89, 92, 94, 95, 1997 Free Software Foundation, Inc. |
7e1dae73 JB |
4 | |
5 | ;; Author: Edward M. Reingold <reingold@cs.uiuc.edu> | |
e9571d2a ER |
6 | ;; Keywords: calendar |
7 | ;; Human-Keywords: French Revolutionary calendar, calendar, diary | |
7e1dae73 JB |
8 | |
9 | ;; This file is part of GNU Emacs. | |
10 | ||
59243403 RS |
11 | ;; GNU Emacs is free software; you can redistribute it and/or modify |
12 | ;; it under the terms of the GNU General Public License as published by | |
13 | ;; the Free Software Foundation; either version 2, or (at your option) | |
14 | ;; any later version. | |
15 | ||
7e1dae73 | 16 | ;; GNU Emacs is distributed in the hope that it will be useful, |
59243403 RS |
17 | ;; but WITHOUT ANY WARRANTY; without even the implied warranty of |
18 | ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
19 | ;; GNU General Public License for more details. | |
20 | ||
21 | ;; You should have received a copy of the GNU General Public License | |
b578f267 EN |
22 | ;; along with GNU Emacs; see the file COPYING. If not, write to the |
23 | ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, | |
24 | ;; Boston, MA 02111-1307, USA. | |
7e1dae73 JB |
25 | |
26 | ;;; Commentary: | |
27 | ||
28 | ;; This collection of functions implements the features of calendar.el and | |
29 | ;; diary.el that deal with the French Revolutionary calendar. | |
30 | ||
d098eb39 | 31 | ;; Technical details of the French Revolutionary calendar can be found in |
a96a5fca PE |
32 | ;; ``Calendrical Calculations'' by Nachum Dershowitz and Edward M. Reingold, |
33 | ;; Cambridge University Press (1997), and in | |
327c8eb2 RS |
34 | ;; ``Calendrical Calculations, Part II: Three Historical Calendars'' by |
35 | ;; E. M. Reingold, N. Dershowitz, and S. M. Clamen, Software--Practice and | |
36 | ;; Experience, Volume 23, Number 4 (April, 1993), pages 383-404. | |
7e1dae73 JB |
37 | |
38 | ;; Comments, corrections, and improvements should be sent to | |
39 | ;; Edward M. Reingold Department of Computer Science | |
40 | ;; (217) 333-6733 University of Illinois at Urbana-Champaign | |
41 | ;; reingold@cs.uiuc.edu 1304 West Springfield Avenue | |
42 | ;; Urbana, Illinois 61801 | |
43 | ||
44 | ;;; Code: | |
45 | ||
46 | (require 'calendar) | |
47 | ||
780249f8 RS |
48 | (defun french-calendar-accents () |
49 | "True if diacritical marks are available." | |
50 | (and (or window-system | |
51 | (terminal-coding-system)) | |
52 | (or enable-multibyte-characters | |
53 | (and (char-table-p standard-display-table) | |
54 | (equal (aref standard-display-table 161) [161]))))) | |
327c8eb2 | 55 | |
9fadf1a5 ER |
56 | (defconst french-calendar-epoch (calendar-absolute-from-gregorian '(9 22 1792)) |
57 | "Absolute date of start of French Revolutionary calendar = September 22, 1792.") | |
58 | ||
7e1dae73 | 59 | (defconst french-calendar-month-name-array |
780249f8 RS |
60 | ["Vende'miaire" "Brumaire" "Frimaire" "Nivo^se" "Pluvio^se" "Vento^se" |
61 | "Germinal" "Flore'al" "Prairial" "Messidor" "Thermidor" "Fructidor"]) | |
62 | ||
63 | (defconst french-calendar-multibyte-month-name-array | |
64 |