From: tomo <tomo>
Date: Mon, 5 Sep 2005 05:45:58 +0000 (+0000)
Subject: (www-ids-insert-chars-including-components): New function.
X-Git-Tag: chise-base-0_23~84
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=9c023c9c061208ff88a015b9b425ab06583899b3;p=chise%2Fids.git

(www-ids-insert-chars-including-components): New function.
(www-batch-ids-find): Use `www-ids-insert-chars-including-components'.
---

diff --git a/www/www-ids-find.el b/www/www-ids-find.el
index cf47c73..81fca1b 100644
--- a/www/www-ids-find.el
+++ b/www/www-ids-find.el
@@ -134,6 +134,22 @@
       (princ (encode-coding-string "⇒[唐代拓本]</a>" 'utf-8-jp-er)))
     (princ "<br>\n")))
 
+(defun www-ids-insert-chars-including-components (components)
+  (let (is)
+    (dolist (c (ideographic-products-find components))
+      (setq is (char-feature c 'ideographic-structure))
+      ;; to avoid problems caused by wrong indexes
+      (when (every (lambda (cc)
+		     (ideographic-structure-member cc is))
+		   components)
+	(princ "<li>")
+	(www-ids-find-format-line c is)
+	(princ "<ul>\n")
+	(www-ids-insert-chars-including-components (char-to-string c))
+	(princ "</ul>\n")
+	)
+      )))
+
 (defun www-batch-ids-find ()
   (let ((components (car command-line-args-left))
 	(coded-charset-entity-reference-alist
@@ -215,13 +231,16 @@
 	(www-ids-find-format-line (aref components 0)
 				  (char-feature (aref components 0)
 						'ideographic-structure)))
-      (dolist (c (ideographic-products-find components))
-	(setq is (char-feature c 'ideographic-structure))
-	;; to avoid problems caused by wrong indexes
-	(when (every (lambda (c)
-		       (ideographic-structure-member c is))
-		     components)
-	  (www-ids-find-format-line c is)))
+      ;; (dolist (c (ideographic-products-find components))
+      ;;   (setq is (char-feature c 'ideographic-structure))
+      ;;   ;; to avoid problems caused by wrong indexes
+      ;;   (when (every (lambda (c)
+      ;;                  (ideographic-structure-member c is))
+      ;;                components)
+      ;;     (www-ids-find-format-line c is)))
+      (princ "<ul>\n")
+      (www-ids-insert-chars-including-components components)
+      (princ "</ul>\n")
       )
      (t
       (princ (encode-coding-string "<hr>