update.

[chise/est.git] / est-format.el

diff --git a/est-format.el b/est-format.el
index bd507be..b9278ab 100644 (file)
--- a/est-format.el
+++ b/est-format.el
@@ -132,6 +132,26 @@
                        children)))
          ))
        )
+       ((eq name 'omitted)
+       (cond
+        ((eq output-format 'wiki-text)
+         (setq output-string "{{...}}")
+         )
+        ((and (eq output-format 'html)
+              (setq object (plist-get props :object))
+              (setq feature (plist-get props :feature)))
+         (setq children
+               (list
+                (list* 'a
+                       (list :href
+                             (concat (www-uri-make-object-url object)
+                                     (if est-hide-cgi-mode
+                                         "/feature="
+                                       "&feature=")
+                                     (www-uri-encode-feature-name feature)))
+                       children)))
+         ))
+       )
        ((eq name 'feature-name)
        (setq name 'span)
        (when (eq output-format 'html)
@@ -285,7 +305,7 @@
    (t
     (mapconcat (lambda (unit)
                 (est-format-unit
-                 unit output-format without-edit as-property separator))
+                 unit output-format without-edit as-property))
               format-list separator)
     )))