X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=cwiki-common.el;h=b5bf4c03861b44b17ddad60e36da1a6c439601e8;hb=80a872505b801316f6918daca3b403dd42e33f99;hp=9817062192355028b9dd81e334078990e16bde89;hpb=df2fa617d25de8d6ccae25b062f2b973e2d95113;p=chise%2Fest.git diff --git a/cwiki-common.el b/cwiki-common.el index 9817062..b5bf4c0 100644 --- a/cwiki-common.el +++ b/cwiki-common.el @@ -4,6 +4,9 @@ (setq file-name-coding-system 'utf-8-mcs-er) +(concord-assign-genre 'code-point "/usr/local/var/chise-ipld/db") +(concord-assign-genre 'coded-character "/usr/local/var/chise-ipld/db") +(concord-assign-genre 'glyph "/usr/local/var/chise-ipld/db") (concord-assign-genre 'image-resource "/usr/local/var/photo/db") (concord-assign-genre 'glyph-image "/usr/local/var/photo/db") @@ -1019,6 +1022,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 +1054,7 @@ style=\"vertical-align:middle\">" (replace-match (format "
\"HNG%s-%04d%s\"%s
" plane code subcode chise-wiki-hng-bitmap-glyphs-url