;ELC ;;; Compiled ;;; in Emacs version 28.2 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313\314\315& \207" [require oc custom-declare-variable org-cite-natbib-options funcall function #[0 "\300\207" [nil] 1 ""] "List of options added to \"natbib\" package.\nIf \"natbib\" package is already required in the document, e.g., through\n`org-latex-packages-alist' variable, these options are ignored." :group org-cite :package-version (Org . "9.5") :type (set (const :tag "use round parentheses (default)" round) (const :tag "use square brackets" square) (const :tag "use curly braces" curly) (const :tag "use angle brackets" angle) (const :tag "separate multiple citations with colons (default)" colon) (const :tag "separate multiple citations with comas" comma) (const :tag "generate author-year citations" authoryear) (const :tag "generate numerical citations" numbers) (const :tag "generate superscripted numerical citations" super) (const :tag "order multiple citations according to the list of references" sort) (const :tag "order as above, but numerical citations are compressed if possible" sort&compress) (const :tag "display full author list on first citation, abbreviate the others" longnamesfirst) (const :tag "redefine \\thebibliography to issue \\section* instead of \\chapter*" sectionbib) (const :tag "keep all the authors' names in a citation on one line" nonamebreak))] 10) #@65 Return command name to use according to STYLE pair. (fn STYLE) (defalias 'org-cite-natbib--style-to-command #[257 "\211:\203Y\211\242\211\300\267\202A\243\211\301\267\202\302\207\303\207\304\207\243\211\305\235\203%\306\207\307\207\310\207\243\211\311\267\202?\312\207\313\207\314\207\315\207\316\207\317\207\320\207\321\207\243\211\322\267\202W\323\207\324\207\325\207\326\207\327\207\330\207\331\207\332\207\333\334\"\207" [#s(hash-table size 8 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("a" 13 "author" 13 "na" 27 "noauthor" 27 "n" 39 "nocite" 39 "t" 41 "text" 41)) #s(hash-table size 4 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("c" 21 "caps" 21 "f" 23 "full" 23)) "\\Citeauthor" "\\citeauthor*" "\\citeauthor" ("b" "bare") "\\citeyear" "\\citeyearpar" "\\nocite" #s(hash-table size 14 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("b" 49 "bare" 49 "c" 51 "caps" 51 "f" 53 "full" 53 "bc" 55 "bare-caps" 55 "bf" 57 "bare-full" 57 "cf" 59 "caps-full" 59 "bcf" 61 "bare-caps-full" 61)) "\\citealt" "\\Citet" "\\citet*" "\\Citealt" "\\citealt*" "\\Citet*" "\\Citealt*" "\\citet" #s(hash-table size 14 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("b" 73 "bare" 73 "c" 75 "caps" 75 "f" 77 "full" 77 "bc" 79 "bare-caps" 79 "bf" 81 "bare-full" 81 "cf" 83 "caps-full" 83 "bcf" 85 "bare-caps-full" 85)) "\\citealp" "\\Citep" "\\citep*" "\\Citealp" "\\citealp*" "\\Citep*" "\\Citealp*" "\\citep" error "Invalid style: %S"] 5 (#$ . 1447)]) #@148 Build optional arguments for citation command. CITATION is the citation object. INFO is the export state, as a property list. (fn CITATION INFO) (defalias 'org-cite-natbib--build-optional-arguments #[514 "\300!\211\242\243\205(\301\302\303\"\304\305\203\306\202\307\310\305\311\310##\266\202\"\203L\301\302\303\"\304\305\203=\306\202>\307\310\305\311\310##\266\202\"\202U\203T\312\202U\304P\207" [org-cite-main-affixes format "[%s]" org-export-data nil replace-regexp-in-string "\\`\\([ ]*\n\\)+" "\\`[ \n ]+" "" "[ \n ]+\\'" "[]"] 17 (#$ . 2994)]) #@74 Build arguments for citation command for CITATION object. (fn CITATION) (defalias 'org-cite-natbib--build-arguments #[257 "\300\301\302\303\304\305\"\306#\"\207" [format "{%s}" mapconcat identity org-cite-get-references t ","] 8 (#$ . 3582)]) #@168 Print references from bibliography FILES. FILES is a list of absolute file names. STYLE is the bibliography style, as a string or nil. (fn KEYS FILES STYLE &rest _) (defalias 'org-cite-natbib-export-bibliography #[899 "\205\300\301\"\300\302\303\304\305#\"P\207" [format "\\bibliographystyle{%s}\n" "\\bibliography{%s}" mapconcat file-name-sans-extension ","] 11 (#$ . 3834)]) #@158 Export CITATION object. STYLE is the citation style, as a pair of strings or nil. INFO is the export state, as a property list. (fn CITATION STYLE _ INFO) (defalias 'org-cite-natbib-export-citation #[1028 "\300!\301\"\302!Q\207" [org-cite-natbib--style-to-command org-cite-natbib--build-optional-arguments org-cite-natbib--build-arguments] 8 (#$ . 4226)]) #@113 Ensure output requires "natbib" package. OUTPUT is the final output of the export process. (fn OUTPUT &rest _) (defalias 'org-cite-natbib-use-package #[385 "\301\302\303\"r\211q\210\304\305\"\216\212c\210)\306\307\310\303#\203;\311\224b\210\312\313\310\303#\204;\314\315\2040\316\2028\314\317\320\321\322#\"\"c\210\323 *\207" [org-cite-natbib-options generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] search-forward "\\begin{document}" nil 0 re-search-backward "\\\\usepackage\\(?:\\[.*?]\\)?{natbib}" format "\\usepackage%s{natbib}\n" "" "[%s]" mapconcat symbol-name "," buffer-string] 11 (#$ . 4596)]) (byte-code "\300\301\302\303\304\305\306\307\310\311& \210\312\313!\207" [org-cite-register-processor natbib :export-bibliography org-cite-natbib-export-bibliography :export-citation org-cite-natbib-export-citation :export-finalizer org-cite-natbib-use-package :cite-styles ((("author" "a") ("caps" "a") ("full" "f")) (("noauthor" "na") ("bare" "b")) (("text" "t") ("bare" "b") ("caps" "c") ("full" "f") ("bare-caps" "bc") ("bare-full" "bf") ("caps-full" "cf") ("bare-caps-full" "bcf")) (("nil") ("bare" "b") ("caps" "c") ("full" "f") ("bare-caps" "bc") ("bare-full" "bf") ("caps-full" "cf") ("bare-caps-full" "bcf"))) provide oc-natbib] 10)