| Server IP : 217.160.0.212 / Your IP : 216.73.216.141 Web Server : Apache System : Linux www 6.18.51-i1-ampere #1196 SMP Fri Sep 11 20:43:55 CEST 2026 aarch64 User : sws1073854427 ( 1073854427) PHP Version : 8.4.23 Disable Function : NONE MySQL : OFF | cURL : ON | WGET : ON | Perl : ON | Python : OFF | Sudo : OFF | Pkexec : OFF Directory : /usr/share/emacs/28.2/lisp/calendar/ |
Upload File : |
;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.
(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\301&\210\312\313\314\315\316DD\317\320\321\311\304&\210\312\322\314\315\323DD\324\320\325\311\304&\210\312\326\314\315\327DD\330\320\331\311\304&\210\312\332\314\315\333DD\334\335\336\320\337\311\304& \210\312\340\314\315\341DD\342\343\344\320\325\311\304& \210\312\345\314\315\346DD\347\320\321\343\344\311\304& \207" [require calendar diary-lib custom-declare-group calendar-html nil "Options for HTML calendars." :prefix "cal-html-" :group custom-declare-variable cal-html-directory funcall function #[0 "\300\207" ["~/public_html"] 1 #1=""] "Directory for HTML pages generated by cal-html." :type string cal-html-print-day-number-flag #[0 "\300\207" [nil] 1 #1#] "Non-nil means print the day-of-the-year number in the monthly cal-html page." boolean cal-html-year-index-cols #[0 "\300\207" [3] 1 #1#] "Number of columns in the cal-html yearly index page." integer cal-html-day-abbrev-array #[0 "\207" [calendar-day-abbrev-array] 1 #1#] "Array of seven strings for abbreviated day names (starting with Sunday)." :set-after (calendar-day-abbrev-array) (vector (string :tag "Sun") (string :tag "Mon") (string :tag "Tue") (string :tag "Wed") (string :tag "Thu") (string :tag "Fri") (string :tag "Sat")) cal-html-holidays #[0 "\300\207" [t] 1 #1#] "If non-nil, include holidays as well as diary entries." :version "24.3" cal-html-css-default #[0 "\300\207" ["<STYLE TYPE=\"text/css\">\n BODY { background: #bde; }\n H1 { text-align: center; }\n TABLE { padding: 2pt; }\n TH { background: #dee; }\n TABLE.year { width: 100%; }\n TABLE.agenda { width: 100%; }\n TABLE.header { width: 100%; text-align: center; }\n TABLE.minical TD { background: white; text-align: center; }\n TABLE.agenda TD { background: white; text-align: left; }\n TABLE.agenda TH { text-align: left; width: 20%; }\n SPAN.NO-YEAR { color: #0b3; font-weight: bold; }\n SPAN.ANN { color: #0bb; font-weight: bold; }\n SPAN.BLOCK { color: #048; font-style: italic; }\n SPAN.HOLIDAY { color: #f00; font-weight: bold; }\n</STYLE>\n\n"] 1 #1#] "Default cal-html css style. You can override this with a \"cal.css\" file."] 10)
#@28 HTML code for end of page.
(defconst cal-html-e-document-string "<BR><BR>\n</BODY>\n</HTML>" (#$ . 2274))
#@39 HTML code for beginning of table row.
(defconst cal-html-b-tablerow-string "<TR>\n" (#$ . 2386))
#@33 HTML code for end of table row.
(defconst cal-html-e-tablerow-string "</TR>\n" (#$ . 2489))
#@40 HTML code for beginning of table data.
(defconst cal-html-b-tabledata-string " <TD>" (#$ . 2587))
#@34 HTML code for end of table data.
(defconst cal-html-e-tabledata-string " </TD>\n" (#$ . 2692))
#@42 HTML code for beginning of table header.
(defconst cal-html-b-tableheader-string " <TH>" (#$ . 2794))
#@36 HTML code for end of table header.
(defconst cal-html-e-tableheader-string " </TH>\n" (#$ . 2903))
#@29 HTML code for end of table.
(defconst cal-html-e-table-string "</TABLE>\n<!-- ================================================== -->\n" (#$ . 3009))
#@67 HTML code for a day in the minical - links NUM to month-page#NUM.
(defconst cal-html-minical-day-format " <TD><a href=%s#%d>%d</TD>\n" (#$ . 3164))
#@30 Initial block for html page.
(defconst cal-html-b-document-string (concat "<HTML>\n<HEAD>\n<TITLE>Calendar</TITLE>\n<!--This buffer was produced by cal-html.el-->\n\n" cal-html-css-default "<LINK REL=\"stylesheet\" TYPE=\"text/css\" HREF=\"cal.css\">\n</HEAD>\n\n<BODY>\n\n") (#$ . 3319))
#@47 Alist of symbols and their HTML replacements.
(defconst cal-html-html-subst-list '(("&" . "&") ("\n" . "<BR>\n")) (#$ . 3614))
#@45 Return STRING as html comment.
(fn STRING)
(defalias 'cal-html-comment #[257 "\300\301\302\303\304#\"\207" [format "<!-- ====== %s ====== -->\n" string-replace "--" "++"] 7 (#$ . 3751)])
#@68 Return a hyperlink to url LINK with text STRING.
(fn LINK STRING)
(defalias 'cal-html-href #[514 "\300\301#\207" [format "<A HREF=\"%s\">%s</A>"] 6 (#$ . 3950)])
#@47 Return STRING as html header h3.
(fn STRING)
(defalias 'cal-html-h3 #[257 "\300\301\"\207" [format "\n <H3>%s</H3>\n"] 4 (#$ . 4121)])
#@47 Return STRING as html header h1.
(fn STRING)
(defalias 'cal-html-h1 #[257 "\300\301\"\207" [format "\n <H1>%s</H1>\n"] 4 (#$ . 4271)])
#@50 Return STRING as html table header.
(fn STRING)
(defalias 'cal-html-th #[257 "\302\303 $\207" [cal-html-b-tableheader-string cal-html-e-tableheader-string format "%s%s%s"] 6 (#$ . 4421)])
#@48 Return table tag with attribute ARG.
(fn ARG)
(defalias 'cal-html-b-table #[257 "\300\301\"\207" [format "\n<TABLE %s>\n"] 4 (#$ . 4618)])
#@122 Return name of html page for numeric MONTH and four-digit YEAR.
For example, "2006-08.html" for 8 2006.
(fn MONTH YEAR)
(defalias 'cal-html-monthpage-name #[514 "\300\301#\207" [format "%d-%.2d.html"] 6 (#$ . 4766)])
#@238 Insert a link to the html page for numeric MONTH and four-digit YEAR.
If optional argument CHANGE-DIR is non-nil and MONTH is 1 or 2,
the link points to a different year and so has a directory part.
(fn MONTH YEAR &optional CHANGE-DIR)
(defalias 'cal-html-insert-link-monthpage #[770 "\300\301\205 \302>\205 \303\304\"\305\"P\306!\"!c\207" [cal-html-h3 cal-html-href (1 12) format "../%d/" cal-html-monthpage-name calendar-month-name] 9 (#$ . 4993)])
#@91 Insert a link tagged with MONTH name, to index page for four-digit YEAR.
(fn MONTH YEAR)
(defalias 'cal-html-insert-link-yearpage #[514 "\300\301\302\303!\304\305\306!\"#!c\207" [cal-html-h1 format "%s %s" calendar-month-name cal-html-href "index.html" number-to-string] 10 (#$ . 5462)])
#@166 Prompt for the html calendar output directory for four-digit YEAR.
Return the expanded directory name, which is based on
`cal-html-directory' by default.
(fn YEAR)
(defalias 'cal-html-year-dir-ask-user #[257 "\301\302\303\301\304\305\"\"\"!\207" [cal-html-directory expand-file-name read-directory-name "Enter HTML calendar directory name: " format "%d"] 8 (#$ . 5761)])
#@157 Insert the header for the numeric MONTH page for four-digit YEAR.
Contains links to previous and next month and year, and current minical.
(fn MONTH YEAR)
(defalias 'cal-html-insert-month-header #[514 "\305\306!c\210c\210 c\210\307\310W\203 T\262\311\312_\313\211$\262\314\312\"T\262\211\312\245\262\211\310W\203< \315V\203< S\262\315W\203F S\262\210\316\317#\210\307\310W\203X T\262\311\312_\313\315$\262\314\312\"T\262\211\312\245\262\211\310W\203~ \315V\203~ S\262\315W\203\210 S\262\210\320\"\210\307\310W\203\231 T\262\311\312_\313\315$\262\314\312\"T\262\211\312\245\262\211\310W\203\277 \315V\203\277 S\262\315W\203\311 S\262\210\316\317#\210\nc\210 c\210\307\310W\203\341 T\262\311\312_\313\211$\262\314\312\"T\262\211\312\245\262\211\310W\203\315V\203S\262\315W\203S\262\210\321\"\210\nc\210 c\210\fc\207" [cal-html-b-tablerow-string cal-html-b-tabledata-string cal-html-e-tabledata-string cal-html-e-tablerow-string cal-html-e-table-string cal-html-b-table "class=header" nil 0 + 12 -1 mod 1 cal-html-insert-link-monthpage t cal-html-insert-link-yearpage cal-html-insert-minical] 8 (#$ . 6143)])
(autoload 'holiday-in-range "holidays")
#@62 Insert a minical for numeric MONTH of YEAR.
(fn MONTH YEAR)
(defalias 'cal-html-insert-minical #[514 "\306\307\310E!Z\311\"\312U\203A \211\211\313W\203 \314!S\262\211\315\246\313U\2056 \211\316\246\313U?\2066 \211\317\246\313U\262\203A \266\320\202G \321SH\266\202\306\322\307E!ZZ\311\"\323\"\324\325!\326\327!\261\210 c\210\313\211\311W\203\200 \330\n\306\\\311\"H!c\210\211T\262\202g \210 c\210 c\210\313\211W\203\234 \331\f
\261\266\211T\262\202\210 \210\313\211W\203\316 \332 \211T$c\210\306T\\\311\"\313U\203\307 \211TU\204\307 \261\210\211T\262\202\236 \210\313\211W\203\344 \331\f
\261\266\211T\262\202\320 \266 \324\333!\261\207" [calendar-week-start-day cal-html-b-tablerow-string cal-html-day-abbrev-array cal-html-e-tablerow-string cal-html-b-tabledata-string cal-html-e-tabledata-string mod calendar-day-of-week 1 7 2 0 abs 4 100 400 29 [31 28 31 30 31 30 31 31 30 31 30 31] 6 cal-html-monthpage-name cal-html-comment "MINICAL" cal-html-b-table "class=minical border=1 align=center" cal-html-th nil format "MINICAL end" cal-html-minical-day-format cal-html-e-table-string] 12 (#$ . 7372)])
#@119 Make a one page yearly mini-calendar for four-digit YEAR.
There are 12/cols rows of COLS months each.
(fn YEAR COLS)
(defalias 'cal-html-insert-year-minicals #[514 "c\210\306\307!!c\210\310\311! \261\210\312\211\313W\203@ \nc\210\314T\"\210\315T\"\210 c\210\316T\"\312U\2039 \f \261\210\211T\262\202 \210\f
\261\207" [cal-html-b-document-string cal-html-b-tablerow-string cal-html-b-tabledata-string cal-html-e-tabledata-string cal-html-e-tablerow-string cal-html-e-table-string cal-html-h1 number-to-string cal-html-b-table "class=year" 0 12 cal-html-insert-link-monthpage cal-html-insert-minical mod cal-html-e-document-string] 6 (#$ . 8530)])
#@127 Protect special characters in STRING from HTML.
Characters are replaced according to `cal-html-html-subst-list'.
(fn STRING)
(defalias 'cal-html-htmlify-string #[257 "\211;\203 \301\302\303\304\"!\305#\207\306\207" [cal-html-html-subst-list replace-regexp-in-string regexp-opt mapcar car #[257 "\301\"A\207" [cal-html-html-subst-list assoc] 4 "\n\n(fn X)"] ""] 6 (#$ . 9199)])
#@158 Convert a diary entry ENTRY to html with the appropriate class specifier.
Optional argument CLASS is the class specifier to use.
(fn ENTRY &optional CLASS)
(defalias 'cal-html-htmlify-entry #[513 "\211\2061 \300\301\3028\"\203 \303\2021 \300\304\3028\"\203 \305\2021 \300\306\302@8!\3028\"\2040 \307\2021 \310\311\312\313A@!#\207" [string-match "block" 2 "BLOCK" "anniversary" "ANN" number-to-string "NO-YEAR" "NORMAL" format "<span class=%s>%s</span>" cal-html-htmlify-string] 8 (#$ . 9589)])
#@282 Return a string of concatenated, HTML-ified diary entries.
DATE-LIST is a list of diary entries. Return only those matching DATE.
Optional argument HOLIDAYS non-nil means the input is actually a list
of holidays, rather than diary entries.
(fn DATE-LIST DATE &optional HOLIDAYS)
(defalias 'cal-html-htmlify-list #[770 "\300\301\302\"\303\211\203' \211@\211@\203 \304@\"\203 \211B\262A\266\202\202 \305!\262\262\306#\207" [mapconcat make-closure #[257 "\301\300\205 \302\"\207" [V0 cal-html-htmlify-entry "HOLIDAY"] 4 "\n\n(fn X)"] nil calendar-date-equal reverse "<BR>\n "] 11 (#$ . 10100)])
#@79 Generate a list of all diary-entries from absolute date D1 to D2.
(fn D1 D2)
(defalias 'cal-html-list-diary-entries #[514 "\3001\n \301 0\202 \302\303\"\210\304\262\205 \305\306!ZT\307#\207" [(debug error) diary-check-diary-file message "Not adding diary entries: %S" nil diary-list-entries calendar-gregorian-from-absolute t] 6 (#$ . 10720)])
#@255 Insert HTML commands for a range of days in monthly calendars.
HTML commands are inserted for the days of the numeric MONTH in
four-digit YEAR. Includes diary entries in DIARY-LIST, and
holidays in HOLIDAY-LIST.
(fn MONTH YEAR DIARY-LIST HOLIDAY-LIST)
(defalias 'cal-html-insert-agenda-days #[1028 "\306\307\310E!Z\311\"\312U\203B \211\211\313W\203! \314!S\262\211\315\246\313U\2057 \211\316\246\313U?\2067 \211\317\246\313U\262\203B \266\320\202H \321SH\266\202\322\323c\210\324\325!c\210\313\211W\203 TE\262\326\327T\" \n \203\313 \326\330\211\211@\262\211A@\262\3128\262\331S_\\\312V\203\305 \211\332\315_\\\333\245Z\262\211\313W\203\246 \314!S\262\211\315\246\313U\205\274 \211\316\246\313U?\206\274 \211\317\246\313U\262\203\305 \211T\262\266\204\"\202\314 \334\326\335T\f\307\n!H#
!\336\f\n\337#\f\203\360
\203\360 \340\202\361 \334\336\f\"\"#\261\f\210\306T\\\311\"\313U\203\211TU\204$\324\325!\261\210\211T\262\202R \266$c\207" [calendar-week-start-day cal-html-b-tablerow-string cal-html-b-tableheader-string cal-html-print-day-number-flag calendar-day-name-array cal-html-e-tableheader-string mod calendar-day-of-week 1 7 2 0 abs 4 100 400 29 [31 28 31 30 31 30 31 31 30 31 30 31] nil "<a name=0>\n" cal-html-b-table "class=agenda border=1" format "<a name=%d></a>\n" "<em>%d</em> " 31 23 10 "" "%d %s" cal-html-htmlify-list t "<BR>\n" cal-html-b-tabledata-string cal-html-e-tabledata-string cal-html-e-tablerow-string cal-html-e-table-string] 22 (#$ . 11079)])
#@94 Write an HTML calendar file for numeric MONTH of YEAR in directory DIR.
(fn MONTH YEAR DIR)
(defalias 'cal-html-one-month #[771 "\303E\211\3048\262\305\306U\203 \307\310!\266\203\202W\306V\203\217 S\262\311\211\211@\262\211A@\262\3048\262\312S_\\\304V\203z \211\313\314_\\\315\245Z\262\211\306W\203[ \316!S\262\211\314\246\306U\205q \211\317\246\306U?\206q \211\320\246\306U\262\203z \211T\262\266\204\321_\314\245\317\245[\320\245%\266\203\202W\316T!\262\322\211\211@\262\211A@\262\3048\262\312S_\\\304V\203\354 \211\313\314_\\\315\245Z\262\211\306W\203\315 \316!S\262\211\314\246\306U\205\343 \211\317\246\306U?\206\343 \211\320\246\306U\262\203\354 \211T\262\266\204\321_\314\245\317\245[\320\245\323\211\211@\262\211A@\262\3048\262\312S_\\\304V\203Q\211\313\314_\\\315\245Z\262\211\306W\2032\316!S\262\211\314\246\306U\205H\211\317\246\306U?\206H\211\320\246\306U\262\203Q\211T\262\266\204&\266\203\211\304U\203\216\211\211\306W\203m\316!S\262\211\314\246\306U\205\203\211\317\246\306U?\206\203\211\320\246\306U\262\203\216\266\324\202\224\325SH\266\202E\211\3048\262\305\306U\203\253\307\310!\266\203\202\351\306V\203!S\262\311\211\211@\262\211A@\262\3048\262\312S_\\\304V\203\f\211\313\314_\\\315\245Z\262\211\306W\203\355\316!S\262\211\314\246\306U\205\211\317\246\306U?\206\211\320\246\306U\262\203\f\211T\262\266\204\321_\314\245\317\245[\320\245%\266\203\202\351\316T!\262\322\211\211@\262\211A@\262\3048\262\312S_\\\304V\203~\211\313\314_\\\315\245Z\262\211\306W\203_\316!S\262\211\314\246\306U\205u\211\317\246\306U?\206u\211\320\246\306U\262\203~\211T\262\266\204\321_\314\245\317\245[\320\245\323\211\211@\262\211A@\262\3048\262\312S_\\\304V\203\343\211\313\314_\\\315\245Z\262\211\306W\203\304\316!S\262\211\314\246\306U\205\332\211\317\246\306U?\206\332\211\320\246\306U\262\203\343\211T\262\266\204&\266\203\326\"\205\365\327\"\330\331\332\"r\211q\210\333\334\"\216 c\210\335\"\210\336$\210\nc\210\337\340\341\n\n\"\"!*\207" [cal-html-holidays cal-html-b-document-string cal-html-e-document-string 1 2 nil 0 user-error "There was no year zero" + 31 23 4 10 abs 100 400 365 - (12 31 -1) 29 [31 28 31 30 31 30 31 31 30 31 30 31] cal-html-list-diary-entries holiday-in-range generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] cal-html-insert-month-header cal-html-insert-agenda-days write-file expand-file-name cal-html-monthpage-name] 22 (#$ . 12641)])
#@283 Write an HTML calendar file for numeric MONTH of four-digit YEAR.
The output directory DIR is created if necessary. Interactively,
MONTH and YEAR are taken from the calendar cursor position.
Note that any existing output files are overwritten.
(fn MONTH YEAR DIR &optional EVENT)
(defalias 'cal-html-cursor-month #[1027 "\300\301\"\210\302#\207" [make-directory t cal-html-one-month] 8 (#$ . 15285) (byte-code "\301\302\"\211\211@\262\3038\262\304!F\207" [last-nonmenu-event calendar-cursor-to-date t 2 cal-html-year-dir-ask-user] 8)])
#@273 Write HTML calendar files (index and monthly pages) for four-digit YEAR.
The output directory DIR is created if necessary. Interactively,
YEAR is taken from the calendar cursor position.
Note that any existing output files are overwritten.
(fn YEAR DIR &optional EVENT)
(defalias 'cal-html-cursor-year #[770 "\301\302\"\210\303\304\302\"r\211q\210\305\306\"\216\307\"\210\310\311\312\"!\210*\210\313\211\314W\2055 \315T#\210\211T\262\202! \207" [cal-html-year-index-cols make-directory t generate-new-buffer " *temp*" make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] cal-html-insert-year-minicals write-file expand-file-name "index.html" 0 12 cal-html-one-month] 8 (#$ . 15845) (byte-code "\301\302\"\3038\262\211\304!E\207" [last-nonmenu-event calendar-cursor-to-date t 2 cal-html-year-dir-ask-user] 5)])
(provide 'cal-html)