dotfiles

Klimi's new dotfiles with stow.

Martin Klimeš 88831e7ac3 Initial commit		5 年前
..
csl	Initial commit	5 年前
readme-author-year.org	Initial commit	5 年前
readme-unsrt.org	Initial commit	5 年前
readme.bib	Initial commit	5 年前
readme.org	Initial commit	5 年前

readme.org

Introduction to a citation processor in org-ref
Archive work

http://editor.citationstyles.org/styleInfo/?styleId=http%3A%2F%2Fwww.zotero.org%2Fstyles%2Facs-nano

http://docs.citationstyles.org/en/stable/primer.html#preface

DONE Introduction to a citation processor in org-ref

CLOSED: [2015-12-11 Fri 18:05]

As a potential solution for citations in org-mode for non-LaTeX export, here we introduce csl (citation syntax lisp). The idea is heavily influenced by the xml-based Citation Syntax Language, but uses lisp sexps instead.

Briefly, there is a csl file that contains two variables: citation-style and bibliography-style. The citation-style defines how the in-text citations are represented for different types of citations. The bibliography-style defines how the bibliography is constructed.

What do we gain by this?

No need for external citeproc program, and hackability by org-mode experts.
Punctuation transposition and space chomping, i.e. put superscripts on the right side of punctuation if you want it, and remove whitespace before superscripts if you want it.
Total tunability of the citation format to different backends.
Easy to change bibliography format with the bibliographystyle link.
The use of Bibtex databases. These are plain text, and flexible.

The real code for this is too long to blog about. Instead, you should check it out here: https://github.com/jkitchin/org-ref/tree/master/citeproc

Reference types

A book cite:kittel-2005-introd-solid.
An article cite:kitchin-2015-examp
A miscellaneous bibtex type cite:xu-suppor.
A technical report cite:2011-mater-genom
An MS thesis: cite:ding-2012-metal-oxide
A PhD thesis: cite:Hossein-thesis
in proceedings: cite:abolhasani-2011-model

There is work to do in supporting other types of entry types that are common in bibtex files.

Citation types

Regular citation: cite:kitchin-2015-examp
citenum: See Ref. citenum:kitchin-2015-examp
citeauthor: citeauthor:kitchin-2015-examp
citeyear: citeyear:kitchin-2015-examp

There is work to do in supporting other types of citations.

Multiple citations and sorting within citation

You can specify that the cites within a citation are consistently sorted in the export.

a,b: cite:kitchin-2015-examp,kitchin-2015-data-surfac-scien
b,a: cite:kitchin-2015-data-surfac-scien,kitchin-2015-examp

There is work to do for range collapsing, e.g. to turn 1,2,3 into 1-3.

Space chomping and punctuation testing

I think citations should always be put in the sentence they logically belong to. LaTeX has a feature through natbib I think where for some styles, e.g. superscripts, the citations are moved to the right side of punctuation, and whitespace is chomped so the superscript is next to words, not separated by spaces. We can do that here too.

Citation at end of sentence cite:kitchin-2015-examp.
Citation in clause cite:kitchin-2015-examp,kitchin-2015-data-surfac-scien, with a comma.
Citation in middle of cite:kitchin-2015-examp,kitchin-2015-data-surfac-scien a sentence.

Building

At the moment, you have to add a hook function to put the replacements in the document before parsing.

(add-to-list 'load-path ".")
(require 'org-ref-citeproc)

(when (file-exists-p "readme.html") (delete-file "readme.html"))
(let ((org-export-before-parsing-hook '(orcp-citeproc)))
  (browse-url (org-html-export-to-html)))

#<process open ./readme.html>

An org export for footnotes. The footnotes don't go where I expect.

(add-to-list 'load-path ".")
(require 'org-ref-citeproc)

(let ((org-export-before-parsing-hook '(orcp-citeproc)))
  (org-open-file (org-org-export-to-org)))

Position saved to mark ring, go back with C-c &.

Summary thoughts

This looks promising. There is probably a lot of work to do to make this as robust as say citeproc-js or the Zotero handler. I am not sure if we could write this in a way to directly use the CSL. My feeling is it would not be as flexible as this, and we would have to add to it anyway.

Here are some remaining things that could be worked on if we continue this direction.

Other bibtex entries need to be tested out.
Remaining bibtex fields need to be defined.
Standardization of styling that can be done. Not all features described in my csl are supported, e.g. et. al. and probably others.
The author-year style needs name disambiguation somehow.
Hyperlinking in org, html.
Make sure export to other backends works. Can this make a LaTeX output with bibitems?
Can this work for notes-based styles?

Bibliography

You use a bibliographystyle link to specify a csl. These are similar to bibtex styles, and in some cases no change is needed for LaTeX export (although you may have to remove the citeproc hook function).

bibliographystyle:unsrt-footnote bibliography:readme.bib

Archive work

These are sections I worked on developing the working approach.

Parsing bibtex names

Partially derived from http://nwalsh.com/tex/texhelp/bibtx-23.html

Bibtex names have 4 parts:

First name, which also includes middle name/initial
von which is part of the last name, but in lower case letters
Last name
Jr.

Here are some acceptable formats for names in Bibtex.

"First von Last"
"von Last, First"
"von Last, Jr, First"

Note, it is also possible to have in Bibtex, in which case the von part becomes part of the last name.

"Jan A. {van Mieghem}"
"{van Mieghem}, Jan A."

And also

De Gaulle, Charles
Van Buren, Martin
Scott Thomas, Kristin
Bonham Carter, Helena
Garcia Pascual, Antonio
Del Negro, Marco
Van Gogh, Vincent
Della Francesca, Piero

Charles {De Gaulle}
Martin {Van Buren}
Kristin {Scott Thomas}
Helena {Bonham Carter}
Antonio {Garcia Pascual}
Marco {Del Negro}
Vincent {Van Gogh}
Piero {Della Francesca}

Dealing with these brackets is somewhat tricky. We cannot simply split on spaces with these present. A hack I will use is to replace them temporarily with something that looks like a name part, parse, and then put them back. Otherwise, we need a real recursive descent parser. I will use a uuid that starts with a capital letter. We develop an elisp function to parse these into a data structure: (first von last jr).

citeproc-parse-authorname

Here are examples of case 1.

(cl-loop for author in '("John R. Kitchin"
                      "John von Kitchin"
                      "John von de La von Kitchin"
                      "John von de Kitchin Jr."
                      "John {von de Kitchin}"
                      "John Paul Jones"
                      "Charles Louis Xavier Joseph de la Vallee Poussin"
                      "Ludwig von Beethoven"
                      "Jan A. {van Mieghem}"
                      "Vincent {Van Gogh}"
                      "Piero {Della Francesca}"
                      "{Barnes and Noble}"
                      "{Barnes & Noble}")
      collect (citeproc-parse-authorname author))

John R.	nil	Kitchin	nil
John	von	Kitchin	nil
John	von de La von	Kitchin	nil
John	von de	Kitchin Jr.	nil
John	nil	{von de Kitchin}	nil
John Paul	nil	Jones	nil
Charles Louis Xavier Joseph	de la	Vallee Poussin	nil
Ludwig	von	Beethoven	nil
Jan A.	nil	{van Mieghem}	nil
Vincent	nil	{Van Gogh}	nil
Piero	nil	{Della Francesca}	nil
	nil	{Barnes and Noble}	nil
	nil	{Barnes & Noble}	nil

Case 2.

(cl-loop for author in '("von Beethoven, Ludwig"
                      "{van {M}ieghem}, Jan A."
                      "De Gaulle, Charles"
                      "Van Buren, Martin"
                      "Scott Thomas, Kristin"
                      "Bonham Carter, Helena"
                      "Garcia Pascual, Antonio"
                      "Del Negro, Marco"
                      "Van Gogh, Vincent"
                      "Della Francesca, Piero")
      collect (citeproc-parse-authorname author))

Ludwig	von	Beethoven	nil
Jan A.	nil	{van {M}ieghem}	nil
Charles	nil	De Gaulle	nil
Martin	nil	Van Buren	nil
Kristin	nil	Scott Thomas	nil
Helena	nil	Bonham Carter	nil
Antonio	nil	Garcia Pascual	nil
Marco	nil	Del Negro	nil
Vincent	nil	Van Gogh	nil
Piero	nil	Della Francesca	nil

And case 3

(cl-loop for author in '("von de la Kitchin, Sr., John Robert"
                      "von Kitchin, Sr., John Robert")
      collect (citeproc-parse-authorname author))

John Robert	von de la	Kitchin	Sr.
John Robert	von	Kitchin	Sr.

I am pretty satisfied with that. This is a foundation for formatting author names in a bibliography. Note the bibtex function `bibtex-autokey-demangle-name' function has some similar code for getting a last name to use as the key.

From http://maverick.inria.fr/~Xavier.Decoret/resources/xdkbibtex/bibtex_summary.html#names

(cl-loop for author in '("Aa Bb"
                      "Aa"
                      "Aa bb"
                      "aa"
                      "Aa bb Cc"
                      "Aa bb Cc dd Ee"
                      "Aa 1B cc dd"
                      "Aa 1b cc dd"
                      "Aa {b}B cc dd"
                      "Aa {b}b cc dd"
                      "Aa {B}b cc dd"
                      "Aa {B}B cc dd"
                      "Aa \\Bb{b} cc dd"
                      "Aa \\bb{b} cc dd"
                      "{Lastname with {,} in it}, Formerly Known as"
                      "Aa {bb} cc Dd"
                      "Aa bb {cc} Dd"
                      "Aa {bb} Cc")
      collect (citeproc-parse-authorname author))

Aa	nil	Bb	nil
nil	nil	Aa	nil
Aa	nil	bb	nil
nil	nil	aa	nil
Aa	bb	Cc	nil
Aa	bb Cc dd	Ee	nil
Aa	1B cc	dd	nil
Aa	1b cc	dd	nil
Aa	{b}B cc	dd	nil
Aa {b}b	cc	dd	nil
Aa {B}b	cc	dd	nil
Aa	{B}B cc	dd	nil
Aa	\Bb{b} cc	dd	nil
Aa	\bb{b} cc	dd	nil
Formerly Known as	nil	{Lastname with {,} in it}	nil
Aa {bb}	cc	Dd	nil
Aa	bb	{cc} Dd	nil
Aa {bb}	nil	Cc	nil

I think this does about what it is supposed to do. Another function would be responsible for formatting the author name as required, e.g. putting initials in, the order of the names, etc…

Another function after that would be responsible for formatting a group of authors, e.g. specifying the delimiter between them, the trailing character after the authors, if et al should be used after some number of authors, etc…

Finally, I don't consider any transformations of the author strings, e.g. if there are LaTeX commands or other markup in them. This gets passed verbatim to what ever is next.

Collapse numeric ranges

Make (1 2 3 4 7 9) be "1-4,7,9"

(defun collapse-range (cites)
  "CITES is a list of at least 3 numbers."
  (let (n
        (groups '()))
    (while cites
      (setq n (pop cites))
      (if (and (caar groups) (= (- n 1) (elt (car groups) 0)))
          (setf (car groups) (append `(,n) (car groups)))
        (setf groups (append `((,n)) groups))))
    ;; Now for each group
    (mapconcat 'identity
               (mapcar
                (lambda (lst)
                  (cond
                   ((>= (length lst) 3)
                    (format "%s-%s" (car lst) (car (last lst))))
                   ((= (length lst) 2)
                    (format "%s,%s" (nth 0 lst) (nth 1 lst)))
                   (t
                    (number-to-string (car lst)))))
                (mapcar 'reverse (reverse groups)))
               ",")))

(collapse-range '(1 2))

1,2

CSL parsing

Info nodes

This seems to be information about a CSL.

(let (xml)
  (setq xml (with-temp-buffer
              (insert-file-contents "acs-nano.csl")
              (libxml-parse-xml-region (point-min) (point-max))))
  (xml-get-children xml 'info))

((info nil
       (title nil "ACS Nano")
       (title-short nil "ACS Nano")
       (id nil "http://www.zotero.org/styles/acs-nano")
       (link
        ((href . "http://www.zotero.org/styles/acs-nano")
         (rel . "self")))
       (link
        ((href . "http://www.zotero.org/styles/american-chemical-society-with-titles")
         (rel . "template")))
       (link
        ((href . "http://pubs.acs.org/paragonplus/submission/ancac3/ancac3_authguide.pdf")
         (rel . "documentation")))
       (category
        ((citation-format . "numeric")))
       (category
        ((field . "chemistry")))
       (issn nil "1936-0851")
       (eissn nil "1936-086X")
       (summary nil "ACS style with et al in italics")
       (updated nil "2014-09-21T00:39:49+00:00")
       (rights
        ((license . "http://creativecommons.org/licenses/by-sa/3.0/"))
        "This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License")))

Macro nodes

These seem to define inputs to a function that formats each field of an entry.

(let (xml)
  (setq xml (with-temp-buffer
              (insert-file-contents "acs-nano.csl")
              (libxml-parse-xml-region (point-min) (point-max))))
  (xml-get-children xml 'macro))

((macro
  ((name . "editor"))
  (names
   ((variable . "editor"))
   (name
    ((sort-separator . ", ")
     (initialize-with . ". ")
     (name-as-sort-order . "all")
     (delimiter . "; ")
     (delimiter-precedes-last . "always")))
   (et-al
    ((font-style . "italic")))
   (label
    ((form . "short")
     (prefix . ", ")
     (text-case . "capitalize-first")))))
 (macro
  ((name . "author"))
  (names
   ((variable . "author")
    (suffix . "."))
   (name
    ((sort-separator . ", ")
     (initialize-with . ". ")
     (name-as-sort-order . "all")
     (delimiter . "; ")
     (delimiter-precedes-last . "always")))
   (et-al
    ((font-style . "italic")))
   (label
    ((form . "short")
     (prefix . ", ")
     (text-case . "capitalize-first")))))
 (macro
  ((name . "publisher"))
  (group
   ((delimiter . ": "))
   (text
    ((variable . "publisher")))
   (text
    ((variable . "publisher-place")))))
 (macro
  ((name . "title"))
  (choose nil
          (if
              ((type . "bill book graphic legal_case legislation motion_picture report song")
               (match . "any"))
              (text
               ((variable . "title")
                (text-case . "title")
                (font-style . "italic"))))
          (else nil
                (text
                 ((variable . "title")
                  (text-case . "title"))))))
 (macro
  ((name . "volume"))
  (group
   ((delimiter . " "))
   (text
    ((term . "volume")
     (form . "short")
     (text-case . "capitalize-first")))
   (text
    ((variable . "volume")))))
 (macro
  ((name . "series"))
  (text
   ((variable . "collection-title"))))
 (macro
  ((name . "pages"))
  (label
   ((variable . "page")
    (form . "short")
    (suffix . " ")))
  (text
   ((variable . "page"))))
 (macro
  ((name . "book-container"))
  (group
   ((delimiter . " "))
   (text
    ((macro . "title")
     (suffix . ".")))
   (text
    ((term . "in")
     (text-case . "capitalize-first")))
   (text
    ((variable . "container-title")
     (font-style . "italic")))))
 (macro
  ((name . "issued"))
  (date
   ((variable . "issued")
    (delimiter . " "))
   (date-part
    ((name . "year")))))
 (macro
  ((name . "full-issued"))
  (date
   ((variable . "issued")
    (delimiter . " "))
   (date-part
    ((name . "month")
     (form . "long")
     (suffix . " ")))
   (date-part
    ((name . "day")
     (suffix . ", ")))
   (date-part
    ((name . "year")))))
 (macro
  ((name . "edition"))
  (choose nil
          (if
              ((is-numeric . "edition"))
              (group
               ((delimiter . " "))
               (number
                ((variable . "edition")
                 (form . "ordinal")))
               (text
                ((term . "edition")
                 (form . "short")))))
          (else nil
                (text
                 ((variable . "edition")
                  (suffix . ".")))))))

Citation overlay

This seems to define the layout of a citation in the text, how they are sorted, collapsed, and delimited.

,#+BEGIN_SRC emacs-lisp :results code
(let (xml)
  (setq xml (with-temp-buffer
              (insert-file-contents "acs-nano.csl")
              (libxml-parse-xml-region (point-min) (point-max))))
  (xml-get-children xml 'citation))

((citation
  ((collapse . "citation-number"))
  (sort nil
        (key
         ((variable . "citation-number"))))
  (layout
   ((delimiter . ",")
    (vertical-align . "sup"))
   (text
    ((variable . "citation-number"))))))

Bibliography

This seems to layout how the bibliography is constructed.

(let (xml)
  (setq xml (with-temp-buffer
              (insert-file-contents "acs-nano.csl")
              (libxml-parse-xml-region (point-min) (point-max))))
  (xml-get-children xml 'bibliography))

((bibliography
  ((second-field-align . "flush")
   (entry-spacing . "0")
   (et-al-min . "11")
   (et-al-use-first . "10"))
  (layout
   ((suffix . "."))
   (text
    ((variable . "citation-number")
     (prefix . "(")
     (suffix . ") ")))
   (text
    ((macro . "author")
     (suffix . " ")))
   (choose nil
           (if
               ((type . "article-magazine"))
               (group
                ((delimiter . " "))
                (text
                 ((macro . "title")
                  (suffix . ".")))
                (text
                 ((variable . "container-title")
                  (font-style . "italic")
                  (suffix . ".")))
                (text
                 ((macro . "edition")))
                (text
                 ((macro . "publisher")))
                (text
                 ((macro . "full-issued")
                  (suffix . ",")))
                (text
                 ((macro . "pages")))))
           (else-if
            ((type . "thesis"))
            (group
             ((delimiter . ", "))
             (group
              ((delimiter . ". "))
              (text
               ((macro . "title")))
              (text
               ((variable . "genre"))))
             (text
              ((macro . "publisher")))
             (text
              ((macro . "issued")))
             (text
              ((macro . "volume")))
             (text
              ((macro . "pages")))))
           (else-if
            ((type . "bill book graphic legal_case legislation motion_picture report song")
             (match . "any"))
            (group
             ((delimiter . "; "))
             (text
              ((macro . "title")))
             (text
              ((macro . "editor")
               (prefix . " ")))
             (text
              ((macro . "series")))
             (text
              ((macro . "edition")))
             (choose nil
                     (if
                         ((type . "report"))
                         (group
                          ((delimiter . " "))
                          (text
                           ((variable . "genre")))
                          (text
                           ((variable . "number"))))))
             (group
              ((delimiter . ", "))
              (text
               ((macro . "publisher")))
              (text
               ((macro . "issued"))))
             (group
              ((delimiter . ", "))
              (text
               ((macro . "volume")))
              (text
               ((macro . "pages"))))))
           (else-if
            ((type . "patent"))
            (group
             ((delimiter . ", "))
             (group
              ((delimiter . ". "))
              (text
               ((macro . "title")))
              (text
               ((variable . "number"))))
             (date
              ((variable . "issued")
               (form . "text")))))
           (else-if
            ((type . "chapter paper-conference")
             (match . "any"))
            (group
             ((delimiter . "; "))
             (text
              ((macro . "book-container")))
             (text
              ((macro . "editor")))
             (text
              ((macro . "series")))
             (group
              ((delimiter . ", "))
              (text
               ((macro . "publisher")))
              (text
               ((macro . "issued"))))
             (group
              ((delimiter . ", "))
              (text
               ((macro . "volume")))
              (text
               ((macro . "pages"))))))
           (else-if
            ((type . "webpage"))
            (group
             ((delimiter . " "))
             (text
              ((variable . "title")))
             (text
              ((variable . "URL")))
             (date
              ((variable . "accessed")
               (prefix . "(accessed ")
               (suffix . ")")
               (delimiter . " "))
              (date-part
               ((name . "month")
                (form . "short")
                (strip-periods . "true")))
              (date-part
               ((name . "day")
                (suffix . ", ")))
              (date-part
               ((name . "year"))))))
           (else-if
            ((type . "article-journal"))
            (group
             ((delimiter . " "))
             (text
              ((macro . "title")
               (suffix . ".")))
             (text
              ((variable . "container-title")
               (font-style . "italic")
               (form . "short")))
             (group
              ((delimiter . ", "))
              (text
               ((macro . "issued")
                (font-weight . "bold")))
              (text
               ((variable . "volume")
                (font-style . "italic")))
              (text
               ((variable . "page"))))))
           (else nil
                 (group
                  ((delimiter . ", "))
                  (group
                   ((delimiter . ". "))
                   (text
                    ((macro . "title")))
                   (text
                    ((variable . "container-title")
                     (font-style . "italic"))))
                  (group
                   ((delimiter . ", "))
                   (text
                    ((macro . "issued")))
                   (text
                    ((variable . "volume")
                     (font-style . "italic")))
                   (text
                    ((variable . "page"))))))))))

Layout of entry

Here we get the layout of an entry.

(let (xml)
  (setq xml (with-temp-buffer
              (insert-file-contents "acs-nano.csl")
              (libxml-parse-xml-region (point-min) (point-max))))
(car (xml-get-children  (car (xml-get-children xml 'bibliography)) 'layout)))

(layout
 ((suffix . "."))
 (text
  ((variable . "citation-number")
   (prefix . "(")
   (suffix . ") ")))
 (text
  ((macro . "author")
   (suffix . " ")))
 (choose nil
         (if
             ((type . "article-magazine"))
             (group
              ((delimiter . " "))
              (text
               ((macro . "title")
                (suffix . ".")))
              (text
               ((variable . "container-title")
                (font-style . "italic")
                (suffix . ".")))
              (text
               ((macro . "edition")))
              (text
               ((macro . "publisher")))
              (text
               ((macro . "full-issued")
                (suffix . ",")))
              (text
               ((macro . "pages")))))
         (else-if
          ((type . "thesis"))
          (group
           ((delimiter . ", "))
           (group
            ((delimiter . ". "))
            (text
             ((macro . "title")))
            (text
             ((variable . "genre"))))
           (text
            ((macro . "publisher")))
           (text
            ((macro . "issued")))
           (text
            ((macro . "volume")))
           (text
            ((macro . "pages")))))
         (else-if
          ((type . "bill book graphic legal_case legislation motion_picture report song")
           (match . "any"))
          (group
           ((delimiter . "; "))
           (text
            ((macro . "title")))
           (text
            ((macro . "editor")
             (prefix . " ")))
           (text
            ((macro . "series")))
           (text
            ((macro . "edition")))
           (choose nil
                   (if
                       ((type . "report"))
                       (group
                        ((delimiter . " "))
                        (text
                         ((variable . "genre")))
                        (text
                         ((variable . "number"))))))
           (group
            ((delimiter . ", "))
            (text
             ((macro . "publisher")))
            (text
             ((macro . "issued"))))
           (group
            ((delimiter . ", "))
            (text
             ((macro . "volume")))
            (text
             ((macro . "pages"))))))
         (else-if
          ((type . "patent"))
          (group
           ((delimiter . ", "))
           (group
            ((delimiter . ". "))
            (text
             ((macro . "title")))
            (text
             ((variable . "number"))))
           (date
            ((variable . "issued")
             (form . "text")))))
         (else-if
          ((type . "chapter paper-conference")
           (match . "any"))
          (group
           ((delimiter . "; "))
           (text
            ((macro . "book-container")))
           (text
            ((macro . "editor")))
           (text
            ((macro . "series")))
           (group
            ((delimiter . ", "))
            (text
             ((macro . "publisher")))
            (text
             ((macro . "issued"))))
           (group
            ((delimiter . ", "))
            (text
             ((macro . "volume")))
            (text
             ((macro . "pages"))))))
         (else-if
          ((type . "webpage"))
          (group
           ((delimiter . " "))
           (text
            ((variable . "title")))
           (text
            ((variable . "URL")))
           (date
            ((variable . "accessed")
             (prefix . "(accessed ")
             (suffix . ")")
             (delimiter . " "))
            (date-part
             ((name . "month")
              (form . "short")
              (strip-periods . "true")))
            (date-part
             ((name . "day")
              (suffix . ", ")))
            (date-part
             ((name . "year"))))))
         (else-if
          ((type . "article-journal"))
          (group
           ((delimiter . " "))
           (text
            ((macro . "title")
             (suffix . ".")))
           (text
            ((variable . "container-title")
             (font-style . "italic")
             (form . "short")))
           (group
            ((delimiter . ", "))
            (text
             ((macro . "issued")
              (font-weight . "bold")))
            (text
             ((variable . "volume")
              (font-style . "italic")))
            (text
             ((variable . "page"))))))
         (else nil
               (group
                ((delimiter . ", "))
                (group
                 ((delimiter . ". "))
                 (text
                  ((macro . "title")))
                 (text
                  ((variable . "container-title")
                   (font-style . "italic"))))
                (group
                 ((delimiter . ", "))
                 (text
                  ((macro . "issued")))
                 (text
                  ((variable . "volume")
                   (font-style . "italic")))
                 (text
                  ((variable . "page"))))))))

#+END_SRC

An overview of a CSL for ACS Nano

(with-temp-buffer
  (insert-file-contents "acs-nano.csl")
  (libxml-parse-xml-region (point-min) (point-max)))

(style
 ((class . "in-text")
  (version . "1.0")
  (demote-non-dropping-particle . "sort-only")
  (page-range-format . "expanded")
  (default-locale . "en-US"))
 (info nil
       (title nil "ACS Nano")
       (title-short nil "ACS Nano")
       (id nil "http://www.zotero.org/styles/acs-nano")
       (link
        ((href . "http://www.zotero.org/styles/acs-nano")
         (rel . "self")))
       (link
        ((href . "http://www.zotero.org/styles/american-chemical-society-with-titles")
         (rel . "template")))
       (link
        ((href . "http://pubs.acs.org/paragonplus/submission/ancac3/ancac3_authguide.pdf")
         (rel . "documentation")))
       (category
        ((citation-format . "numeric")))
       (category
        ((field . "chemistry")))
       (issn nil "1936-0851")
       (eissn nil "1936-086X")
       (summary nil "ACS style with et al in italics")
       (updated nil "2014-09-21T00:39:49+00:00")
       (rights
        ((license . "http://creativecommons.org/licenses/by-sa/3.0/"))
        "This work is licensed under a Creative Commons Attribution-ShareAlike 3.0 License"))
 (macro
  ((name . "editor"))
  (names
   ((variable . "editor"))
   (name
    ((sort-separator . ", ")
     (initialize-with . ". ")
     (name-as-sort-order . "all")
     (delimiter . "; ")
     (delimiter-precedes-last . "always")))
   (et-al
    ((font-style . "italic")))
   (label
    ((form . "short")
     (prefix . ", ")
     (text-case . "capitalize-first")))))
 (macro
  ((name . "author"))
  (names
   ((variable . "author")
    (suffix . "."))
   (name
    ((sort-separator . ", ")
     (initialize-with . ". ")
     (name-as-sort-order . "all")
     (delimiter . "; ")
     (delimiter-precedes-last . "always")))
   (et-al
    ((font-style . "italic")))
   (label
    ((form . "short")
     (prefix . ", ")
     (text-case . "capitalize-first")))))
 (macro
  ((name . "publisher"))
  (group
   ((delimiter . ": "))
   (text
    ((variable . "publisher")))
   (text
    ((variable . "publisher-place")))))
 (macro
  ((name . "title"))
  (choose nil
          (if
              ((type . "bill book graphic legal_case legislation motion_picture report song")
               (match . "any"))
              (text
               ((variable . "title")
                (text-case . "title")
                (font-style . "italic"))))
          (else nil
                (text
                 ((variable . "title")
                  (text-case . "title"))))))
 (macro
  ((name . "volume"))
  (group
   ((delimiter . " "))
   (text
    ((term . "volume")
     (form . "short")
     (text-case . "capitalize-first")))
   (text
    ((variable . "volume")))))
 (macro
  ((name . "series"))
  (text
   ((variable . "collection-title"))))
 (macro
  ((name . "pages"))
  (label
   ((variable . "page")
    (form . "short")
    (suffix . " ")))
  (text
   ((variable . "page"))))
 (macro
  ((name . "book-container"))
  (group
   ((delimiter . " "))
   (text
    ((macro . "title")
     (suffix . ".")))
   (text
    ((term . "in")
     (text-case . "capitalize-first")))
   (text
    ((variable . "container-title")
     (font-style . "italic")))))
 (macro
  ((name . "issued"))
  (date
   ((variable . "issued")
    (delimiter . " "))
   (date-part
    ((name . "year")))))
 (macro
  ((name . "full-issued"))
  (date
   ((variable . "issued")
    (delimiter . " "))
   (date-part
    ((name . "month")
     (form . "long")
     (suffix . " ")))
   (date-part
    ((name . "day")
     (suffix . ", ")))
   (date-part
    ((name . "year")))))
 (macro
  ((name . "edition"))
  (choose nil
          (if
              ((is-numeric . "edition"))
              (group
               ((delimiter . " "))
               (number
                ((variable . "edition")
                 (form . "ordinal")))
               (text
                ((term . "edition")
                 (form . "short")))))
          (else nil
                (text
                 ((variable . "edition")
                  (suffix . "."))))))
 (citation
  ((collapse . "citation-number"))
  (sort nil
        (key
         ((variable . "citation-number"))))
  (layout
   ((delimiter . ",")
    (vertical-align . "sup"))
   (text
    ((variable . "citation-number")))))
 (bibliography
  ((second-field-align . "flush")
   (entry-spacing . "0")
   (et-al-min . "11")
   (et-al-use-first . "10"))
  (layout
   ((suffix . "."))
   (text
    ((variable . "citation-number")
     (prefix . "(")
     (suffix . ") ")))
   (text
    ((macro . "author")
     (suffix . " ")))
   (choose nil
           (if
               ((type . "article-magazine"))
               (group
                ((delimiter . " "))
                (text
                 ((macro . "title")
                  (suffix . ".")))
                (text
                 ((variable . "container-title")
                  (font-style . "italic")
                  (suffix . ".")))
                (text
                 ((macro . "edition")))
                (text
                 ((macro . "publisher")))
                (text
                 ((macro . "full-issued")
                  (suffix . ",")))
                (text
                 ((macro . "pages")))))
           (else-if
            ((type . "thesis"))
            (group
             ((delimiter . ", "))
             (group
              ((delimiter . ". "))
              (text
               ((macro . "title")))
              (text
               ((variable . "genre"))))
             (text
              ((macro . "publisher")))
             (text
              ((macro . "issued")))
             (text
              ((macro . "volume")))
             (text
              ((macro . "pages")))))
           (else-if
            ((type . "bill book graphic legal_case legislation motion_picture report song")
             (match . "any"))
            (group
             ((delimiter . "; "))
             (text
              ((macro . "title")))
             (text
              ((macro . "editor")
               (prefix . " ")))
             (text
              ((macro . "series")))
             (text
              ((macro . "edition")))
             (choose nil
                     (if
                         ((type . "report"))
                         (group
                          ((delimiter . " "))
                          (text
                           ((variable . "genre")))
                          (text
                           ((variable . "number"))))))
             (group
              ((delimiter . ", "))
              (text
               ((macro . "publisher")))
              (text
               ((macro . "issued"))))
             (group
              ((delimiter . ", "))
              (text
               ((macro . "volume")))
              (text
               ((macro . "pages"))))))
           (else-if
            ((type . "patent"))
            (group
             ((delimiter . ", "))
             (group
              ((delimiter . ". "))
              (text
               ((macro . "title")))
              (text
               ((variable . "number"))))
             (date
              ((variable . "issued")
               (form . "text")))))
           (else-if
            ((type . "chapter paper-conference")
             (match . "any"))
            (group
             ((delimiter . "; "))
             (text
              ((macro . "book-container")))
             (text
              ((macro . "editor")))
             (text
              ((macro . "series")))
             (group
              ((delimiter . ", "))
              (text
               ((macro . "publisher")))
              (text
               ((macro . "issued"))))
             (group
              ((delimiter . ", "))
              (text
               ((macro . "volume")))
              (text
               ((macro . "pages"))))))
           (else-if
            ((type . "webpage"))
            (group
             ((delimiter . " "))
             (text
              ((variable . "title")))
             (text
              ((variable . "URL")))
             (date
              ((variable . "accessed")
               (prefix . "(accessed ")
               (suffix . ")")
               (delimiter . " "))
              (date-part
               ((name . "month")
                (form . "short")
                (strip-periods . "true")))
              (date-part
               ((name . "day")
                (suffix . ", ")))
              (date-part
               ((name . "year"))))))
           (else-if
            ((type . "article-journal"))
            (group
             ((delimiter . " "))
             (text
              ((macro . "title")
               (suffix . ".")))
             (text
              ((variable . "container-title")
               (font-style . "italic")
               (form . "short")))
             (group
              ((delimiter . ", "))
              (text
               ((macro . "issued")
                (font-weight . "bold")))
              (text
               ((variable . "volume")
                (font-style . "italic")))
              (text
               ((variable . "page"))))))
           (else nil
                 (group
                  ((delimiter . ", "))
                  (group
                   ((delimiter . ". "))
                   (text
                    ((macro . "title")))
                   (text
                    ((variable . "container-title")
                     (font-style . "italic"))))
                  (group
                   ((delimiter . ", "))
                   (text
                    ((macro . "issued")))
                   (text
                    ((variable . "volume")
                     (font-style . "italic")))
                   (text
                    ((variable . "page"))))))))))

Working example

(add-to-list 'load-path ".")
(require 'org-ref-citeproc)
(require 'unsrt)

unsrt

My data cite:kitchin-2015-examp in Ref. citenum:kitchin-2015-data-surfac-scien.

A multicite cite:kitchin-2015-examp,kitchin-2015-data-surfac-scien

Getting the citations

(mapcar
 (lambda (link)
   (org-element-property :type link))
 (orcp-collect-citations))

cite

citenum

cite

I need a key to entry function

(orcp-key-to-entry "kitchin-2015-examp")

(("=type=" . "article")
 ("=key=" . "kitchin-2015-examp")
 ("author" . "Kitchin, John R.")
 ("title" . "Examples of Effective Data Sharing in Scientific Publishing")
 ("journal" . "ACS Catalysis")
 ("volume" . "5")
 ("number" . "6")
 ("pages" . "3894-3899")
 ("year" . "2015")
 ("doi" . "10.1021/acscatal.5b00538")
 ("url" . " http://dx.doi.org/10.1021/acscatal.5b00538 ")
 ("keywords" . "DESC0004031, early-career, orgmode, Data sharing ")
 ("eprint" . " http://dx.doi.org/10.1021/acscatal.5b00538 "))

(cdr (assoc "year" (orcp-key-to-entry "kitchin-2015-examp")))

cite:wang-2013-immob-co2

cite:antony-2012-pathw-c

cite:weaver-2011-high-selec

Sorting the entries

The unique entries will make up the bibliography. They might get sorted in a variety of ways, e.g. unsorted, alphabetically, by year, etc…

(orcp-sort-entries-increasing-year (orcp-collect-unique-entries))

weaver-2011-high-selec (type . article) (key . weaver-2011-high-selec) (author . Jason F. Weaver and Can Hakanoglu and Abbin Antony and Aravind\n Asthagiri) (title . High Selectivity for Primary {C-H} Bond Cleavage of Propane\n $\gma$-mplexes on the {PdO}(101) Surface) (keywords . alkane) (journal . J. Am. Chem. Soc.) (volume . 133) (number . 40) (pages . 16196-16200) (year . 2011) (doi . 10.1021/ja206599k) (url . http://dx.doi.org/10.1021/ja206599k) (date_added . Sat Nov 28 09:10:59 2015)

antony-2012-pathw-c (type . article) (key . antony-2012-pathw-c) (author . Abbin Antony and Aravind Asthagiri and Jason F. Weaver) (title . Pathways for {C-H} Bond Cleavage of Propane $\gma$-mplexes on\n {PdO}(101)) (keywords . alkane) (journal . Phys. Chem. Chem. Phys.) (volume . 14) (number . 35) (pages . 12202) (year . 2012) (doi . 10.1039/c2cp41900a) (url . http://dx.doi.org/10.1039/c2cp41900a) (date_added . Sat Nov 28 09:13:32 2015)

wang-2013-immob-co2 (type . article) (key . wang-2013-immob-co2) (author . Xianfeng Wang and Novruz G. Akhmedov and Yuhua Duan and David\n Luebke and Bingyun Li) (title . Immobilization of Amino Acid Ionic Liquids Into Nanoporous\n Microspheres As Robust Sorbents for Co2 Capture) (journal . J. Mater. Chem. A) (volume . 1) (number . 9) (pages . 2978) (year . 2013) (doi . 10.1039/c3ta00768e) (url . http://dx.doi.org/10.1039/C3TA00768E) (date_added . Thu Dec 3 06:13:09 2015)

kitchin-2015-examp (type . article) (key . kitchin-2015-examp) (author . Kitchin, John R.) (title . Examples of Effective Data Sharing in Scientific Publishing) (journal . ACS Catalysis) (volume . 5) (number . 6) (pages . 3894-3899) (year . 2015) (doi . 10.1021/acscatal.5b00538) (url . http://dx.doi.org/10.1021/acscatal.5b00538 ) (keywords . DESC0004031, early-career, orgmode, Data sharing ) (eprint . http://dx.doi.org/10.1021/acscatal.5b00538 )

kitchin-2015-data-surfac-scien (type . article) (key . kitchin-2015-data-surfac-scien) (author . John R. Kitchin) (title . Data Sharing in Surface Science) (journal . Surface Science ) (number . 0) (pages . - ) (year . 2015) (doi . 10.1016/j.susc.2015.05.007) (url . http://www.sciencedirect.com/science/article/pii/S0039602815001326) (issn . 0039-6028) (keywords . DESC0004031, early-career, orgmode, Data sharing )

cite:anderson-1977-raman

(orcp-sort-entries-alphabetical (orcp-collect-unique-entries))

anderson-1977-raman (type . article) (key . anderson-1977-raman) (author . George R. Anderson) (title . The {R}aman Spectra of Carbon Dioxide in Liquid Water and\n Water-D2) (journal . J. Phys. Chem.) (volume . 81) (number . 3) (pages . 273-276) (year . 1977) (doi . 10.1021/j100518a017) (url . http://dx.doi.org/10.1021/j100518a017) (month . 2) (eprint . http://pubs.acs.org/doi/pdf/10.1021/j100518a017)

Getting a citation replacement

This will be taking a key, and the unique replacements, and computing a replacement for that key.

(orcp-citation-author-year-label
 "anderson-1977-raman"
 (orcp-sort-entries-alphabetical (orcp-collect-unique-entries)))

Anderson 1977

citeauthor:wang-2013-immob-co2

citeyear:wang-2013-immob-co2

(orcp-get-citation-style 'vertical-align 'citenum)

(cdr (assoc 'vertical-align (cdr (assoc 'citenum citation-style))))

baseline

(setq orcp-unique-bibliography-links (orcp-collect-unique-entries))

(mapcar
 (lambda (link)
   (list
    (org-element-property :type link)
    (orcp-get-text-replacement link)) )
 (orcp-collect-citations))

cite	{}¹
citenum	2
cite	{}^1,2
cite	{}³
cite	{}⁴
cite	{}⁵
cite	{}⁶
citeauthor	Wang
citeyear	2013

(orcp-author (nth 3 (orcp-collect-unique-entries)))

Antony, Abbin; Asthagiri, Aravind and Weaver, Jason F..

(let ((entry (nth 3 (orcp-collect-unique-entries))))
  (concat
   (orcp-author entry)
   (orcp-title entry)
   (orcp-journal entry)
   (orcp-volume entry)
   (orcp-pages entry)
   (orcp-year entry)
   (orcp-doi entry)))

Antony, Abbin; Asthagiri, Aravind and Weaver, Jason F., /Pathways for {C-H} Bond Cleavage of Propane $\sigma$-complexes on {PdO}(101)/, Phys. Chem. Chem. Phys., 14*(35)*, pp. 12202 (2012).doi:10.1039/c2cp41900a.

(mapconcat 'identity (cl-loop for entry in (orcp-collect-unique-entries)
                           collect
                           (concat
                            (orcp-author entry)
                            (orcp-title entry)
                            (orcp-journal entry)
                            (orcp-volume entry)
                            (orcp-pages entry)
                            (orcp-year entry)
                            (orcp-doi entry)))
           "\n\n")

Kitchin,  John R., /Examples of Effective Data Sharing in Scientific Publishing/, ACS Catalysis, 5*(6)*, pp. 3894-3899 (2015). doi:10.1021/acscatal.5b00538.

Kitchin, John R., /Data Sharing in Surface Science/, Surface Science , *(0)*, pp.  -  (2015). doi:10.1016/j.susc.2015.05.007.

Wang, Xianfeng; Akhmedov, Novruz G.; Duan, Yuhua; Luebke, David and Li, Bingyun, /Immobilization of Amino Acid Ionic Liquids Into Nanoporous Microspheres As Robust Sorbents for Co2 Capture/, J. Mater. Chem. A, 1*(9)*, pp. 2978 (2013). doi:10.1039/c3ta00768e.

Antony, Abbin; Asthagiri, Aravind and Weaver, Jason F., /Pathways for {C-H} Bond Cleavage of Propane $\sigma$-complexes on {PdO}(101)/, Phys. Chem. Chem. Phys., 14*(35)*, pp. 12202 (2012). doi:10.1039/c2cp41900a.

Weaver, Jason F.; Hakanoglu, Can; Antony, Abbin and Asthagiri, Aravind, /High Selectivity for Primary {C-H} Bond Cleavage of Propane $\sigma$-complexes on the {PdO}(101) Surface/, J. Am. Chem. Soc., 133*(40)*, pp. 16196-16200 (2011). doi:10.1021/ja206599k.

Anderson, George R., /The {R}aman Spectra of Carbon Dioxide in Liquid Water and Water-D2/, J. Phys. Chem., 81*(3)*, pp. 273-276 (1977). doi:10.1021/j100518a017.

Zhu,  Qingjun; Wegener,  Staci L.; Xie,  Chao; Uche,  Obioma; Neurock,  Matthew and Marks,  Tobin J., /Sulfur As a Selective "soft" Oxidant for Catalytic Methane Conversion Probed By Experiment and Theory/, Nature chemistry, 5, pp. 104-109 (2013). doi:10.1002/ange.201311111.

Lizzit, S.; Baraldi, A.; Groso, A.; Reuter, K.; Ganduglia-Pirovano, M. V.; Stampfl, C.; Scheffler, M.; Stichler, M.; Keller, C.; Wurth, W. and Menzel, D., /Surface Core-Level Shifts of Clean and Oxygen-Covered {Ru}(0001)/, Phys. Rev. B, 63*(20)*, pp. 205419 (2001). doi:10.1103/physrevb.63.205419.

cite:zhu-2013-sulfur,lizzit-2001-surfac-ru

cite:yeo-2012-in-situ,ye-2012-proces-charac

(orcp-formatted-bibliography)

1.  Kitchin,  John  R.,  /Examples  of   Effective  Data  Sharing  in  Scientific
   Publishing/,    ACS     Catalysis,    5*(6)*,    pp.     3894-3899    (2015).
   doi:10.1021/acscatal.5b00538.

2.  Kitchin, John R., /Data Sharing in Surface Science/, Surface Science , *(0)*,
   pp. - (2015). doi:10.1016/j.susc.2015.05.007.

3.  Wang,  Xianfeng; Akhmedov,  Novruz G.;  Duan,  Yuhua; Luebke,  David and  Li,
   Bingyun,  /Immobilization  of  Amino   Acid  Ionic  Liquids  Into  Nanoporous
   Microspheres As Robust Sorbents for Co2  Capture/, J. Mater. Chem. A, 1*(9)*,
   pp. 2978 (2013). doi:10.1039/c3ta00768e.

4.  Antony, Abbin; Asthagiri,  Aravind and Weaver, Jason F.,  /Pathways for {C-H}
   Bond Cleavage of Propane $\sigma$-complexes on {PdO}(101)/, Phys. Chem. Chem.
   Phys., 14*(35)*, pp. 12202 (2012). doi:10.1039/c2cp41900a.

5.  Weaver, Jason F.; Hakanoglu, Can; Antony, Abbin and Asthagiri, Aravind, /High
   Selectivity for Primary {C-H} Bond  Cleavage of Propane $\sigma$-complexes on
   the  {PdO}(101)  Surface/, J.  Am.  Chem.  Soc., 133*(40)*,  pp.  16196-16200
   (2011). doi:10.1021/ja206599k.

6.  Anderson, George R.,  /The {R}aman Spectra of Carbon Dioxide  in Liquid Water
   and   Water-D2/,    J.   Phys.   Chem.,   81*(3)*,    pp.   273-276   (1977).
   doi:10.1021/j100518a017.

7.  Zhu, Qingjun;  Wegener, Staci L.;  Xie, Chao; Uche, Obioma;  Neurock, Matthew
   and Marks,  Tobin J.,  /Sulfur As  a Selective  "soft" Oxidant  for Catalytic
   Methane Conversion Probed By Experiment and Theory/, Nature chemistry, 5, pp.
   104-109 (2013). doi:10.1002/ange.201311111.

8.  Lizzit, S.;  Baraldi, A.; Groso,  A.; Reuter, K.; Ganduglia-Pirovano,  M. V.;
   Stampfl, C.; Scheffler,  M.; Stichler, M.; Keller, C.; Wurth,  W. and Menzel,
   D., /Surface Core-Level Shifts of Clean and Oxygen-Covered {Ru}(0001)/, Phys.
   Rev. B, 63*(20)*, pp. 205419 (2001). doi:10.1103/physrevb.63.205419.

9.  Yeo, Boon Siang and  Bell, Alexis T., /In Situ {R}aman  Study of Nickel Oxide
   and Gold-Supported  Nickel Oxide Catalysts for  the Electrochemical Evolution
   of Oxygen/,  The Journal  of Physical Chemistry  C, 116*(15)*,  pp. 8394-8400
   (2012). doi:10.1021/jp3007415.

10. Chunbo, Y.  E.; CHEN,  Guangwen and YUAN,  Quan, /Process  Characteristics of
   \ce{CO2} Absorption  By Aqueous Monoethanolamine in  a Microchannel Reactor/,
   Chinese  Journal  of  Chemical  Engineering,  20*(1)*,  pp.  111-119  (2012).
   doi:10.1016/s1004-9541(12)60370-x.

11. Kittel, Charles, /Introduction to Solid State Physics/, (2005).

cite:kittel-2005-introd-solid

Reading my csl

(require 'unsrt)
(assoc 'sort bibliography-style)

sort

quote

citation-number

Putting it together

You run these to get the replacements

(orcp-collect-citations)
(orcp-collect-unique-entries)

(cl-loop for link in *orcp-citation-links*
      for repl in (orcp-get-citation-replacements)
      collect
      (list repl
            (org-element-property :begin link)
            (org-element-property :end link)))

{}¹	29467	29491
2	29499	29537
{}^1,2	29552	29606
{}³	30578	30602
{}⁴	30604	30628
{}⁵	30630	30657
{}⁶	34705	34729
Wang	39698	39728
2013	39730	39758
{}^7,8	43188	43230
{}^9,10	43232	43275
{}¹¹	45939	45968

(orcp-formatted-bibliography)

1.  Kitchin,  John  R.,  /Examples  of   Effective  Data  Sharing  in  Scientific
   Publishing/,    ACS     Catalysis,    5*(6)*,    pp.     3894-3899    (2015).
   doi:10.1021/acscatal.5b00538.

2.  Kitchin, John R., /Data Sharing in Surface Science/, Surface Science , *(0)*,
   pp. - (2015). doi:10.1016/j.susc.2015.05.007.

3.  Wang,  Xianfeng; Akhmedov,  Novruz G.;  Duan,  Yuhua; Luebke,  David and  Li,
   Bingyun,  /Immobilization  of  Amino   Acid  Ionic  Liquids  Into  Nanoporous
   Microspheres As Robust Sorbents for Co2  Capture/, J. Mater. Chem. A, 1*(9)*,
   pp. 2978 (2013). doi:10.1039/c3ta00768e.

4.  Antony, Abbin; Asthagiri,  Aravind and Weaver, Jason F.,  /Pathways for {C-H}
   Bond Cleavage of Propane $\sigma$-complexes on {PdO}(101)/, Phys. Chem. Chem.
   Phys., 14*(35)*, pp. 12202 (2012). doi:10.1039/c2cp41900a.

5.  Weaver, Jason F.; Hakanoglu, Can; Antony, Abbin and Asthagiri, Aravind, /High
   Selectivity for Primary {C-H} Bond  Cleavage of Propane $\sigma$-complexes on
   the  {PdO}(101)  Surface/, J.  Am.  Chem.  Soc., 133*(40)*,  pp.  16196-16200
   (2011). doi:10.1021/ja206599k.

6.  Anderson, George R.,  /The {R}aman Spectra of Carbon Dioxide  in Liquid Water
   and   Water-D2/,    J.   Phys.   Chem.,   81*(3)*,    pp.   273-276   (1977).
   doi:10.1021/j100518a017.

7.  Zhu, Qingjun;  Wegener, Staci L.;  Xie, Chao; Uche, Obioma;  Neurock, Matthew
   and Marks,  Tobin J.,  /Sulfur As  a Selective  "soft" Oxidant  for Catalytic
   Methane Conversion Probed By Experiment and Theory/, Nature chemistry, 5, pp.
   104-109 (2013). doi:10.1002/ange.201311111.

8.  Lizzit, S.;  Baraldi, A.; Groso,  A.; Reuter, K.; Ganduglia-Pirovano,  M. V.;
   Stampfl, C.; Scheffler,  M.; Stichler, M.; Keller, C.; Wurth,  W. and Menzel,
   D., /Surface Core-Level Shifts of Clean and Oxygen-Covered {Ru}(0001)/, Phys.
   Rev. B, 63*(20)*, pp. 205419 (2001). doi:10.1103/physrevb.63.205419.

9.  Yeo, Boon Siang and  Bell, Alexis T., /In Situ {R}aman  Study of Nickel Oxide
   and Gold-Supported  Nickel Oxide Catalysts for  the Electrochemical Evolution
   of Oxygen/,  The Journal  of Physical Chemistry  C, 116*(15)*,  pp. 8394-8400
   (2012). doi:10.1021/jp3007415.

10. Chunbo, Y.  E.; CHEN,  Guangwen and YUAN,  Quan, /Process  Characteristics of
   \ce{CO2} Absorption  By Aqueous Monoethanolamine in  a Microchannel Reactor/,
   Chinese  Journal  of  Chemical  Engineering,  20*(1)*,  pp.  111-119  (2012).
   doi:10.1016/s1004-9541(12)60370-x.

11. Kittel, Charles, /Introduction to Solid State Physics/, (2005).

(cl-loop for link in (org-element-map
                        (org-element-parse-buffer) 'link 'identity)
        if (string= "bibliographystyle"
                    (org-element-property :type link))
        do
        ;; get path for style
        (let ((style (intern (org-element-property :path link)))))
        (load-library style)
        )