dotfiles/emacs/.emacs.d/elpa/org-ref-20191125.1408/citeproc/csl/unsrt-paren.el

;;; unsrt-paren.el --- numbered citations in ()

;;; Commentary:
;; This does not work well for brackets because org-mode interprets them as
;; footnotes.

;;; Code:

(setq citation-style
  '((label . orcp-citation-number-label)
    (prefix . "(")
    (suffix . ")")
    (chomp-leading-space . nil)
    (chomp-trailing-space . nil)
    ;; sort on increasing citation numbers.
    (sort . (lambda (key1 key2)
	      (let ((i1 (-find-index
			 (lambda (entry)
			   (string= key1 (car entry)))
			 *orcp-unique-entries*))
		    (i2 (-find-index
			 (lambda (entry)
			   (string= key2 (car entry)))
			 *orcp-unique-entries*)))
		(> i2 i1))))
    (collapse . 'orcp-collapse-numeric-range)
    (delimiter . ",")
    (vertical-align . baseline)
    (transpose-punctuation . nil)	;put citations on right of punctuation
    (citenum . ((vertical-align . baseline)
		(prefix . "")
		(suffix . "")
		(chomp-leading-space . nil)
		(chomp-trailing-space . nil)))
    (citeauthor . ((vertical-align . baseline)
		   (label . orcp-citation-author-label)
		   (prefix . "")
		   (suffix . "")
		   (chomp-leading-space . nil)
		   (chomp-trailing-space . nil)))
    (citeyear . ((vertical-align . baseline)
		 (label . orcp-citation-year-label)
		 (prefix . "")
		 (suffix . "")
		 (chomp-leading-space . nil)
		 (chomp-trailing-space . nil)))))


(setq bibliography-style
  '((sort . nil)
    (hanging-indent . 3)
    (justification . full)
    (spacing . 1)
    (label . orcp-citation-number-label)
    (label-prefix . "")
    (label-suffix . ") ")
    (header . ((text . "Bibliography")
	       (font-style . bold)))
    ;; Formatting of fields
    ;; Single author name
    (author . ((initialize . t)		; use initials, not full names
	       (name-order . (lastname firstname))
	       (name-separator . ", ")
	       (et-al . 4)		; after 4 authors use et-al
	       (delimiter . "; ")
	       (last-author-delimiter . " and ")
	       (suffix . "")
	       (field-separator . ", ")
	       ;; ; function to convert (first von last jr) to a string.)
	       (name-format . ''format-author-name)
	       (field-separator ", ")))
    (title . ((font-style . italics)
	      (suffix . "")
	      (field-separator . ", ")))
    (journal . ((suffix . "")
		(field-separator . ", ")))
    ;; here we use some logic to group volume(issue) or volume
    (volume . ((suffix . (when (orcp-get-entry-field "number" entry)
			   (orcp-issue entry)))
	       (field-separator . ", ")))
    (issue . ((font-style . bold)
	      (prefix . "(")
	      (suffix . ")")
	      (field-separator . ", ")))
    (pages . ((prefix . "pp. ")
	      (suffix . "")
	      (field-separator . " ")
	      (collapse-range . nil)))
    (year . ((prefix . "(")
	     (suffix . ")")
	     (field-separator . ".")))
    (doi . ((prefix . " ")
	    (suffix . ".")
	    (field-separator . "")
	    (formatter . orcp-doi-formatter)))
    ;; Formatting of entries
    (entries . ((article . (author title journal volume pages year doi))
		(book . (author title year))
		(misc . (author title url doi))
		(techreport . (author title institution year))
		(mastersthesis . (author title school year))
		(phdthesis . (author title school year))
		(t . (author title year))))))

(provide 'unsrt-paren)

;;; unsrt-paren.el ends here