From mboxrd@z Thu Jan 1 00:00:00 1970 From: Nic Subject: XOXO output (was Re: Other software development for Org-mode) Date: Tue, 14 Mar 2006 11:36:14 +0000 Message-ID: <87acbt5kcx.fsf@tapsellferrier.co.uk> References: <043b729fad3b50297372c536319cc9c5@science.uva.nl> Mime-Version: 1.0 Content-Type: text/plain; charset=us-ascii Return-path: Received: from mailman by lists.gnu.org with tmda-scanned (Exim 4.43) id 1FJ8EP-0000Bh-PW for emacs-orgmode@gnu.org; Tue, 14 Mar 2006 07:02:29 -0500 Received: from exim by lists.gnu.org with spam-scanned (Exim 4.43) id 1FJ8EO-00009r-Lx for emacs-orgmode@gnu.org; Tue, 14 Mar 2006 07:02:29 -0500 Received: from [199.232.76.173] (helo=monty-python.gnu.org) by lists.gnu.org with esmtp (Exim 4.43) id 1FJ8EO-00009d-Fb for emacs-orgmode@gnu.org; Tue, 14 Mar 2006 07:02:28 -0500 Received: from [80.168.156.78] (helo=owls-house.tapsellferrier.co.uk) by monty-python.gnu.org with esmtp (Exim 4.52) id 1FJ8IZ-0007lI-ON for emacs-orgmode@gnu.org; Tue, 14 Mar 2006 07:06:48 -0500 Received: from [172.31.100.241] (helo=wikidemo) by owls-house.tapsellferrier.co.uk with esmtp (Exim 4.54 #1 (Debian)) id 1FJ7q2-0004cL-Rz for ; Tue, 14 Mar 2006 11:37:18 +0000 Received: from nferrier by wikidemo with local (Exim 4.50) id 1FJ7p0-00029b-NL for emacs-orgmode@gnu.org; Tue, 14 Mar 2006 11:36:14 +0000 In-Reply-To: <043b729fad3b50297372c536319cc9c5@science.uva.nl> (Carsten Dominik's message of "Tue, 14 Mar 2006 11:39:25 +0100") 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 Carsten Dominik writes: > I know that a few people are developing add-on software for Org-mode. > Maybe it is useful to make a list of these, to avoid duplicate work and > allow for feedback. I myself am aware of the following efforts. > > > XML export, for example XOXO or OPM or OPML. > There is already a XOXO exporter by Nic Ferrier, he posted it on > Usenet some time ago. I'm going to post it here because I want some feedback on it. At the moment it outputs a simple XOXO view of an outline. It does not handle org-mode content when it breaks away from an outline. There's a reason for that: XOXO (and OPM and OPML) only specify the outline format... nothing else. So the question is: what do people want the non-outline org-mode content to look like in an XOXO view? - something like is already in org-mode's HTML output - simpler XHTML - something else entirely? Btw... an XOXO exporter would be better than the current HTML exporter because it would be more flexible. Using an XML transform (maybe XSLT, maybe something else) on the exported XOXO could render the existing HTML as well as any other HTML or XML. Anyway... the source is at the bottom of this mail. Nic ;; An org mode extension ;; Copyright (C) 2005 by Tapsell-Ferrier Limited ;; This program is free software; you can redistribute it and/or modify ;; it under the terms of the GNU General Public License as published by ;; the Free Software Foundation; either version 2, or (at your option) ;; any later version. ;; This program is distributed in the hope that it will be useful, ;; but WITHOUT ANY WARRANTY; without even the implied warranty of ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the ;; GNU General Public License for more details. ;; You should have received a copy of the GNU General Public License ;; along with this program; see the file COPYING. If not, write to the ;; Free Software Foundation, Inc., 59 Temple Place - Suite 330, ;; Boston, MA 02111-1307, USA. (defun org-export-as-xoxo-insert-into (buffer &rest output) (with-current-buffer buffer (apply 'insert output))) (defun org-export-as-xoxo (&optional buffer) "Export the org buffer as XOXO. The XOXO buffer is named *xoxo-*" (interactive (list (current-buffer))) ;; A quickie abstraction ;; Output everything as XOXO (with-current-buffer (get-buffer buffer) (beginning-of-buffer) (let ((out (get-buffer-create (concat "*xoxo-" (buffer-name buffer) "*"))) (last-level 1) (hanging-li nil)) ;; Check the output buffer is empty. (with-current-buffer out (delete-region (point-min) (point-max))) ;; Kick off the output (org-export-as-xoxo-insert-into out "
    \n") (while (re-search-forward "^\\(\\*+\\) \\(.+\\)" (point-max) 't) (let* ((hd (match-string-no-properties 1)) (level (length hd)) (text (concat (match-string-no-properties 2) (save-excursion (goto-char (match-end 0)) (let ((str "")) (catch 'loop (while 't (forward-line) (if (looking-at "^[ \t]\\(.*\\)") (setq str (concat str (match-string-no-properties 1))) (throw 'loop str))))))))) ;; Handle level rendering (cond ((> level last-level) (org-export-as-xoxo-insert-into out "\n
      \n")) ((< level last-level) (dotimes (- (- last-level level) 1) (if hanging-li (org-export-as-xoxo-insert-into out "\n")) (org-export-as-xoxo-insert-into out "
    \n")) (when hanging-li (org-export-as-xoxo-insert-into out "\n") (setq hanging-li nil))) ((equal level last-level) (if hanging-li (org-export-as-xoxo-insert-into out "\n"))) ) (setq last-level level) ;; And output the new li (setq hanging-li 't) (if (equal ?+ (elt text 0)) (org-export-as-xoxo-insert-into out "
  1. ") (org-export-as-xoxo-insert-into out "
  2. " text)))) ;; Finally finish off the ol (dotimes (- last-level 1) (if hanging-li (org-export-as-xoxo-insert-into out "
    3. \n")) (org-export-as-xoxo-insert-into out "
\n")) ;; Finish the buffer off and clean it up. (switch-to-buffer out) (xml-mode) (indent-region (point-min) (point-max)) )))