From: MORIOKA Tomohiko <tomo.git@chise.org>
Date: Wed, 16 Mar 2016 15:03:21 +0000 (+0900)
Subject: (est-eval-value-as-ids): New implementation.
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=4aa39ce319ec73027b770bfdc751d80bca2cde36;p=chise%2Fest.git

(est-eval-value-as-ids): New implementation.
---

diff --git a/est-eval.el b/est-eval.el
index c7a1b3b..3635eaf 100644
--- a/est-eval.el
+++ b/est-eval.el
@@ -17,12 +17,12 @@
 	((eq spec 05) (concat value "&HD-JA-4A53;"))
 	((eq spec 06) (concat value "集"))
 	((eq spec 07) (concat value "輯"))
-	((eq spec 08) (concat value "&GT-53119;"))
-	((eq spec 09) (concat value "&GT-53119;分"))
+	((eq spec 08) (concat value "部"))
+	((eq spec 09) (concat value "部分"))
 	((eq spec 10) (concat value "冊"))
 	((eq spec 11) (concat value "分冊"))
 	((eq spec 12) (concat value "次"))
-	((eq spec 13) (concat value "&MJ013520;号"))
+	((eq spec 13) (concat value "月号"))
 	((eq spec 14) (concat value "特集号"))
 	((eq spec 15) (concat value "本"))
 	((eq spec 16) (concat value "分"))
@@ -77,12 +77,12 @@
 ;;         ((string= spec "05") `((decimal (:feature ,feature)) "&HD-JA-4A53;"))
 ;;         ((string= spec "06") `((decimal (:feature ,feature)) "集"))
 ;;         ((string= spec "07") `((decimal (:feature ,feature)) "輯"))
-;;         ((string= spec "08") `((decimal (:feature ,feature)) "&GT-53119;"))
-;;         ((string= spec "09") `((decimal (:feature ,feature)) "&GT-53119;分"))
+;;         ((string= spec "08") `((decimal (:feature ,feature)) "部"))
+;;         ((string= spec "09") `((decimal (:feature ,feature)) "部分"))
 ;;         ((string= spec "10") `((decimal (:feature ,feature)) "冊"))
 ;;         ((string= spec "11") `((decimal (:feature ,feature)) "分冊"))
 ;;         ((string= spec "12") `((decimal (:feature ,feature)) "次"))
-;;         ((string= spec "13") `((decimal (:feature ,feature)) "&MJ013520;号"))
+;;         ((string= spec "13") `((decimal (:feature ,feature)) "月号"))
 ;;         ((string= spec "14") `((decimal (:feature ,feature)) "特集号"))
 ;;         ((string= spec "15") `((decimal (:feature ,feature)) "本"))
 ;;         ((string= spec "16") `((decimal (:feature ,feature)) "分"))
@@ -426,10 +426,18 @@
 	(error (format "%s" value)))
     (format "%s" value)))
 
+;; (defun est-eval-value-as-ids (value)
+;;   (if (listp value)
+;;       (list 'ids nil (ideographic-structure-to-ids value))
+;;     (format "%s" value)))
 (defun est-eval-value-as-ids (value)
   (if (listp value)
-      (list 'ids nil (ideographic-structure-to-ids value))
-    (format "%s" value)))
+      (list* 'ids
+	     nil
+	     (mapcar #'est-eval-value-as-object
+		     (ideographic-structure-to-ids value))
+	     )
+    (est-eval-value-default value)))
 
 (defun est-eval-value-as-space-separated-ids (value)
   (if (listp value)