emacs-orgmode
[Top][All Lists]
Advanced
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[O] [PATCH] Don't force the <style> tag to be present in `org-agenda-exp

From: Sebastien Vauban
Subject: [O] [PATCH] Don't force the <style> tag to be present in `org-agenda-export-html-style'
Date: Wed, 19 Sep 2012 12:30:01 +0200
User-agent: Gnus/5.130006 (Ma Gnus v0.6) Emacs/24.2 (windows-nt) 
>From db344fd8a05b11174508e2de864f2fb788ea0f29 Mon Sep 17 00:00:00 2001
From: Fabrice Niessen <address@hidden>
Date: Wed, 19 Sep 2012 12:10:20 +0200
Subject: [PATCH] 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

---
 lisp/org-agenda.el |    6 ++----
 1 files changed, 2 insertions(+), 4 deletions(-)
 mode change 100644 => 100755 lisp/org-agenda.el

diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
old mode 100644
new mode 100755
index 4b8cace..b0f031c
--- 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)
@@ -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)
--
1.7.9

-- 
Sebastien Vauban
reply via email to
[Prev in Thread] Current Thread [Next in Thread]