+(defun www-ids-insert-chars-including-components* (components
+ &optional ignored-chars products)
+ (unless products
+ (setq products (ideograph-find-products components ignored-chars)))
+ (let (is as bs len)
+ (setq len (length products))
+ (princ "<ul>\n")
+ (dolist (c (cond
+ ((>= len 1024)
+ (sort (copy-list products)
+ (lambda (a b)
+ (< (char-int a)(char-int b))))
+ )
+ ((>= len 512)
+ (sort (copy-list products)
+ (lambda (a b)
+ (if (setq as (char-total-strokes a))
+ (if (setq bs (char-total-strokes b))
+ (if (= as bs)
+ (< (char-int a)(char-int b))
+ (< as bs))
+ t)
+ (< (char-int a)(char-int b)))))
+ )
+ (t
+ (sort (copy-list products)
+ (lambda (a b)
+ (if (setq as (char-total-strokes a))
+ (if (setq bs (char-total-strokes b))
+ (if (= as bs)
+ (ideograph-char< a b)
+ (< as bs))
+ t)
+ (ideograph-char< a b))))
+ )))
+ (unless (memq c ignored-chars)
+ (setq is (char-feature c 'ideographic-structure))
+ (princ "<li>")
+ (www-ids-find-format-line c is)
+ (setq ignored-chars
+ (www-ids-insert-chars-including-components*
+ (char-to-string c) (cons c ignored-chars)))
+ )
+ )
+ (princ "</ul>\n")
+ )
+ ignored-chars)
+