Commit 85133518 authored by Glenn Morris's avatar Glenn Morris
Browse files

(cal-html-insert-link-yearpage, (cal-html-htmlify-list): Doc fix.

(cal-html-htmlify-entry): Use nth.
parent 965c8899
...@@ -182,7 +182,7 @@ the link points to a different year and so has a directory part." ...@@ -182,7 +182,7 @@ the link points to a different year and so has a directory part."
(defun cal-html-insert-link-yearpage (month year) (defun cal-html-insert-link-yearpage (month year)
"Insert a link to index page for four-digit YEAR, tagged using MONTH name." "Insert a link tagged with MONTH name, to index page for four-digit YEAR."
(insert (cal-html-h1 (insert (cal-html-h1
(format "%s %s" (format "%s %s"
(calendar-month-name month) (calendar-month-name month)
...@@ -314,11 +314,11 @@ Characters are replaced according to `cal-html-html-subst-list'." ...@@ -314,11 +314,11 @@ Characters are replaced according to `cal-html-html-subst-list'."
"Convert a diary entry ENTRY to html with the appropriate class specifier." "Convert a diary entry ENTRY to html with the appropriate class specifier."
(let ((start (let ((start
(cond (cond
((string-match "block" (car (cddr entry))) "BLOCK") ((string-match "block" (nth 2 entry)) "BLOCK")
((string-match "anniversary" (car (cddr entry))) "ANN") ((string-match "anniversary" (nth 2 entry)) "ANN")
((not (string-match ((not (string-match
(number-to-string (car (cddr (car entry)))) (number-to-string (nth 2 (car entry)))
(car (cddr entry)))) (nth 2 entry)))
"NO-YEAR") "NO-YEAR")
(t "NORMAL")))) (t "NORMAL"))))
(format "<span class=%s>%s</span>" start (format "<span class=%s>%s</span>" start
...@@ -326,7 +326,7 @@ Characters are replaced according to `cal-html-html-subst-list'." ...@@ -326,7 +326,7 @@ Characters are replaced according to `cal-html-html-subst-list'."
(defun cal-html-htmlify-list (date-list date) (defun cal-html-htmlify-list (date-list date)
"Return a string of concatenated, HTMLified diary entries. "Return a string of concatenated, HTML-ified diary entries.
DATE-LIST is a list of diary entries. Return only those matching DATE." DATE-LIST is a list of diary entries. Return only those matching DATE."
(mapconcat (lambda (x) (cal-html-htmlify-entry x)) (mapconcat (lambda (x) (cal-html-htmlify-entry x))
(let (result) (let (result)
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment