Klimi's new dotfiles with stow.
選択できるのは25トピックまでです。 トピックは、先頭が英数字で、英数字とダッシュ('-')を使用した35文字以内のものにしてください。
 
 
 
 
 
 

107 行
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