annotate lisp/calendar/cal-islam.el @ 111771:cc824a6e0de5

mail/rmail.el: Require rfc2047.
author Kenichi Handa <handa@m17n.org>
date Fri, 26 Nov 2010 16:58:35 +0900
parents 1d1d5d9bd884
children 280c8ae2476d 376148b31b5e
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: 38402
diff changeset
1 ;;; cal-islam.el --- calendar functions for the Islamic calendar
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
2
92610
6f4bd17c2adc (mark-islamic-calendar-date-pattern): Use zerop.
Glenn Morris <rgm@gnu.org>
parents: 92585
diff changeset
3 ;; Copyright (C) 1995, 1997, 2001, 2002, 2003, 2004, 2005, 2006, 2007,
106815
1d1d5d9bd884 Add 2010 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 100908
diff changeset
4 ;; 2008, 2009, 2010 Free Software Foundation, Inc.
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
5
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
6 ;; Author: Edward M. Reingold <reingold@cs.uiuc.edu>
67465
a55ee709ec8d Update copyright pending Emacs 22.
Glenn Morris <rgm@gnu.org>
parents: 65144
diff changeset
7 ;; Maintainer: Glenn Morris <rgm@gnu.org>
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
8 ;; Keywords: calendar
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
9 ;; Human-Keywords: Islamic calendar, calendar, diary
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
10
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
11 ;; This file is part of GNU Emacs.
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
12
94653
e49abd957e81 Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 94279
diff changeset
13 ;; GNU Emacs is free software: you can redistribute it and/or modify
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
14 ;; 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: 94279
diff changeset
15 ;; 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: 94279
diff changeset
16 ;; (at your option) any later version.
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
17
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
18 ;; GNU Emacs is distributed in the hope that it will be useful,
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
21 ;; GNU General Public License for more details.
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
22
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
23 ;; 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: 94279
diff changeset
24 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
25
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
26 ;;; Commentary:
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
27
93462
263786b8fe73 (Commentary): Replace with reference to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93373
diff changeset
28 ;; See calendar.el.
20462
d179de7ad92e Add reference to new Calendrical Calculations book.
Paul Eggert <eggert@twinsun.com>
parents: 20268
diff changeset
29
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
30 ;;; Code:
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
31
93223
9aca848375df Require calendar rather than cal-julian.
Glenn Morris <rgm@gnu.org>
parents: 93184
diff changeset
32 (require 'calendar)
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
33
92971
56c7e60586c9 (number, original-date, add-to-diary-list)
Glenn Morris <rgm@gnu.org>
parents: 92926
diff changeset
34 (defconst calendar-islamic-month-name-array
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
35 ["Muharram" "Safar" "Rabi I" "Rabi II" "Jumada I" "Jumada II"
52119
226327fe046f (displayed-month, displayed-year): Define for compiler.
Glenn Morris <rgm@gnu.org>
parents: 49598
diff changeset
36 "Rajab" "Sha'ban" "Ramadan" "Shawwal" "Dhu al-Qada" "Dhu al-Hijjah"]
226327fe046f (displayed-month, displayed-year): Define for compiler.
Glenn Morris <rgm@gnu.org>
parents: 49598
diff changeset
37 "Array of strings giving the names of the Islamic months.")
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
38
93223
9aca848375df Require calendar rather than cal-julian.
Glenn Morris <rgm@gnu.org>
parents: 93184
diff changeset
39 (eval-and-compile
93642
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
40 (autoload 'calendar-julian-to-absolute "cal-julian"))
93223
9aca848375df Require calendar rather than cal-julian.
Glenn Morris <rgm@gnu.org>
parents: 93184
diff changeset
41
9aca848375df Require calendar rather than cal-julian.
Glenn Morris <rgm@gnu.org>
parents: 93184
diff changeset
42 (defconst calendar-islamic-epoch
93642
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
43 (eval-when-compile (calendar-julian-to-absolute '(7 16 622)))
93223
9aca848375df Require calendar rather than cal-julian.
Glenn Morris <rgm@gnu.org>
parents: 93184
diff changeset
44 "Absolute date of start of Islamic calendar = July 16, 622 AD (Julian).")
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
45
93642
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
46 (defun calendar-islamic-leap-year-p (year)
92645
611e312d3f05 (islamic-calendar-leap-year-p)
Glenn Morris <rgm@gnu.org>
parents: 92644
diff changeset
47 "Return t if YEAR is a leap year on the Islamic calendar."
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
48 (memq (% year 30)
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
49 (list 2 5 7 10 13 16 18 21 24 26 29)))
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
50
93642
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
51 (defun calendar-islamic-last-day-of-month (month year)
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
52 "The last day in MONTH during YEAR on the Islamic calendar."
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
53 (cond
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
54 ((memq month (list 1 3 5 7 9 11)) 30)
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
55 ((memq month (list 2 4 6 8 10)) 29)
93642
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
56 (t (if (calendar-islamic-leap-year-p year) 30 29))))
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
57
93642
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
58 (defun calendar-islamic-day-number (date)
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
59 "Return the day number within the year of the Islamic date DATE."
93809
3ff2b47de8f2 Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents: 93794
diff changeset
60 (let ((month (calendar-extract-month date)))
92926
b87a8e95883b (displayed-month, displayed-year)
Glenn Morris <rgm@gnu.org>
parents: 92832
diff changeset
61 (+ (* 30 (/ month 2))
b87a8e95883b (displayed-month, displayed-year)
Glenn Morris <rgm@gnu.org>
parents: 92832
diff changeset
62 (* 29 (/ (1- month) 2))
93809
3ff2b47de8f2 Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents: 93794
diff changeset
63 (calendar-extract-day date))))
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
64
93642
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
65 (defun calendar-islamic-to-absolute (date)
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
66 "Absolute date of Islamic DATE.
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
67 The absolute date is the number of days elapsed since the (imaginary)
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
68 Gregorian date Sunday, December 31, 1 BC."
93809
3ff2b47de8f2 Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents: 93794
diff changeset
69 (let* ((month (calendar-extract-month date))
3ff2b47de8f2 Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents: 93794
diff changeset
70 (day (calendar-extract-day date))
3ff2b47de8f2 Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents: 93794
diff changeset
71 (year (calendar-extract-year date))
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
72 (y (% year 30))
92991
24a6717aed7f (calendar-mark-1): Autoload it.
Glenn Morris <rgm@gnu.org>
parents: 92971
diff changeset
73 (leap-years-in-cycle (cond ((< y 3) 0)
24a6717aed7f (calendar-mark-1): Autoload it.
Glenn Morris <rgm@gnu.org>
parents: 92971
diff changeset
74 ((< y 6) 1)
24a6717aed7f (calendar-mark-1): Autoload it.
Glenn Morris <rgm@gnu.org>
parents: 92971
diff changeset
75 ((< y 8) 2)
24a6717aed7f (calendar-mark-1): Autoload it.
Glenn Morris <rgm@gnu.org>
parents: 92971
diff changeset
76 ((< y 11) 3)
24a6717aed7f (calendar-mark-1): Autoload it.
Glenn Morris <rgm@gnu.org>
parents: 92971
diff changeset
77 ((< y 14) 4)
24a6717aed7f (calendar-mark-1): Autoload it.
Glenn Morris <rgm@gnu.org>
parents: 92971
diff changeset
78 ((< y 17) 5)
24a6717aed7f (calendar-mark-1): Autoload it.
Glenn Morris <rgm@gnu.org>
parents: 92971
diff changeset
79 ((< y 19) 6)
24a6717aed7f (calendar-mark-1): Autoload it.
Glenn Morris <rgm@gnu.org>
parents: 92971
diff changeset
80 ((< y 22) 7)
24a6717aed7f (calendar-mark-1): Autoload it.
Glenn Morris <rgm@gnu.org>
parents: 92971
diff changeset
81 ((< y 25) 8)
24a6717aed7f (calendar-mark-1): Autoload it.
Glenn Morris <rgm@gnu.org>
parents: 92971
diff changeset
82 ((< y 27) 9)
24a6717aed7f (calendar-mark-1): Autoload it.
Glenn Morris <rgm@gnu.org>
parents: 92971
diff changeset
83 (t 10))))
93642
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
84 (+ (calendar-islamic-day-number date) ; days so far this year
92644
df2219fdc233 Formatting changes only.
Glenn Morris <rgm@gnu.org>
parents: 92610
diff changeset
85 (* (1- year) 354) ; days in all non-leap years
df2219fdc233 Formatting changes only.
Glenn Morris <rgm@gnu.org>
parents: 92610
diff changeset
86 (* 11 (/ year 30)) ; leap days in complete cycles
df2219fdc233 Formatting changes only.
Glenn Morris <rgm@gnu.org>
parents: 92610
diff changeset
87 leap-years-in-cycle ; leap days this cycle
df2219fdc233 Formatting changes only.
Glenn Morris <rgm@gnu.org>
parents: 92610
diff changeset
88 (1- calendar-islamic-epoch)))) ; days before start of calendar
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
89
93642
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
90 (define-obsolete-function-alias 'calendar-absolute-from-islamic
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
91 'calendar-islamic-to-absolute "23.1")
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
92
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
93 (defun calendar-islamic-from-absolute (date)
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
94 "Compute the Islamic date (month day year) corresponding to absolute DATE.
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
95 The absolute date is the number of days elapsed since the (imaginary)
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
96 Gregorian date Sunday, December 31, 1 BC."
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
97 (if (< date calendar-islamic-epoch)
92644
df2219fdc233 Formatting changes only.
Glenn Morris <rgm@gnu.org>
parents: 92610
diff changeset
98 (list 0 0 0) ; pre-Islamic date
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
99 (let* ((approx (/ (- date calendar-islamic-epoch)
92644
df2219fdc233 Formatting changes only.
Glenn Morris <rgm@gnu.org>
parents: 92610
diff changeset
100 355)) ; approximation from below
df2219fdc233 Formatting changes only.
Glenn Morris <rgm@gnu.org>
parents: 92610
diff changeset
101 (year ; search forward from the approximation
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
102 (+ approx
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
103 (calendar-sum y approx
93642
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
104 (>= date (calendar-islamic-to-absolute
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
105 (list 1 1 (1+ y))))
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
106 1)))
92644
df2219fdc233 Formatting changes only.
Glenn Morris <rgm@gnu.org>
parents: 92610
diff changeset
107 (month ; search forward from Muharram
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
108 (1+ (calendar-sum m 1
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
109 (> date
93642
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
110 (calendar-islamic-to-absolute
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
111 (list m
93642
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
112 (calendar-islamic-last-day-of-month
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
113 m year)
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
114 year)))
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
115 1)))
92644
df2219fdc233 Formatting changes only.
Glenn Morris <rgm@gnu.org>
parents: 92610
diff changeset
116 (day ; calculate the day by subtraction
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
117 (- date
93642
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
118 (1- (calendar-islamic-to-absolute (list month 1 year))))))
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
119 (list month day year))))
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
120
92832
0f2bf92fe13d (generated-autoload-file): Don't set, instead use different values of
Glenn Morris <rgm@gnu.org>
parents: 92677
diff changeset
121 ;;;###cal-autoload
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
122 (defun calendar-islamic-date-string (&optional date)
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
123 "String of Islamic date before sunset of Gregorian DATE.
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
124 Returns the empty string if DATE is pre-Islamic.
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
125 Defaults to today's date if DATE is not given.
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
126 Driven by the variable `calendar-date-display-form'."
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
127 (let ((calendar-month-name-array calendar-islamic-month-name-array)
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
128 (islamic-date (calendar-islamic-from-absolute
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
129 (calendar-absolute-from-gregorian
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
130 (or date (calendar-current-date))))))
93809
3ff2b47de8f2 Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents: 93794
diff changeset
131 (if (< (calendar-extract-year islamic-date) 1)
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
132 ""
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
133 (calendar-date-string islamic-date nil t))))
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
134
92832
0f2bf92fe13d (generated-autoload-file): Don't set, instead use different values of
Glenn Morris <rgm@gnu.org>
parents: 92677
diff changeset
135 ;;;###cal-autoload
93642
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
136 (defun calendar-islamic-print-date ()
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
137 "Show the Islamic calendar equivalent of the date under the cursor."
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
138 (interactive)
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
139 (let ((i (calendar-islamic-date-string (calendar-cursor-to-date t))))
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
140 (if (string-equal i "")
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
141 (message "Date is pre-Islamic")
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
142 (message "Islamic date (until sunset): %s" i))))
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
143
93642
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
144 (define-obsolete-function-alias 'calendar-print-islamic-date
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
145 'calendar-islamic-print-date "23.1")
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
146
93184
63a7509590a7 (calendar-islamic-read-date): New name for
Glenn Morris <rgm@gnu.org>
parents: 92991
diff changeset
147 (defun calendar-islamic-read-date ()
63a7509590a7 (calendar-islamic-read-date): New name for
Glenn Morris <rgm@gnu.org>
parents: 92991
diff changeset
148 "Interactively read the arguments for an Islamic date command.
63a7509590a7 (calendar-islamic-read-date): New name for
Glenn Morris <rgm@gnu.org>
parents: 92991
diff changeset
149 Reads a year, month, and day."
92991
24a6717aed7f (calendar-mark-1): Autoload it.
Glenn Morris <rgm@gnu.org>
parents: 92971
diff changeset
150 (let* ((today (calendar-current-date))
24a6717aed7f (calendar-mark-1): Autoload it.
Glenn Morris <rgm@gnu.org>
parents: 92971
diff changeset
151 (year (calendar-read
24a6717aed7f (calendar-mark-1): Autoload it.
Glenn Morris <rgm@gnu.org>
parents: 92971
diff changeset
152 "Islamic calendar year (>0): "
24a6717aed7f (calendar-mark-1): Autoload it.
Glenn Morris <rgm@gnu.org>
parents: 92971
diff changeset
153 (lambda (x) (> x 0))
93844
bf9ef749c23e Replace int-to-string with number-to-string.
Glenn Morris <rgm@gnu.org>
parents: 93809
diff changeset
154 (number-to-string
93809
3ff2b47de8f2 Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents: 93794
diff changeset
155 (calendar-extract-year
92991
24a6717aed7f (calendar-mark-1): Autoload it.
Glenn Morris <rgm@gnu.org>
parents: 92971
diff changeset
156 (calendar-islamic-from-absolute
24a6717aed7f (calendar-mark-1): Autoload it.
Glenn Morris <rgm@gnu.org>
parents: 92971
diff changeset
157 (calendar-absolute-from-gregorian today))))))
24a6717aed7f (calendar-mark-1): Autoload it.
Glenn Morris <rgm@gnu.org>
parents: 92971
diff changeset
158 (month-array calendar-islamic-month-name-array)
24a6717aed7f (calendar-mark-1): Autoload it.
Glenn Morris <rgm@gnu.org>
parents: 92971
diff changeset
159 (completion-ignore-case t)
24a6717aed7f (calendar-mark-1): Autoload it.
Glenn Morris <rgm@gnu.org>
parents: 92971
diff changeset
160 (month (cdr (assoc-string
24a6717aed7f (calendar-mark-1): Autoload it.
Glenn Morris <rgm@gnu.org>
parents: 92971
diff changeset
161 (completing-read
24a6717aed7f (calendar-mark-1): Autoload it.
Glenn Morris <rgm@gnu.org>
parents: 92971
diff changeset
162 "Islamic calendar month name: "
24a6717aed7f (calendar-mark-1): Autoload it.
Glenn Morris <rgm@gnu.org>
parents: 92971
diff changeset
163 (mapcar 'list (append month-array nil))
24a6717aed7f (calendar-mark-1): Autoload it.
Glenn Morris <rgm@gnu.org>
parents: 92971
diff changeset
164 nil t)
24a6717aed7f (calendar-mark-1): Autoload it.
Glenn Morris <rgm@gnu.org>
parents: 92971
diff changeset
165 (calendar-make-alist month-array 1) t)))
93642
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
166 (last (calendar-islamic-last-day-of-month month year))
92991
24a6717aed7f (calendar-mark-1): Autoload it.
Glenn Morris <rgm@gnu.org>
parents: 92971
diff changeset
167 (day (calendar-read
24a6717aed7f (calendar-mark-1): Autoload it.
Glenn Morris <rgm@gnu.org>
parents: 92971
diff changeset
168 (format "Islamic calendar day (1-%d): " last)
24a6717aed7f (calendar-mark-1): Autoload it.
Glenn Morris <rgm@gnu.org>
parents: 92971
diff changeset
169 (lambda (x) (and (< 0 x) (<= x last))))))
24a6717aed7f (calendar-mark-1): Autoload it.
Glenn Morris <rgm@gnu.org>
parents: 92971
diff changeset
170 (list (list month day year))))
24a6717aed7f (calendar-mark-1): Autoload it.
Glenn Morris <rgm@gnu.org>
parents: 92971
diff changeset
171
92832
0f2bf92fe13d (generated-autoload-file): Don't set, instead use different values of
Glenn Morris <rgm@gnu.org>
parents: 92677
diff changeset
172 ;;;###cal-autoload
93642
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
173 (defun calendar-islamic-goto-date (date &optional noecho)
92926
b87a8e95883b (displayed-month, displayed-year)
Glenn Morris <rgm@gnu.org>
parents: 92832
diff changeset
174 "Move cursor to Islamic DATE; echo Islamic date unless NOECHO is non-nil."
93184
63a7509590a7 (calendar-islamic-read-date): New name for
Glenn Morris <rgm@gnu.org>
parents: 92991
diff changeset
175 (interactive (calendar-islamic-read-date))
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
176 (calendar-goto-date (calendar-gregorian-from-absolute
93642
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
177 (calendar-islamic-to-absolute date)))
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
178 (or noecho (calendar-islamic-print-date)))
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
179
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
180 (define-obsolete-function-alias 'calendar-goto-islamic-date
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
181 'calendar-islamic-goto-date "23.1")
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
182
93809
3ff2b47de8f2 Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents: 93794
diff changeset
183 (defvar displayed-month) ; from calendar-generate
92926
b87a8e95883b (displayed-month, displayed-year)
Glenn Morris <rgm@gnu.org>
parents: 92832
diff changeset
184 (defvar displayed-year)
b87a8e95883b (displayed-month, displayed-year)
Glenn Morris <rgm@gnu.org>
parents: 92832
diff changeset
185
92832
0f2bf92fe13d (generated-autoload-file): Don't set, instead use different values of
Glenn Morris <rgm@gnu.org>
parents: 92677
diff changeset
186 ;;;###holiday-autoload
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
187 (defun holiday-islamic (month day string)
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
188 "Holiday on MONTH, DAY (Islamic) called STRING.
94279
3a6662f0427e (holiday-islamic): Doc fix.
Glenn Morris <rgm@gnu.org>
parents: 93844
diff changeset
189 If MONTH, DAY (Islamic) is visible, returns the corresponding
3a6662f0427e (holiday-islamic): Doc fix.
Glenn Morris <rgm@gnu.org>
parents: 93844
diff changeset
190 Gregorian date as the list (((month day year) STRING)).
3a6662f0427e (holiday-islamic): Doc fix.
Glenn Morris <rgm@gnu.org>
parents: 93844
diff changeset
191 Returns nil if it is not visible in the current calendar window."
93462
263786b8fe73 (Commentary): Replace with reference to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93373
diff changeset
192 ;; Islamic date corresponding to the center of the calendar window.
263786b8fe73 (Commentary): Replace with reference to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93373
diff changeset
193 ;; Since the calendar displays 3 months at a time, there are approx
263786b8fe73 (Commentary): Replace with reference to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93373
diff changeset
194 ;; 45 visible days either side of this date. Given the length of
263786b8fe73 (Commentary): Replace with reference to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93373
diff changeset
195 ;; the Islamic months, this means up to two different months are
263786b8fe73 (Commentary): Replace with reference to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93373
diff changeset
196 ;; visible either side of the central date.
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
197 (let* ((islamic-date (calendar-islamic-from-absolute
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
198 (calendar-absolute-from-gregorian
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
199 (list displayed-month 15 displayed-year))))
93809
3ff2b47de8f2 Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents: 93794
diff changeset
200 (m (calendar-extract-month islamic-date))
3ff2b47de8f2 Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents: 93794
diff changeset
201 (y (calendar-extract-year islamic-date))
93373
6facf919dde4 Autoload diary-insert-entry-1.
Glenn Morris <rgm@gnu.org>
parents: 93268
diff changeset
202 date)
92926
b87a8e95883b (displayed-month, displayed-year)
Glenn Morris <rgm@gnu.org>
parents: 92832
diff changeset
203 (unless (< m 1) ; Islamic calendar doesn't apply
93462
263786b8fe73 (Commentary): Replace with reference to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93373
diff changeset
204 ;; Since converting to absolute dates can be a complex
263786b8fe73 (Commentary): Replace with reference to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93373
diff changeset
205 ;; operation, we try to speed things up by excluding those date
263786b8fe73 (Commentary): Replace with reference to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93373
diff changeset
206 ;; ranges that can't possibly be visible.
263786b8fe73 (Commentary): Replace with reference to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93373
diff changeset
207 ;; We can view the situation (see above) as if we had a calendar
263786b8fe73 (Commentary): Replace with reference to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93373
diff changeset
208 ;; window displaying 5 months at a time. When month m is
263786b8fe73 (Commentary): Replace with reference to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93373
diff changeset
209 ;; central, months m-2:m+2 (modulo 12) might be visible.
263786b8fe73 (Commentary): Replace with reference to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93373
diff changeset
210 ;; Recall from holiday-fixed that with a 3 month calendar
263786b8fe73 (Commentary): Replace with reference to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93373
diff changeset
211 ;; window, November is special, because we can do a one-sided
263786b8fe73 (Commentary): Replace with reference to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93373
diff changeset
212 ;; inclusion test. When November is central is when the end of
263786b8fe73 (Commentary): Replace with reference to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93373
diff changeset
213 ;; year first appears on the calendar. Similarly, with a 5
263786b8fe73 (Commentary): Replace with reference to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93373
diff changeset
214 ;; month window, October is special. When October is central is
263786b8fe73 (Commentary): Replace with reference to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93373
diff changeset
215 ;; when the end of year first appears, and when January is
263786b8fe73 (Commentary): Replace with reference to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93373
diff changeset
216 ;; central, October is no longer visible. October is visible
263786b8fe73 (Commentary): Replace with reference to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93373
diff changeset
217 ;; when the central month is >= 8.
263786b8fe73 (Commentary): Replace with reference to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93373
diff changeset
218 ;; Hence to test if any given month might be visible, we can
263786b8fe73 (Commentary): Replace with reference to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93373
diff changeset
219 ;; shift things and ask about October.
263786b8fe73 (Commentary): Replace with reference to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93373
diff changeset
220 ;; At the same time, we work out the appropriate year y to use.
93809
3ff2b47de8f2 Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents: 93794
diff changeset
221 (calendar-increment-month m y (- 10 month))
93462
263786b8fe73 (Commentary): Replace with reference to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93373
diff changeset
222 (and (> m 7) ; Islamic date might be visible
263786b8fe73 (Commentary): Replace with reference to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93373
diff changeset
223 (calendar-date-is-visible-p
263786b8fe73 (Commentary): Replace with reference to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93373
diff changeset
224 (setq date (calendar-gregorian-from-absolute
93642
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
225 (calendar-islamic-to-absolute (list month day y)))))
93462
263786b8fe73 (Commentary): Replace with reference to calendar.el.
Glenn Morris <rgm@gnu.org>
parents: 93373
diff changeset
226 (list (list date string))))))
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
227
93577
bac2b63b476f (holiday-islamic-new-year): New function.
Glenn Morris <rgm@gnu.org>
parents: 93471
diff changeset
228 ;;;###holiday-autoload
bac2b63b476f (holiday-islamic-new-year): New function.
Glenn Morris <rgm@gnu.org>
parents: 93471
diff changeset
229 (defun holiday-islamic-new-year ()
bac2b63b476f (holiday-islamic-new-year): New function.
Glenn Morris <rgm@gnu.org>
parents: 93471
diff changeset
230 "Holiday entry for the Islamic New Year, if visible in the calendar window."
bac2b63b476f (holiday-islamic-new-year): New function.
Glenn Morris <rgm@gnu.org>
parents: 93471
diff changeset
231 (let ((date (caar (holiday-islamic 1 1 "")))
bac2b63b476f (holiday-islamic-new-year): New function.
Glenn Morris <rgm@gnu.org>
parents: 93471
diff changeset
232 (m displayed-month)
bac2b63b476f (holiday-islamic-new-year): New function.
Glenn Morris <rgm@gnu.org>
parents: 93471
diff changeset
233 (y displayed-year))
bac2b63b476f (holiday-islamic-new-year): New function.
Glenn Morris <rgm@gnu.org>
parents: 93471
diff changeset
234 (and date
bac2b63b476f (holiday-islamic-new-year): New function.
Glenn Morris <rgm@gnu.org>
parents: 93471
diff changeset
235 (list (list date
bac2b63b476f (holiday-islamic-new-year): New function.
Glenn Morris <rgm@gnu.org>
parents: 93471
diff changeset
236 (format "Islamic New Year %d"
bac2b63b476f (holiday-islamic-new-year): New function.
Glenn Morris <rgm@gnu.org>
parents: 93471
diff changeset
237 (progn
93809
3ff2b47de8f2 Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents: 93794
diff changeset
238 (calendar-increment-month m y 1)
3ff2b47de8f2 Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents: 93794
diff changeset
239 (calendar-extract-year
93577
bac2b63b476f (holiday-islamic-new-year): New function.
Glenn Morris <rgm@gnu.org>
parents: 93471
diff changeset
240 (calendar-islamic-from-absolute
bac2b63b476f (holiday-islamic-new-year): New function.
Glenn Morris <rgm@gnu.org>
parents: 93471
diff changeset
241 (calendar-absolute-from-gregorian
bac2b63b476f (holiday-islamic-new-year): New function.
Glenn Morris <rgm@gnu.org>
parents: 93471
diff changeset
242 (list m (calendar-last-day-of-month m y) y)
bac2b63b476f (holiday-islamic-new-year): New function.
Glenn Morris <rgm@gnu.org>
parents: 93471
diff changeset
243 ))))))))))
bac2b63b476f (holiday-islamic-new-year): New function.
Glenn Morris <rgm@gnu.org>
parents: 93471
diff changeset
244
92971
56c7e60586c9 (number, original-date, add-to-diary-list)
Glenn Morris <rgm@gnu.org>
parents: 92926
diff changeset
245 (autoload 'diary-list-entries-1 "diary-lib")
92677
3f32c597cb6b (diary-islamic-date): Move to end.
Glenn Morris <rgm@gnu.org>
parents: 92645
diff changeset
246
92832
0f2bf92fe13d (generated-autoload-file): Don't set, instead use different values of
Glenn Morris <rgm@gnu.org>
parents: 92677
diff changeset
247 ;;;###diary-autoload
93642
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
248 (defun diary-islamic-list-entries ()
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
249 "Add any Islamic date entries from the diary file to `diary-entries-list'.
93733
e1a9003feedf Update for rename islamic-diary-entry-symbol to diary-islamic-entry-symbol.
Glenn Morris <rgm@gnu.org>
parents: 93642
diff changeset
250 Islamic date diary entries must be prefaced by `diary-islamic-entry-symbol'
92971
56c7e60586c9 (number, original-date, add-to-diary-list)
Glenn Morris <rgm@gnu.org>
parents: 92926
diff changeset
251 \(normally an `I'). The same `diary-date-forms' govern the style
92645
611e312d3f05 (islamic-calendar-leap-year-p)
Glenn Morris <rgm@gnu.org>
parents: 92644
diff changeset
252 of the Islamic calendar entries, except that the Islamic month
93268
691804e8889b (list-islamic-diary-entries): Doc fix.
Glenn Morris <rgm@gnu.org>
parents: 93223
diff changeset
253 names cannot be abbreviated. The Islamic months are numbered
92645
611e312d3f05 (islamic-calendar-leap-year-p)
Glenn Morris <rgm@gnu.org>
parents: 92644
diff changeset
254 from 1 to 12 with Muharram being 1 and 12 being Dhu al-Hijjah.
611e312d3f05 (islamic-calendar-leap-year-p)
Glenn Morris <rgm@gnu.org>
parents: 92644
diff changeset
255 If an Islamic date diary entry begins with `diary-nonmarking-symbol',
611e312d3f05 (islamic-calendar-leap-year-p)
Glenn Morris <rgm@gnu.org>
parents: 92644
diff changeset
256 the entry will appear in the diary listing, but will not be
611e312d3f05 (islamic-calendar-leap-year-p)
Glenn Morris <rgm@gnu.org>
parents: 92644
diff changeset
257 marked in the calendar. This function is provided for use with
93794
509de9778a6d Update for diary-lib name changes.
Glenn Morris <rgm@gnu.org>
parents: 93733
diff changeset
258 `diary-nongregorian-listing-hook'."
92971
56c7e60586c9 (number, original-date, add-to-diary-list)
Glenn Morris <rgm@gnu.org>
parents: 92926
diff changeset
259 (diary-list-entries-1 calendar-islamic-month-name-array
93733
e1a9003feedf Update for rename islamic-diary-entry-symbol to diary-islamic-entry-symbol.
Glenn Morris <rgm@gnu.org>
parents: 93642
diff changeset
260 diary-islamic-entry-symbol
92971
56c7e60586c9 (number, original-date, add-to-diary-list)
Glenn Morris <rgm@gnu.org>
parents: 92926
diff changeset
261 'calendar-islamic-from-absolute))
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
262
93642
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
263 (define-obsolete-function-alias 'list-islamic-diary-entries
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
264 'diary-islamic-list-entries "23.1")
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
265
92991
24a6717aed7f (calendar-mark-1): Autoload it.
Glenn Morris <rgm@gnu.org>
parents: 92971
diff changeset
266 (autoload 'calendar-mark-1 "diary-lib")
24a6717aed7f (calendar-mark-1): Autoload it.
Glenn Morris <rgm@gnu.org>
parents: 92971
diff changeset
267
92832
0f2bf92fe13d (generated-autoload-file): Don't set, instead use different values of
Glenn Morris <rgm@gnu.org>
parents: 92677
diff changeset
268 ;;;###diary-autoload
93642
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
269 (defun calendar-islamic-mark-date-pattern (month day year &optional color)
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
270 "Mark dates in calendar window that conform to Islamic date MONTH/DAY/YEAR.
92991
24a6717aed7f (calendar-mark-1): Autoload it.
Glenn Morris <rgm@gnu.org>
parents: 92971
diff changeset
271 A value of 0 in any position is a wildcard. Optional argument COLOR is
93809
3ff2b47de8f2 Update for calendar.el name changes.
Glenn Morris <rgm@gnu.org>
parents: 93794
diff changeset
272 passed to `calendar-mark-visible-date' as MARK."
92991
24a6717aed7f (calendar-mark-1): Autoload it.
Glenn Morris <rgm@gnu.org>
parents: 92971
diff changeset
273 (calendar-mark-1 month day year 'calendar-islamic-from-absolute
93642
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
274 'calendar-islamic-to-absolute color))
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
275
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
276 (define-obsolete-function-alias 'mark-islamic-calendar-date-pattern
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
277 'calendar-islamic-mark-date-pattern "23.1")
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
278
92971
56c7e60586c9 (number, original-date, add-to-diary-list)
Glenn Morris <rgm@gnu.org>
parents: 92926
diff changeset
279 (autoload 'diary-mark-entries-1 "diary-lib")
92926
b87a8e95883b (displayed-month, displayed-year)
Glenn Morris <rgm@gnu.org>
parents: 92832
diff changeset
280
b87a8e95883b (displayed-month, displayed-year)
Glenn Morris <rgm@gnu.org>
parents: 92832
diff changeset
281 ;;;###diary-autoload
93642
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
282 (defun diary-islamic-mark-entries ()
92926
b87a8e95883b (displayed-month, displayed-year)
Glenn Morris <rgm@gnu.org>
parents: 92832
diff changeset
283 "Mark days in the calendar window that have Islamic date diary entries.
92971
56c7e60586c9 (number, original-date, add-to-diary-list)
Glenn Morris <rgm@gnu.org>
parents: 92926
diff changeset
284 Marks each entry in `diary-file' (or included files) visible in the calendar
93642
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
285 window. See `diary-islamic-list-entries' for more information."
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
286 (diary-mark-entries-1 'calendar-islamic-mark-date-pattern
93471
31158dd82f24 (mark-islamic-diary-entries): Fix argument order in call to
Glenn Morris <rgm@gnu.org>
parents: 93462
diff changeset
287 calendar-islamic-month-name-array
93733
e1a9003feedf Update for rename islamic-diary-entry-symbol to diary-islamic-entry-symbol.
Glenn Morris <rgm@gnu.org>
parents: 93642
diff changeset
288 diary-islamic-entry-symbol
93471
31158dd82f24 (mark-islamic-diary-entries): Fix argument order in call to
Glenn Morris <rgm@gnu.org>
parents: 93462
diff changeset
289 'calendar-islamic-from-absolute))
92926
b87a8e95883b (displayed-month, displayed-year)
Glenn Morris <rgm@gnu.org>
parents: 92832
diff changeset
290
93642
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
291 (define-obsolete-function-alias
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
292 'mark-islamic-diary-entries 'diary-islamic-mark-entries "23.1")
93373
6facf919dde4 Autoload diary-insert-entry-1.
Glenn Morris <rgm@gnu.org>
parents: 93268
diff changeset
293
6facf919dde4 Autoload diary-insert-entry-1.
Glenn Morris <rgm@gnu.org>
parents: 93268
diff changeset
294 (autoload 'diary-insert-entry-1 "diary-lib")
6facf919dde4 Autoload diary-insert-entry-1.
Glenn Morris <rgm@gnu.org>
parents: 93268
diff changeset
295
92832
0f2bf92fe13d (generated-autoload-file): Don't set, instead use different values of
Glenn Morris <rgm@gnu.org>
parents: 92677
diff changeset
296 ;;;###cal-autoload
93642
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
297 (defun diary-islamic-insert-entry (arg)
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
298 "Insert a diary entry.
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
299 For the Islamic date corresponding to the date indicated by point.
92645
611e312d3f05 (islamic-calendar-leap-year-p)
Glenn Morris <rgm@gnu.org>
parents: 92644
diff changeset
300 Prefix argument ARG makes the entry nonmarking."
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
301 (interactive "P")
93373
6facf919dde4 Autoload diary-insert-entry-1.
Glenn Morris <rgm@gnu.org>
parents: 93268
diff changeset
302 (diary-insert-entry-1 nil arg calendar-islamic-month-name-array
93733
e1a9003feedf Update for rename islamic-diary-entry-symbol to diary-islamic-entry-symbol.
Glenn Morris <rgm@gnu.org>
parents: 93642
diff changeset
303 diary-islamic-entry-symbol
93373
6facf919dde4 Autoload diary-insert-entry-1.
Glenn Morris <rgm@gnu.org>
parents: 93268
diff changeset
304 'calendar-islamic-from-absolute))
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
305
93642
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
306 (define-obsolete-function-alias 'insert-islamic-diary-entry
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
307 'diary-islamic-insert-entry "23.1")
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
308
92832
0f2bf92fe13d (generated-autoload-file): Don't set, instead use different values of
Glenn Morris <rgm@gnu.org>
parents: 92677
diff changeset
309 ;;;###cal-autoload
93642
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
310 (defun diary-islamic-insert-monthly-entry (arg)
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
311 "Insert a monthly diary entry.
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
312 For the day of the Islamic month corresponding to the date indicated by point.
92645
611e312d3f05 (islamic-calendar-leap-year-p)
Glenn Morris <rgm@gnu.org>
parents: 92644
diff changeset
313 Prefix argument ARG makes the entry nonmarking."
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
314 (interactive "P")
93373
6facf919dde4 Autoload diary-insert-entry-1.
Glenn Morris <rgm@gnu.org>
parents: 93268
diff changeset
315 (diary-insert-entry-1 'monthly arg calendar-islamic-month-name-array
93733
e1a9003feedf Update for rename islamic-diary-entry-symbol to diary-islamic-entry-symbol.
Glenn Morris <rgm@gnu.org>
parents: 93642
diff changeset
316 diary-islamic-entry-symbol
93373
6facf919dde4 Autoload diary-insert-entry-1.
Glenn Morris <rgm@gnu.org>
parents: 93268
diff changeset
317 'calendar-islamic-from-absolute))
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
318
93642
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
319 (define-obsolete-function-alias 'insert-monthly-islamic-diary-entry
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
320 'diary-islamic-insert-monthly-entry "23.1")
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
321
92832
0f2bf92fe13d (generated-autoload-file): Don't set, instead use different values of
Glenn Morris <rgm@gnu.org>
parents: 92677
diff changeset
322 ;;;###cal-autoload
93642
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
323 (defun diary-islamic-insert-yearly-entry (arg)
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
324 "Insert an annual diary entry.
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
325 For the day of the Islamic year corresponding to the date indicated by point.
92645
611e312d3f05 (islamic-calendar-leap-year-p)
Glenn Morris <rgm@gnu.org>
parents: 92644
diff changeset
326 Prefix argument ARG makes the entry nonmarking."
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
327 (interactive "P")
93373
6facf919dde4 Autoload diary-insert-entry-1.
Glenn Morris <rgm@gnu.org>
parents: 93268
diff changeset
328 (diary-insert-entry-1 'yearly arg calendar-islamic-month-name-array
93733
e1a9003feedf Update for rename islamic-diary-entry-symbol to diary-islamic-entry-symbol.
Glenn Morris <rgm@gnu.org>
parents: 93642
diff changeset
329 diary-islamic-entry-symbol
93373
6facf919dde4 Autoload diary-insert-entry-1.
Glenn Morris <rgm@gnu.org>
parents: 93268
diff changeset
330 'calendar-islamic-from-absolute))
93642
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
331 (define-obsolete-function-alias
d01118f40990 Update for cal-julian name changes.
Glenn Morris <rgm@gnu.org>
parents: 93577
diff changeset
332 'insert-yearly-islamic-diary-entry 'diary-islamic-insert-yearly-entry "23.1")
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
333
92677
3f32c597cb6b (diary-islamic-date): Move to end.
Glenn Morris <rgm@gnu.org>
parents: 92645
diff changeset
334 (defvar date)
3f32c597cb6b (diary-islamic-date): Move to end.
Glenn Morris <rgm@gnu.org>
parents: 92645
diff changeset
335
3f32c597cb6b (diary-islamic-date): Move to end.
Glenn Morris <rgm@gnu.org>
parents: 92645
diff changeset
336 ;; To be called from diary-sexp-entry, where DATE, ENTRY are bound.
92832
0f2bf92fe13d (generated-autoload-file): Don't set, instead use different values of
Glenn Morris <rgm@gnu.org>
parents: 92677
diff changeset
337 ;;;###diary-autoload
92677
3f32c597cb6b (diary-islamic-date): Move to end.
Glenn Morris <rgm@gnu.org>
parents: 92645
diff changeset
338 (defun diary-islamic-date ()
3f32c597cb6b (diary-islamic-date): Move to end.
Glenn Morris <rgm@gnu.org>
parents: 92645
diff changeset
339 "Islamic calendar equivalent of date diary entry."
3f32c597cb6b (diary-islamic-date): Move to end.
Glenn Morris <rgm@gnu.org>
parents: 92645
diff changeset
340 (let ((i (calendar-islamic-date-string date)))
3f32c597cb6b (diary-islamic-date): Move to end.
Glenn Morris <rgm@gnu.org>
parents: 92645
diff changeset
341 (if (string-equal i "")
3f32c597cb6b (diary-islamic-date): Move to end.
Glenn Morris <rgm@gnu.org>
parents: 92645
diff changeset
342 "Date is pre-Islamic"
3f32c597cb6b (diary-islamic-date): Move to end.
Glenn Morris <rgm@gnu.org>
parents: 92645
diff changeset
343 (format "Islamic date (until sunset): %s" i))))
3f32c597cb6b (diary-islamic-date): Move to end.
Glenn Morris <rgm@gnu.org>
parents: 92645
diff changeset
344
14684
66450c507ee4 Renamed from cal-islamic.el to avoid 14-character limitation.
Karl Heuer <kwzh@gnu.org>
parents: 14169
diff changeset
345 (provide 'cal-islam)
13053
621d48117fde Initial revision
Edward M. Reingold <reingold@emr.cs.iit.edu>
parents:
diff changeset
346
92585
c9eb56890fe0 Unquote lambda functions. Add autoload cookies to functions formerly
Glenn Morris <rgm@gnu.org>
parents: 87649
diff changeset
347 ;; arch-tag: a951b6c1-6f47-48d5-bac3-1b505cd719f7
14684
66450c507ee4 Renamed from cal-islamic.el to avoid 14-character limitation.
Karl Heuer <kwzh@gnu.org>
parents: 14169
diff changeset
348 ;;; cal-islam.el ends here