| Current File : //proc/thread-self/root/kunden/usr/share/emacs/27.2/lisp/calendar/cal-html.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.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\303\304\305\306\307\310\311\301&\210\312\313\314\315\316\317\311\304&\210\312\320\305\321\316\322\311\304&\210\312\323\324\325\316\326\311\304&\210\312\327\330\331\332\333\316\334\311\304& \210\312\335\336\337\340\341\316\322\311\304& \210\312\342\343\344\316\317\340\341\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 "~/public_html" "Directory for HTML pages generated by cal-html." :type string cal-html-print-day-number-flag "Non-nil means print the day-of-the-year number in the monthly cal-html page." boolean cal-html-year-index-cols 3 "Number of columns in the cal-html yearly index page." integer cal-html-day-abbrev-array calendar-day-abbrev-array "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 t "If non-nil, include holidays as well as diary entries." :version "24.3" cal-html-css-default (concat "<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") "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>" (#$ . 2428))
#@39 HTML code for beginning of table row.
(defconst cal-html-b-tablerow-string "<TR>\n" (#$ . 2540))
#@33 HTML code for end of table row.
(defconst cal-html-e-tablerow-string "</TR>\n" (#$ . 2643))
#@40 HTML code for beginning of table data.
(defconst cal-html-b-tabledata-string " <TD>" (#$ . 2741))
#@34 HTML code for end of table data.
(defconst cal-html-e-tabledata-string " </TD>\n" (#$ . 2846))
#@42 HTML code for beginning of table header.
(defconst cal-html-b-tableheader-string " <TH>" (#$ . 2948))
#@36 HTML code for end of table header.
(defconst cal-html-e-tableheader-string " </TH>\n" (#$ . 3057))
#@29 HTML code for end of table.
(defconst cal-html-e-table-string "</TABLE>\n<!-- ================================================== -->\n" (#$ . 3163))
#@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" (#$ . 3318))
#@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") (#$ . 3473))
#@47 Alist of symbols and their HTML replacements.
(defconst cal-html-html-subst-list '(("&" . "&") ("\n" . "<BR>\n")) (#$ . 3768))
#@32 Return STRING as html comment.
(defalias 'cal-html-comment #[(string) "\301\302\303\304\305#\"\207" [string format "<!-- ====== %s ====== -->\n" replace-regexp-in-string "--" "++"] 6 (#$ . 3905)])
#@50 Return a hyperlink to url LINK with text STRING.
(defalias 'cal-html-href #[(link string) "\302\303 #\207" [link string format "<A HREF=\"%s\">%s</A>"] 4 (#$ . 4113)])
#@34 Return STRING as html header h3.
(defalias 'cal-html-h3 #[(string) "\301\302\"\207" [string format "\n <H3>%s</H3>\n"] 3 (#$ . 4288)])
#@34 Return STRING as html header h1.
(defalias 'cal-html-h1 #[(string) "\301\302\"\207" [string format "\n <H1>%s</H1>\n"] 3 (#$ . 4437)])
#@37 Return STRING as html table header.
(defalias 'cal-html-th #[(string) "\303\304 \n$\207" [cal-html-b-tableheader-string string cal-html-e-tableheader-string format "%s%s%s"] 5 (#$ . 4586)])
#@38 Return table tag with attribute ARG.
(defalias 'cal-html-b-table #[(arg) "\301\302\"\207" [arg format "\n<TABLE %s>\n"] 3 (#$ . 4783)])
#@105 Return name of html page for numeric MONTH and four-digit YEAR.
For example, "2006-08.html" for 8 2006.
(defalias 'cal-html-monthpage-name #[(month year) "\302\303 #\207" [year month format "%d-%.2d.html"] 4 (#$ . 4927)])
#@200 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.
(defalias 'cal-html-insert-link-monthpage #[(month year &optional change-dir) "\303\304\205 \305\235\205 \306\307\n\"\310 \n\"P\311 !\"!c\207" [change-dir month year cal-html-h3 cal-html-href (1 12) format "../%d/" cal-html-monthpage-name calendar-month-name] 6 (#$ . 5157)])
#@74 Insert a link tagged with MONTH name, to index page for four-digit YEAR.
(defalias 'cal-html-insert-link-yearpage #[(month year) "\302\303\304\305!\306\307\310 !\"#!c\207" [month year cal-html-h1 format "%s %s" calendar-month-name cal-html-href "index.html" number-to-string] 8 (#$ . 5642)])
#@155 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.
(defalias 'cal-html-year-dir-ask-user #[(year) "\302\303\304\302\305\306\" \"\"!\207" [year cal-html-directory expand-file-name read-directory-name "Enter HTML calendar directory name: " format "%d"] 7 (#$ . 5942)])
#@140 Insert the header for the numeric MONTH page for four-digit YEAR.
Contains links to previous and next month and year, and current minical.
(defalias 'cal-html-insert-month-header #[(month year) "\306\307!c\210c\210 c\210\310\311\f\312W\203 \fT\313\f _
\314\211$\315\n \"T\n \245\n\312W\203:
\316V\203: \fS\f\316W\203C \fS*\317
\f\320#\210\310\311\f\312W\203W \fT\313\f _
\314\316$\315\n \"T\n \245\n\312W\203y
\316V\203y \fS\f\316W\203\202 \fS*\321
\f\"\210\310\311\f\312W\203\225 \fT\313\f _
\314\316$\315\n \"T\n \245\n\312W\203\267
\316V\203\267 \fS\f\316W\203\300 \fS*\317
\f\320#\210c\210 c\210\310\311\f\312W\203\333 \fT\313\f _
\314\211$\315\n \"T\n \245\n\312W\203\375
\316V\203\375 \fS\f\316W\203\fS*\322
\f\"\210c\210c\210c\207" [cal-html-b-tablerow-string cal-html-b-tabledata-string macro-y nmonths year month cal-html-b-table "class=header" 12 nil 0 + -1 mod 1 cal-html-insert-link-monthpage t cal-html-insert-link-yearpage cal-html-insert-minical cal-html-e-tabledata-string cal-html-e-tablerow-string cal-html-e-table-string] 5 (#$ . 6320)])
(autoload 'holiday-in-range "holidays")
#@45 Insert a minical for numeric MONTH of YEAR.
(defalias 'cal-html-insert-minical #[(month year) "\306\307\310 E!\nZ\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 \320\266\202\202H \321SH\266\202 \306\322\307\f E!\nZZ\311\" \323 \" \324 \325\326!\327\330!\261\210 c\210\311\313 ! !W\203\222 \331\"\306 \n\\\311\"H!c\210 T\211 \202u *#c\210 c\210 \313 $ !$!W\203\271 %&\261\210$T\211$\202\243 *\f\313 ! !W\203\372 \332' \211T$c\210\306\333 \310 #\311\"\313U\203\361 T\fU\204\361 # \261\210 T\211 \202\302 *
\313 ! !W\203%&\261\210 T\211 \202.#(\325\334!\261\207" [month year calendar-week-start-day blank-days last end-blank-days 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 nil cal-html-comment "MINICAL" cal-html-b-table "class=minical border=1 align=center" cal-html-th format + "MINICAL end" monthpage-name date cal-html-b-tablerow-string i --dotimes-limit-- cal-html-day-abbrev-array cal-html-e-tablerow-string _i cal-html-b-tabledata-string cal-html-e-tabledata-string cal-html-minical-day-format cal-html-e-table-string] 7 (#$ . 7471)])
#@103 Make a one page yearly mini-calendar for four-digit YEAR.
There are 12/cols rows of COLS months each.
(defalias 'cal-html-insert-year-minicals #[(year cols) "c\210\306\307 !!c\210\310\311!\n\261\210\312\313 \fW\203F
c\210\314 T \"\210\315 T \"\210c\210\316 T\"\313U\203? \n\261\210 T\211\202 *\261\207" [cal-html-b-document-string year cal-html-b-tablerow-string i --dotimes-limit-- cal-html-b-tabledata-string cal-html-h1 number-to-string cal-html-b-table "class=year" 12 0 cal-html-insert-link-monthpage cal-html-insert-minical mod cal-html-e-tabledata-string cols cal-html-e-tablerow-string cal-html-e-table-string cal-html-e-document-string] 4 (#$ . 8725)])
#@114 Protect special characters in STRING from HTML.
Characters are replaced according to `cal-html-html-subst-list'.
(defalias 'cal-html-htmlify-string #[(string) ";\203 \302\303\304\305 \"!\306#\207\307\207" [string cal-html-html-subst-list replace-regexp-in-string regexp-opt mapcar car #[(x) "\302 \"A\207" [x cal-html-html-subst-list assoc] 3] ""] 5 (#$ . 9415)])
#@130 Convert a diary entry ENTRY to html with the appropriate class specifier.
Optional argument CLASS is the class specifier to use.
(defalias 'cal-html-htmlify-entry #[(entry &optional class) "\2061 \303\304\305 8\"\203 \306\2021 \303\307\305 8\"\203 \310\2021 \303\311\305 @8!\305 8\"\2040 \312\2021 \313\314\315\n\316 A@!#)\207" [class entry start string-match "block" 2 "BLOCK" "anniversary" "ANN" number-to-string "NO-YEAR" "NORMAL" format "<span class=%s>%s</span>" cal-html-htmlify-string] 5 (#$ . 9790)])
#@242 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.
(defalias 'cal-html-htmlify-list #[(date-list date &optional holidays) "\305\306\307 \307\211\203' @\211@\203 \310\f\n@\"\203 \nB A\211\204\f \307\311!+\312#\207" [result date-list p --dolist-tail-- date mapconcat #[(x) "\302 \205 \303\"\207" [x holidays cal-html-htmlify-entry "HOLIDAY"] 3] nil calendar-date-equal reverse "<BR>\n "] 6 (#$ . 10310)])
#@67 Generate a list of all diary-entries from absolute date D1 to D2.
(defalias 'cal-html-list-diary-entries #[(d1 d2) "\3031\n \304 0\202 \305\306\"\210)\307\207\205 \310\311 !\n ZT\312#\207" [#1=#:err d1 d2 (debug error) diary-check-diary-file message "Not adding diary entries: %S" nil diary-list-entries calendar-gregorian-from-absolute t] 4 (#$ . 10927)])
#@214 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.
(defalias 'cal-html-insert-agenda-days #[(month year diary-list holiday-list) "\306\307\310 E!\nZ\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 \320\266\202\202G \321SH\266\202\322 \323c\210\324\325!c\210\f\313 \" #\"#W\203.\"T E\326\327\"T\"$%&\203\325 \326\330 \211\211@\262\211A@\262\3128\262\331S_\\\312V\203\317 \211\332\315_\\\333\245Z\262\211\313W\203\260 \314!S\262\211\315\246\313U\205\306 \211\316\246\313U?\206\306 \211\317\246\313U\262\203\317 \211T\262\266\204\"\202\326 \334\326\335\"T'\307 !H#()\336* \337#*\203\372 +\203\372 \340\202\373 \334\336+ \",-\261\f\210\306\341\"\310
#\311\"\313U\203%\"T\fU\204%.\324\325!\261\210\"T\211\"\202[ -.c\207" [month year calendar-week-start-day date last blank-days 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" + i --dotimes-limit-- 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 cal-html-b-tabledata-string holiday-list diary-list cal-html-e-tabledata-string cal-html-e-tablerow-string cal-html-e-table-string] 15 (#$ . 11295)])
#@73 Write an HTML calendar file for numeric MONTH of YEAR in directory DIR.
(defalias 'cal-html-one-month #[(month year dir) "\306 E\211\3078\262\310\311U\203 \312\313!\202Q\311V\203\213 S\262\314\211\211@\262\211A@\262\3078\262\315S_\\\307V\203x \211\316\317_\\\320\245Z\262\211\311W\203Y \321!S\262\211\317\246\311U\205o \211\322\246\311U?\206o \211\323\246\311U\262\203x \211T\262\266\204\324_\317\245\322\245[\323\245%\202Q\321T!\262\325\211\211@\262\211A@\262\3078\262\315S_\\\307V\203\350 \211\316\317_\\\320\245Z\262\211\311W\203\311 \321!S\262\211\317\246\311U\205\337 \211\322\246\311U?\206\337 \211\323\246\311U\262\203\350 \211T\262\266\204\324_\317\245\322\245[\323\245\326\211\211@\262\211A@\262\3078\262\315S_\\\307V\203M\211\316\317_\\\320\245Z\262\211\311W\203.\321!S\262\211\317\246\311U\205D\211\322\246\311U?\206D\211\323\246\311U\262\203M\211T\262\266\204&\266\203\211 \307U\203\213\211\211\311W\203j\321!S\262\211\317\246\311U\205\200\211\322\246\311U?\206\200\211\323\246\311U\262\203\213\327\266\202\202\221\330SH\266\202 E\211\3078\262\310\311U\203\246\312\313!\202\340\311V\203S\262\314\211\211@\262\211A@\262\3078\262\315S_\\\307V\203\211\316\317_\\\320\245Z\262\211\311W\203\350\321!S\262\211\317\246\311U\205\376\211\322\246\311U?\206\376\211\323\246\311U\262\203\211T\262\266\204\324_\317\245\322\245[\323\245%\202\340\321T!\262\325\211\211@\262\211A@\262\3078\262\315S_\\\307V\203w\211\316\317_\\\320\245Z\262\211\311W\203X\321!S\262\211\317\246\311U\205n\211\322\246\311U?\206n\211\323\246\311U\262\203w\211T\262\266\204\324_\317\245\322\245[\323\245\326\211\211@\262\211A@\262\3078\262\315S_\\\307V\203\334\211\316\317_\\\320\245Z\262\211\311W\203\275\321!S\262\211\317\246\311U\205\323\211\322\246\311U?\206\323\211\323\246\311U\262\203\334\211T\262\266\204&\266\203\331\n \"
\205\360\332\n \" #\333\334! $r$q\210\335\216%c\210\336 \"\210\337 \f#$\210&c\210\340\341\342 \"'\"!.\207" [month year d1 d2 diary-list cal-html-holidays 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*" #[nil "\301!\205 \302!\207" [#1=#:temp-buffer buffer-name kill-buffer] 2] cal-html-insert-month-header cal-html-insert-agenda-days write-file expand-file-name cal-html-monthpage-name holiday-list #1# cal-html-b-document-string cal-html-e-document-string dir] 18 (#$ . 12936)])
#@288 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, or from
the position specified by EVENT. Note that any existing output files
are overwritten.
(defalias 'cal-html-cursor-month #[(month year dir &optional event) "\303\304\"\210\305 \n#\207" [dir month year make-directory t cal-html-one-month] 4 (#$ . 15582) (let* ((event last-nonmenu-event) (date (calendar-cursor-to-date t event)) (month (calendar-extract-month date)) (year (calendar-extract-year date))) (list month year (cal-html-year-dir-ask-user year) event))])
#@284 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, or from the position
specified by EVENT. Note that any existing output files are overwritten.
(defalias 'cal-html-cursor-year #[(year dir &optional event) "\306\307\"\210\310\311!r q\210\312\216\313\n \"\210\314\315\316\"!\210+\317\320 \f
W\2054 \321\fT\n#\210\fT\211\202! *\207" [dir #1=#:temp-buffer year cal-html-year-index-cols i --dotimes-limit-- make-directory t generate-new-buffer " *temp*" #[nil "\301!\205 \302!\207" [#1# buffer-name kill-buffer] 2] cal-html-insert-year-minicals write-file expand-file-name "index.html" 12 0 cal-html-one-month] 5 (#$ . 16254) (let* ((event last-nonmenu-event) (year (calendar-extract-year (calendar-cursor-to-date t event)))) (list year (cal-html-year-dir-ask-user year) event))])
(provide 'cal-html)