(www-format-char-img-style): New variable.
authorMORIOKA Tomohiko <tomo.git@chise.org>
Sat, 19 Mar 2016 09:29:56 +0000 (18:29 +0900)
committerMORIOKA Tomohiko <tomo.git@chise.org>
Sat, 19 Mar 2016 09:29:56 +0000 (18:29 +0900)
(www-ids-find-format-line):
- Enclose the first column with <span class=\"entry\"> tag.
- Enclose IDS with <span class=\"ids\"> tag.
(www-batch-ids-find): Setup styles.

www/www-ids-find.el

index 51b372c..1dce832 100644 (file)
@@ -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)
   
 (defun www-ids-find-format-line (c is)
   (let (ucs len i ids)
+    (princ "<span class=\"entry\">")
     (www-ids-find-format-char c 'code-desc)
+    (princ "</span>")
     (princ
      (or (if (setq ucs (or (char-ucs c)
                           (encode-char c 'ucs)))
       (setq ids (ideographic-structure-to-ids is))
       (setq i 0
            len (length ids))
+      (princ "<span class=\"ids\">")      
       (while (< i len)
        (www-ids-find-format-char (aref ids i))
-       (setq i (1+ i))))
+       (setq i (1+ i)))
+      (princ "</span>"))
     (when (and ucs
               (with-current-buffer
                   (find-file-noselect
 <html lang=\"ja\">
 <head>
 <title>CHISE IDS Find</title>
+<style type=\"text/css\">
+<!--
+.entry { font-size: 36px; }
+.entry a img { height: 36px; }
+.ids { font-size: 24px; }
+.ids a img { height: 24px; }
+img { vertical-align:middle; }
+a { text-decoration:none; }
+ul { margin: 0 0; }
+li { margin: 0 0 -0.2em; }
+-->
+</style>
 </head>
 
 <body>