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.
107 lines
3.2 KiB
107 lines
3.2 KiB
;;; 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
|