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

diff --git a/cwiki-common.el b/cwiki-common.el
index 4ca601c..4f62691 100644 (file)
--- 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