From 23d9c79654768f44c6c1383c0807c07ebb77c0eb Mon Sep 17 00:00:00 2001 From: Carsten Dominik Date: Tue, 3 Mar 2009 10:57:33 +0100 Subject: [PATCH] HTML export: Add validation link to page An exported document can now have a link for XHTML validation included. Patch by Sebastian Rose --- lisp/ChangeLog | 2 ++ lisp/org-exp.el | 7 +++++++ 2 files changed, 9 insertions(+) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index bb13620a5..8698b4521 100755 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -3,6 +3,8 @@ * org-exp.el (org-export-as-html): Add a "content" div around the entire content of the body tag. (org-export-html-get-bibliography): New function. + (org-export-html-validation-link): New variable. + (org-export-as-html): Add validation link to exported page. * org.el (org-match-sparse-tree): Renamed from `org-tags-sparse-tree'. diff --git a/lisp/org-exp.el b/lisp/org-exp.el index f3b5054c1..e8c595558 100644 --- a/lisp/org-exp.el +++ b/lisp/org-exp.el @@ -746,6 +746,11 @@ This is customizable so that alignment options can be specified." :group 'org-export-tables :type '(cons (string :tag "Opening tag") (string :tag "Closing tag"))) +(defcustom org-export-html-validation-link nil + "Non-nil means, add validationlink to postamble of HTML exported files." + :group 'org-export-html + :type 'boolean) + (defcustom org-export-html-with-timestamp nil "If non-nil, write `org-export-html-html-helper-timestamp' into the exported HTML text. Otherwise, the buffer will just be saved @@ -4072,6 +4077,8 @@ lang=\"%s\" xml:lang=\"%s\"> (when org-export-creator-info (insert (format "

HTML generated by org-mode %s in emacs %s

\n" org-version emacs-major-version))) + (when org-export-html-validation-link + (insert "

Validate XHTML 1.0

")) (insert "")) (if org-export-html-with-timestamp