projects
/
chise
/
est.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(est-eval-value-as-shuowen-radical): New function.
[chise/est.git]
/
est-eval.el
diff --git
a/est-eval.el
b/est-eval.el
index
d395637
..
65db614
100644
(file)
--- a/
est-eval.el
+++ b/
est-eval.el
@@
-426,6
+426,15
@@
(format "%c" (ideographic-radical value)))
(est-eval-value-as-S-exp value)))
(format "%c" (ideographic-radical value)))
(est-eval-value-as-S-exp value)))
+(defun est-eval-value-as-shuowen-radical (value)
+ (if (and (integerp value)
+ (<= 0 value)
+ (<= value 540))
+ (list 'shuowen-radical
+ nil
+ (format "%c" (shuowen-radical value)))
+ (est-eval-value-as-S-exp value)))
+
(defun daijiten-page-number-to-ndl-950498 (page)
(+ (/ page 2)
(cond ((< page 229)
(defun daijiten-page-number-to-ndl-950498 (page)
(+ (/ page 2)
(cond ((< page 229)
@@
-820,6
+829,8
@@
(est-eval-value-as-kuten value))
((eq format 'kangxi-radical)
(est-eval-value-as-kangxi-radical value))
(est-eval-value-as-kuten value))
((eq format 'kangxi-radical)
(est-eval-value-as-kangxi-radical value))
+ ((eq format 'shuowen-radical)
+ (est-eval-value-as-shuowen-radical value))
((eq format 'ids)
(est-eval-value-as-ids value))
((eq format 'decomposition)
((eq format 'ids)
(est-eval-value-as-ids value))
((eq format 'decomposition)
@@
-912,7
+923,8
@@
((null exp) "")
((consp exp)
(cond
((null exp) "")
((consp exp)
(cond
- ((memq (car exp) '(value decimal hex HEX ku-ten kangxi-radical
+ ((memq (car exp) '(value decimal hex HEX ku-ten
+ kangxi-radical shuowen-radical
S-exp string default))
(let ((fn (plist-get (nth 1 exp) :feature))
domain domain-fn ret)
S-exp string default))
(let ((fn (plist-get (nth 1 exp) :feature))
domain domain-fn ret)