View file File name : cal-islam.elc Content :;ELC ;;; Compiled ;;; in Emacs version 26.1 ;;; 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 >\207" [year 30 2 5 7 10 13 16 18 21 24 26 29] 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 (#$ . 1094)]) #@65 Return the day number within the year of the Islamic date DATE. (defalias 'calendar-islamic-day-number #[(date) "\211@)\302 \303\245\304_ S\303\245\305_\211A@)#)\207" [date month + 2 30 29] 5 (#$ . 1425)]) #@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@)\211A@)\3068)\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_ \307\245\315_ 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 (#$ . 1643)]) #@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 (#$ . 2330)]) #@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) "\306 \206 \307 \211\310 8)\311\211\312U\203 \313\314!\202k \312V\203\230 S\315 \211\211@) \211A@) \310 8) \fS\316_\\ \f\310V\203\204 \317\f\320_\\\321\245Z \211\312W\203e \322 !S \320\246\312U\205{ \323\246\312U?\206{ \324\246\312U)\203\204 T -\n\325_\n\320\245\n\323\245[\n\324\245%\202k\322 T!\326 \211\211@) \211A@) \310 8) \fS\316_\\ \f\310V\203\372 \317\f\320_\\\321\245Z \211\312W\203\333 \322 !S \320\246\312U\205\361 \323\246\312U?\206\361 \324\246\312U)\203\372 T -\n\325_\n\320\245\n\323\245[\n\324\245\327\211\327@) \211A@) \310 8) \fS\316_\\ \f\310V\203f \317\f\320_\\\321\245Z \211\312W\203G\322 !S \320\246\312U\205] \323\246\312U?\206] \324\246\312U)\203f T -&+! \310 8)\330W\203\201\331\202\207\332 \311\333#*\207" [calendar-islamic-month-name-array date offset-years year month day 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 day-of-year islamic-date calendar-month-name-array] 13 (#$ . 2908)]) #@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 (#$ . 4300) 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\314 8)\315\211\316U\203 \317\320!\202l \316V\203\231 S\321 \211\211@) \211A@) \314 8) \fS\322_\\ )\f\314V\203\205 )\323\f\324_\\\325\245Z) \211\316W\203f \326 !S \324\246\316U\205| \327\246\316U?\206| \330\246\316U)\203\205 )T))-\n\331_\n\324\245\n\327\245[\n\330\245%\202l\326 T!\332 \211\211@) \211A@) \314 8) \fS\322_\\ )\f\314V\203\373 )\323\f\324_\\\325\245Z) \211\316W\203\334 \326 !S \324\246\316U\205\362 \327\246\316U?\206\362 \330\246\316U)\203\373 )T))-\n\331_\n\324\245\n\327\245[\n\330\245\333\211\333@) \211A@) \314 8) \fS\322_\\ )\f\314V\203g)\323\f\324_\\\325\245Z) \211\316W\203H\326 !S \324\246\316U\205^ \327\246\316U?\206^ \330\246\316U)\203g)T))-&+!\314 8)!#* +\334 ,\335\336\337\340\341\342+\315\"\"\315\334$\343+\344\"\334#A \345\f \" -\307\346\347-\"\350\" \f E.C\207" [today date offset-years year month day 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] day-of-year calendar-islamic-month-name-array month-array completion-ignore-case last] 16 (#$ . 4631)]) #@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 (#$ . 6262) (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\310\n8)\311\211 \312U\203 \313\314!\202n\f\312V\203\227 \fS\315\n\211\211@) \n\211A@) \n\310\n8) S\316_\\ ! \310V\203\203 !\317 \320_\\\321\245Z!\f\211 \312W\203d \322\f!S\f\320\246\312U\205z \f\323\246\312U?\206z \f\324\246\312U)\203\203 !T!!- \325_ \320\245 \323\245[ \324\245%\202n\322\fT!\326\n\211\211@) \n\211A@) \n\310\n8) S\316_\\ ! \310V\203\373 !\317 \320_\\\321\245Z!\f\211 \312W\203\334 \322\f!S\f\320\246\312U\205\362 \f\323\246\312U?\206\362 \f\324\246\312U)\203\373 !T!!- \325_ \320\245 \323\245[ \324\245\327\211\327@) \n\211A@) \n\310\n8) S\316_\\ ! \310V\203i!\317 \320_\\\321\245Z!\f\211 \312W\203J\322\f!S\f\320\246\312U\205`\f\323\246\312U?\206`\f\324\246\312U)\203i!T!!-&+!\211 \"\211@) #\"\310\n8) $\311#\330W?\205\372\331\311 % &$\312W\203\236$T$\315$&_#\332\321 Z$%\333%&\"T#%&\245$%\312W\203\320#\330V\203\320$S$$\330W\203\334$S$*#\334V\205\372\335\336\337 $E!!\211!\205\372\n'DC,\207" [displayed-month displayed-year date offset-years year month 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 day day-of-year islamic-date m y macro-y nmonths string] 12 (#$ . 6613)]) #@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>\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 \"\211 #\322U\203\220 \"\211 \"\315W\203o \323\"!S\"\"\324\246\315U\205\210 \"\325\246\315U?\206\210 \"\326\246\315U)\203\220 \327\202\225 \330#SH*\nE\211 \322\f8)\314 $\211 \"\315U\203\260 \331\332!\2024\"\315V\203?\"S$\316\f\211 \211 @) #\f\211 A@) %\f \322\f8) \"%#S\333_\\ &#\322V\203'&\334#\324_\\\335\245Z&\"\211 \"\315W\203\323\"!S\"\"\324\246\315U\205 \"\325\246\315U?\206 \"\326\246\315U)\203'&T&&-$\336_$\324\245$\325\245[$\326\245%\2024\323\"T!$\337\f\211 \211 @) #\f\211 A@) %\f \322\f8) \"%#S\333_\\ &#\322V\203\261&\334#\324_\\\335\245Z&\"\211 \"\315W\203\217\323\"!S\"\"\324\246\315U\205\250\"\325\246\315U?\206\250\"\326\246\315U)\203\261&T&&-$\336_$\324\245$\325\245[$\326\245\340\211 \340@) #\f\211 A@) %\f \322\f8) \"%#S\333_\\ &#\322V\203/&\334#\324_\\\335\245Z&\"\211 \"\315W\203 \323\"!S\"\"\324\246\315U\205&\"\325\246\315U?\206&\"\326\246\315U)\203/&T&&-&+! \322\f8)\"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 year month offset-years day day-of-year] 15 (#$ . 8278)]) (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 (#$ . 9938)]) (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 (#$ . 10810)]) (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 (#$ . 11280)]) (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 (#$ . 11777) "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 (#$ . 12135) "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 (#$ . 12525) "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 (#$ . 12911)]) (provide 'cal-islam)