mirrors
/
org-mode
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git
0
0
Fork 1
Code Releases Activity

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
This commit is contained in:
Fabrice Niessen 2012-09-19 12:10:20 +02:00 committed by Bastien Guerry
parent 0d73ee4f30
commit 8447ea8341
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lisp/org-agenda.el Normal file → Executable file
View File

@ -224,8 +224,7 @@ or, if you want to keep the style in a file,
<link rel=\"stylesheet\" type=\"text/css\" href=\"mystyles.css\"> <link rel=\"stylesheet\" type=\"text/css\" href=\"mystyles.css\">
As the value of this option simply gets inserted into the HTML <head> header, 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, you can \"misuse\" it to also add other text to the header."
<style>...</style> is required, if not present the variable will be ignored."
:group 'org-agenda-export :group 'org-agenda-export
:group 'org-export-html :group 'org-export-html
:type 'string) :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) ((string-match "\\.html?\\'" file)
(require 'htmlize) (require 'htmlize)
(set-buffer (htmlize-buffer (current-buffer))) (set-buffer (htmlize-buffer (current-buffer)))
(when (and org-agenda-export-html-style (when org-agenda-export-html-style
(string-match "<style>" org-agenda-export-html-style))
;; replace <style> section with org-agenda-export-html-style ;; replace <style> section with org-agenda-export-html-style
(goto-char (point-min)) (goto-char (point-min))
(kill-region (- (search-forward "<style") 6) (kill-region (- (search-forward "<style") 6)