mirrors/org-mode
0
0
Fork 1
mirror of https://git.savannah.gnu.org/git/emacs/org-mode.git synced 2024-08-20 03:48:34 +00:00
Code Releases Activity

org-e-html.el: Transcode title and author correctly

Browse source
This commit is contained in:
Jambunathan K 2012-04-16 23:21:48 +05:30
parent 973efcd9c9
commit 4959371373
1 changed files with 7 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
EXPERIMENTAL/org-e-html.el
View file

@ -174,7 +174,7 @@ Intended to be locally bound around a call to `org-export-as-html'." )
;;;; Debugging ;;;; Debugging
(defcustom org-e-html-pretty-output t (defcustom org-e-html-pretty-output nil
"Enable this to generate pretty HTML." "Enable this to generate pretty HTML."
:group 'org-export-e-html :group 'org-export-e-html
:type 'boolean) :type 'boolean)
@ -1545,9 +1545,11 @@ This function shouldn't be used for floats. See
(defun org-e-html-preamble (info) (defun org-e-html-preamble (info)
(when (plist-get info :html-preamble) (when (plist-get info :html-preamble)
(let* ((title (plist-get info :title)) (let* ((title (org-export-secondary-string
(plist-get info :title) 'e-html info))
(date (org-e-html-format-date info)) (date (org-e-html-format-date info))
(author (plist-get info :author)) (author (org-export-secondary-string
(plist-get info :author) 'e-html info))
(lang-words (or (assoc (plist-get info :language) (lang-words (or (assoc (plist-get info :language)
org-export-language-setup) org-export-language-setup)
(assoc "en" org-export-language-setup))) (assoc "en" org-export-language-setup)))
@ -1698,7 +1700,8 @@ original parsed data. INFO is a plist holding export options."
(nth 1 org-e-html-divs))) (nth 1 org-e-html-divs)))
;; document title ;; document title
(format " (format "
<h1 class=\"title\"> %s </h1>\n" (plist-get info :title)) <h1 class=\"title\">%s</h1>\n" (org-export-secondary-string
(plist-get info :title) 'e-html info))
;; table of contents ;; table of contents
(let ((depth (plist-get info :with-toc))) (let ((depth (plist-get info :with-toc)))
(when (wholenump depth) (org-e-html-toc depth info))) (when (wholenump depth) (org-e-html-toc depth info)))
@ -3104,10 +3107,6 @@ directory.
Return output file's name." Return output file's name."
(interactive) (interactive)
;; FIXME
(with-current-buffer (get-buffer-create "*debug*")
(erase-buffer))
(let* ((extension (concat "." org-e-html-extension)) (let* ((extension (concat "." org-e-html-extension))
(file (org-export-output-file-name extension subtreep pub-dir))) (file (org-export-output-file-name extension subtreep pub-dir)))
(org-export-to-file (org-export-to-file