- year)
- (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)))
- ;; (append (list (concord-object-get journal 'name))
- ;; (est-journal-volume-object-get-volume-format
- ;; volume-type '<-volume*volume)
- ;; (est-journal-volume-object-get-volume-format
- ;; number-type '<-volume*number)
- ;; )
- (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))
+ 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))