dotfiles/emacs/.emacs.d/elpa/org-ref-20191125.1408/citeproc/readme.org

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]
  :PROPERTIES:
  :categories: emacs,orgref,orgmode,citations
  :date:     2015/12/11 18:05:43
  :updated:  2015/12/12 10:08:10
  :END:

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?
1. No need for external citeproc program, and hackability by org-mode experts.
2. 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.
3. Total tunability of the citation format to different backends.
4. Easy to change bibliography format with the bibliographystyle link.
5. 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
   :PROPERTIES:
   :date:     2015/12/11 14:47:59
   :updated:  2015/12/11 14:48:26
   :END:

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

#+BEGIN_SRC emacs-lisp
(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)))
#+End_src

#+RESULTS:
: #<process open ./readme.html>

An org export for footnotes. The footnotes don't go where I expect.
#+BEGIN_SRC emacs-lisp
(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)))
#+End_src

#+RESULTS:
: 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.

1. Other bibtex entries need to be tested out.
2. Remaining bibtex fields need to be defined.
3. Standardization of styling that can be done. Not all features described in my csl are supported, e.g. et. al. and probably others.
4. The author-year style needs name disambiguation somehow.
5. Hyperlinking in org, html.
6. Make sure export to other backends works. Can this make a LaTeX output with bibitems?
7. 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

see also http://ctan.mirrors.hoobly.com/biblio/bibtex/base/btxdoc.pdf


Bibtex names have 4 parts:
1. First name, which also includes middle name/initial
2. von which is part of the last name, but in lower case letters
3. Last name
4. Jr.

Here are some acceptable formats for names in Bibtex.
#+BEGIN_EXAMPLE
"First von Last"
"von Last, First"
"von Last, Jr, First"
#+END_EXAMPLE

Note, it is also possible to have in Bibtex, in which case the von part becomes part of the last name.
#+BEGIN_EXAMPLE
"Jan A. {van Mieghem}"
"{van Mieghem}, Jan A."
#+END_EXAMPLE

And also

#+BEGIN_EXAMPLE
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}
#+END_EXAMPLE

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).



#+BEGIN_SRC emacs-lisp


#+END_SRC

#+RESULTS:
: citeproc-parse-authorname

Here are examples of case 1.
#+BEGIN_SRC emacs-lisp
(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))
#+END_SRC

#+RESULTS:
| 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.
#+BEGIN_SRC emacs-lisp
(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))
#+END_SRC

#+RESULTS:
| 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
#+BEGIN_SRC emacs-lisp
(cl-loop for author in '("von de la Kitchin, Sr., John Robert"
                      "von Kitchin, Sr., John Robert")
      collect (citeproc-parse-authorname author))
#+END_SRC

#+RESULTS:
| 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
#+BEGIN_SRC emacs-lisp
(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))
#+END_SRC

#+RESULTS:
| 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"

#+BEGIN_SRC emacs-lisp
(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))

#+END_SRC

#+RESULTS:
: 1,2

** CSL parsing

*** Info nodes
This seems to be information about a CSL.
#+BEGIN_SRC emacs-lisp
(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))
#+END_SRC

#+RESULTS:
#+BEGIN_SRC emacs-lisp
((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")))
#+END_SRC

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

#+BEGIN_SRC emacs-lisp
(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))
#+END_SRC

#+RESULTS:
#+BEGIN_SRC emacs-lisp
((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 . ".")))))))
#+END_SRC

*** 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
,#+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))
#+END_SRC

#+RESULTS:
#+BEGIN_SRC emacs-lisp
((citation
  ((collapse . "citation-number"))
  (sort nil
        (key
         ((variable . "citation-number"))))
  (layout
   ((delimiter . ",")
    (vertical-align . "sup"))
   (text
    ((variable . "citation-number"))))))
#+END_SRC

*** Bibliography

This seems to layout how the bibliography is constructed.
#+BEGIN_SRC emacs-lisp
(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))
#+END_SRC

#+RESULTS:
#+BEGIN_SRC emacs-lisp
((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"))))))))))
#+END_SRC

**** Layout of entry
Here we get the layout of an entry.
#+BEGIN_SRC emacs-lisp
(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)))
#+END_SRC

