forked from mirrors/org-mode
Merge branch 'maint'
This commit is contained in:
commit
7a909d1684
6
lisp/org-agenda.el
Normal file → Executable file
6
lisp/org-agenda.el
Normal file → Executable 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)
|
||||||
|
@ -3058,8 +3057,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)
|
||||||
|
|
Loading…
Reference in a new issue