;;; cal-html.el --- functions for printing HTML calendars
;; Copyright (C) 2002-2018 Free Software Foundation, Inc.
;; Author: Anna M. Bigatti
;; Keywords: calendar
;; Human-Keywords: calendar, diary, HTML
;; Created: 23 Aug 2002
;; Package: calendar
;; This file is part of GNU Emacs.
;; GNU Emacs is free software: you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation, either version 3 of the License, or
;; (at your option) any later version.
;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
;; GNU General Public License for more details.
;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs. If not, see .
;;; Commentary:
;; This package writes HTML calendar files using the user's diary
;; file. See the Emacs manual for details.
;;; Code:
(require 'calendar)
(require 'diary-lib)
(defgroup calendar-html nil
"Options for HTML calendars."
:prefix "cal-html-"
:group 'calendar)
(defcustom cal-html-directory "~/public_html"
"Directory for HTML pages generated by cal-html."
:type 'string
:group 'calendar-html)
(defcustom cal-html-print-day-number-flag nil
"Non-nil means print the day-of-the-year number in the monthly cal-html page."
:type 'boolean
:group 'calendar-html)
(defcustom cal-html-year-index-cols 3
"Number of columns in the cal-html yearly index page."
:type 'integer
:group 'calendar-html)
(defcustom 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)
:type '(vector (string :tag "Sun")
(string :tag "Mon")
(string :tag "Tue")
(string :tag "Wed")
(string :tag "Thu")
(string :tag "Fri")
(string :tag "Sat"))
:group 'calendar-html)
(defcustom cal-html-holidays t
"If non-nil, include holidays as well as diary entries."
:version "24.3"
:type 'boolean
:group 'calendar-html)
(defcustom cal-html-css-default
(concat
"\n\n")
"Default cal-html css style. You can override this with a \"cal.css\" file."
:type 'string
:version "24.3" ; added SPAN.HOLIDAY
:group 'calendar-html)
;;; End customizable variables.
;;; HTML and CSS code constants.
(defconst cal-html-e-document-string "
\n