;ELC
;;; Compiled
;;; in Emacs version 28.2
;;; with all optimizations.



(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304\305\306#\210\307\310\311\312\313DD\314\315\316\317\320\321\322&	\210\307\323\311\312\324DD\325\315\316\317\326\321\327&	\210\307\330\311\312\331DD\332\315\316\317\333\321\334\335\336&\210\307\337\311\312\340DD\341\315\316\317\342\321\343&	\210\307\344\311\312\345DD\346\315\316\317\347\321\350\335\351&\210\307\352\311\312\353DD\354\315\316\317\355\321\350\335\351&\210\307\356\311\312\357DD\360\315\316\317\361\321\350\335\351&\207" [require bibtex json oc citeproc nil t custom-declare-variable org-cite-csl-locales-dir funcall function #[0 "\300\207" [nil] 1 #1=""] "Directory of CSL locale files.\nIf nil then only the fallback en-US locale will be available." :group org-cite :package-version (Org . "9.5") :type (choice (directory :tag "Locales directory") (const :tag "Use en-US locale only" nil)) org-cite-csl-styles-dir #[0 "\300\207" [nil] 1 #1#] "Directory of CSL style files.\nWhen non-nil, relative style file names are expanded relatively to this\ndirectory.  This variable is ignored when style file is absolute." (Org . "9.5") (choice (directory :tag "Styles directory") (const :tag "Use absolute file names" nil)) org-cite-csl-link-cites #[0 "\300\207" [t] 1 #1#] "When non-nil, link cites to references." (Org . "9.5") boolean :safe booleanp org-cite-csl-no-citelinks-backends #[0 "\300\207" [(ascii)] 1 #1#] "List of export back-ends for which cite linking is disabled.\nCite linking for export back-ends derived from any of the back-ends listed here,\nis also disabled." (Org . "9.5") (repeat symbol) org-cite-csl-html-hanging-indent #[0 "\300\207" ["1.5em"] 1 #1#] "Size of hanging-indent for HTML output in valid CSS units." (Org . "9.5") string stringp org-cite-csl-html-label-width-per-char #[0 "\300\207" ["0.6em"] 1 #1#] "Character width in CSS units for calculating entry label widths.\nUsed only when `second-field-align' is activated by the used CSL style." (Org . "9.5") org-cite-csl-latex-hanging-indent #[0 "\300\207" ["1.5em"] 1 #1#] "Size of hanging-indent for LaTeX output in valid LaTeX units." (Org . "9.5")] 12)
#@46 Directory containing CSL-related data files.
(defconst org-cite-csl--etc-dir (byte-code "\301\302\303!!\304\305\"\306
!\205\211\262
\206)\304\307\"\306
!\205 \211\262
\206)\304\310\"\207" [data-directory file-name-directory locate-library "oc" expand-file-name "../etc/csl/" file-directory-p "etc/csl/" "org/csl/"] 4) (#$ . 2198))
#@38 Fallback CSL locale files directory.
(defconst org-cite-csl--fallback-locales-dir org-cite-csl--etc-dir (#$ . 2543))
#@98 Default CSL style file, or nil.
If nil then the Chicago author-date style is used as a fallback.
(defconst org-cite-csl--fallback-style-file (expand-file-name "chicago-author-date.csl" org-cite-csl--etc-dir) (#$ . 2666))
#@42 Alist mapping locator names to locators.
(defconst org-cite-csl--label-alist '(("bk." . "book") ("bks." . "book") ("book" . "book") ("chap." . "chapter") ("chaps." . "chapter") ("chapter" . "chapter") ("col." . "column") ("cols." . "column") ("column" . "column") ("figure" . "figure") ("fig." . "figure") ("figs." . "figure") ("folio" . "folio") ("fol." . "folio") ("fols." . "folio") ("number" . "number") ("no." . "number") ("nos." . "number") ("line" . "line") ("l." . "line") ("ll." . "line") ("note" . "note") ("n." . "note") ("nn." . "note") ("opus" . "opus") ("op." . "opus") ("opp." . "opus") ("page" . "page") ("p" . "page") ("p." . "page") ("pp." . "page") ("paragraph" . "paragraph") ("para." . "paragraph") ("paras." . "paragraph") ("¶" . "paragraph") ("¶¶" . "paragraph") ("part" . "part") ("pt." . "part") ("pts." . "part") ("§" . "section") ("§§" . "section") ("section" . "section") ("sec." . "section") ("secs." . "section") ("sub verbo" . "sub verbo") ("s.v." . "sub verbo") ("s.vv." . "sub verbo") ("verse" . "verse") ("v." . "verse") ("vv." . "verse") ("volume" . "volume") ("vol." . "volume") ("vols." . "volume")) (#$ . 2893))
#@84 Regexp matching a label in a citation reference suffix.
Label is in match group 1.
(defconst org-cite-csl--label-regexp (byte-code "\301\302\303\304\305\306\307\"\310\"D\311BBB\310\"\207" [org-cite-csl--label-alist rx-to-string seq (or line-start space) regexp regexp-opt mapcar car t ((0+ digit) (or word-end line-end space " "))] 8) (#$ . 4055))
#@51 Raise an error if Citeproc library is not loaded.
(defalias 'org-cite-csl--barf-without-citeproc #[0 "\300\301!?\205\n\302\303!\207" [featurep citeproc error "Citeproc library is not loaded"] 2 (#$ . 4411)])
#@131 Non-nil when bibliography style implies wrapping citations in footnotes.
INFO is the export state, as a property list.

(fn INFO)
(defalias 'org-cite-csl--note-style-p #[257 "\300\301\302!!!\207" [citeproc-style-cite-note citeproc-proc-style org-cite-csl--processor] 5 (#$ . 4627)])
#@179 Return citeproc structure creation params for CITATION object.
STYLE is the citation style, as a string or nil. INFO is the export state, as
a property list.

(fn CITATION INFO)
(defalias 'org-cite-csl--create-structure-params #[514 "\300\"\211:\203]\211\242\211\301\267\202M
\243\211\302\267\202\303\207\304\207\305\207\306\207
\243\211\307\267\202/\310\207\311\207\312\207\313\207
\243\211\314\235\203;\315\207\316\207
\243\211\317\267\202K\320\207\321\207\322\207\323\207
\243\211\324\267\202[\325\207\326\207\327\207\330\207\331\332\"\207" [org-cite-citation-style #s(hash-table size 8 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("a" 17 "author" 17 "na" 33 "noauthor" 33 "y" 49 "year" 49 "t" 61 "text" 61)) #s(hash-table size 6 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("c" 25 "caps" 25 "f" 27 "full" 27 "cf" 29 "caps-full" 29)) (:mode author-only :capitalize-first t) (:mode author-only :ignore-et-al t) (:mode author-only :capitalize-first t :ignore-et-al t) (:mode author-only) #s(hash-table size 6 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("b" 41 "bare" 41 "c" 43 "caps" 43 "bc" 45 "bare-caps" 45)) (:mode suppress-author :suppress-affixes t) (:mode suppress-author :capitalize-first t) (:mode suppress-author :suppress-affixes t :capitalize-first t) (:mode suppress-author) ("b" "bare") (:mode year-only :suppress-affixes t) (:mode year-only) #s(hash-table size 6 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("c" 69 "caps" 69 "f" 71 "full" 71 "cf" 73 "caps-full" 73)) (:mode textual :capitalize-first t) (:mode textual :ignore-et-al t) (:mode textual :ignore-et-al t :capitalize-first t) (:mode textual) #s(hash-table size 6 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("c" 85 "caps" 85 "b" 87 "bare" 87 "bc" 89 "bare-caps" 89)) (:capitalize-first t) (:suppress-affixes t) (:suppress-affixes t :capitalize-first t) nil error "Invalid style: %S"] 7 (#$ . 4918)])
#@80 Non-nil when export BACKEND should not create cite-reference links.

(fn INFO)
(defalias 'org-cite-csl--no-citelinks-p #[257 "?\206	\203\302\303\304\305\"	#\206\306\304\307\"\310\311\312%?\207" [org-cite-csl-link-cites org-cite-csl-no-citelinks-backends apply org-export-derived-backend-p plist-get :back-end org-element-map :parse-tree keyword #[257 "\300\301\"\302\232\207" [org-element-property :key "PRINT_BIBLIOGRAPHY"] 4 "\n\n(fn K)"] t] 7 (#$ . 6928)])
#@223 Return expected Citeproc's output format.
INFO is the export state, as a property list.  The return value is a symbol
corresponding to one of the output formats supported by Citeproc: `html',
`latex', or `org'.

(fn INFO)
(defalias 'org-cite-csl--output-format #[257 "\300
\301\"\302
\303\"\203
\303\207\302
\304\"\203\304\207\305\207" [plist-get :back-end org-export-derived-backend-p html latex org] 5 (#$ . 7406)])
#@238 Return style file associated to current export process.

INFO is the export state, as a property list.

When file name is relative, expand it according to `org-cite-csl-styles-dir',
or raise an error if the variable is unset.

(fn INFO)
(defalias 'org-cite-csl--style-file #[257 "\302
!\211\204	\207\303
!\203\207	\203\304
	\"\207\305\306\"\207" [org-cite-csl--fallback-style-file org-cite-csl-styles-dir org-cite-bibliography-style file-name-absolute-p expand-file-name user-error "Cannot handle relative style file name: %S"] 5 (#$ . 7834)])
#@196 Return a locale getter.
The getter looks for locales in `org-cite-csl-locales-dir' directory.  If it
cannot find them, it retrieves the default "en_US" from
`org-cite-csl--fallback-locales-dir'.
(defalias 'org-cite-csl--locale-getter #[0 "\300\207" [#[257 "\203\3021\303!
!0\202\210\304\206\303	!
!\207" [org-cite-csl-locales-dir org-cite-csl--fallback-locales-dir (error) citeproc-locale-getter-from-dir nil] 3 "\n\n(fn LOC)"]] 1 (#$ . 8392)])
#@226 Return Citeproc processor reading items from current bibliography.

INFO is the export state, as a property list.

Newly created processor is stored as the value of the `:cite-citeproc-processor'
property in INFO.

(fn INFO)
(defalias 'org-cite-csl--processor #[257 "\300
\301\"\206&\300
\302\"\300\303\"\206\304\305\306!\307!\310 $\311\301#\210\266\202\207" [plist-get :cite-citeproc-processor :bibliography :language "en_US" citeproc-create org-cite-csl--style-file citeproc-hash-itemgetter-from-any org-cite-csl--locale-getter plist-put] 8 (#$ . 8854)])
#@237 Return Citeproc's structure associated to citation REFERENCE.

INFO is the export state, as a property list.

The result is a association list.  Keys are: `id', `prefix',`suffix',
`location', `locator' and `label'.

(fn REFERENCE INFO)
(defalias 'org-cite-csl--parse-reference #[514 "\302\211\211\211\211\211\211\303\304\305\"r\211q\210\306\307\"\216\212\310\311\312\f\"!c\210)\313\302\305#\203B\314\224\262\315\316\317!	\"A\262\317\225b\210\320\302w\210`\262\202_\313\321\302\305#\203X\314\224\262\322\262\262\202_\311\312\"\262
\204\241db\210\323\324\305#\203\241\317\225\206v\314\224b\210`{\262`{\302\325
\203\213\326\202\214\327\330\325\331\330##\266\202\262\332\314\225d{\305\"\262\333\311\334\f\"\205\263\332\317\n{\305\"\"\262*\210\335\336\311\337\f\"B\340\"B\341\f\"B\342B\343\fB\344\nB\257\207" [org-cite-csl--label-regexp org-cite-csl--label-alist nil generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] org-element-interpret-data org-element-property :suffix re-search-forward 0 assoc match-string 1 "[:space:] " "[[:digit:]]" "page" re-search-backward ",\\|\\([[:digit:]]\\)" replace-regexp-in-string #1="\\`\\([ 	]*\n\\)+" #2="\\`[ 	\n
]+" #3="" #4="[ 	\n
]+\\'" org-cite-parse-objects org-cite-concat :prefix #[514 "\300\301!\302=\203\303!\202\304\"\305\306
\203\307\202\310\311\306\312\311##\266\202!\207" [org-string-nw-p org-cite-csl--output-format org org-element-interpret-data org-export-data nil replace-regexp-in-string #1# #2# #3# #4#] 12 "\n\n(fn INFO DATA)"] id :key prefix suffix locator label location] 19 (#$ . 9427)])
#@114 Create Citeproc structure for CITATION object.
INFO is the export state, as a property list.

(fn CITATION INFO)
(defalias 'org-cite-csl--create-structure #[514 "\300\301\302\"\303!\"\304!\305\306\"\211\203$@\307
\236\211\310!\311AQ\241\266\210\305\312\"\211\203C\313
!@\262
\314
\236\211
A\311\310!Q\241\266\210\211\204Y\315!\203Y\316\"\210\317\"\262
\320\321\322\205e\323\"\324\325\n\n\"BBBB\"\207" [mapcar make-closure #[257 "\301
\300\"\207" [V0 org-cite-csl--parse-reference] 4 "\n\n(fn R)"] org-cite-get-references org-cite-inside-footnote-p org-element-property :prefix prefix org-element-interpret-data " " :suffix last suffix org-cite-csl--note-style-p org-cite-adjust-note org-cite-wrap-citation apply citeproc-citation-create :note-index org-export-get-footnote-number :cites org-cite-csl--create-structure-params] 13 (#$ . 11110)])
#@216 Return the rendered citations as an association list.

INFO is the export state, as a property list.

Return an alist (CITATION . OUTPUT) where CITATION object has been rendered as
OUTPUT using Citeproc.

(fn INFO)
(defalias 'org-cite-csl--rendered-citations #[257 "\300
\301\"\2064\302
!\303!\304\305\306\"\"\307
\"\210\310\311!\312!#\313\314#\315\301#\210\262
\266\203\207" [plist-get :cite-citeproc-rendered-citations org-cite-list-citations org-cite-csl--processor mapcar make-closure #[257 "\301
\300\"\207" [V0 org-cite-csl--create-structure] 4 "\n\n(fn C)"] citeproc-append-citations citeproc-render-citations org-cite-csl--output-format org-cite-csl--no-citelinks-p seq-mapn cons plist-put] 10 (#$ . 11992)])
#@105 Export CITATION object.
INFO is the export state, as a property list.

(fn CITATION STYLE BACKEND INFO)
(defalias 'org-cite-csl-render-citation #[1028 "\300 \210\301!\236A\302!\303=\204\207\304
!\207" [org-cite-csl--barf-without-citeproc org-cite-csl--rendered-citations org-cite-csl--output-format org org-cite-parse-objects] 7 (#$ . 12731)])
#@110 Export bibliography.
INFO is the export state, as a property list.

(fn KEYS FILES STYLE PROPS BACKEND INFO)
(defalias 'org-cite-csl-render-bibliography #[1542 "\303 \210\304
!\305\306!\307!#\211\242
\243\310\267\202Z\311
\236A\205<\312
\236A\313!\314\315!\"\210\316\225\317O\320\321_#\266\203\322\236A\205H\320\323	\211#Q\207\322
\236A\203X\320\324\n#\207
\207\325!\207" [org-cite-csl-html-label-width-per-char org-cite-csl-html-hanging-indent org-cite-csl-latex-hanging-indent org-cite-csl--barf-without-citeproc org-cite-csl--output-format citeproc-render-bib org-cite-csl--processor org-cite-csl--no-citelinks-p #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (html 25 latex 75)) second-field-align max-offset string-to-number string-match number-to-string 0 nil format "<style>.csl-left-margin{float: left; padding-right: 0em;}\n .csl-right-inline{margin: 0 0 0 %d%s;}</style>" hanging-indent "<style>.csl-entry{text-indent: -%s; margin-left: %s;}</style>" "\\begin{hangparas}{%s}{1}\n%s\n\\end{hangparas}" org-cite-parse-elements] 17 (#$ . 13087)])
#@187 Add "hanging" package if missing from LaTeX output.
OUTPUT is the export document, as a string.  INFO is the export state, as a
property list.

(fn OUTPUT KEYS FILES STYLE BACKEND INFO)
(defalias 'org-cite-csl-finalizer #[1542 "\300 \210\301
!\302=\204
\207\303\304\305\"r\211q\210\306\307\"\216\212c\210)\310\311\312\305#\203:\313\224b\210\314c\210\315\316\312\305#\204:\317c\210\320 *\207" [org-cite-csl--barf-without-citeproc org-cite-csl--output-format latex 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 "\\makeatletter\n\\newcommand{\\citeprocitem}[2]{\\hyper@linkstart{cite}{citeproc_bib_item_#1}#2\\hyper@linkend}\n\\makeatother\n\n" re-search-backward "\\\\usepackage\\(?:\\[.*?]\\)?{hanging}" "\\usepackage[notquote]{hanging}\n" buffer-string] 11 (#$ . 14205)])
(byte-code "\300\301\302\303\304\305\306\307\310\311&	\210\312\313!\207" [org-cite-register-processor csl :export-citation org-cite-csl-render-citation :export-bibliography org-cite-csl-render-bibliography :export-finalizer org-cite-csl-finalizer :cite-styles ((("author" "a") ("full" "f") ("caps" "c") ("caps-full" "cf")) (("noauthor" "na") ("bare" "b") ("caps" "c") ("bare-caps" "bc")) (("year" "y") ("bare" "b")) (("text" "t") ("caps" "c") ("full" "f") ("caps-full" "cf")) (("nil") ("bare" "b") ("caps" "c") ("bare-caps" "bc"))) provide oc-csl] 10)