;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (byte-code "\300\301!\210\302 \303\232\204\304\305\306\"\210\300\307!\210\300\310!\210\300\311!\210\300\312!\210\300\313!\210\300\314\315\316#\210\317\320\321\322\323DD\324\325\326\327\330\331\332& \210\317\333\321\322\334DD\335\325\326\327\336\331\337& \210\317\340\321\322\341DD\342\325\326\327\343\331\344\345\346& \210\317\347\321\322\350DD\351\325\326\327\352\331\353& \210\317\354\321\322\355DD\356\325\326\327\357\331\360\345\361& \210\317\362\321\322\363DD\364\325\326\327\365\331\360\345\361& \210\317\366\321\322\367DD\370\325\326\327\371\331\360\345\361& \207" [require org-macs org-release "9.6.15" warn "Org version mismatch.\nThis warning usually appears when a built-in Org version is loaded\nprior to the more recent Org version.\n\nVersion mismatch is commonly encountered in the following situations:\n\n1. Emacs is loaded using literate Org config and more recent Org\n version is loaded inside the file loaded by `org-babel-load-file'.\n `org-babel-load-file' triggers the built-in Org version clashing\n the newer Org version attempt to be loaded later.\n\n It is recommended to move the Org loading code before the\n `org-babel-load-file' call.\n\n2. New Org version is loaded manually by setting `load-path', but some\n other package depending on Org is loaded before the `load-path' is\n configured.\n This \"other package\" is triggering built-in Org version, again\n causing the version mismatch.\n\n It is recommended to set `load-path' as early in the config as\n possible.\n\n3. New Org version is loaded using straight.el package manager and\n other package depending on Org is loaded before straight triggers\n loading of the newer Org version.\n\n It is recommended to put\n\n %s\n\n early in the config. Ideally, right after the straight.el\n bootstrap. Moving `use-package' :straight declaration may not be\n sufficient if the corresponding `use-package' statement is\n deferring the loading.\n\n4. A new Org version is synchronized with Emacs git repository and\n stale .elc files are still left from the previous build.\n\n It is recommended to remove .elc files from lisp/org directory and\n re-compile." "(straight-use-package 'org)" cl-lib map 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.\n\nRelative style file names are expanded according to document's\ndefault directory. If it fails and the variable is non-nil, Org\nlooks for style files in this directory, too." (Org . "9.5") (choice (directory :tag "Styles directory") (const :tag "No central directory for style files" 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) (#$ . 3974))#@38 Fallback CSL locale files directory. (defconst org-cite-csl--fallback-locales-dir org-cite-csl--etc-dir (#$ . 4318))#@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) (#$ . 4440))#@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")) (#$ . 4666))#@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) (#$ . 5827))#@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 (#$ . 6182)])#@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 (#$ . 6397)])#@115 Non-nil when CITATION object's style is nocite. INFO is the export state, as a property list. (fn CITATION INFO) (defalias 'org-cite-csl--nocite-p #[514 "\300\"@\301\235\207" [org-cite-citation-style ("nocite" "n")] 5 (#$ . 6687)])#@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\211\242\211\301\267\202y\243\211\302\267\202'\303\207\304\207\305\207\306\207\307\207\310\207\311\207\312\207\243\211\313\267\2027\314\207\315\207\316\207\317\207\243\211\320\235\203C\321\207\322\207\243\211\323\235\203O\324\207\325\207\243\211\326\235\203[\327\207\330\207\243\211\331\235\203g\332\207\333\207\243\211\334\267\202w\335\207\336\207\337\207\340\207\243\211\341\267\202\207\342\207\343\207\344\207\345\207\346\347\"\207" [org-cite-citation-style #s(hash-table size 14 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("a" 17 "author" 17 "na" 41 "noauthor" 41 "y" 57 "year" 57 "b" 69 "bibentry" 69 "l" 81 "locators" 81 "ti" 93 "title" 93 "t" 105 "text" 105)) #s(hash-table size 14 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("b" 25 "bare" 25 "c" 27 "caps" 27 "f" 29 "full" 29 "bc" 31 "bare-caps" 31 "bf" 33 "bare-full" 33 "cf" 35 "caps-full" 35 "bcf" 37 "bare-caps-full" 37)) (:mode author-only :suppress-affixes t) (:mode author-only :capitalize-first t) (:mode author-only :ignore-et-al t) (:mode author-only :suppress-affixes t :capitalize-first t) (:mode author-only :suppress-affixes t :ignore-et-al t) (:mode author-only :capitalize-first t :ignore-et-al t) (:mode author-only :suppress-affixes t :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" 49 "bare" 49 "c" 51 "caps" 51 "bc" 53 "bare-caps" 53)) (: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) ("b" "bare") (:mode bib-entry :suppress-affixes t) (:mode bib-entry) ("b" "bare") (:mode locator-only :suppress-affixes t) (:mode locator-only) ("b" "bare") (:mode title-only :suppress-affixes t) (:mode title-only) #s(hash-table size 6 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("c" 113 "caps" 113 "f" 115 "full" 115 "cf" 117 "caps-full" 117)) (: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" 129 "caps" 129 "b" 131 "bare" 131 "bc" 133 "bare-caps" 133)) (:capitalize-first t) (:suppress-affixes t) (:suppress-affixes t :capitalize-first t) nil error "Invalid style: %S"] 7 (#$ . 6928)])#@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 (#$ . 9708)])#@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 (#$ . 10185)])#@287 Return style file associated to current export process. INFO is the export state, as a property list. When file name is relative, look for it in buffer's default directory, failing that in `org-cite-csl-styles-dir' if non-nil. Raise an error if no style file can be found. (fn INFO) (defalias 'org-cite-csl--style-file #[257 "\302!\211\204 \207\303!\203\207\304!\203\305!\207 \204#\306\307\"\207\304\305 \"!\2031\305 \"\207\306\307\"\207" [org-cite-csl--fallback-style-file org-cite-csl-styles-dir org-cite-bibliography-style file-name-absolute-p file-exists-p expand-file-name user-error "CSL style file not found: %S"] 6 (#$ . 10613)])#@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 (#$ . 11276)])#@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 (#$ . 11738)])#@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 (#$ . 12311)])#@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\211A\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 (#$ . 13994)])#@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\"\206\224\302!\303!\304\211\211\2036\211@\305\"\203*\306\307\310\"\"\262\202/\211B\262A\266\202\202\210\311\312\313\"\237\"\314\"\266\211\203O\315\"\210\316!\210\304\317\320!\321 !#\211\203\205\211@\211\305 \"\203s\322\202y\211A\262\242BB\262A\266\202\202`\210\237\262\323\301#\210\266\206\207" [plist-get :cite-citeproc-rendered-citations org-cite-list-citations org-cite-csl--processor nil org-cite-csl--nocite-p append org-cite-get-references t mapcar make-closure #[257 "\301\300\"\207" [V0 org-cite-csl--create-structure] 4 "\n\n(fn C)"] citeproc-append-citations citeproc-add-uncited org-cite-csl--rendered-bibliographies citeproc-render-citations org-cite-csl--output-format org-cite-csl--no-citelinks-p "" plist-put] 13 (#$ . 14875)])#@250 Return the sub-bibliography filter corresponding to bibliography properties. BIB-PROPS should be a plist representing the properties associated with a "print_bibliography" keyword, as returned by `org-cite-bibliography-properties'. (fn BIB-PROPS) (defalias 'org-cite-csl--bibliography-filter #[257 "\300C\301\302\303\304#\"\210\242\207" [nil #[257 "\300\301!\302\303O!\207" [intern symbol-name 1 nil] 5 "\n\n(fn X)"] map-do make-closure #[514 "\302\267\202A\303\304\"\211\205\"\211@\301\300!B\301\242B\240\210A\266\202\202\n\207\304\305\306\307$\266\203\2036\310\311\"\207\301\300!B\301\242B\240\207\305\207" [V0 V1 #s(hash-table size 7 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (:filter 6 :notcsltype 6 :nottype 6 :notkeyword 6 :keyword 6 :csltype 35 :type 35)) split-string "," nil string-match t user-error "The \"%s\" print_bibliography option does not support comma-separated values"] 10 "\n\n(fn KEY VALUE)"]] 8 (#$ . 15951)])#@336 Return the rendered bibliographies. INFO is the export state, as a property list. Return an (OUTPUTS PARAMETERS) list where OUTPUTS is an alist of (BIB-PROPS . OUTPUT) pairs where each key is a property list of a "print_bibliography" keyword and the corresponding OUTPUT value is the bibliography as rendered by Citeproc. (fn INFO) (defalias 'org-cite-csl--rendered-bibliographies #[257 "\300\301\"\206Y\302C\302C\303\300\304\"\305\306\307##\210\211\242\237\240\210\211\242\237\240\210\310!\311\242\"\210\312!\313\310!\314!#\211\242\243\315\316\242#\211D\317\n\301#\210\262\266\204\262\266\202\207" [plist-get :cite-citeproc-rendered-bibliographies nil org-element-map :parse-tree keyword make-closure #[257 "\302\303\"\304\232\205\305!\301\301\242B\240\210\300\306!\300\242B\240\262\207" [V0 V1 org-element-property :key "PRINT_BIBLIOGRAPHY" org-cite-bibliography-properties org-cite-csl--bibliography-filter] 5 "\n\n(fn KEYWORD)"] org-cite-csl--processor citeproc-add-subbib-filters org-cite-csl--output-format citeproc-render-bib org-cite-csl--no-citelinks-p cl-mapcar cons plist-put] 14 (#$ . 16935)])#@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 (#$ . 18083)])#@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!\211\242\243\211\242\243\306 \"A\307\267\202^\310\236A\205A\311\236A\312!\313\314!\"\210\315\225\316O\317\320_#\266\203\321\236A\205M\317\322 \211#Q\207\321\236A\203]\317\323\n#\207\207\324!\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 org-cite-csl--rendered-bibliographies assoc #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (html 30 latex 80)) second-field-align max-offset string-to-number string-match number-to-string 0 nil format "" hanging-indent "" "\\begin{hangparas}{%s}{1}\n%s\n\\end{hangparas}" org-cite-parse-elements] 20 (#$ . 18438)])#@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 (#$ . 19537)]) (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") ("bare" "b") ("caps" "c") ("full" "f") ("bare-caps" "bc") ("caps-full" "cf") ("bare-caps-full" "bcf")) (("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")) (("nocite" "n")) (("title" "ti") ("bare" "b")) (("bibentry" "b") ("bare" "b")) (("locators" "l") ("bare" "b"))) provide oc-csl] 10)