From: MORIOKA Tomohiko Date: Sat, 19 Mar 2016 09:30:33 +0000 (+0900) Subject: (www-format-char-img-style): New variable. X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=ea1f2420aab80b9a312421181250e7e538febac4;p=chise%2Fids.git (www-format-char-img-style): New variable. (www-ids-find-format-line): - Enclose the first column with tag. - Enclose IDS with tag. (www-batch-ids-find): Setup styles. --- diff --git a/www/www-hng-ids-find.el b/www/www-hng-ids-find.el index 011aecb..7cbb17b 100644 --- a/www/www-hng-ids-find.el +++ b/www/www-hng-ids-find.el @@ -1,6 +1,8 @@ (require 'ids-find) (require 'cwiki-common) +(setq www-format-char-img-style "vertical-align:middle;") + (defvar hng-ccs-list (let (dest) (dolist (ccs (charset-list)) @@ -156,7 +158,9 @@ (defun www-ids-find-format-line (c is) (let (ucs len i ids) + (princ "") (www-ids-find-format-char c 'code-desc) + (princ "") (princ (or (if (setq ucs (or (char-ucs c) (encode-char c 'ucs))) @@ -177,9 +181,11 @@ (setq ids (ideographic-structure-to-ids is)) (setq i 0 len (length ids)) + (princ "") (while (< i len) (www-ids-find-format-char (aref ids i)) - (setq i (1+ i)))) + (setq i (1+ i))) + (princ "")) (when (and ucs (with-current-buffer (find-file-noselect @@ -308,6 +314,18 @@ CHISE IDS Find +