projects
/
chise
/
est.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
9e5f4ce
)
(www-display-object-desc): New function.
author
MORIOKA Tomohiko
<tomo@kanji.zinbun.kyoto-u.ac.jp>
Mon, 18 Oct 2010 01:34:24 +0000
(10:34 +0900)
committer
MORIOKA Tomohiko
<tomo@kanji.zinbun.kyoto-u.ac.jp>
Mon, 18 Oct 2010 01:34:24 +0000
(10:34 +0900)
cwiki-view.el
patch
|
blob
|
history
diff --git
a/cwiki-view.el
b/cwiki-view.el
index
a83e0ec
..
28c25f4
100644
(file)
--- a/
cwiki-view.el
+++ b/
cwiki-view.el
@@
-60,9
+60,11
@@
(princ (format "<h%d>%s%s</h%d>\n"
level
(www-format-encode-string
(princ (format "<h%d>%s%s</h%d>\n"
level
(www-format-encode-string
- (if (eq genre 'character)
- (char-to-string object)
- (format "%s" (concord-object-id object))))
+ (est-format-object object)
+ ;; (if (eq genre 'character)
+ ;; (char-to-string object)
+ ;; (format "%s" (concord-object-id object)))
+ )
(if GlyphWiki-id
(format
" <a href=\"http://glyphwiki.org/wiki/%s\"><img alt=\"%s\" src=\"http://glyphwiki.org/glyph/%s.50px.png\" /></a>"
(if GlyphWiki-id
(format
" <a href=\"http://glyphwiki.org/wiki/%s\"><img alt=\"%s\" src=\"http://glyphwiki.org/glyph/%s.50px.png\" /></a>"
@@
-128,17
+130,20
@@
"<form action=\"http://chise.zinbun.kyoto-u.ac.jp/ids-find\">\n")
(princ
(www-format-encode-string
"<form action=\"http://chise.zinbun.kyoto-u.ac.jp/ids-find\">\n")
(princ
(www-format-encode-string
- (if (eq genre 'character)
- (format "%c" object)
- (format "%s" (concord-object-id object)))))
+ (est-format-object object)
+ ;; (if (eq genre 'character)
+ ;; (format "%c" object)
+ ;; (format "%s" (concord-object-id object)))
+ ))
(princ
(format
" <input type=\"text\" name=\"components\"
size=\"30\" maxlength=\"30\" value=\"%s\" />"
(encode-coding-string
(princ
(format
" <input type=\"text\" name=\"components\"
size=\"30\" maxlength=\"30\" value=\"%s\" />"
(encode-coding-string
- (if (eq genre 'character)
- (char-to-string object)
- (format "%s" (concord-object-id object)))
+ (est-format-object object)
+ ;; (if (eq genre 'character)
+ ;; (char-to-string object)
+ ;; (format "%s" (concord-object-id object)))
'utf-8-jp-er)))
(princ
(www-format-encode-string
'utf-8-jp-er)))
(princ
(www-format-encode-string