From 2fadf24f129be384945dd64fdc7c80ff3e1fd8d3 Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Sat, 19 Mar 2016 18:29:56 +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-ids-find.el | 20 +++++++++++++++++++- 1 file changed, 19 insertions(+), 1 deletion(-) diff --git a/www/www-ids-find.el b/www/www-ids-find.el index 51b372c..1dce832 100644 --- a/www/www-ids-find.el +++ b/www/www-ids-find.el @@ -1,6 +1,8 @@ (require 'ids-find) (require 'cwiki-common) +(setq www-format-char-img-style "vertical-align:middle;") + (defun decode-url-string (string &optional coding-system) (if (> (length string) 0) (let ((i 0) @@ -135,7 +137,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))) @@ -156,9 +160,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 @@ -283,6 +289,18 @@ CHISE IDS Find + -- 1.7.10.4