Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
27.1 /
lisp /
calendar /
[ HOME SHELL ]
Name
Size
Permission
Action
appt.elc
18.08
KB
-rw-r--r--
cal-bahai.elc
12.95
KB
-rw-r--r--
cal-china.elc
31.28
KB
-rw-r--r--
cal-coptic.elc
9.21
KB
-rw-r--r--
cal-dst.elc
17.74
KB
-rw-r--r--
cal-french.elc
9.24
KB
-rw-r--r--
cal-hebrew.elc
48.6
KB
-rw-r--r--
cal-html.elc
16.8
KB
-rw-r--r--
cal-islam.elc
13.12
KB
-rw-r--r--
cal-iso.elc
6.82
KB
-rw-r--r--
cal-julian.elc
7.3
KB
-rw-r--r--
cal-loaddefs.el
30.7
KB
-rw-r--r--
cal-mayan.elc
18.6
KB
-rw-r--r--
cal-menu.elc
9.79
KB
-rw-r--r--
cal-move.elc
14.58
KB
-rw-r--r--
cal-persia.elc
6.65
KB
-rw-r--r--
cal-tex.elc
75.79
KB
-rw-r--r--
cal-x.elc
4.45
KB
-rw-r--r--
calendar.elc
98.48
KB
-rw-r--r--
diary-lib.elc
103.09
KB
-rw-r--r--
diary-loaddefs.el
10.61
KB
-rw-r--r--
hol-loaddefs.el
5.11
KB
-rw-r--r--
holidays.elc
32.73
KB
-rw-r--r--
icalendar.elc
58.07
KB
-rw-r--r--
iso8601.elc
8.69
KB
-rw-r--r--
lunar.elc
12.5
KB
-rw-r--r--
parse-time.elc
5.46
KB
-rw-r--r--
solar.elc
38.31
KB
-rw-r--r--
time-date.elc
14.26
KB
-rw-r--r--
timeclock.elc
46.18
KB
-rw-r--r--
todo-mode.elc
195.44
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : cal-islam.elc
;ELC ;;; Compiled ;;; in Emacs version 27.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 >\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!\202[\310V\203\221 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\203\262\323_\316\245\321\245[\322\245%\202[\320T!\262\324\211\211@\262\211A@\262\3068\262\314S_\\\306V\203\356 \211\315\316_\\\317\245Z\262\211\310W\203\317 \320!S\262\211\316\246\310U\205\345 \211\321\246\310U?\206\345 \211\322\246\310U\262\203\356 \211T\262\266\203\262\323_\316\245\321\245[\322\245\325\211\211@\262\211A@\262\3068\262\314S_\\\306V\203U\211\315\316_\\\317\245Z\262\211\310W\2036\320!S\262\211\316\246\310U\205L\211\321\246\310U?\206L\211\322\246\310U\262\203U\211T\262\266\203\262&\266\203!\n\3068\262\326W\203o\327\202t\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 (#$ . 4391) 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!\202\\\316V\203\222 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\203\262\331_\324\245\327\245[\330\245%\202\\\326T!\262\332\211\211@\262\211A@\262\3148\262\322S_\\\314V\203\357 \211\323\324_\\\325\245Z\262\211\316W\203\320 \326!S\262\211\324\246\316U\205\346 \211\327\246\316U?\206\346 \211\330\246\316U\262\203\357 \211T\262\266\203\262\331_\324\245\327\245[\330\245\333\211\211@\262\211A@\262\3148\262\322S_\\\314V\203V\211\323\324_\\\325\245Z\262\211\316W\2037\326!S\262\211\324\246\316U\205M\211\327\246\316U?\206M\211\330\246\316U\262\203V\211T\262\266\203\262&\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 (#$ . 4722)]) #@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 (#$ . 6433) (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!\202X\312V\203\216 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\203\262\325_\320\245\323\245[\324\245%\202X\322T!\262\326\211\211@\262\211A@\262\3108\262\316S_\\\310V\203\353 \211\317\320_\\\321\245Z\262\211\312W\203\314 \322!S\262\211\320\246\312U\205\342 \211\323\246\312U?\206\342 \211\324\246\312U\262\203\353 \211T\262\266\203\262\325_\320\245\323\245[\324\245\327\211\211@\262\211A@\262\3108\262\316S_\\\310V\203R\211\317\320_\\\321\245Z\262\211\312W\2033\322!S\262\211\320\246\312U\205I\211\323\246\312U?\206I\211\324\246\312U\262\203R\211T\262\266\203\262&\266\203!\211\211@\262\n\3108\262 \311 \330W?\205\323\331\311 !\f\312W\203\201\fT\315\f!_ \332\321\"Z$ \333 !\"T !\245 \312W\203\255 \330V\203\255\fS\f\330W\203\266\fS* \334V\205\323\335\336\337\"#\fE!!\211!\205\323 $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 (#$ . 6784)]) #@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\356\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\343\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\203\262\336_\324\245\325\245[\326\245%\202\343\323T!\262\337\211\211@\262\211A@\262\3228\262\333S_\\\322V\203v\211\334\324_\\\335\245Z\262\211\315W\203W\323!S\262\211\324\246\315U\205m\211\325\246\315U?\206m\211\326\246\315U\262\203v\211T\262\266\203\262\336_\324\245\325\245[\326\245\340\211\211@\262\211A@\262\3228\262\333S_\\\322V\203\335\211\334\324_\\\335\245Z\262\211\315W\203\276\323!S\262\211\324\246\315U\205\324\211\325\246\315U?\206\324\211\326\246\315U\262\203\335\211T\262\266\203\262&\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 (#$ . 8503)]) (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 (#$ . 10183)]) (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 (#$ . 11056)]) (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 (#$ . 11526)]) (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 (#$ . 12023) "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 (#$ . 12381) "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 (#$ . 12771) "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 (#$ . 13157)]) (provide 'cal-islam)
Close
