From ea1f2420aab80b9a312421181250e7e538febac4 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Sat, 19 Mar 2016 18:30:33 +0900 Subject: [PATCH] (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. --- www/www-hng-ids-find.el | 20 +++++++++++++++++++- 1 file changed, 19 insertions(+), 1 deletion(-) 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 + -- 1.7.10.4