1 ;;; muse-import-docbook.el --- convert Docbook XML into Muse format
3 ;; Copyright (C) 2006, 2007, 2008 Free Software Foundation, Inc.
5 ;; Author: Elena Pomohaci <e.pomohaci@gmail.com>
7 ;; This file is part of Emacs Muse. It is not part of GNU Emacs.
9 ;; Emacs Muse is free software; you can redistribute it and/or modify
10 ;; it under the terms of the GNU General Public License as published
11 ;; by the Free Software Foundation; either version 3, or (at your
12 ;; option) any later version.
14 ;; Emacs Muse is distributed in the hope that it will be useful, but
15 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
16 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
17 ;; General Public License for more details.
19 ;; You should have received a copy of the GNU General Public License
20 ;; along with Emacs Muse; see the file COPYING. If not, write to the
21 ;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
22 ;; Boston, MA 02110-1301, USA.
26 ;; It works only for article type docbook docs and recognize
27 ;; followings elements: article, sect1, sect2, sect3, title,
33 (require 'muse-import-xml
)
35 (defvar muse-import-docbook-prefix
"muse-import-docbook-"
36 "The name prefix for tag functions")
38 (defvar muse-import-docbook-para-indent
"\n\n"
39 "Para elements indentation (0, less than 6 spaces, more than 6 spaces)")
41 (defun muse-import-docbook-reset-para-indent ()
42 (setq muse-import-docbook-para-indent
"\n\n"))
46 (defun muse-import-docbook (src dest
)
47 "Convert the Docbook buffer SRC to Muse, writing output in the DEST buffer."
48 (interactive "bDocbook buffer:\nBMuse buffer:")
49 (setq muse-import-xml-prefix muse-import-docbook-prefix
)
50 (setq muse-import-xml-generic-function-name
"muse-import-xml-node")
51 (muse-import-xml src dest
))
54 (defun muse-import-docbook-files (src dest
)
55 "Convert the Docbook file SRC to Muse, writing output to the DEST file."
56 (interactive "fDocbook file:\nFMuse file:")
58 (muse-import-docbook (find-file-noselect src
) (current-buffer))))
61 ;;; element specific functions
63 (defun muse-import-docbook-get-title (node)
64 (let ((tit (car (xml-get-children node
'title
))))
65 (insert (car (cddr tit
)) ?
\n ?
\n)
66 (muse-import-xml-parse-tree (xml-node-children (remove tit node
)))))
69 (defun muse-import-docbook-article (node)
70 "Article conversion function"
71 (muse-import-xml-node node
))
73 (defun muse-import-docbook-articleinfo (node)
74 "Article conversion function"
76 (muse-import-docbook-get-title node
)
80 (defalias 'muse-import-docbook-appendix
'muse-import-docbook-article
)
82 (defalias 'muse-import-docbook-appendixinfo
'muse-import-docbook-articleinfo
)
85 (defun muse-import-docbook-sect1 (node)
86 "Section 1 conversion function"
88 (muse-import-docbook-get-title node
))
90 (defun muse-import-docbook-sect2 (node)
91 "Section 2 conversion function"
93 (muse-import-docbook-get-title node
))
95 (defun muse-import-docbook-sect3 (node)
96 "Section 3 conversion function"
98 (muse-import-docbook-get-title node
))
101 (defun muse-import-docbook-graphic (node)
102 "Graphic conversion function. Image format is forced to PNG"
103 (let ((name (xml-get-attribute node
'fileref
)))
104 (insert "\n[[img/" name
".png][" name
"]]")))
106 (defun muse-import-docbook-para (node)
107 (insert muse-import-docbook-para-indent
)
108 (muse-import-xml-node node
))
111 (defun muse-import-docbook-emphasis (node)
113 (muse-import-xml-node node
)
116 (defun muse-import-docbook-quote (node)
118 (muse-import-xml-node node
)
121 (defun muse-import-docbook-blockquote (node)
122 (setq muse-import-docbook-para-indent
"\n\n ")
123 (muse-import-xml-node node
)
124 (muse-import-docbook-reset-para-indent))
126 (defun muse-import-docbook-member (node)
128 (muse-import-xml-node node
))
130 (defun muse-import-docbook-bridgehead (node)
132 (muse-import-xml-node node
))
134 (provide 'muse-import-docbook
)
136 ;;; muse-import-docbook.el ends here