Current File : //usr/local/share/emacs/27.2/lisp/calendar/cal-islam.elc
;ELC
;;; Compiled
;;; in Emacs version 27.2
;;; with all optimizations.
;;; This file uses dynamic docstrings, first added in Emacs 19.29.
;;; This file does not contain utf-8 non-ASCII characters,
;;; and so can be loaded in Emacs versions earlier than 23.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(require 'calendar)
#@58 Array of strings giving the names of the Islamic months.
(defconst calendar-islamic-month-name-array ["Muharram" "Safar" "Rabi I" "Rabi II" "Jumada I" "Jumada II" "Rajab" "Sha'ban" "Ramadan" "Shawwal" "Dhu al-Qada" "Dhu al-Hijjah"] (#$ . 428))
(autoload 'calendar-julian-to-absolute "cal-julian")
#@72 Absolute date of start of Islamic calendar = July 16, 622 AD (Julian).
(defconst calendar-islamic-epoch 227015 (#$ . 731))
#@58 Return t if YEAR is a leap year on the Islamic calendar.
(defalias 'calendar-islamic-leap-year-p #[(year) "\301\246\302\303\304\305\306\307\310\311\312\313\314\257 >\205 \315\207" [year 30 2 5 7 10 13 16 18 21 24 26 29 t] 12 (#$ . 860)])
#@60 The last day in MONTH during YEAR on the Islamic calendar.
(defalias 'calendar-islamic-last-day-of-month #[(month year) "\302\303\304\305\306\307\257>\203 \310\207\311\312\313\314\315\257>\203 \316\207\317 !\203% \310\207\316\207" [month year 1 3 5 7 9 11 30 2 4 6 8 10 29 calendar-islamic-leap-year-p] 7 (#$ . 1106)])
#@65 Return the day number within the year of the Islamic date DATE.
(defalias 'calendar-islamic-day-number #[(date) "\211@\262\302\303 \304\245_\305 S\304\245_\211A@\262#)\207" [date month + 30 2 29] 5 (#$ . 1437)])
#@144 Absolute date of Islamic DATE.
The absolute date is the number of days elapsed since the (imaginary)
Gregorian date Sunday, December 31, 1 BC.
(defalias 'calendar-islamic-to-absolute #[(date) "\211@\262\211A@\262\3068\262\211\307\246\211 \310W\203\" \311\202} \f\312W\203, \313\202} \f\314W\2036 \306\202} \f\315W\203@ \310\202} \f\316W\203J \317\202} \f\320W\203T \321\202} \f\322W\203^ \312\202} \f\323W\203h \324\202} \f\325W\203r \314\202} \f\326W\203| \327\202} \330 \331\332! S\333_\315 \307\245_
S%-\207" [date month day year y leap-years-in-cycle 2 30 3 0 6 1 8 11 14 4 17 5 19 22 7 25 27 9 10 + calendar-islamic-day-number 354 calendar-islamic-epoch] 7 (#$ . 1661)])
#@187 Compute the Islamic date (month day year) corresponding to absolute DATE.
The absolute date is the number of days elapsed since the (imaginary)
Gregorian date Sunday, December 31, 1 BC.
(defalias 'calendar-islamic-from-absolute #[(date) " W\203 \306\211\211E\207 Z\307\245\211\211\306 \310\311\211\fTE!Y\203+ T\fT\202 *\\ \311\306 \310 \312
\"
E!V\203O T T \2024 *T \f\310\f\311
E!SZ
\f
E,\207" [date calendar-islamic-epoch approx sum y year 0 355 calendar-islamic-to-absolute 1 calendar-islamic-last-day-of-month m month day] 7 (#$ . 2357)])
#@206 String of Islamic date before sunset of Gregorian DATE.
Returns the empty string if DATE is pre-Islamic.
Defaults to today's date if DATE is not given.
Driven by the variable `calendar-date-display-form'.
(defalias 'calendar-islamic-date-string #[(&optional date) "\304 \206 \305 \211\3068\262\307\310U\203 \311\312!\202U\310V\203\217 S\262\313\211\211@\262\211A@\262\3068\262\314S_\\\306V\203| \211\315\316_\\\317\245Z\262\211\310W\203] \320!S\262\211\316\246\310U\205s \211\321\246\310U?\206s \211\322\246\310U\262\203| \211T\262\266\204\323_\316\245\321\245[\322\245%\202U\320T!\262\324\211\211@\262\211A@\262\3068\262\314S_\\\306V\203\354 \211\315\316_\\\317\245Z\262\211\310W\203\315 \320!S\262\211\316\246\310U\205\343 \211\321\246\310U?\206\343 \211\322\246\310U\262\203\354 \211T\262\266\204\323_\316\245\321\245[\322\245\325\211\211@\262\211A@\262\3068\262\314S_\\\306V\203Q\211\315\316_\\\317\245Z\262\211\310W\2032\320!S\262\211\316\246\310U\205H\211\321\246\310U?\206H\211\322\246\310U\262\203Q\211T\262\266\204&\266\203!\n\3068\262\326W\203i\327\202n\330\n\307\331#*\207" [calendar-islamic-month-name-array date islamic-date calendar-month-name-array calendar-islamic-from-absolute calendar-current-date 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) 1 "" calendar-date-string t] 20 (#$ . 2935)])
#@68 Show the Islamic calendar equivalent of the date under the cursor.
(defalias 'calendar-islamic-print-date #[nil "\301\302\303!!\211\304\230\203 \305\306!\202 \305\307\")\207" [i calendar-islamic-date-string calendar-cursor-to-date t "" message "Date is pre-Islamic" "Islamic date (until sunset): %s"] 4 (#$ . 4376) nil])
#@93 Interactively read the arguments for an Islamic date command.
Reads a year, month, and day.
(defalias 'calendar-islamic-read-date #[nil "\306 \307\310\311\312\313\211\3148\262\315\316U\203 \317\320!\202V\316V\203\220 S\262\321\211\211@\262\211A@\262\3148\262\322S_\\\314V\203} \211\323\324_\\\325\245Z\262\211\316W\203^ \326!S\262\211\324\246\316U\205t \211\327\246\316U?\206t \211\330\246\316U\262\203} \211T\262\266\204\331_\324\245\327\245[\330\245%\202V\326T!\262\332\211\211@\262\211A@\262\3148\262\322S_\\\314V\203\355 \211\323\324_\\\325\245Z\262\211\316W\203\316 \326!S\262\211\324\246\316U\205\344 \211\327\246\316U?\206\344 \211\330\246\316U\262\203\355 \211T\262\266\204\331_\324\245\327\245[\330\245\333\211\211@\262\211A@\262\3148\262\322S_\\\314V\203R\211\323\324_\\\325\245Z\262\211\316W\2033\326!S\262\211\324\246\316U\205I\211\327\246\316U?\206I\211\330\246\316U\262\203R\211T\262\266\204&\266\203!\3148\262!#\n\334 \335\336\337\340\341\342 \315\"\"\315\334$\343 \344\"\334#A \345
\" )\307\346\347)\"\350\" *
* E.C\207" [today year calendar-islamic-month-name-array month-array completion-ignore-case month calendar-current-date calendar-read "Islamic calendar year (>0): " #[(x) "\301V\207" [x 0] 2] number-to-string calendar-islamic-from-absolute 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) t assoc-string completing-read "Islamic calendar month name: " mapcar list append calendar-make-alist 1 calendar-islamic-last-day-of-month format "Islamic calendar day (1-%d): " #[(x) "\302W\205 X\207" [x last 0] 2] last day] 23 (#$ . 4707)])
#@74 Move cursor to Islamic DATE; echo Islamic date unless NOECHO is non-nil.
(defalias 'calendar-islamic-goto-date #[(date &optional noecho) "\302\303\304!!!\210 \206 \305 \207" [date noecho calendar-goto-date calendar-gregorian-from-absolute calendar-islamic-to-absolute calendar-islamic-print-date] 4 (#$ . 6401) (calendar-islamic-read-date)])
#@231 Holiday on MONTH, DAY (Islamic) called STRING.
If MONTH, DAY (Islamic) is visible, returns the corresponding
Gregorian date as the list (((month day year) STRING)).
Returns nil if it is not visible in the current calendar window.
(defalias 'holiday-islamic #[(month day string) "\306\307 E\211\3108\262\311\312U\203 \313\314!\202R\312V\203\214 S\262\315\211\211@\262\211A@\262\3108\262\316S_\\\310V\203y \211\317\320_\\\321\245Z\262\211\312W\203Z \322!S\262\211\320\246\312U\205p \211\323\246\312U?\206p \211\324\246\312U\262\203y \211T\262\266\204\325_\320\245\323\245[\324\245%\202R\322T!\262\326\211\211@\262\211A@\262\3108\262\316S_\\\310V\203\351 \211\317\320_\\\321\245Z\262\211\312W\203\312 \322!S\262\211\320\246\312U\205\340 \211\323\246\312U?\206\340 \211\324\246\312U\262\203\351 \211T\262\266\204\325_\320\245\323\245[\324\245\327\211\211@\262\211A@\262\3108\262\316S_\\\310V\203N\211\317\320_\\\321\245Z\262\211\312W\203/\322!S\262\211\320\246\312U\205E\211\323\246\312U?\206E\211\324\246\312U\262\203N\211T\262\266\204&\266\203!\211\211@\262\n\3108\262 \311 \330W?\205\315\331\311 !\f\312W\203{\fT\315\f!_ \332\321\"Z$ \333 !\"T !\245 \312W\203\247 \330V\203\247\fS\f\330W\203\260\fS* \334V\205\315\335\336\337\"#\fE!!\211!\205\315
$DC,\207" [displayed-month displayed-year islamic-date m y date calendar-islamic-from-absolute 15 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) 1 12 -1 mod 7 calendar-date-is-visible-p calendar-gregorian-from-absolute calendar-islamic-to-absolute macro-y nmonths month day string] 20 (#$ . 6752)])
#@76 Holiday entry for the Islamic New Year, if visible in the calendar window.
(defalias 'holiday-islamic-new-year #[nil "\306\307\211\310#@@ \211 \205\350\f\311\312\313\314 !\n\315W\203! \nT\316\n!_ \317\307$\320
!\"T
!\245
\315W\203F \307V\203F \nS\n\307W\203O \nS*\321 \211\n\322U\203\210 \211\211\315W\203g \323!S\262\211\324\246\315U\205} \211\325\246\315U?\206} \211\326\246\315U\262\203\210 \327\266\202\202\216 \330SH\266\202\nE\211\3228\262\314\315U\203\243 \331\332!\202\335\315V\203S\262\316\211\211@\262\211A@\262\3228\262\333S_\\\322V\203\211\334\324_\\\335\245Z\262\211\315W\203\345 \323!S\262\211\324\246\315U\205\373 \211\325\246\315U?\206\373 \211\326\246\315U\262\203\211T\262\266\204\336_\324\245\325\245[\326\245%\202\335\323T!\262\337\211\211@\262\211A@\262\3228\262\333S_\\\322V\203t\211\334\324_\\\335\245Z\262\211\315W\203U\323!S\262\211\324\246\315U\205k\211\325\246\315U?\206k\211\326\246\315U\262\203t\211T\262\266\204\336_\324\245\325\245[\326\245\340\211\211@\262\211A@\262\3228\262\333S_\\\322V\203\331\211\334\324_\\\335\245Z\262\211\315W\203\272\323!S\262\211\324\246\315U\205\320\211\325\246\315U?\206\320\211\326\246\315U\262\203\331\211T\262\266\204&\266\203!\3228\262\"DC+\207" [displayed-month displayed-year y m date macro-y holiday-islamic 1 "" format "Islamic New Year %d" 12 nil 0 + -1 mod calendar-islamic-from-absolute 2 abs 4 100 400 29 [31 28 31 30 31 30 31 31 30 31 30 31] user-error "There was no year zero" 31 23 10 365 - (12 31 -1) nmonths] 23 (#$ . 8453)])
(autoload 'diary-list-entries-1 "diary-lib")
#@633 Add any Islamic date entries from the diary file to `diary-entries-list'.
Islamic date diary entries must be prefaced by `diary-islamic-entry-symbol'
(normally an `I'). The same `diary-date-forms' govern the style
of the Islamic calendar entries, except that the Islamic month
names cannot be abbreviated. The Islamic months are numbered
from 1 to 12 with Muharram being 1 and 12 being Dhu al-Hijjah.
If an Islamic date diary entry begins with `diary-nonmarking-symbol',
the entry will appear in the diary listing, but will not be
marked in the calendar. This function is provided for use with
`diary-nongregorian-listing-hook'.
(defalias 'diary-islamic-list-entries #[nil "\302 \303#\207" [calendar-islamic-month-name-array diary-islamic-entry-symbol diary-list-entries-1 calendar-islamic-from-absolute] 4 (#$ . 10118)])
(autoload 'calendar-mark-1 "diary-lib")
#@196 Mark dates in calendar window that conform to Islamic date MONTH/DAY/YEAR.
A value of 0 in any position is a wildcard. Optional argument COLOR is
passed to `calendar-mark-visible-date' as MARK.
(defalias 'calendar-islamic-mark-date-pattern #[(month day year &optional color) "\304 \n\305\306 &\207" [month day year color calendar-mark-1 calendar-islamic-from-absolute calendar-islamic-to-absolute] 7 (#$ . 10991)])
(autoload 'diary-mark-entries-1 "diary-lib")
#@213 Mark days in the calendar window that have Islamic date diary entries.
Marks each entry in `diary-file' (or included files) visible in the calendar
window. See `diary-islamic-list-entries' for more information.
(defalias 'diary-islamic-mark-entries #[nil "\302\303 \304$\207" [calendar-islamic-month-name-array diary-islamic-entry-symbol diary-mark-entries-1 calendar-islamic-mark-date-pattern calendar-islamic-from-absolute] 5 (#$ . 11461)])
(autoload 'diary-insert-entry-1 "diary-lib")
#@138 Insert a diary entry.
For the Islamic date corresponding to the date indicated by point.
Prefix argument ARG makes the entry nonmarking.
(defalias 'diary-islamic-insert-entry #[(arg) "\303\304 \n\305%\207" [arg calendar-islamic-month-name-array diary-islamic-entry-symbol diary-insert-entry-1 nil calendar-islamic-from-absolute] 6 (#$ . 11958) "P"])
#@158 Insert a monthly diary entry.
For the day of the Islamic month corresponding to the date indicated by point.
Prefix argument ARG makes the entry nonmarking.
(defalias 'diary-islamic-insert-monthly-entry #[(arg) "\303\304 \n\305%\207" [arg calendar-islamic-month-name-array diary-islamic-entry-symbol diary-insert-entry-1 monthly calendar-islamic-from-absolute] 6 (#$ . 12316) "P"])
#@157 Insert an annual diary entry.
For the day of the Islamic year corresponding to the date indicated by point.
Prefix argument ARG makes the entry nonmarking.
(defalias 'diary-islamic-insert-yearly-entry #[(arg) "\303\304 \n\305%\207" [arg calendar-islamic-month-name-array diary-islamic-entry-symbol diary-insert-entry-1 yearly calendar-islamic-from-absolute] 6 (#$ . 12706) "P"])
#@50 Islamic calendar equivalent of date diary entry.
(defalias 'diary-islamic-date #[nil "\302!\211\303\230\203 \304\202 \305\306 \")\207" [date i calendar-islamic-date-string "" "Date is pre-Islamic" format "Islamic date (until sunset): %s"] 4 (#$ . 13092)])
(provide 'cal-islam)
Mini Shell