Klimi's new dotfiles with stow.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

111 regels
3.2 KiB

;;; 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