From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Tue, 7 Jun 2016 05:30:06 +0000 (+0900)
Subject: (www-format-encode-string): Add "tooltip" and "tooltiptext" for HNG
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=533733f36fd44104199cc43d207357024b1a9c9b;p=chise%2Fest.git

(www-format-encode-string): Add "tooltip" and "tooltiptext" for HNG
images.
---

diff --git a/cwiki-common.el b/cwiki-common.el
index 8777b1f..55ebc56 100644
--- a/cwiki-common.el
+++ b/cwiki-common.el
@@ -980,12 +980,18 @@ style=\"vertical-align:middle\">"
 		    (char-to-string (decode-char 'ascii (+ 96 subcode)))))
 	    (replace-match
 	     (format
-	      "<img alt=\"HNG%s-%04d%s\" src=\"%s/%s/%04d%s.png\"
-style=\"vertical-align:middle; width: 48px; height: 48px\">"
+	      "<div class=\"tooltip\"><img alt=\"HNG%s-%04d%s\" src=\"%s/%s/%04d%s.png\" style=\"
+vertical-align:middle; width: 48px; height: 48px\"><span
+class=\"tooltiptext\">%s</span></div>"
 	      plane code subcode
 	      chise-wiki-hng-bitmap-glyphs-url
 	      plane code subcode
-	      www-format-char-img-style)
+	      (charset-description
+	       (car (find (format "HNG%s-" plane)
+			  coded-charset-entity-reference-alist
+			  :test (lambda (key cell)
+				  (string= key (nth 1 cell))))))
+	      )
 	     t 'literal))
 
 	  (goto-char (point-min))