;ELC ;;; compiled by rms@mole.gnu.ai.mit.edu on Tue Feb 27 23:46:22 1996 ;;; from file /home/fsf/rms/e19/lisp/holidays.el ;;; emacs version 19.30.92.1. ;;; bytecomp version FSF 2.10 ;;; optimization is on. ;;; this file uses opcodes which do not exist in Emacs 18. (if (and (boundp 'emacs-version) (or (and (boundp 'epoch::version) epoch::version) (string-lessp emacs-version "19.29"))) (error "`holidays.el' was compiled for Emacs 19.29 or later")) (require (quote calendar)) #@48 Holiday on MONTH, DAY (Julian) called STRING. (autoload (quote holiday-julian) "cal-julian" '(#$ . 501) t) #@47 Holiday on MONTH, DAY (Hebrew) called STRING. (autoload (quote holiday-hebrew) "cal-hebrew" '(#$ . 615) t) #@72 List of dates related to Rosh Hashanah, as visible in calendar window. (autoload (quote holiday-rosh-hashanah-etc) "cal-hebrew" '(#$ . 728) t) #@67 List of dates related to Hanukkah, as visible in calendar window. (autoload (quote holiday-hanukkah) "cal-hebrew" '(#$ . 877) t) #@67 List of dates related to Passover, as visible in calendar window. (autoload (quote holiday-passover-etc) "cal-hebrew" '(#$ . 1012) t) #@65 List of dates around Tisha B'Av, as visible in calendar window. (autoload (quote holiday-tisha-b-av-etc) "cal-hebrew" '(#$ . 1152) t) #@48 Holiday on MONTH, DAY (Islamic) called STRING. (autoload (quote holiday-islamic) "cal-islam" '(#$ . 1292) t) #@27 Date of Chinese New Year. (autoload (quote holiday-chinese-new-year) "cal-china" '(#$ . 1407) t) #@103 Date and time of equinoxes and solstices, if visible in the calendar window. Requires floating point. (autoload (quote solar-equinoxes-solstices) "solar" '(#$ . 1511) t) #@197 Display the holidays for last month, this month, and next month. If called with an optional prefix argument, prompts for month and year. This function is suitable for execution in a .emacs file. (defalias 'holidays #[(&optional arg) "\n ! @) AA@) -" [t completion-ignore-case arg calendar-read-date calendar-current-date date displayed-month displayed-year list-calendar-holidays] 3 (#$ . 1688) "P"]) #@184 Check the list of holidays for any that occur on DATE. The value returned is a list of strings of relevant holiday descriptions. The holidays are those in the list calendar-holidays. (defalias 'check-calendar-holidays #[(date) "@)AA@) \f1\f@@\"*\f@A\"\fA," [date displayed-month displayed-year calendar-holiday-list h nil holiday-list calendar-date-equal append] 4 (#$ . 2120)]) #@76 Find holidays for the date specified by the cursor in the calendar window. (defalias 'calendar-cursor-holidays #[nil "!!\f!\f!#\f\f#0\"lG XA\"l!q! #ceb!!!-" [message "Checking holidays..." calendar-cursor-to-date t date calendar-date-string date-string check-calendar-holidays holiday-list mapconcat identity "; " holiday-string format "%s: %s" msg "No holidays known for %s" frame-width "%s" get-buffer-create holiday-buffer nil buffer-read-only calendar-set-mode-line erase-buffer "\n" set-buffer-modified-p display-buffer "Checking holidays...done"] 4 (#$ . 2537) nil]) #@43 Mark notable days in the calendar window. (defalias 'mark-calendar-holidays #[nil "!  @@\" A )!" [t mark-holidays-in-calendar message "Marking holidays..." calendar-holiday-list holiday-list mark-visible-calendar-date calendar-holiday-marker "Marking holidays...done"] 4 (#$ . 3197) nil]) #@182 Create a buffer containing the holidays for the current calendar window. The holidays are those in the list calendar-notable-days. Returns t if any holidays are found, nil if not. (defalias 'list-calendar-holidays #[nil "! \f \f !˂ !q_\\\\ϦTϥ) _\\\\\\ϦTϥ) Uo!! $}!! %!  #ceb! !!-" [message "Looking up holidays..." calendar-holiday-list displayed-month displayed-year y2 m2 y1 m1 holiday-list "Looking up holidays...none found" nil get-buffer-create holiday-buffer buffer-read-only 12 -2 macro-y -1 1 calendar-set-mode-line format "Notable Dates from %s to %s, %d%%-" calendar-month-name "Notable Dates from %s, %d to %s, %d%%-" erase-buffer mapconcat #[(x) " @! A@Q" [calendar-date-string x ": "] 3] "\n" set-buffer-modified-p t display-buffer "Looking up holidays...done"] 8 (#$ . 3515) nil]) #@125 Form the list of holidays that occur on dates in the calendar window. The holidays are those in the list calendar-holidays. (defalias 'calendar-holiday-list #[nil "/\f @!)ɏ\n'\n\n\") A\n\"*" [calendar-holidays nil holiday-list p calendar-debug-sexp t stack-trace-on-error eval (byte-code " @!" [eval p] 2) ((error (byte-code " @\"!" [beep message "Bad holiday list item: %s" p sleep-for 2] 3))) holidays append sort calendar-date-compare] 4 (#$ . 4430)]) #@202 Holiday on MONTH, DAY (Gregorian) called STRING. If MONTH, DAY is visible, the value returned is the list (((MONTH DAY year) STRING)). Returns nil if it is not visible in the current calendar window. (defalias 'holiday-fixed #[(month day string) " \n_ \\Z\\\\ĦTĥ) V-\n\nE DC*" [displayed-month displayed-year y m 12 11 month -1 macro-y 9 day string] 4 (#$ . 4940)]) #@356 Holiday on MONTH, DAYNAME (Nth occurrence, Gregorian) called STRING. If the Nth DAYNAME in MONTH is visible, the value returned is the list (((MONTH DAY year) STRING)). If N<0, count backward from the end of MONTH. An optional parameter DAY means the Nth DAYNAME after/before MONTH DAY. Returns nil if it is not visible in the current calendar window. (defalias 'holiday-float #[(month dayname n string &optional day) " \n_ \\Z\\\\ĦTĥ) V2 \f\n %DC*" [displayed-month displayed-year y m 12 11 month -1 macro-y 9 calendar-nth-named-day n dayname day string] 7 (#$ . 5339)]) #@349 Sexp holiday for dates in the calendar window. SEXP is an expression in variable `year' evaluates to `date'. STRING is an expression in `date' that evaluates to the holiday description of `date'. If `date' is visible in the calendar window, the holiday STRING is on that date. If date is nil, or if the date is not visible, there is no holiday. (defalias 'holiday-sexp #[(sexp string) " \n_ \\\\ĦTĥ)\n  !\f+ ! \f +DC\nT  !\fF ! \f +DC\"!*" [displayed-month displayed-year y m 12 -2 macro-y filter-visible-calendar-holidays append year eval sexp date string] 6 (#$ . 5950)]) #@48 Date of Advent, if visible in calendar window. (defalias 'holiday-advent #[nil " _\n\\\\ĦTĥ) E  AA@)S\f   @)  A@)   AA@) \nS_\\\nV\n_\\ӥZ ѦU~ ԦU?~ զU)T-\f_\\\fѥ\\\fԥ[\\\fե\\*\"!!DC+" [displayed-year displayed-month month year 12 -2 macro-y calendar-gregorian-from-absolute calendar-dayname-on-or-before 0 3 date prior-years day 31 day-of-year 2 4 23 10 100 400 365 advent calendar-date-is-visible-p "Advent"] 9 (#$ . 6574)]) #@65 List of dates related to Easter, as visible in calendar window. (defalias 'holiday-easter-etc #[nil "V\n?? ĥT Ʀ_ _ɥ[\\ _\\˥\\ _\\\\̦UDUJ ƦWJTL EAA@)S@)A@)AA@)S_\\V_\\ѥZɦUĦU?ܦU)T-_\\ɥ\\ĥ[\\ܥ\\*Z\\\"!!!D!Z!D!Z!DE'!Z!D!Z!D!Z!D!Z!D!Z!D!Z!D!Z!D!Z!D!\\!D!\\!D!\\!D!\\!D!\\!D!\\!D?@'!A\nB@?!A\"AA." [displayed-month 5 all-christian-calendar-holidays displayed-year 100 century 19 11 3 4 8 25 30 14 shifted-epact 0 1 10 adjusted-epact date prior-years month day year 31 day-of-year 2 23 400 365 paschal-moon calendar-dayname-on-or-before 7 abs-easter calendar-gregorian-from-absolute "Easter Sunday" "Good Friday" 46 "Ash Wednesday" mandatory 63 "Septuagesima Sunday" 56 "Sexagesima Sunday" 49 "Shrove Sunday" 48 "Shrove Monday" 47 "Shrove Tuesday" "Passion Sunday" "Palm Sunday" "Maundy Thursday" 35 "Rogation Sunday" 39 "Ascension Day" "Pentecost (Whitsunday)" 50 "Whitmonday" "Trinity Sunday" 60 "Corpus Christi" optional filter-visible-calendar-holidays output-list append] 17 (#$ . 7100)]) #@64 Date of Easter according to the rule of the Council of Nicaea. (defalias 'holiday-greek-orthodox-easter #[nil " \n_ \\\\\\ĦTĥ) \n \nUL  ̦UD ΦU?D ϦU)LЂQ\nSH*\nEAA@)S@)\nA@)AA@) \nS_\\\nV\n_\\إZ  ̦U ΦU? ϦU)T-_\\̥\\Υ[\\ϥ\\*!AA@)ۦ_\\ަE!Z!!\\\"!%%!%DC." [displayed-month displayed-year y m 12 -1 1 macro-y calendar-julian-from-absolute year month 2 4 0 100 400 29 [31 28 31 30 31 30 31 31 30 31 30 31] date prior-years day 31 day-of-year 23 10 365 julian-year 19 11 14 30 shifted-epact calendar-absolute-from-julian paschal-moon calendar-gregorian-from-absolute calendar-dayname-on-or-before 7 nicaean-easter calendar-date-is-visible-p "Pascha (Greek Orthodox Easter)"] 7 (#$ . 8332)]) #@54 Return a list of all visible holidays of those on L. (defalias 'filter-visible-calendar-holidays #[(l) " \n$\n@@\n@@!\n@C \"\nA *" [nil l p visible calendar-date-is-visible-p append] 4 (#$ . 9185)]) (provide (quote holidays))