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

;;; unsrt.el --- Citation Style Lisp - the other CSL


;;; Commentary:
;;

;;; Code:

(setq citation-style
  '((label . orcp-citation-number-label)
    (prefix . "")
    (suffix . "")
    (chomp-leading-space . t)
    (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 . superscript)
    (transpose-punctuation . t)		;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 . ", ")))
	(booktitle . ((font-style . italics)
		      (suffix . "")
		      (field-separator . "in ")))
	(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))
		    (inproceedings . (author title booktitle year))
		    (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)

;;; unsrt.el ends here