#+RESULTS:
#+BEGIN_SRC emacs-lisp
(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

#+END_SRC
*** An overview of a CSL for ACS Nano
#+BEGIN_SRC emacs-lisp
(with-temp-buffer
  (insert-file-contents "acs-nano.csl")
  (libxml-parse-xml-region (point-min) (point-max)))
#+END_SRC

#+RESULTS:
#+BEGIN_SRC emacs-lisp
(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"))))))))))
#+END_SRC
** Working example

#+BEGIN_SRC emacs-lisp
(add-to-list 'load-path ".")
(require 'org-ref-citeproc)
(require 'unsrt)
#+END_SRC

#+RESULTS:
: 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
#+BEGIN_SRC emacs-lisp
(mapcar
 (lambda (link)
   (org-element-property :type link))
 (orcp-collect-citations))
#+END_SRC

#+RESULTS:
| cite | citenum | cite |


I need a key to entry function
#+BEGIN_SRC emacs-lisp
(orcp-key-to-entry "kitchin-2015-examp")
#+END_SRC

#+RESULTS:
#+BEGIN_SRC emacs-lisp
(("=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 "))
#+END_SRC

#+BEGIN_SRC emacs-lisp
(cdr (assoc "year" (orcp-key-to-entry "kitchin-2015-examp")))
#+END_SRC

#+RESULTS:
: 2015

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...
#+BEGIN_SRC emacs-lisp
(orcp-sort-entries-increasing-year (orcp-collect-unique-entries))
#+END_SRC

#+RESULTS:
| 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                  $\sigma$-complexes 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 $\sigma$-complexes 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

#+BEGIN_SRC emacs-lisp
(orcp-sort-entries-alphabetical (orcp-collect-unique-entries))
#+END_SRC

#+RESULTS:
| 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) |
| 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 $\sigma$-complexes 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)                    |
| 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 ) |                                                            |
| 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)                         |                                                            |
| 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                  $\sigma$-complexes 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)                    |

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

#+BEGIN_SRC emacs-lisp
(orcp-citation-author-year-label
 "anderson-1977-raman"
 (orcp-sort-entries-alphabetical (orcp-collect-unique-entries)))
#+END_SRC

#+RESULTS:
: Anderson 1977

citeauthor:wang-2013-immob-co2

citeyear:wang-2013-immob-co2

#+BEGIN_SRC emacs-lisp
(orcp-get-citation-style 'vertical-align 'citenum)

(cdr (assoc 'vertical-align (cdr (assoc 'citenum citation-style))))
#+END_SRC

#+RESULTS:
: baseline

#+BEGIN_SRC emacs-lisp
(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))
#+END_SRC

#+RESULTS:
| cite       | {}^{1}   |
| citenum    | 2        |
| cite       | {}^{1,2} |
| cite       | {}^{3}   |
| cite       | {}^{4}   |
| cite       | {}^{5}   |
| cite       | {}^{6}   |
| citeauthor | Wang     |
| citeyear   | 2013     |


#+BEGIN_SRC emacs-lisp
(orcp-author (nth 3 (orcp-collect-unique-entries)))
#+END_SRC

#+RESULTS:
: Antony, Abbin; Asthagiri, Aravind and Weaver, Jason F..


#+BEGIN_SRC emacs-lisp
(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)))
#+END_SRC

#+RESULTS:
: 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.

#+BEGIN_SRC emacs-lisp
(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")
#+END_SRC

#+RESULTS:
#+begin_example
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.
#+end_example


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

cite:yeo-2012-in-situ,ye-2012-proces-charac
#+BEGIN_SRC emacs-lisp
(orcp-formatted-bibliography)
#+END_SRC

#+RESULTS:
#+begin_example
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).
#+end_example




cite:kittel-2005-introd-solid



*** Reading my csl
#+BEGIN_SRC emacs-lisp
(require 'unsrt)
(assoc 'sort bibliography-style)
#+END_SRC

#+RESULTS:
| sort | quote | citation-number |


**

** Putting it together
You run these to get the replacements

#+BEGIN_SRC emacs-lisp
(orcp-collect-citations)
(orcp-collect-unique-entries)
#+END_SRC

#+BEGIN_SRC emacs-lisp
(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)))
#+END_SRC

#+RESULTS:
| {}^{1}    | 29467 | 29491 |
| 2         | 29499 | 29537 |
| {}^{1,2}  | 29552 | 29606 |
| {}^{3}    | 30578 | 30602 |
| {}^{4}    | 30604 | 30628 |
| {}^{5}    | 30630 | 30657 |
| {}^{6}    | 34705 | 34729 |
| Wang      | 39698 | 39728 |
| 2013      | 39730 | 39758 |
| {}^{7,8}  | 43188 | 43230 |
| {}^{9,10} | 43232 | 43275 |
| {}^{11}   | 45939 | 45968 |

#+BEGIN_SRC emacs-lisp
(orcp-formatted-bibliography)
#+END_SRC

#+RESULTS:
#+begin_example
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).
#+end_example



#+BEGIN_SRC emacs-lisp
(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)
        )
#+END_SRC