1 ;;; org-xoxo.el --- XOXO export for Org-mode
3 ;; Copyright (C) 2004-2011
4 ;; Free Software Foundation, Inc.
6 ;; Author: Carsten Dominik <carsten at orgmode dot org>
7 ;; Keywords: outlines, hypermedia, calendar, wp
8 ;; Homepage: http://orgmode.org
11 ;; This file is part of GNU Emacs.
13 ;; GNU Emacs is free software: you can redistribute it and/or modify
14 ;; it under the terms of the GNU General Public License as published by
15 ;; the Free Software Foundation, either version 3 of the License, or
16 ;; (at your option) any later version.
18 ;; GNU Emacs is distributed in the hope that it will be useful,
19 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
20 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
21 ;; GNU General Public License for more details.
23 ;; You should have received a copy of the GNU General Public License
24 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
25 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
34 (defvar org-export-xoxo-final-hook nil
35 "Hook run after XOXO export, in the new buffer.")
37 (defun org-export-as-xoxo-insert-into (buffer &rest output)
38 (with-current-buffer buffer
39 (apply 'insert output)))
40 (put 'org-export-as-xoxo-insert-into 'lisp-indent-function 1)
43 (defun org-export-as-xoxo (&optional buffer)
44 "Export the org buffer as XOXO.
45 The XOXO buffer is named *xoxo-<source buffer name>*"
46 (interactive (list (current-buffer)))
47 (run-hooks 'org-export-first-hook)
48 ;; A quickie abstraction
50 ;; Output everything as XOXO
51 (with-current-buffer (get-buffer buffer)
53 (opt-plist (org-combine-plists (org-default-export-plist)
54 (org-infile-export-plist)))
55 (filename (concat (file-name-as-directory
56 (org-export-directory :xoxo opt-plist))
57 (file-name-sans-extension
58 (file-name-nondirectory buffer-file-name))
60 (out (find-file-noselect filename))
63 (goto-char (point-min)) ;; CD: beginning-of-buffer is not allowed.
64 ;; Check the output buffer is empty.
65 (with-current-buffer out (erase-buffer))
66 ;; Kick off the output
67 (org-export-as-xoxo-insert-into out "<ol class='xoxo'>\n")
68 (while (re-search-forward "^\\(\\*+\\)[ \t]+\\(.+\\)" (point-max) 't)
69 (let* ((hd (match-string-no-properties 1))
72 (match-string-no-properties 2)
74 (goto-char (match-end 0))
79 (if (looking-at "^[ \t]\\(.*\\)")
80 (setq str (concat str (match-string-no-properties 1)))
81 (throw 'loop str)))))))))
83 ;; Handle level rendering
86 (org-export-as-xoxo-insert-into out "\n<ol>\n"))
89 (dotimes (- (- last-level level) 1)
91 (org-export-as-xoxo-insert-into out "</li>\n"))
92 (org-export-as-xoxo-insert-into out "</ol>\n"))
94 (org-export-as-xoxo-insert-into out "</li>\n")
95 (setq hanging-li nil)))
97 ((equal level last-level)
99 (org-export-as-xoxo-insert-into out "</li>\n")))
102 (setq last-level level)
104 ;; And output the new li
106 (if (equal ?+ (elt text 0))
107 (org-export-as-xoxo-insert-into out "<li class='" (substring text 1) "'>")
108 (org-export-as-xoxo-insert-into out "<li>" text))))
110 ;; Finally finish off the ol
111 (dotimes (- last-level 1)
113 (org-export-as-xoxo-insert-into out "</li>\n"))
114 (org-export-as-xoxo-insert-into out "</ol>\n"))
117 ;; Finish the buffer off and clean it up.
118 (switch-to-buffer-other-window out)
119 (indent-region (point-min) (point-max) nil)
120 (run-hooks 'org-export-xoxo-final-hook)
122 (goto-char (point-min))
127 ;;; org-xoxo.el ends here