From mboxrd@z Thu Jan 1 00:00:00 1970 From: "T. V. Raman" Subject: patch to org.el to produce xhtml: Date: Thu, 25 May 2006 19:05:48 -0700 Message-ID: <17526.25212.48304.308344@localhost.localdomain> Reply-To: raman@users.sf.net Mime-Version: 1.0 Content-Type: multipart/mixed; boundary="ud2vpmnzpw" Content-Transfer-Encoding: 7bit Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1FjRi4-0001Y8-Gs for emacs-orgmode@gnu.org; Thu, 25 May 2006 22:05:52 -0400 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1FjRi1-0001XY-Ui for emacs-orgmode@gnu.org; Thu, 25 May 2006 22:05:51 -0400 Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1FjRi1-0001XQ-QD for emacs-orgmode@gnu.org; Thu, 25 May 2006 22:05:49 -0400 Received: from [63.240.77.81] (helo=sccrmhc11.comcast.net) by monty-python.gnu.org with esmtp (Exim 4.52) id 1FjRmo-0003Vt-Mv for emacs-orgmode@gnu.org; Thu, 25 May 2006 22:10:46 -0400 List-Id: "General discussions about Org-mode." List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org To: emacs-orgmode@gnu.org --ud2vpmnzpw Content-Type: text/plain; charset=us-ascii Content-Description: message body text Content-Transfer-Encoding: 7bit I am attaching a partial patch (see below for explanation of partial) along with sample files, I hope others here can help finish this. Goal: Produce well-formed XHTML. What I have Fixed: 0) Ensure all tagnames are lower case. 1) Emit correct doctype and xhtml namespace. 2) Emit /> to close meta tags. 3) Emit to close bullets (not all cases covered) 4) Ensured that all attribute values are quoted. ToDo: A) Emit closing li tags in all cases. B) Emit closing

to close paragraphs. C) Ensure that author and date bits on the bottom are wrapped in a

where xxx is author or date as appropriate. I'm attaching a bullets.org file, and the final xhtml output I'd like to produce. *** org.el 2006/05/26 01:29:49 1.1 --- org.el 2006/05/26 01:57:39 *************** *** 12609,12634 **** ;; File header (insert (format ! " ! %s ! ! ! ! %s " ! language (org-html-expand title) (or charset "iso-8859-1") date time author style)) (insert (or (plist-get opt-plist :preamble) "")) (when (plist-get opt-plist :auto-preamble) ! (if title (insert (concat "

" ! (org-html-expand title) "

\n"))) ; (if author (insert (concat (nth 1 lang-words) ": " author "\n"))) ; (if email (insert (concat "<" ; email ">\n"))) --- 12609,12636 ---- ;; File header (insert (format ! " ! ! %s ! ! ! ! %s " ! language language (org-html-expand title) (or charset "iso-8859-1") date time author style)) (insert (or (plist-get opt-plist :preamble) "")) (when (plist-get opt-plist :auto-preamble) ! (if title (insert (concat "

" ! (org-html-expand title) "

\n"))) ; (if author (insert (concat (nth 1 lang-words) ": " author "\n"))) ; (if email (insert (concat "<" ; email ">\n"))) *************** *** 12639,12645 **** (if org-export-with-toc (progn ! (insert (format "

%s

\n" (nth 3 lang-words))) (insert "

%s

%s\n" "
%s\n") head-count txt)) --- 12696,12702 ---- (insert (format (if todo ! "
%s
%s\n") head-count txt)) *************** *** 13254,13260 **** (if (aref levels-open (1- level)) (insert "
" title "
\n") (aset levels-open (1- level) t) ! (insert "
- " title "
  \n"))) (if org-export-with-section-numbers (setq title (concat (org-section-number level) " " title))) (setq level (+ level 1)) --- 13256,13262 ---- (if (aref levels-open (1- level)) (insert "
- " title "
  \n") (aset levels-open (1- level) t) ! (insert "
  - " title "

" ! (org-html-expand title) "

" ! (org-html-expand title) "

%s

%s

bullets

Table of Contents

1 HTML Export.

1.1 Subsection

1.1.1 Numbered Lists: