From abe4965ce8f6cf93602100fdc27a84a0f9633b01 Mon Sep 17 00:00:00 2001 From: Bastien Guerry Date: Sun, 14 Aug 2011 16:39:31 +0200 Subject: [PATCH] * org-mw.el (org-mw-export-lists): Fix list export. --- EXPERIMENTAL/org-mw.el | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/EXPERIMENTAL/org-mw.el b/EXPERIMENTAL/org-mw.el index daea49b99..9a4088a5b 100644 --- a/EXPERIMENTAL/org-mw.el +++ b/EXPERIMENTAL/org-mw.el @@ -4,7 +4,7 @@ ;; ;; Emacs Lisp Archive Entry ;; Filename: org-mw.el -;; Version: 0.3a +;; Version: 0.3b ;; Author: Bastien ;; Maintainer: Bastien ;; Keywords: Mediawiki Org export @@ -182,7 +182,7 @@ "Export lists to mediawiki syntax." (while (re-search-forward (org-item-beginning-re) nil t) (move-beginning-of-line 1) - (insert (org-list-to-generic + (insert (org-list-to-generic (org-list-parse-list t) (org-combine-plists '(:splice nil @@ -190,10 +190,11 @@ :ustart "" :uend "" :dstart "" :dend "" :dtstart "" :dtend " " - :istart (concat (make-string (* 2 depth) ? ) - (if (eq type 'unordered) - "- " "# ")) + :istart (concat + (make-string + (1+ depth) (if (eq type 'unordered) ?* ?#)) " ") :iend "\n" + :nobr t :icount nil :csep "\n" :cbon "[X]" :cboff "[ ]" -- 2.11.4.GIT