diff options
author | Fabrice Niessen <fniessen-TA4HMoP+1wHrZ44/DZwexQ@public.gmane.org> | 2012-09-19 12:10:20 +0200 |
---|---|---|
committer | Bastien Guerry <bzg@altern.org> | 2012-09-20 00:52:33 +0200 |
commit | 8447ea83412829e13a8b6fd23c238e7c6eba3884 (patch) | |
tree | d4ad4972cad70edab1a5fff255e9e58816b25df5 | |
parent | 0d73ee4f3047fdbe330400734d0aa6ff6cdd310a (diff) | |
download | org-mode-8447ea83412829e13a8b6fd23c238e7c6eba3884.tar.gz |
Don't force the <style> tag to be present in `org-agenda-export-html-style'
* org-agenda.el (org-agenda-write-buffer-name): Remove the
test for the presence of <style> tag.
TINYCHANGE
-rwxr-xr-x[-rw-r--r--] | lisp/org-agenda.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el index 23ed73a..c7e1215 100644..100755 --- a/lisp/org-agenda.el +++ b/lisp/org-agenda.el @@ -224,8 +224,7 @@ or, if you want to keep the style in a file, <link rel=\"stylesheet\" type=\"text/css\" href=\"mystyles.css\"> As the value of this option simply gets inserted into the HTML <head> header, -you can \"misuse\" it to also add other text to the header. However, -<style>...</style> is required, if not present the variable will be ignored." +you can \"misuse\" it to also add other text to the header." :group 'org-agenda-export :group 'org-export-html :type 'string) @@ -3057,8 +3056,7 @@ If AGENDA-BUFFER-NAME, use this as the buffer name for the agenda to write." ((string-match "\\.html?\\'" file) (require 'htmlize) (set-buffer (htmlize-buffer (current-buffer))) - (when (and org-agenda-export-html-style - (string-match "<style>" org-agenda-export-html-style)) + (when org-agenda-export-html-style ;; replace <style> section with org-agenda-export-html-style (goto-char (point-min)) (kill-region (- (search-forward "<style") 6) |