mirror of
https://git.savannah.gnu.org/git/emacs/org-mode.git
synced 2024-09-29 20:37:51 +00:00
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\">
|
||||
|
||||
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)
|
||||
|
@ -3058,8 +3057,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)
|
||||
|
|
Loading…
Reference in a new issue