--- org-4.74/org.el 2007-05-13 16:25:40.000000000 +0900
+++ org.el 2007-05-14 01:12:13.000000000 +0900
@@ -2708,6 +2708,90 @@
:group 'org-export-html
:type 'string)
+(defcustom org-export-agenda-html-style
+""
+ "The default style specification for exported HTML Agenda files.
+Since there are different ways of setting style information, this variable
+needs to contain the full HTML structure to provide a style, including the
+surrounding HTML tags. The style specifications should include definitions
+for new classes todo, done, title, and deadline. For example, legal values
+would be:
+
+
+
+or, if you want to keep the style in a file,
+
+
+
+As the value of this option simply gets inserted into the HTML header,
+you can \"misuse\" it to add arbitrary text to the header."
+ :group 'org-export-html
+ :type 'string)
+
+
+
(defcustom org-export-html-title-format "
%s
\n"
"Format for typesetting the document title in HTML export."
:group 'org-export-html
@@ -14292,6 +14376,15 @@
((string-match "\\.html?\\'" file)
(require 'htmlize)
(set-buffer (htmlize-buffer (current-buffer)))
+
+ ;; replace the section with org-export-agenda-html-style
+ (goto-char (point-min))
+ (kill-region (- (search-forward "")
+ )
+ (insert org-export-agenda-html-style)
+
+
(write-file file)
(kill-buffer (current-buffer))
(message "HTML written to %s" file))
@@ -17269,6 +17362,8 @@
(:tables . org-export-with-tables)
(:table-auto-headline . org-export-highlight-first-table-line)
(:style . org-export-html-style)
+ ;;; added for agenda html export
+ (:agenda-style . org-export-agenda-html-style)
(:convert-org-links . org-export-html-link-org-files-as-html)
(:inline-images . org-export-html-inline-images)
(:expand-quoted-html . org-export-html-expand)