+;; (defun est-journal-volume-object-get-volume-format (spec feature)
+;; (when (integerp spec)
+;; (setq spec (format "%02d" spec)))
+;; (cond ((string= spec "YY") `((decimal (:feature
+;; ->published/date*year)) "年"))
+;; ((string= spec "00") `((decimal (:feature ,feature))))
+;; ((string= spec "01") `((decimal (:feature ,feature)) "期"))
+;; ((string= spec "02") `((decimal (:feature ,feature)) "巻"))
+;; ((string= spec "03") `((decimal (:feature ,feature)) "号"))
+;; ((string= spec "04") `((decimal (:feature ,feature)) "&HD-JA-4A54;"))
+;; ((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)) "部"))
+;; ((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)) "月号"))
+;; ((string= spec "14") `((decimal (:feature ,feature)) "特集号"))
+;; ((string= spec "15") `((decimal (:feature ,feature)) "本"))
+;; ((string= spec "16") `((decimal (:feature ,feature)) "分"))
+;; ((string= spec "51") `("Vol." ((decimal (:feature ,feature)))))
+;; ((string= spec "52") `("No." ((decimal (:feature ,feature)))))
+;; ((string= spec "53") `("Part " ((decimal (:feature ,feature)))))
+;; ((string= spec "54") `("Issue " ((decimal (:feature ,feature)))))
+;; ((string= spec "55") `("Tome " ((decimal (:feature ,feature)))))
+;; ((string= spec "56") `("Tomo " ((decimal (:feature ,feature)))))
+;; ((string= spec "57") `("Tomus " ((decimal (:feature ,feature)))))
+;; ((string= spec "58") `("Fasc." ((decimal (:feature ,feature)))))
+;; ((string= spec "59") `("Livre " ((decimal (:feature ,feature)))))
+;; ((string= spec "60") `("Année " ((decimal (:feature ,feature)))))
+;; ((string= spec "61") `("Bd." ((decimal (:feature ,feature)))))
+;; ((string= spec "62") `("Heft " ((decimal (:feature ,feature)))))
+;; ((string= spec "63") `("Nr." ((decimal (:feature ,feature)))))
+;; ((string= spec "64") `("Jahrg." ((decimal (:feature ,feature)))))
+;; ((string= spec "65") `("Jaarg." ((decimal (:feature ,feature)))))
+;; ((string= spec "66") `("Trimestre" ((decimal (:feature ,feature)))))
+;; (t nil)
+;; ))
+
+(defun est-eval-value-as-journal-volume (value &optional short)
+ (let ((journal (car (or (concord-object-get value '<-journal/volume)
+ (concord-object-get value '<-volume))))
+ (vol-name (concord-object-get value '<-journal/volume*name))
+ volume-type number-type
+ year
+ dest ret title subtitle)
+ (cond
+ (journal
+ (if vol-name
+ (setq dest
+ (list
+ (list 'object (list :object value)
+ vol-name)))
+ (setq volume-type (concord-object-get journal 'volume/type/code)
+ number-type (concord-object-get journal 'number/type/code))
+ (setq year (or (concord-object-get value '->published/date*year)
+ (concord-object-get
+ (car (concord-object-get value 'date)) 'year)))
+ (setq dest
+ (list
+ (list 'object
+ (list :object value)
+ (ruimoku-format-volume
+ volume-type
+ (or (concord-object-get value '<-journal/volume*volume)
+ (concord-object-get value '<-volume*volume))
+ year 'cjk)
+ (ruimoku-format-volume
+ number-type
+ (or (concord-object-get value '<-journal/volume*number)
+ (concord-object-get value '<-volume*number))
+ year 'cjk))))
+ )
+ (unless short
+ (if (setq ret (est-eval-value-as-object journal))
+ (setq dest
+ (list* ret " " dest))))
+ (list* 'list '(:subtype sequence :separator "") dest)
+ )
+ ((setq title (concord-object-get value 'title))
+ (setq subtitle (concord-object-get value 'title/subtitle))
+ (list* 'object
+ (list :object value)
+ (if (eq (concord-object-get value 'writing-system) 'cjk)
+ (list
+ "「"
+ (list 'object (list :object value)
+ (if subtitle
+ (concat title " — " subtitle)
+ title))
+ "」")
+ (list
+ " ‘"
+ (list 'object (list :object value)
+ (if subtitle
+ (concat title " — " subtitle)
+ title))
+ "’")))
+ )
+ (t
+ (est-eval-value-default value)
+ ))
+ ;; (concat (concord-object-get journal 'name)
+ ;; " "
+ ;; (ruimoku-format-volume
+ ;; volume-type
+ ;; (or (concord-object-get value '<-journal/volume*volume)
+ ;; (concord-object-get value '<-volume*volume))
+ ;; year 'cjk)
+ ;; (ruimoku-format-volume
+ ;; number-type
+ ;; (or (concord-object-get value '<-journal/volume*number)
+ ;; (concord-object-get value '<-volume*number))
+ ;; year 'cjk))
+ ))
+
+(defun est-eval-value-as-article (value)
+ (let ((journal-volume (car (concord-object-get value '<-article)))
+ (page (concord-object-get value 'page))
+ date ret dest)
+ (when journal-volume
+ (setq date (car (concord-object-get journal-volume 'date)))
+ (if (and date
+ (setq ret (est-eval-value-as-object date)))
+ (setq dest (list ", " ret))))
+ (if page
+ (setq dest (list* ", pp." page dest)))
+ (when (and journal-volume
+ (setq ret (est-eval-value-as-journal-volume journal-volume)))
+ (setq dest (cons ret dest)))
+ (if (setq ret (est-eval-value-as-book value))
+ (setq dest (list* ret " " dest)))
+ (list* 'list '(:subtype sequence :separator "") dest))
+ ;; (let ((creators (concord-object-get value '->creator))
+ ;; (title (concord-object-get value 'title))
+ ;; creator-name creator-role)
+ ;; (concat
+ ;; (mapconcat
+ ;; (lambda (creator)
+ ;; (setq creator-name
+ ;; (concord-object-get
+ ;; (car (concord-object-get creator '->creator/name))
+ ;; '=name))
+ ;; (setq creator-role
+ ;; (or (concord-object-get creator 'role*name)
+ ;; (format "(%s)"
+ ;; (concord-object-get creator 'role*type))))
+ ;; (concat creator-name " " creator-role))
+ ;; creators ", ")
+ ;; (if (eq (concord-object-get value 'writing-system) 'cjk)
+ ;; (concat "「" title "」")
+ ;; (concat " ‘" title "’"))))
+ )
+
+(defun est-eval-value-as-book (value)
+ (let ((creators (concord-object-get value '->creator))
+ (title (concord-object-get value 'title))
+ (subtitle (concord-object-get value 'title/subtitle))
+ (series (concord-object-get value 'series))
+ (publisher (car (concord-object-get value 'publisher)))
+ (date (car (concord-object-get value 'date)))
+ ;; creator-name creator-role
+ dest ret)
+ (if (and date
+ (setq ret (est-eval-value-as-object date)))
+ (setq dest (list ", " ret)))
+ (if (and publisher
+ (setq ret (est-eval-value-as-object publisher)))
+ (setq dest (list* " " ret dest)))
+ (if series
+ (setq dest (list* series "," dest)))
+ (setq dest
+ (if title
+ (if (eq (concord-object-get value 'writing-system) 'cjk)
+ (list*
+ "「"
+ (list 'object (list :object value)
+ (if subtitle
+ (concat title " — " subtitle)
+ title))
+ "」" dest)
+ (list*
+ " ‘"
+ (list 'object (list :object value)
+ (if subtitle
+ (concat title " — " subtitle)
+ title))
+ "’" dest))
+ (list* " "
+ (list 'object (list :object value)
+ "(review)")
+ dest)))
+ (when (and creators
+ (setq ret (est-eval-value-as-creators-names creators)))
+ (setq dest (cons ret dest)))
+ (list* 'list '(:subtype sequence :separator "") dest)
+ ;; (concat
+ ;; (mapconcat
+ ;; (lambda (creator)
+ ;; (setq creator-name
+ ;; (concord-object-get
+ ;; (car (concord-object-get creator '->creator/name))
+ ;; '=name))
+ ;; (setq creator-role
+ ;; (or (concord-object-get creator 'role*name)
+ ;; (format "(%s)"
+ ;; (concord-object-get creator 'role*type))))
+ ;; (concat creator-name " " creator-role))
+ ;; creators ", ")
+ ;; (if (eq (concord-object-get value 'writing-system) 'cjk)
+ ;; (concat "「" title
+ ;; (if subtitle
+ ;; (concat " — " subtitle))
+ ;; "」")
+ ;; (concat " ‘" title
+ ;; (if subtitle
+ ;; (concat " — " subtitle))
+ ;; "’"))
+ ;; (if series
+ ;; (concat " " series))
+ ;; (if publisher
+ ;; (concat ", "
+ ;; (concord-object-get
+ ;; (car (concord-object-get
+ ;; publisher '->publisher/name))
+ ;; '=name)))
+ ;; (if date
+ ;; (concat ", " (concord-object-get date 'name)))))
+ ))
+
+;; (defun est-eval-creator (value)
+;; (est-eval-list
+;; '((value (:feature ->name))
+;; (string (:feature role*name)))
+;; value nil))
+