annotate lisp/calendar/cal-mayan.el @ 111440:b72ff43b041f

* lisp/emacs-lisp/smie.el: Simplify the smie-rules-function return values. (smie-precs->prec2): Rename from smie-precs-precedence-table. (smie-bnf->prec2): Rename from smie-bnf-precedence-table. (smie-prec2->grammar): Rename from smie-prec2-levels. (smie-grammar): Rename from smie-op-levels. (smie-indent--hanging-p): Rename from smie-hanging-p. (smie-rule-hanging-p): New alias. (smie-indent--bolp): Rename from smie-bolp. (smie-indent--hanging-p): New alias. (smie--token): New dynamically bound variable. (smie-indent--parent): New function. (smie-rule-parent-p): Use it; rename from smie-parent-p. (smie-rule-next-p): Rename from smie-next-p. (smie-rule-prev-p): Rename from smie-prev-p. (smie-rule-sibling-p, smie-rule-parent) (smie-indent--separator-outdent, smie-rule-separator): New functions. (smie-rule-separator-outdent): New var. (smie-indent--rule): Merge with smie-indent--column. (smie-indent-forward-token, smie-indent-backward-token): Also recognize close parens. (smie-indent-keyword): Don't use smie-indent--column any more. (smie-indent-after-keyword): Ignore closers by default. (smie-indent-line): Use with-demoted-errors. * lisp/progmodes/octave-mod.el (octave-smie-grammar): Rename from octave-smie-op-levels. (octave-smie-rules): Adjust to new behavior. * lisp/progmodes/prolog.el (prolog-smie-grammar): Rename from prolog-smie-op-levels.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Sun, 07 Nov 2010 10:45:45 -0500
parents 280c8ae2476d
children 417b1e4d63cd
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
38422
7a94f1c588c4 Some fixes to follow coding conventions.
Pavel Janík <Pavel@Janik.cz>
parents: 24185
diff changeset
1 ;;; cal-mayan.el --- calendar functions for the Mayan calendars
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2
68721
8daf7d9a0771 Add 2006 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 67465
diff changeset
3 ;; Copyright (C) 1992, 1993, 1995, 1997, 2001, 2002, 2003, 2004, 2005,
106815
1d1d5d9bd884 Add 2010 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
4 ;; 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6 ;; Author: Stewart M. Clamen <clamen@cs.cmu.edu>
92853
e5f2da082c3c Whitespace only.
Glenn Morris <rgm@gnu.org>
parents: 92835
diff changeset
7 ;; Edward M. Reingold <reingold@cs.uiuc.edu>
67465
a55ee709ec8d Update copyright pending Emacs 22.
Glenn Morris <rgm@gnu.org>
parents: 65145
diff changeset
8 ;; Maintainer: Glenn Morris <rgm@gnu.org>
2247
2c7997f249eb Add or correct keywords
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2106
diff changeset
9 ;; Keywords: calendar
2c7997f249eb Add or correct keywords
Eric S. Raymond <esr@snark.thyrsus.com>
parents: 2106
diff changeset
10 ;; Human-Keywords: Mayan calendar, Maya, calendar, diary
110015
280c8ae2476d Add "Package:" file headers to denote built-in packages.
Chong Yidong <cyd@stupidchicken.com>
parents: 106815
diff changeset
11 ;; Package: calendar
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
12
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
13 ;; This file is part of GNU Emacs.
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
14
94653
e49abd957e81 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93784
diff changeset
15 ;; GNU Emacs is free software: you can redistribute it and/or modify
6736
3e1323443b1a Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents: 6006
diff changeset
16 ;; it under the terms of the GNU General Public License as published by
94653
e49abd957e81 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93784
diff changeset
17 ;; the Free Software Foundation, either version 3 of the License, or
e49abd957e81 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93784
diff changeset
18 ;; (at your option) any later version.
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
19
6736
3e1323443b1a Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents: 6006
diff changeset
20 ;; GNU Emacs is distributed in the hope that it will be useful,
3e1323443b1a Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents: 6006
diff changeset
21 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
3e1323443b1a Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents: 6006
diff changeset
22 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
3e1323443b1a Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents: 6006
diff changeset
23 ;; GNU General Public License for more details.
3e1323443b1a Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents: 6006
diff changeset
24
3e1323443b1a Fix copying conditions for current GPL version.
Richard M. Stallman <rms@gnu.org>
parents: 6006
diff changeset
25 ;; You should have received a copy of the GNU General Public License
94653
e49abd957e81 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 93784
diff changeset
26 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
27
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
28 ;;; Commentary:
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
29
93484
0c5143f2417b (Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93001
diff changeset
30 ;; See calendar.el.
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
31
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
32 ;;; Code:
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
33
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
34 (require 'calendar)
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
35
19972
fe92da0414ac (calendar-mayan-days-before-absolute-zero): Change
Karl Heuer <kwzh@gnu.org>
parents: 14169
diff changeset
36 (defconst calendar-mayan-days-before-absolute-zero 1137142
3869
037e012d04b0 * cal-mayan.el (calendar-mayan-days-before-absolute-zero,
Jim Blandy <jimb@redhat.com>
parents: 2945
diff changeset
37 "Number of days of the Mayan calendar epoch before absolute day 0.
19972
fe92da0414ac (calendar-mayan-days-before-absolute-zero): Change
Karl Heuer <kwzh@gnu.org>
parents: 14169
diff changeset
38 This is the Goodman-Martinez-Thompson correlation used by almost all experts,
fe92da0414ac (calendar-mayan-days-before-absolute-zero): Change
Karl Heuer <kwzh@gnu.org>
parents: 14169
diff changeset
39 but some use 1137140. Using 1232041 gives you Spinden's correlation; using
fe92da0414ac (calendar-mayan-days-before-absolute-zero): Change
Karl Heuer <kwzh@gnu.org>
parents: 14169
diff changeset
40 1142840 gives you Hochleitner's correlation.")
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
41
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
42 (defconst calendar-mayan-haab-at-epoch '(8 . 18)
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
43 "Mayan haab date at the epoch.")
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
44
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
45 (defconst calendar-mayan-haab-month-name-array
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
46 ["Pop" "Uo" "Zip" "Zotz" "Tzec" "Xul" "Yaxkin" "Mol" "Chen" "Yax"
92920
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
47 "Zac" "Ceh" "Mac" "Kankin" "Muan" "Pax" "Kayab" "Cumku"]
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
48 "Names of the Mayan haab months.")
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
49
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
50 (defconst calendar-mayan-tzolkin-at-epoch '(4 . 20)
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
51 "Mayan tzolkin date at the epoch.")
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
52
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
53 (defconst calendar-mayan-tzolkin-names-array
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
54 ["Imix" "Ik" "Akbal" "Kan" "Chicchan" "Cimi" "Manik" "Lamat" "Muluc" "Oc"
92920
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
55 "Chuen" "Eb" "Ben" "Ix" "Men" "Cib" "Caban" "Etznab" "Cauac" "Ahau"]
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
56 "Names of the Mayan tzolkin months.")
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
57
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
58 (defun calendar-mayan-long-count-from-absolute (date)
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
59 "Compute the Mayan long count corresponding to the absolute DATE."
92920
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
60 (let* ((long-count (+ date calendar-mayan-days-before-absolute-zero))
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
61 (baktun (/ long-count 144000))
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
62 (remainder (% long-count 144000))
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
63 (katun (/ remainder 7200))
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
64 (remainder (% remainder 7200))
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
65 (tun (/ remainder 360))
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
66 (remainder (% remainder 360))
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
67 (uinal (/ remainder 20))
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
68 (kin (% remainder 20)))
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
69 (list baktun katun tun uinal kin)))
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
70
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
71 (defun calendar-mayan-long-count-to-string (mayan-long-count)
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
72 "Convert MAYAN-LONG-COUNT into traditional written form."
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
73 (apply 'format (cons "%s.%s.%s.%s.%s" mayan-long-count)))
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
74
93645
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
75 (defun calendar-mayan-string-from-long-count (str)
92636
f565309f0cab (calendar-string-to-mayan-long-count)
Glenn Morris <rgm@gnu.org>
parents: 92607
diff changeset
76 "Given STR, a string of format \"%d.%d.%d.%d.%d\", return list of numbers."
93484
0c5143f2417b (Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93001
diff changeset
77 (let ((end 0)
92920
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
78 rlc)
93484
0c5143f2417b (Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93001
diff changeset
79 (condition-case nil
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
80 (progn
93484
0c5143f2417b (Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93001
diff changeset
81 ;; cf split-string.
0c5143f2417b (Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93001
diff changeset
82 (while (string-match "[0-9]+" str end)
0c5143f2417b (Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93001
diff changeset
83 (setq rlc (cons (string-to-number (match-string 0 str)) rlc)
0c5143f2417b (Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93001
diff changeset
84 end (match-end 0)))
92920
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
85 (unless (= (length rlc) 5) (signal 'invalid-read-syntax nil)))
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
86 (invalid-read-syntax nil))
93484
0c5143f2417b (Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93001
diff changeset
87 (nreverse rlc)))
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
88
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
89 (defun calendar-mayan-haab-from-absolute (date)
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
90 "Convert absolute DATE into a Mayan haab date (a pair)."
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
91 (let* ((long-count (+ date calendar-mayan-days-before-absolute-zero))
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
92 (day-of-haab
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
93 (% (+ long-count
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
94 (car calendar-mayan-haab-at-epoch)
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
95 (* 20 (1- (cdr calendar-mayan-haab-at-epoch))))
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
96 365))
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
97 (day (% day-of-haab 20))
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
98 (month (1+ (/ day-of-haab 20))))
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
99 (cons day month)))
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
100
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
101 (defun calendar-mayan-haab-difference (date1 date2)
3869
037e012d04b0 * cal-mayan.el (calendar-mayan-days-before-absolute-zero,
Jim Blandy <jimb@redhat.com>
parents: 2945
diff changeset
102 "Number of days from Mayan haab DATE1 to next occurrence of haab date DATE2."
4521
2308b366bfc8 (calendar-/, calendar-%): Remove, since floor and mod
Paul Eggert <eggert@twinsun.com>
parents: 3869
diff changeset
103 (mod (+ (* 20 (- (cdr date2) (cdr date1)))
92853
e5f2da082c3c Whitespace only.
Glenn Morris <rgm@gnu.org>
parents: 92835
diff changeset
104 (- (car date2) (car date1)))
4521
2308b366bfc8 (calendar-/, calendar-%): Remove, since floor and mod
Paul Eggert <eggert@twinsun.com>
parents: 3869
diff changeset
105 365))
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
106
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
107 (defun calendar-mayan-haab-on-or-before (haab-date date)
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
108 "Absolute date of latest HAAB-DATE on or before absolute DATE."
2106
f90250f69413 * cal-mayan.el (calendar-mayan-haab-on-or-before,
Jim Blandy <jimb@redhat.com>
parents: 1353
diff changeset
109 (- date
f90250f69413 * cal-mayan.el (calendar-mayan-haab-on-or-before,
Jim Blandy <jimb@redhat.com>
parents: 1353
diff changeset
110 (% (- date
92853
e5f2da082c3c Whitespace only.
Glenn Morris <rgm@gnu.org>
parents: 92835
diff changeset
111 (calendar-mayan-haab-difference
e5f2da082c3c Whitespace only.
Glenn Morris <rgm@gnu.org>
parents: 92835
diff changeset
112 (calendar-mayan-haab-from-absolute 0) haab-date))
e5f2da082c3c Whitespace only.
Glenn Morris <rgm@gnu.org>
parents: 92835
diff changeset
113 365)))
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
114
92835
5e8d6a369c62 (generated-autoload-file): Don't set, instead use different values of
Glenn Morris <rgm@gnu.org>
parents: 92636
diff changeset
115 ;;;###cal-autoload
92920
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
116 (defun calendar-mayan-date-string (&optional date)
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
117 "String of Mayan date of Gregorian DATE; default today."
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
118 (let* ((d (calendar-absolute-from-gregorian
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
119 (or date (calendar-current-date))))
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
120 (tzolkin (calendar-mayan-tzolkin-from-absolute d))
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
121 (haab (calendar-mayan-haab-from-absolute d))
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
122 (long-count (calendar-mayan-long-count-from-absolute d)))
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
123 (format "Long count = %s; tzolkin = %s; haab = %s"
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
124 (calendar-mayan-long-count-to-string long-count)
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
125 (calendar-mayan-tzolkin-to-string tzolkin)
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
126 (calendar-mayan-haab-to-string haab))))
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
127
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
128 ;;;###cal-autoload
93645
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
129 (defun calendar-mayan-print-date ()
92920
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
130 "Show the Mayan long count, tzolkin, and haab equivalents of date."
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
131 (interactive)
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
132 (message "Mayan date: %s"
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
133 (calendar-mayan-date-string (calendar-cursor-to-date t))))
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
134
93645
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
135 (define-obsolete-function-alias 'calendar-print-mayan-date
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
136 'calendar-mayan-print-date "23.1")
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
137
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
138 (defun calendar-mayan-read-haab-date ()
92920
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
139 "Prompt for a Mayan haab date."
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
140 (let* ((completion-ignore-case t)
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
141 (haab-day (calendar-read
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
142 "Haab kin (0-19): "
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
143 (lambda (x) (and (>= x 0) (< x 20)))))
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
144 (haab-month-list (append calendar-mayan-haab-month-name-array
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
145 (and (< haab-day 5) '("Uayeb"))))
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
146 (haab-month (cdr
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
147 (assoc-string
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
148 (completing-read "Haab uinal: "
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
149 (mapcar 'list haab-month-list)
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
150 nil t)
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
151 (calendar-make-alist haab-month-list 1) t))))
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
152 (cons haab-day haab-month)))
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
153
93645
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
154 (defun calendar-mayan-read-tzolkin-date ()
92920
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
155 "Prompt for a Mayan tzolkin date."
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
156 (let* ((completion-ignore-case t)
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
157 (tzolkin-count (calendar-read
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
158 "Tzolkin kin (1-13): "
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
159 (lambda (x) (and (> x 0) (< x 14)))))
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
160 (tzolkin-name-list (append calendar-mayan-tzolkin-names-array nil))
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
161 (tzolkin-name (cdr
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
162 (assoc-string
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
163 (completing-read "Tzolkin uinal: "
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
164 (mapcar 'list tzolkin-name-list)
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
165 nil t)
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
166 (calendar-make-alist tzolkin-name-list 1) t))))
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
167 (cons tzolkin-count tzolkin-name)))
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
168
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
169 ;;;###cal-autoload
93645
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
170 (defun calendar-mayan-next-haab-date (haab-date &optional noecho)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 38422
diff changeset
171 "Move cursor to next instance of Mayan HAAB-DATE.
92920
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
172 Echo Mayan date unless NOECHO is non-nil."
93645
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
173 (interactive (list (calendar-mayan-read-haab-date)))
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
174 (calendar-goto-date
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
175 (calendar-gregorian-from-absolute
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
176 (calendar-mayan-haab-on-or-before
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
177 haab-date
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
178 (+ 365
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
179 (calendar-absolute-from-gregorian (calendar-cursor-to-date))))))
93645
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
180 (or noecho (calendar-mayan-print-date)))
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
181
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
182 (define-obsolete-function-alias 'calendar-next-haab-date
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
183 'calendar-mayan-next-haab-date "23.1")
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
184
92835
5e8d6a369c62 (generated-autoload-file): Don't set, instead use different values of
Glenn Morris <rgm@gnu.org>
parents: 92636
diff changeset
185 ;;;###cal-autoload
93645
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
186 (defun calendar-mayan-previous-haab-date (haab-date &optional noecho)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 38422
diff changeset
187 "Move cursor to previous instance of Mayan HAAB-DATE.
92920
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
188 Echo Mayan date unless NOECHO is non-nil."
93645
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
189 (interactive (list (calendar-mayan-read-haab-date)))
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
190 (calendar-goto-date
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
191 (calendar-gregorian-from-absolute
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
192 (calendar-mayan-haab-on-or-before
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
193 haab-date
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
194 (1- (calendar-absolute-from-gregorian (calendar-cursor-to-date))))))
93645
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
195 (or noecho (calendar-mayan-print-date)))
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
196
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
197 (define-obsolete-function-alias 'calendar-previous-haab-date
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
198 'calendar-mayan-previous-haab-date "23.1")
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
199
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
200 (defun calendar-mayan-haab-to-string (haab)
92636
f565309f0cab (calendar-string-to-mayan-long-count)
Glenn Morris <rgm@gnu.org>
parents: 92607
diff changeset
201 "Convert Mayan HAAB date (a pair) into its traditional written form."
93001
6c85b8971fe3 (calendar-mayan-haab-to-string): Simplify.
Glenn Morris <rgm@gnu.org>
parents: 92920
diff changeset
202 (let ((month (cdr haab)))
6c85b8971fe3 (calendar-mayan-haab-to-string): Simplify.
Glenn Morris <rgm@gnu.org>
parents: 92920
diff changeset
203 (format "%d %s" (car haab) ; day
6c85b8971fe3 (calendar-mayan-haab-to-string): Simplify.
Glenn Morris <rgm@gnu.org>
parents: 92920
diff changeset
204 ;; 19th month consists of 5 special days
6c85b8971fe3 (calendar-mayan-haab-to-string): Simplify.
Glenn Morris <rgm@gnu.org>
parents: 92920
diff changeset
205 (if (= month 19) "Uayeb"
92853
e5f2da082c3c Whitespace only.
Glenn Morris <rgm@gnu.org>
parents: 92835
diff changeset
206 (aref calendar-mayan-haab-month-name-array (1- month))))))
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
207
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
208 (defun calendar-mayan-tzolkin-from-absolute (date)
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
209 "Convert absolute DATE into a Mayan tzolkin date (a pair)."
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
210 (let* ((long-count (+ date calendar-mayan-days-before-absolute-zero))
93001
6c85b8971fe3 (calendar-mayan-haab-to-string): Simplify.
Glenn Morris <rgm@gnu.org>
parents: 92920
diff changeset
211 ;; Remainder on division by 13,20 with 13,20 instead of zero.
6c85b8971fe3 (calendar-mayan-haab-to-string): Simplify.
Glenn Morris <rgm@gnu.org>
parents: 92920
diff changeset
212 (day (1+ (mod
6c85b8971fe3 (calendar-mayan-haab-to-string): Simplify.
Glenn Morris <rgm@gnu.org>
parents: 92920
diff changeset
213 (1- (+ long-count (car calendar-mayan-tzolkin-at-epoch)))
6c85b8971fe3 (calendar-mayan-haab-to-string): Simplify.
Glenn Morris <rgm@gnu.org>
parents: 92920
diff changeset
214 13)))
6c85b8971fe3 (calendar-mayan-haab-to-string): Simplify.
Glenn Morris <rgm@gnu.org>
parents: 92920
diff changeset
215 (name (1+ (mod
6c85b8971fe3 (calendar-mayan-haab-to-string): Simplify.
Glenn Morris <rgm@gnu.org>
parents: 92920
diff changeset
216 (1- (+ long-count (cdr calendar-mayan-tzolkin-at-epoch)))
6c85b8971fe3 (calendar-mayan-haab-to-string): Simplify.
Glenn Morris <rgm@gnu.org>
parents: 92920
diff changeset
217 20))))
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
218 (cons day name)))
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
219
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
220 (defun calendar-mayan-tzolkin-difference (date1 date2)
3869
037e012d04b0 * cal-mayan.el (calendar-mayan-days-before-absolute-zero,
Jim Blandy <jimb@redhat.com>
parents: 2945
diff changeset
221 "Number of days from Mayan tzolkin DATE1 to next occurrence of tzolkin DATE2."
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
222 (let ((number-difference (- (car date2) (car date1)))
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
223 (name-difference (- (cdr date2) (cdr date1))))
4521
2308b366bfc8 (calendar-/, calendar-%): Remove, since floor and mod
Paul Eggert <eggert@twinsun.com>
parents: 3869
diff changeset
224 (mod (+ number-difference
92853
e5f2da082c3c Whitespace only.
Glenn Morris <rgm@gnu.org>
parents: 92835
diff changeset
225 (* 13 (mod (* 3 (- number-difference name-difference))
e5f2da082c3c Whitespace only.
Glenn Morris <rgm@gnu.org>
parents: 92835
diff changeset
226 20)))
e5f2da082c3c Whitespace only.
Glenn Morris <rgm@gnu.org>
parents: 92835
diff changeset
227 260)))
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
228
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
229 (defun calendar-mayan-tzolkin-on-or-before (tzolkin-date date)
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
230 "Absolute date of latest TZOLKIN-DATE on or before absolute DATE."
2106
f90250f69413 * cal-mayan.el (calendar-mayan-haab-on-or-before,
Jim Blandy <jimb@redhat.com>
parents: 1353
diff changeset
231 (- date
f90250f69413 * cal-mayan.el (calendar-mayan-haab-on-or-before,
Jim Blandy <jimb@redhat.com>
parents: 1353
diff changeset
232 (% (- date (calendar-mayan-tzolkin-difference
92853
e5f2da082c3c Whitespace only.
Glenn Morris <rgm@gnu.org>
parents: 92835
diff changeset
233 (calendar-mayan-tzolkin-from-absolute 0)
e5f2da082c3c Whitespace only.
Glenn Morris <rgm@gnu.org>
parents: 92835
diff changeset
234 tzolkin-date))
e5f2da082c3c Whitespace only.
Glenn Morris <rgm@gnu.org>
parents: 92835
diff changeset
235 260)))
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
236
92835
5e8d6a369c62 (generated-autoload-file): Don't set, instead use different values of
Glenn Morris <rgm@gnu.org>
parents: 92636
diff changeset
237 ;;;###cal-autoload
93645
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
238 (defun calendar-mayan-next-tzolkin-date (tzolkin-date &optional noecho)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 38422
diff changeset
239 "Move cursor to next instance of Mayan TZOLKIN-DATE.
92920
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
240 Echo Mayan date unless NOECHO is non-nil."
93645
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
241 (interactive (list (calendar-mayan-read-tzolkin-date)))
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
242 (calendar-goto-date
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
243 (calendar-gregorian-from-absolute
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
244 (calendar-mayan-tzolkin-on-or-before
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
245 tzolkin-date
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
246 (+ 260
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
247 (calendar-absolute-from-gregorian (calendar-cursor-to-date))))))
93645
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
248 (or noecho (calendar-mayan-print-date)))
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
249
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
250 (define-obsolete-function-alias 'calendar-next-tzolkin-date
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
251 'calendar-mayan-next-tzolkin-date "23.1")
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
252
92835
5e8d6a369c62 (generated-autoload-file): Don't set, instead use different values of
Glenn Morris <rgm@gnu.org>
parents: 92636
diff changeset
253 ;;;###cal-autoload
93645
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
254 (defun calendar-mayan-previous-tzolkin-date (tzolkin-date &optional noecho)
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 38422
diff changeset
255 "Move cursor to previous instance of Mayan TZOLKIN-DATE.
92920
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
256 Echo Mayan date unless NOECHO is non-nil."
93645
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
257 (interactive (list (calendar-mayan-read-tzolkin-date)))
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
258 (calendar-goto-date
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
259 (calendar-gregorian-from-absolute
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
260 (calendar-mayan-tzolkin-on-or-before
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
261 tzolkin-date
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
262 (1- (calendar-absolute-from-gregorian (calendar-cursor-to-date))))))
93645
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
263 (or noecho (calendar-mayan-print-date)))
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
264
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
265 (define-obsolete-function-alias 'calendar-previous-tzolkin-date
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
266 'calendar-mayan-previous-tzolkin-date "23.1")
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
267
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
268 (defun calendar-mayan-tzolkin-to-string (tzolkin)
92636
f565309f0cab (calendar-string-to-mayan-long-count)
Glenn Morris <rgm@gnu.org>
parents: 92607
diff changeset
269 "Convert Mayan TZOLKIN date (a pair) into its traditional written form."
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
270 (format "%d %s"
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
271 (car tzolkin)
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
272 (aref calendar-mayan-tzolkin-names-array (1- (cdr tzolkin)))))
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
273
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
274 (defun calendar-mayan-tzolkin-haab-on-or-before (tzolkin-date haab-date date)
3869
037e012d04b0 * cal-mayan.el (calendar-mayan-days-before-absolute-zero,
Jim Blandy <jimb@redhat.com>
parents: 2945
diff changeset
275 "Absolute date that is Mayan TZOLKIN-DATE and HAAB-DATE.
037e012d04b0 * cal-mayan.el (calendar-mayan-days-before-absolute-zero,
Jim Blandy <jimb@redhat.com>
parents: 2945
diff changeset
276 Latest such date on or before DATE.
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 38422
diff changeset
277 Returns nil if such a tzolkin-haab combination is impossible."
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
278 (let* ((haab-difference
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
279 (calendar-mayan-haab-difference
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
280 (calendar-mayan-haab-from-absolute 0)
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
281 haab-date))
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
282 (tzolkin-difference
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
283 (calendar-mayan-tzolkin-difference
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
284 (calendar-mayan-tzolkin-from-absolute 0)
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
285 tzolkin-date))
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
286 (difference (- tzolkin-difference haab-difference)))
92920
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
287 (if (zerop (% difference 5))
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
288 (- date
4521
2308b366bfc8 (calendar-/, calendar-%): Remove, since floor and mod
Paul Eggert <eggert@twinsun.com>
parents: 3869
diff changeset
289 (mod (- date
92853
e5f2da082c3c Whitespace only.
Glenn Morris <rgm@gnu.org>
parents: 92835
diff changeset
290 (+ haab-difference (* 365 difference)))
e5f2da082c3c Whitespace only.
Glenn Morris <rgm@gnu.org>
parents: 92835
diff changeset
291 18980))
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
292 nil)))
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
293
92835
5e8d6a369c62 (generated-autoload-file): Don't set, instead use different values of
Glenn Morris <rgm@gnu.org>
parents: 92636
diff changeset
294 ;;;###cal-autoload
93645
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
295 (defun calendar-mayan-next-round-date (tzolkin-date haab-date
92636
f565309f0cab (calendar-string-to-mayan-long-count)
Glenn Morris <rgm@gnu.org>
parents: 92607
diff changeset
296 &optional noecho)
f565309f0cab (calendar-string-to-mayan-long-count)
Glenn Morris <rgm@gnu.org>
parents: 92607
diff changeset
297 "Move cursor to next instance of Mayan TZOLKIN-DATE HAAB-DATE combination.
f565309f0cab (calendar-string-to-mayan-long-count)
Glenn Morris <rgm@gnu.org>
parents: 92607
diff changeset
298 Echo Mayan date unless NOECHO is non-nil."
93645
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
299 (interactive (list (calendar-mayan-read-tzolkin-date)
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
300 (calendar-mayan-read-haab-date)))
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
301 (let ((date (calendar-mayan-tzolkin-haab-on-or-before
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
302 tzolkin-date haab-date
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
303 (+ 18980 (calendar-absolute-from-gregorian
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
304 (calendar-cursor-to-date))))))
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
305 (if (not date)
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
306 (error "%s, %s does not exist in the Mayan calendar round"
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
307 (calendar-mayan-tzolkin-to-string tzolkin-date)
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
308 (calendar-mayan-haab-to-string haab-date))
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
309 (calendar-goto-date (calendar-gregorian-from-absolute date))
93645
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
310 (or noecho (calendar-mayan-print-date)))))
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
311
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
312 (define-obsolete-function-alias 'calendar-next-calendar-round-date
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
313 'calendar-mayan-next-round-date "23.1")
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
314
92835
5e8d6a369c62 (generated-autoload-file): Don't set, instead use different values of
Glenn Morris <rgm@gnu.org>
parents: 92636
diff changeset
315 ;;;###cal-autoload
93645
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
316 (defun calendar-mayan-previous-round-date
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
317 (tzolkin-date haab-date &optional noecho)
13672
bb7e5d35f83b (calendar-next-calendar-round-date, calendar-previous-calendar-round-date):
Paul Eggert <eggert@twinsun.com>
parents: 13048
diff changeset
318 "Move to previous instance of Mayan TZOLKIN-DATE HAAB-DATE combination.
92920
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
319 Echo Mayan date unless NOECHO is non-nil."
93645
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
320 (interactive (list (calendar-mayan-read-tzolkin-date)
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
321 (calendar-mayan-read-haab-date)))
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
322 (let ((date (calendar-mayan-tzolkin-haab-on-or-before
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
323 tzolkin-date haab-date
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
324 (1- (calendar-absolute-from-gregorian
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
325 (calendar-cursor-to-date))))))
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
326 (if (not date)
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
327 (error "%s, %s does not exist in the Mayan calendar round"
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
328 (calendar-mayan-tzolkin-to-string tzolkin-date)
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
329 (calendar-mayan-haab-to-string haab-date))
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
330 (calendar-goto-date (calendar-gregorian-from-absolute date))
93645
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
331 (or noecho (calendar-mayan-print-date)))))
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
332
93645
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
333 (define-obsolete-function-alias 'calendar-previous-calendar-round-date
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
334 'calendar-mayan-previous-round-date "23.1")
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
335
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
336 (defun calendar-mayan-long-count-to-absolute (c)
3869
037e012d04b0 * cal-mayan.el (calendar-mayan-days-before-absolute-zero,
Jim Blandy <jimb@redhat.com>
parents: 2945
diff changeset
337 "Compute the absolute date corresponding to the Mayan Long Count C.
037e012d04b0 * cal-mayan.el (calendar-mayan-days-before-absolute-zero,
Jim Blandy <jimb@redhat.com>
parents: 2945
diff changeset
338 Long count is a list (baktun katun tun uinal kin)"
92853
e5f2da082c3c Whitespace only.
Glenn Morris <rgm@gnu.org>
parents: 92835
diff changeset
339 (+ (* (nth 0 c) 144000) ; baktun
e5f2da082c3c Whitespace only.
Glenn Morris <rgm@gnu.org>
parents: 92835
diff changeset
340 (* (nth 1 c) 7200) ; katun
e5f2da082c3c Whitespace only.
Glenn Morris <rgm@gnu.org>
parents: 92835
diff changeset
341 (* (nth 2 c) 360) ; tun
e5f2da082c3c Whitespace only.
Glenn Morris <rgm@gnu.org>
parents: 92835
diff changeset
342 (* (nth 3 c) 20) ; uinal
e5f2da082c3c Whitespace only.
Glenn Morris <rgm@gnu.org>
parents: 92835
diff changeset
343 (nth 4 c) ; kin (days)
92920
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
344 ;; Days before absolute date 0.
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
345 (- calendar-mayan-days-before-absolute-zero)))
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
346
93646
a1ece6da90e8 (calendar-mayan-long-count-to-absolute): Keep old name as alias.
Glenn Morris <rgm@gnu.org>
parents: 93645
diff changeset
347 (define-obsolete-function-alias 'calendar-absolute-from-mayan-long-count
a1ece6da90e8 (calendar-mayan-long-count-to-absolute): Keep old name as alias.
Glenn Morris <rgm@gnu.org>
parents: 93645
diff changeset
348 'calendar-mayan-long-count-to-absolute "23.1")
a1ece6da90e8 (calendar-mayan-long-count-to-absolute): Keep old name as alias.
Glenn Morris <rgm@gnu.org>
parents: 93645
diff changeset
349
92920
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
350 (defun calendar-mayan-long-count-common-era (lc)
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
351 "Return non-nil if long count LC represents a date in the Common Era."
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
352 (let ((base (calendar-mayan-long-count-from-absolute 1)))
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
353 (while (and base (= (car lc) (car base)))
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
354 (setq lc (cdr lc)
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
355 base (cdr base)))
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
356 (or (null lc) (> (car lc) (car base)))))
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
357
92835
5e8d6a369c62 (generated-autoload-file): Don't set, instead use different values of
Glenn Morris <rgm@gnu.org>
parents: 92636
diff changeset
358 ;;;###cal-autoload
93645
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
359 (defun calendar-mayan-goto-long-count-date (date &optional noecho)
92920
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
360 "Move cursor to Mayan long count DATE.
cb0aac9dd8a3 (calendar-mayan-haab-month-name-array)
Glenn Morris <rgm@gnu.org>
parents: 92853
diff changeset
361 Echo Mayan date unless NOECHO is non-nil."
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
362 (interactive
93484
0c5143f2417b (Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93001
diff changeset
363 (let (datum)
0c5143f2417b (Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93001
diff changeset
364 (while (not (setq datum
93645
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
365 (calendar-mayan-string-from-long-count
93484
0c5143f2417b (Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93001
diff changeset
366 (read-string
0c5143f2417b (Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93001
diff changeset
367 "Mayan long count (baktun.katun.tun.uinal.kin): "
0c5143f2417b (Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93001
diff changeset
368 (calendar-mayan-long-count-to-string
0c5143f2417b (Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93001
diff changeset
369 (calendar-mayan-long-count-from-absolute
0c5143f2417b (Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93001
diff changeset
370 (calendar-absolute-from-gregorian
0c5143f2417b (Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93001
diff changeset
371 (calendar-current-date))))))
0c5143f2417b (Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93001
diff changeset
372 datum (if (calendar-mayan-long-count-common-era datum)
0c5143f2417b (Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93001
diff changeset
373 (list datum)))))
0c5143f2417b (Commentary): Point to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93001
diff changeset
374 datum))
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
375 (calendar-goto-date
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
376 (calendar-gregorian-from-absolute
93645
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
377 (calendar-mayan-long-count-to-absolute date)))
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
378 (or noecho (calendar-mayan-print-date)))
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
379
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
380 (define-obsolete-function-alias 'calendar-goto-mayan-long-count-date
8b04f0b12fa3 (calendar-mayan-string-from-long-count): Rename
Glenn Morris <rgm@gnu.org>
parents: 93484
diff changeset
381 'calendar-mayan-goto-long-count-date "23.1")
49598
0d8b17d428b5 Trailing whitepace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 38422
diff changeset
382
92607
90e80e5b0c97 Comments.
Glenn Morris <rgm@gnu.org>
parents: 92589
diff changeset
383 (defvar date)
90e80e5b0c97 Comments.
Glenn Morris <rgm@gnu.org>
parents: 92589
diff changeset
384
93784
4ad805f0f03f Comment.
Glenn Morris <rgm@gnu.org>
parents: 93646
diff changeset
385 ;; To be called from diary-list-sexp-entries, where DATE is bound.
92835
5e8d6a369c62 (generated-autoload-file): Don't set, instead use different values of
Glenn Morris <rgm@gnu.org>
parents: 92636
diff changeset
386 ;;;###diary-autoload
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
387 (defun diary-mayan-date ()
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
388 "Show the Mayan long count, haab, and tzolkin dates as a diary entry."
5700
6620aa507202 (calendar-mayan-date-string): New function.
Richard M. Stallman <rms@gnu.org>
parents: 4521
diff changeset
389 (format "Mayan date: %s" (calendar-mayan-date-string date)))
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
390
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
391 (provide 'cal-mayan)
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
392
92589
c11e81a389cf Unquote lambda functions. Add autoload cookies to functions formerly
Glenn Morris <rgm@gnu.org>
parents: 79703
diff changeset
393 ;; arch-tag: 54f35144-cd0f-4873-935a-a60129de07df
957
2619b7a9c11e entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
394 ;;; cal-mayan.el ends here