From 1a11294a6e72f8632243e3835f4094cc88b407db Mon Sep 17 00:00:00 2001 From: MORIOKA Tomohiko Date: Fri, 14 Dec 2018 19:25:37 +0900 Subject: [PATCH] (www-format-encode-string): - Add code for &SW-JIGUGE[45]-ddddd;. - Use "width: auto; max-height: 60px" instead of "width: 48px; height: 48px" for HNG glyph images. --- cwiki-common.el | 23 ++++++++++++++++++++++- 1 file changed, 22 insertions(+), 1 deletion(-) diff --git a/cwiki-common.el b/cwiki-common.el index 9817062..cd01912 100644 --- a/cwiki-common.el +++ b/cwiki-common.el @@ -1019,6 +1019,27 @@ style=\"vertical-align:middle\">" t 'literal)) (goto-char (point-min)) + (while (re-search-forward "&SW-JIGUGE\\([45]?\\)-\\([0-9]+\\);" nil t) + (setq subcode (match-string 1) + code (string-to-int (match-string 2))) + (setq plane + (if (string= subcode "") + "5" + subcode)) + (replace-match + (format "
\"SW-JIGUGE%s-%05d\"%s
" + plane code + chise-wiki-bitmap-glyphs-url + plane code + (charset-description + (if (string= subcode "") + '=shuowen-jiguge + (intern (format "===shuowen-jiguge%s" subcode))))) + t 'literal)) + + (goto-char (point-min)) (while (re-search-forward "&HNG\\([0-9]+\\)-\\([0-9][0-9][0-9][0-9]\\)\\([0-9]\\);" nil t) (setq plane (match-string 1) code (string-to-int (match-string 2)) @@ -1030,7 +1051,7 @@ style=\"vertical-align:middle\">" (replace-match (format "
\"HNG%s-%04d%s\"%s
" plane code subcode chise-wiki-hng-bitmap-glyphs-url -- 1.7.10.4