From: MORIOKA Tomohiko <tomo@kanji.zinbun.kyoto-u.ac.jp>
Date: Fri, 19 Mar 2010 04:02:48 +0000 (+0900)
Subject: (www-xml-format-unit): Support tag style `ref' in `link'.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=8dd6082cb4771efc4977f79e9692d6f70e671507;p=chise%2Fest.git

(www-xml-format-unit): Support tag style `ref' in `link'.
---

diff --git a/cwiki-common.el b/cwiki-common.el
index 4ca601c..4f62691 100644
--- a/cwiki-common.el
+++ b/cwiki-common.el
@@ -725,7 +725,7 @@
     dest))
 
 (defun www-xml-format-unit (format-unit)
-  (let (name props children)
+  (let (name props children ret)
     (cond
      ((stringp format-unit)
       format-unit)
@@ -733,6 +733,13 @@
       (setq name (car format-unit)
 	    props (nth 1 format-unit)
 	    children (nthcdr 2 format-unit))
+      (when (eq name 'link)
+	(setq ret (plist-get props :ref))
+	(unless (stringp ret)
+	  (setq props (plist-remprop (copy-list props) :ref))
+	  (setq children
+		(cons (list* 'ref nil ret)
+		      children))))
       (if children
 	  (format "<%s%s>%s</%s>"
 		  name