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



(byte-code "\300\301!\210\300\302!\210\300\303!\207" [require org-compat org-macs seq] 2)
#@175 Alist mapping those languages to their default region.
Only those languages are given for which the default region is not simply the
result of duplicating the language part.
(defconst org-cite--default-region-alist '(("af" . "za") ("ca" . "ad") ("cs" . "cz") ("cy" . "gb") ("da" . "dk") ("el" . "gr") ("et" . "ee") ("fa" . "ir") ("he" . "ir") ("ja" . "jp") ("km" . "kh") ("ko" . "kr") ("nb" . "no") ("nn" . "no") ("sl" . "si") ("sr" . "rs") ("sv" . "se") ("uk" . "ua") ("vi" . "vn") ("zh" . "cn")) (#$ . 175))
(byte-code "\300\301\302\303\304\305\306\307&\210\310\311\312\313\314DD\315\304\301\316\317\320\321&	\210\310\322\312\313\323DD\324\304\301\316\325\320\326&	\210\310\327\312\313\330DD\331\304\301\316\332\320\333&	\210\310\334\312\313\335DD\336\304\301\316\337\320\340&	\210\310\341\312\313\342DD\343\304\301\316\344\320\345&	\210\310\346\312\313\347DD\350\304\301\316\351\320\352\353\354&\210\310\355\312\313\356DD\357\304\301\316\360\320\361&	\210\310\362\312\313\363DD\364\304\301\316\365\320\366&	\207" [custom-declare-group org-cite nil "Options concerning citations in Org mode." :group org :tag "Org Cite" custom-declare-variable org-cite-global-bibliography funcall function #[0 "\300\207" [nil] 1 #1=""] "List of bibliography files available in all documents.\nFile names must be absolute." :package-version (Org . "9.5") :type (choice (const :tag "No global bibliography" nil) (repeat :tag "List of bibliography files" (file :tag "Bibliography"))) org-cite-activate-processor #[0 "\300\207" [basic] 1 #1#] "Processor used for activating citations, as a symbol." (Org . "9.5") (choice (const :tag "Default fontification" nil) (symbol :tag "Citation processor")) org-cite-export-processors #[0 "\300\207" [((t basic))] 1 #1#] "Processor used for exporting citations, as a triplet, or nil.\n\nWhen nil, citations and bibliography are not exported.\n\nWhen non-nil, the value is an association list between export back-ends and\ncitation export processors:\n\n  (BACK-END . PROCESSOR)\n\nwhere BACK-END is the name of an export back-end or t, and PROCESSOR is a\ntriplet following the pattern\n\n  (NAME BIBLIOGRAPHY-STYLE CITATION-STYLE)\n\nThere, NAME is the name of a registered citation processor providing export\nfunctionality, as a symbol.  BIBLIOGRAPHY-STYLE (respectively CITATION-STYLE)\nis the desired default style to use when printing a bibliography (respectively\nexporting a citation), as a string or nil.  Both BIBLIOGRAPHY-STYLE and\nCITATION-STYLE are optional.  NAME is mandatory.\n\nThe export process selects the citation processor associated to the current\nexport back-end, or the most specific back-end the current one is derived from,\nor, if all are inadequate, to the processor associated to t.  For example, with\nthe following value\n\n  ((beamer natbib)\n   (latex biblatex)\n   (t csl))\n\nexporting with `beamer' or any back-end derived from it will use `natbib',\nwhereas exporting with `latex' or any back-end derived from it but different\nfrom `beamer' will use `biblatex' processor.  Any other back-end, such as\n`html', will use `csl' processor.\n\nCITATION-STYLE is overridden by adding a style to any citation object.  A nil\nstyle lets the export processor choose the default output.  Any style not\nrecognized by the export processor is equivalent to nil.\n\nThe citation triplet can also be set with the CITE_EXPORT keyword.\nE.g.,\n\n  #+CITE_EXPORT: basic note numeric\n\nor\n\n  #+CITE_EXPORT: basic\n\nIn that case, `basic' processor is used on every export, independently on the\nback-end." (Org . "9.5") (choice (const :tag "No export" nil) (alist :key-type symbol :value-type (list :tag "Citation processor" (symbol :tag "Processor name") (choice (const :tag "Default bibliography style" nil) (string :tag "Use specific bibliography style")) (choice (const :tag "Default citation style" nil) (string :tag "Use specific citation style"))))) org-cite-follow-processor #[0 "\300\207" [basic] 1 #1#] "Processor used for following citations, as a symbol." (Org . "9.5") (choice (const :tag "No following" nil) (symbol :tag "Citation processor")) org-cite-insert-processor #[0 "\300\207" [basic] 1 #1#] "Processor used for inserting citations, as a symbol." (Org . "9.5") (choice (const :tag "No insertion" nil) (symbol :tag "Citation processor")) org-cite-adjust-note-numbers #[0 "\300\207" [t] 1 #1#] "When non-nil, allow process to modify location of note numbers.\n\nWhen this variable is non-nil, it is possible to swap between author-date and\nnote style without modifying the document.  To that effect, citations should\nalways be located as in an author-date style.  Prior to turning the citation\ninto a footnote, the citation processor moves the citation (i.e., the future\nnote number), and the surrounding punctuation, according to rules defined in\n`org-cite-note-rules'.\n\nWhen nil, the note number is not moved." (Org . "9.5") (choice (const :tag "Automatic note number location" t) (const :tag "Place note numbers manually" nil)) :safe booleanp org-cite-note-rules #[0 "\300\207" [(("en-us" inside outside after) ("fr" adaptive same before))] 1 #1#] "Alist between languages and typographic rules for citations in note style.\n\nWhen `org-cite-adjust-note-numbers' is non-nil, and note style is requested,\ncitation processor is allowed to move the note marker according to some specific\nrules, detailed here.  More accurately, a rule is a list following the pattern\n\n    (LANGUAGE-TAG . RULE)\n\n  LANGUAGE-TAG is a down-cased string representing a language tag as defined in\n  RFC 4646.  It may constituted of a language and a region separated with an\n  hyphen (e.g., \"en-us\"), or the language alone (e.g., \"fr\").  A language\n  without a region applies to all regions.\n\n  RULE is a triplet\n\n    (PUNCTUATION NUMBER ORDER)\n\n  PUNCTUATION is the desired location of the punctuation with regards to the\n  quotation, if any.  It may be `inside', `outside', or `adaptive'.  The latter\n  permits subtler control over the punctuation: when there is no space between\n  the quotation mark and the punctuation, it is equivalent to `inside'.\n  Otherwise, it means `outside', as illustrated in the following examples:\n\n      \"A quotation ending without punctuation\" [cite:@org21].\n      \"A quotation ending with a period\"[cite:@org21].\n\n  Notwithstanding the above, a space always appear before the citation when it\n  is to become anything else than a note.\n\n  NUMBER is the desired location of the note number with regards to the\n  quotation mark, if any.  It may be `inside', `outside', or `same'.  When set\n  to `same', the number appears on the same side as the punctuation, unless\n  there is punctuation on both sides or on none.\n\n  ORDER is the relative position of the citation with regards to the closest\n  punctuation.  It may be `after' or `before'.\n\nFor example (adaptive same before) corresponds to French typography.\n\nWhen the locale is unknown to this variable, the default rule is:\n\n  (adaptive outside after)\n\nThis roughly follows the Oxford Guide to Style recommendations." (Org . "9.5") (repeat (list :tag "Typographic rule" (string :tag "Language code") (choice :tag "Location of punctuation" (const :tag "Punctuation inside quotation" inside) (const :tag "Punctuation outside quotation" outside) (const :tag "Location depends on spacing" adaptive)) (choice :tag "Location of citation" (const :tag "Citation inside quotation" inside) (const :tag "Citation outside quotation" outside) (const :tag "Citation next to punctuation" same)) (choice :tag "Order of citation and punctuation" (const :tag "Citation first" before) (const :tag "Citation last" after)))) org-cite-punctuation-marks #[0 "\300\207" [("." "," ";" ":" "!" "?")] 1 #1#] "List of strings that can be moved around when placing note numbers.\n\nWhen `org-cite-adjust-note-numbers' is non-nil, the citation processor is\nallowed to shuffle punctuation marks specified in this list in order to\nplace note numbers according to rules defined in `org-cite-note-rules'." (Org . "9.5") (repeat string)] 12)
#@77 compiler-macro for inlining `org-cite-processor-p'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'org-cite-processor-p--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block org-cite-processor-p (and (memq (type-of cl-x) cl-struct-org-cite-processor-tags) t)) nil] 9 (#$ . 8277)])
(put 'org-cite-processor-p 'compiler-macro 'org-cite-processor-p--cmacro)
#@13 

(fn CL-X)
(defalias 'org-cite-processor-p #[257 "\301
!>\205	\302\207" [cl-struct-org-cite-processor-tags type-of t] 3 (#$ . 8659)])
(byte-code "\300\301\302\303#\304\305\306\301#\207" [function-put org-cite-processor-p side-effect-free error-free put org-cite-processor cl-deftype-satisfies] 5)
#@80 compiler-macro for inlining `org-cite-processor-name'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'org-cite-processor-name--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block org-cite-processor-name (progn (or (org-cite-processor-p cl-x) (signal 'wrong-type-argument (list 'org-cite-processor cl-x))) (aref cl-x 1))) nil] 9 (#$ . 8965)])
(put 'org-cite-processor-name 'compiler-macro 'org-cite-processor-name--cmacro)
#@68 Access slot "name" of `org-cite-processor' struct CL-X.

(fn CL-X)
(defalias 'org-cite-processor-name #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-org-cite-processor-tags type-of signal wrong-type-argument org-cite-processor 1] 5 (#$ . 9415)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put org-cite-processor-name side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" org-cite-processor-name] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@84 compiler-macro for inlining `org-cite-processor-activate'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'org-cite-processor-activate--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block org-cite-processor-activate (progn (or (org-cite-processor-p cl-x) (signal 'wrong-type-argument (list 'org-cite-processor cl-x))) (aref cl-x 2))) nil] 9 (#$ . 9925)])
(put 'org-cite-processor-activate 'compiler-macro 'org-cite-processor-activate--cmacro)
#@72 Access slot "activate" of `org-cite-processor' struct CL-X.

(fn CL-X)
(defalias 'org-cite-processor-activate #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-org-cite-processor-tags type-of signal wrong-type-argument org-cite-processor 2] 5 (#$ . 10395)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put org-cite-processor-activate side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" org-cite-processor-activate] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@87 compiler-macro for inlining `org-cite-processor-cite-styles'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'org-cite-processor-cite-styles--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block org-cite-processor-cite-styles (progn (or (org-cite-processor-p cl-x) (signal 'wrong-type-argument (list 'org-cite-processor cl-x))) (aref cl-x 3))) nil] 9 (#$ . 10922)])
(put 'org-cite-processor-cite-styles 'compiler-macro 'org-cite-processor-cite-styles--cmacro)
#@75 Access slot "cite-styles" of `org-cite-processor' struct CL-X.

(fn CL-X)
(defalias 'org-cite-processor-cite-styles #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-org-cite-processor-tags type-of signal wrong-type-argument org-cite-processor 3] 5 (#$ . 11408)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put org-cite-processor-cite-styles side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" org-cite-processor-cite-styles] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@95 compiler-macro for inlining `org-cite-processor-export-bibliography'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'org-cite-processor-export-bibliography--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block org-cite-processor-export-bibliography (progn (or (org-cite-processor-p cl-x) (signal 'wrong-type-argument (list 'org-cite-processor cl-x))) (aref cl-x 4))) nil] 9 (#$ . 11947)])
(put 'org-cite-processor-export-bibliography 'compiler-macro 'org-cite-processor-export-bibliography--cmacro)
#@83 Access slot "export-bibliography" of `org-cite-processor' struct
CL-X.

(fn CL-X)
(defalias 'org-cite-processor-export-bibliography #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-org-cite-processor-tags type-of signal wrong-type-argument org-cite-processor 4] 5 (#$ . 12473)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put org-cite-processor-export-bibliography side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" org-cite-processor-export-bibliography] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@91 compiler-macro for inlining `org-cite-processor-export-citation'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'org-cite-processor-export-citation--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block org-cite-processor-export-citation (progn (or (org-cite-processor-p cl-x) (signal 'wrong-type-argument (list 'org-cite-processor cl-x))) (aref cl-x 5))) nil] 9 (#$ . 13044)])
(put 'org-cite-processor-export-citation 'compiler-macro 'org-cite-processor-export-citation--cmacro)
#@79 Access slot "export-citation" of `org-cite-processor' struct CL-X.

(fn CL-X)
(defalias 'org-cite-processor-export-citation #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-org-cite-processor-tags type-of signal wrong-type-argument org-cite-processor 5] 5 (#$ . 13550)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put org-cite-processor-export-citation side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" org-cite-processor-export-citation] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@92 compiler-macro for inlining `org-cite-processor-export-finalizer'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'org-cite-processor-export-finalizer--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block org-cite-processor-export-finalizer (progn (or (org-cite-processor-p cl-x) (signal 'wrong-type-argument (list 'org-cite-processor cl-x))) (aref cl-x 6))) nil] 9 (#$ . 14105)])
(put 'org-cite-processor-export-finalizer 'compiler-macro 'org-cite-processor-export-finalizer--cmacro)
#@80 Access slot "export-finalizer" of `org-cite-processor' struct CL-X.

(fn CL-X)
(defalias 'org-cite-processor-export-finalizer #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-org-cite-processor-tags type-of signal wrong-type-argument org-cite-processor 6] 5 (#$ . 14616)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put org-cite-processor-export-finalizer side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" org-cite-processor-export-finalizer] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@82 compiler-macro for inlining `org-cite-processor-follow'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'org-cite-processor-follow--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block org-cite-processor-follow (progn (or (org-cite-processor-p cl-x) (signal 'wrong-type-argument (list 'org-cite-processor cl-x))) (aref cl-x 7))) nil] 9 (#$ . 15175)])
(put 'org-cite-processor-follow 'compiler-macro 'org-cite-processor-follow--cmacro)
#@70 Access slot "follow" of `org-cite-processor' struct CL-X.

(fn CL-X)
(defalias 'org-cite-processor-follow #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-org-cite-processor-tags type-of signal wrong-type-argument org-cite-processor 7] 5 (#$ . 15636)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put org-cite-processor-follow side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" org-cite-processor-follow] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@82 compiler-macro for inlining `org-cite-processor-insert'.

(fn CL-WHOLE-ARG CL-X)
(defalias 'org-cite-processor-insert--cmacro #[514 "\300\301\302\303\211\211&\207" [cl--defsubst-expand (cl-x) (cl-block org-cite-processor-insert (progn (or (org-cite-processor-p cl-x) (signal 'wrong-type-argument (list 'org-cite-processor cl-x))) (aref cl-x 8))) nil] 9 (#$ . 16155)])
(put 'org-cite-processor-insert 'compiler-macro 'org-cite-processor-insert--cmacro)
#@70 Access slot "insert" of `org-cite-processor' struct CL-X.

(fn CL-X)
(defalias 'org-cite-processor-insert #[257 "\301
!>\204\302\303\304D\"\210\211\305H\207" [cl-struct-org-cite-processor-tags type-of signal wrong-type-argument org-cite-processor 8] 5 (#$ . 16616)])
(byte-code "\300\301\302\303#\300\301\304\305#\300\207" [function-put org-cite-processor-insert side-effect-free t gv-expander #[514 "\300\301\302\"\207" [error "%s is a read-only slot" org-cite-processor-insert] 5 "\n\n(fn CL-DO CL-X)"]] 5)
#@180 compiler-macro for inlining `org-cite--make-processor'.

(fn CL-WHOLE &cl-quote &key NAME ACTIVATE CITE-STYLES EXPORT-BIBLIOGRAPHY EXPORT-CITATION EXPORT-FINALIZER FOLLOW INSERT)
(defalias 'org-cite--make-processor--cmacro #[385 "\300
\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\211\203`\211@\311>\203H\211AA\262
\2025\312\n>A@\203W\313\262
\2025\314\315@\"\210\2025\210\316\317\320\313
\313







&
\207" [plist-member :name :activate :cite-styles :export-bibliography :export-citation :export-finalizer :follow :insert (:name :activate :cite-styles :export-bibliography :export-citation :export-finalizer :follow :insert :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :activate :cite-styles :export-bibliography :export-citation :export-finalizer :follow :insert)" cl--defsubst-expand (name activate cite-styles export-bibliography export-citation export-finalizer follow insert) (cl-block org-cite--make-processor (record 'org-cite-processor name activate cite-styles export-bibliography export-citation export-finalizer follow insert))] 24 (#$ . 17136)])
(put 'org-cite--make-processor 'compiler-macro 'org-cite--make-processor--cmacro)
#@159 Constructor for objects of type `org-cite-processor'.

(fn &key NAME ACTIVATE CITE-STYLES EXPORT-BIBLIOGRAPHY EXPORT-CITATION EXPORT-FINALIZER FOLLOW INSERT)
(defalias 'org-cite--make-processor #[128 "\300
\301\"A@\300\302\"A@\300\303\"A@\300\304\"A@\300\305\"A@\300\306\"A@\300\307\"A@\300\310\"A@\211\203`\211@\311>\203H\211AA\262
\2025\312\n>A@\203W\313\262
\2025\314\315@\"\210\2025\210\316\317								&	\207" [plist-member :name :activate :cite-styles :export-bibliography :export-citation :export-finalizer :follow :insert (:name :activate :cite-styles :export-bibliography :export-citation :export-finalizer :follow :insert :allow-other-keys) :allow-other-keys nil error "Keyword argument %s not one of (:name :activate :cite-styles :export-bibliography :export-citation :export-finalizer :follow :insert)" record org-cite-processor] 19 (#$ . 18402)])
(byte-code "\300\301\302\303#\304\305\306\307\310\306\311\312\305\303&	\207" [function-put org-cite--make-processor side-effect-free t cl-struct-define org-cite-processor nil cl-structure-object record ((cl-tag-slot) (name nil :read-only t) (activate nil :read-only t) (cite-styles nil :read-only t) (export-bibliography nil :read-only t) (export-citation nil :read-only t) (export-finalizer nil :read-only t) (follow nil :read-only t) (insert nil :read-only t)) cl-struct-org-cite-processor-tags] 11)
#@114 List of registered citation processors.
See `org-cite-register-processor' for more information about
processors.
(defvar org-cite--processors nil (#$ . 19798))
#@105 Return citation processor named after symbol NAME.
Return nil if no such processor is found.

(fn NAME)
(defalias 'org-cite--get-processor #[257 "\301\302\303\"\"\207" [org-cite--processors seq-find make-closure #[257 "\300\302!	>\204\303\304\305D\"\210
\306H=\207" [V0 cl-struct-org-cite-processor-tags type-of signal wrong-type-argument org-cite-processor 1] 6 "\n\n(fn P)"]] 5 (#$ . 19965)])
#@3209 Mark citation processor NAME as available.

NAME is a symbol.  BODY is a property list, where the following
optional keys can be set:

  `:activate'

    Function activating a citation.  It is called with a single
    argument: a citation object extracted from the current
    buffer.  It may add text properties to the buffer.  If it is
    not provided, `org-cite-fontify-default' is used.

  `:export-bibliography'

    Function rendering a bibliography.  It is called with six
    arguments: the list of citation keys used in the document, as
    strings, a list of bibliography files, the style, as a string
    or nil, the local properties, as a property list, the export
    back-end, as a symbol, and the communication channel, as a
    property list.

    It is called at each "print_bibliography" keyword in the
    parse tree.  It may return a string, a parsed element, a list
    of parsed elements, or nil.  When it returns nil, the keyword
    is ignored.  Otherwise, the value it returns replaces the
    keyword in the export output.

  `:export-citation'    (mandatory for "export" capability)

    Function rendering citations.  It is called with four
    arguments: a citation object, the style, as a pair, the
    export back-end, as a symbol, and the communication channel,
    as a property list.

    It is called on each citation object in the parse tree.  It
    may return a string, a parsed object, a secondary string, or
    nil.  When it returns nil, the citation is ignored.
    Otherwise, the value it returns replaces the citation object
    in the export output.

  `:export-finalizer'

    Function called at the end of export process.  It must accept
    six arguments: the output, as a string, a list of citation
    keys used in the document, a list of bibliography files, the
    expected bibliography style, as a string or nil, the export
    back-end, as a symbol, and the communication channel, as a
    property list.

    It must return a string, which will become the final output
    from the export process, barring subsequent modifications
    from export filters.

  `:follow'

    Function called to follow a citation.  It accepts two
    arguments, the citation or citation reference object at
    point, and any prefix argument received during interactive
    call of `org-open-at-point'.

  `:insert'

    Function called to insert a citation.  It accepts two
    arguments, the citation or citation reference object at point
    or nil, and any prefix argument received.

  `:cite-styles'

    When the processor has export capability, the value can
    specify what cite styles, variants, and their associated
    shortcuts are supported.  It can be useful information for
    completion or linting.

    The expected format is

      ((STYLE . SHORTCUTS) . VARIANTS))

    where STYLE is a string, SHORTCUTS a list of strings or nil,
    and VARIANTS is a list of pairs (VARIANT . SHORTCUTS),
    VARIANT being a string and SHORTCUTS a list of strings or
    nil.

    The "nil" style denotes the processor fall-back style.  It
    should have a corresponding entry in the value.

Return a non-nil value on a successful operation.

(fn NAME &rest BODY)
(defalias 'org-cite-register-processor #[385 "
\203	
9\204\301\302\"\210\303!\203\304!\210\305\306\307$B\211\207" [org-cite--processors error "Invalid processor name: %S" org-cite--get-processor org-cite-unregister-processor apply org-cite--make-processor :name] 7 (#$ . 20374)])
(byte-code "\300\301\302\303#\300\207" [function-put org-cite-register-processor lisp-indent-function 1] 4)
#@164 Unregister citation processor NAME.
NAME is a symbol.  Raise an error if processor is not registered.
Return a non-nil value on a successful operation.

(fn NAME)
(defalias 'org-cite-unregister-processor #[257 "\211\203	\2119\204\301\302\"\210\303
!\211\204\301\304\"\266\202$\305
\"\210\306\207" [org-cite--processors error "Invalid processor name: %S" org-cite--get-processor "Processor %S not registered" delete t] 5 (#$ . 23989)])
#@202 Return non-nil if PROCESSOR is able to handle CAPABILITY.
PROCESSOR is the name of a cite processor, as a symbol.  CAPABILITY is
`activate', `export', `follow', or `insert'.

(fn PROCESSOR CAPABILITY)
(defalias 'org-cite-processor-has-capability-p #[514 "\301!\211\204	\302\207
\303\267\202c\304\305!>\204\306\307\310D\"\210
\311H!\207\304\305!>\2044\306\307\310D\"\210
\312H!\207\304\305!>\204I\306\307\310D\"\210
\313H!\207\304\305!>\204^\306\307\310D\"\210
\314H!\207\315\316\"\207" [cl-struct-org-cite-processor-tags org-cite--get-processor nil #s(hash-table size 4 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (activate 15 export 36 follow 57 insert 78)) functionp type-of signal wrong-type-argument org-cite-processor 2 5 7 8 error "Invalid capability: %S"] 8 (#$ . 24442)])
#@183 Set `:post-blank' property from element or object before DATUM to BLANKS.
DATUM is an element or object.  BLANKS is an integer.  DATUM is modified
by side-effect.

(fn DATUM BLANKS)
(defalias 'org-cite--set-post-blank #[514 "\300!\301=\204\302\303#\207\304\305\306\307\310\"#\"\207" [org-element-type plain-text org-element-put-property :post-blank org-element-set-element replace-regexp-in-string "[ 	\n]*\\'" make-string 32] 9 (#$ . 25270)])
#@265 Set `:post-blank' property from element or object before DATUM to BLANKS.
DATUM is an element or object.  BLANKS is an integer.  INFO is the export
state, as a property list.  Previous element or object, if any, is modified by
side-effect.

(fn DATUM BLANKS INFO)
(defalias 'org-cite--set-previous-post-blank #[771 "\300\"\211\205\f\301
\"\207" [org-export-get-previous-element org-cite--set-post-blank] 7 (#$ . 25730)])
#@209 Split string S and insert CITATION object between the two parts.
S is split at beginning of match group N upon matching REGEXP against it.
This function assumes S precedes CITATION.

(fn S CITATION N REGEXP)
(defalias 'org-cite--insert-at-split #[1028 "\300\301\"\211\203\211\302V\203\303\304\305\"\"\210\210\303\306\307!\301\302#\"\210\310
\"\210
\224\311O\312\313\314\311O#\315!\203B\303\"\210\316\"\207" [org-element-property :post-blank 0 org-element-insert-before make-string 32 org-element-put-property org-element-extract-element string-match nil replace-regexp-in-string "[\n[:blank:]]+\\'" "" org-string-nw-p org-element-set-element] 12 (#$ . 26162)])
#@229 Move punctuation PUNCT before CITATION object.
String S contains PUNCT.  INFO is the export state, as a property list.
The function assumes S follows CITATION.  Parse tree is modified by side-effect.

(fn PUNCT CITATION S INFO)
(defalias 'org-cite--move-punct-before #[1028 "
\232\203
\300!\210\202\301\211G\302O\"\210\303\304#\210\305\306\307\310\"\206(\304\311\"P\"\207" [org-element-extract-element org-element-set-element nil org-cite--set-previous-post-blank 0 org-element-insert-before make-string org-element-property :post-blank 32] 9 (#$ . 26853)])
#@96 Parse string S as a property list.
Values are always strings.  Return nil if S is nil.

(fn S)
(defalias 'org-cite--parse-as-plist #[257 "\211\204\300\207\211;\203\222\301\302\303\"r\211q\210\304\305\"\216\212
c\210)\306\300w\210\300\211m\204\214\300f\211\307=\203:\310p!B\266\203\303\202\205
\204F\311\300w\266\202\205\211\312=\203x`\3131e\310p!\210\211T`S{B\211\2620\266\202t
b\210\311\300w\210
`{B\211\266\206\300\202\205`\311\300w\210\211`{B\266\204\300\306\300w\210\202#
\237\266\202*\207\314\315\"\207" [nil generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] " 	" 58 read "^ 	" 34 (end-of-file) error "Invalid argument type: %S"] 9 (#$ . 27432)])
#@312 Return punctuation rule according to language used for export.

INFO is the export state, as a property list.

Rule is found according to the language used for export and
`org-cite-note-rules', which see.

If there is no rule matching current language, the rule defaults
to (adaptive outside after).

(fn INFO)
(defalias 'org-cite--get-note-rule #[257 "\302\303\304\"\305\"\211:\203L\211\242
\243\211\204$
\306\"A\206D\266\202\202P\211:\203C\211\242
\243\211\2049D\266\204\202P\307\310\"\266\204\202P\307\310\"\266\202\202P\307\310\"\262
\311\312\313#
@\306	\"A\206j\306
	\"A\206j\314\207" [org-cite--default-region-alist org-cite-note-rules split-string plist-get :language "[-_]" assoc error "Invalid language identifier: %S" mapconcat downcase "-" (adaptive outside after)] 9 (#$ . 28175)])
#@52 List all bibliography files defined in the buffer.
(defalias 'org-cite-list-bibliography-files #[0 "\301\302\303\304\305\306\307\310#\211:\205-\211\242\211:\205+\211\242\211\311\232\205)
\243\243\211?\205'
\266\202\262
\262
\262
\"\"!\207" [org-cite-global-bibliography delete-dups append mapcar #[257 "\211:\205\211\242
\243\300\301!\"\266\202\207" [expand-file-name org-strip-quotes] 6 "\n\n(fn VALUE)"] org-collect-keywords ("BIBLIOGRAPHY") nil ("BIBLIOGRAPHY") "BIBLIOGRAPHY"] 10 (#$ . 28999)])
#@301 Return citations references contained in CITATION object.

When optional argument KEYS-ONLY is non-nil, return the references' keys, as a
list of strings.

Assume CITATION object comes from either a full parse tree, e.g., during export,
or from the current buffer.

(fn CITATION &optional KEYS-ONLY)
(defalias 'org-cite-get-references #[513 "\300!\211\204P\301\302\"\212\303
!\203\304
!q\210\212\214~\210\211\206 `b\210`\301\305\"}\210\306m\204J\307 \301\310\"b\210\203B\301\311\"\202C\211B\266\202\202+\211\237\262
+\207
\203Y\312\313\"\207\207" [org-element-contents org-element-property :contents-begin markerp marker-buffer :contents-end nil org-element-citation-reference-parser :end :key mapcar #[257 "\300\301\"\207" [org-element-property :key] 4 "\n\n(fn R)"]] 9 (#$ . 29515)])
#@102 Return the beginning and end strict position of CITATION.
Returns a (BEG . END) pair.

(fn CITATION)
(defalias 'org-cite-boundaries #[257 "\300\301\"\300\302\"\212\303
!\203\304
!q\210\212\214~\210\211\206`b\210\305\306x\210`+\262


B\207" [org-element-property :begin :end markerp marker-buffer " 	" nil] 5 (#$ . 30327)])
#@225 Return citation REFERENCE's key boundaries as buffer positions.
The function returns a pair (START . END) where START and END denote positions
in the current buffer.  Positions include leading "@" character.

(fn REFERENCE)
(defalias 'org-cite-key-boundaries #[257 "\301\302\"\212\303
!\203\304
!q\210\212\214~\210\211\206`b\210\301\305\"\306\307#\210\310\224\310\225B\262
+\207" [org-element-citation-key-re org-element-property :begin markerp marker-buffer :end re-search-forward t 0] 7 (#$ . 30663)])
#@303 Return main affixes for CITATION object.

Some export back-ends only support a single pair of affixes per
citation, even if it contains multiple keys.  This function
decides what affixes are the most appropriate.

Return a pair (PREFIX . SUFFIX) where PREFIX and SUFFIX are
parsed data.

(fn CITATION)
(defalias 'org-cite-main-affixes #[257 "\300
!\211:\203\211\242
\243\211\204
\266\202\202\266\202\202
\262
\301\302\"\301\303\"B\207" [org-cite-get-references org-element-property :prefix :suffix] 6 (#$ . 31182)])
#@475 List of supported citation styles and variants.

Supported styles are those handled by export processors from
`org-cite-export-processors', or in PROCESSORS, as a list of symbols,
when non-nil.

Return value is a list with the following items:

  ((STYLE . SHORTCUTS) . VARIANTS))

where STYLE is a string, SHORTCUTS a list of strings, and VARIANTS is a list of
pairs (VARIANT . SHORTCUTS), VARIANT being a string and SHORTCUTS a list of
strings.

(fn &optional PROCESSORS)
(defalias 'org-cite-supported-styles #[256 "\301\302\206\n\303\304\"\"\305
\211\203U\211@\211\242\211\242
\243\243\306\"\211\2042EB\262\266\202N\211A\211\307\310A@\"!\240\266\211AA\211\310\3118\"\240\266
A\266\202\202
\210\303\312\"\237\207" [org-cite-export-processors seq-mapcat #[257 "\301
!\302
!>\204\303\304\305D\"\210\211\306H\207" [cl-struct-org-cite-processor-tags org-cite--get-processor type-of signal wrong-type-argument org-cite-processor 3] 6 "\n\n(fn NAME)"] mapcar #[257 "\211\243\211\242\207" [] 3 "\n\n(fn ARG0)"] nil assoc seq-uniq append 2 #[257 "\211\242
\243\211\242
\243\211\242
\243\237B\300\211\203D\211@\211\242
\243\301\"\211\2042BB\262\266\202=\211\302\303A\"!\241\266
A\266\202\202\210\211\262
B\207" [nil assoc seq-uniq append] 19 "\n\n(fn ARG0)"]] 16 (#$ . 31716)])
#@124 Delete citation or citation reference DATUM.
When removing the last reference, also remove the whole citation.

(fn DATUM)
(defalias 'org-cite-delete-citation #[257 "\300
!\211\301\267\202\356\302!\211\242
\243\212\303!\203\304!q\210\212\214~\210
\206%`b\210\305\306x\210`+\307\310\"
\311 U
\312 U
\203I\211\203I\311 \311\313!|\207
\203Q|\207\211\203Z\312 |\207|\210U\205~\212\303!\203p\304!q\210\212\214~\210\206y`b\210\314c+\207\307\315\"\316
!\307\317\"\307\310\"G\320U\203\232\321!\207
\307\322\"U\203\320\307\323\"\204\320\307\317\"\212\303
!\203\274\304
!q\210\212\214~\210\211\206\305`b\210\305\306x\210`|+\207\211\307\324\"U\203\352\307\325\"\204\352
S\302!AS|\207

|\207\326\327\"\207" [org-element-type #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (citation 9 citation-reference 127)) org-cite-boundaries markerp marker-buffer " 	" nil org-element-property :end line-beginning-position line-end-position 2 " " :parent org-cite-get-references :begin 1 org-cite-delete-citation :contents-begin :prefix :contents-end :suffix error "Invalid object type: %S"] 12 (#$ . 33044)])
#@273 Return citation style used for CITATION object.

Style is a pair (NAME . VARIANT) where NAME and VARIANT are strings or nil.
A nil NAME means the default style for the current processor should be used.

INFO is a plist used as a communication channel.

(fn CITATION INFO)
(defalias 'org-cite-citation-style #[514 "\300\211\301\302\"!
\303\304\"\211:\205/\211\243\211:\205-\211\243\211:\205+\211\242
\243\211?\205)
\266\202\262
\262
\262
!\305@!\203A\306@!AB\207\306
@!A\206L
AB\207" [#[257 "\211\204\300C\207\301\302\"\204\211C\207\211\300\303\224O\304\303\225\300O!B\207" [nil string-match "/" 0 org-string-nw-p] 6 "\n\n(fn S)"] org-element-property :style plist-get :cite-export org-string-nw-p org-not-nil] 11 (#$ . 34224)])
#@97 Return expected bibliography style.
INFO is a plist used as a communication channel.

(fn INFO)
(defalias 'org-cite-bibliography-style #[257 "\300
\301\"\211:\205'\211\243\211:\205%\211\242
\243\211:\205#\211\243\211?\205!\262
\266\202\262
\207" [plist-get :cite-export] 7 (#$ . 34976)])
#@117 Return properties associated to "print_bibliography" KEYWORD object.
Return value is a property list.

(fn KEYWORD)
(defalias 'org-cite-bibliography-properties #[257 "\300\301\302\"!\207" [org-cite--parse-as-plist org-element-property :value] 5 (#$ . 35276)])
#@194 List citations in the exported document.
Citations are ordered by appearance in the document, when following footnotes.
INFO is the export communication channel, as a property list.

(fn INFO)
(defalias 'org-cite-list-citations #[257 "\300
\301\"\2068\302C\300\303\"\304\305#\302C\211\304\306%\240\210\211\242!\210\242\237\307\301#\210\211\262
\262
\266\203\207" [plist-get :citations nil :parse-tree make-closure #[257 "\302\301\303\304\305\"\300\306%\207" [V0 V1 org-element-map footnote-definition make-closure #[257 "\300\301\302\"\232\205\303
!\206\304\207" [V0 org-element-property :label org-element-contents ""] 5 "\n\n(fn D)"] t] 7 "\n\n(fn LABEL)"] #[257 "\304
\305\306\307\301\302\303$\300\310\311\312&\207" [V0 V1 V2 V3 org-element-map (citation footnote-reference) make-closure #[257 "\303
!\211\304=\203\300\300\242B\240\207\305\306\"\307=\203\310\207\305\311\"\302\242\301!!\207" [V0 V1 V2 org-element-type citation org-element-property :type inline nil :label] 6 "\n\n(fn DATUM)"] nil footnote-definition t] 9 "\n\n(fn DATA)"] plist-put] 12 (#$ . 35544)])
#@228 List citation keys in the exported document.
Keys are ordered by first appearance in the document, when following footnotes.
Duplicate keys are removed.  INFO is the export communication channel, as a
property list.

(fn INFO)
(defalias 'org-cite-list-keys #[257 "\300\301\302!\303\304$!\207" [delete-dups org-element-map org-cite-list-citations citation-reference #[257 "\300\301\"\207" [org-element-property :key] 4 "\n\n(fn R)"]] 7 (#$ . 36655)])
#@316 Return number associated to string KEY.

INFO is the export communication channel, as a property list.

Optional argument PREDICATE is called with two keys, and returns non-nil
if the first reference should sort before the second.  When nil, references
are sorted in order cited.

(fn KEY INFO &optional PREDICATE)
(defalias 'org-cite-key-number #[770 "\300!\301!\203\302
\"\202\211\303
\304#\211\250\205\211T\207" [org-cite-list-keys functionp sort seq-position string-equal] 9 (#$ . 37115)])
#@314 Non-nil when CITATION object is contained within a footnote.

When optional argument STRICT is non-nil, return t only if CITATION represents
the sole contents of the footnote, e.g., after calling `org-cite-wrap-citation'.

When non-nil, the return value if the footnote container.

(fn CITATION &optional STRICT)
(defalias 'org-cite-inside-footnote-p #[513 "\300\301\"\211\205
\203\302\303\304\"!C\232\205\211\207" [org-element-lineage (footnote-definition footnote-reference) org-element-contents org-element-property :parent] 7 (#$ . 37627)])
#@282 Wrap an anonymous inline footnote around CITATION object in the parse tree.

INFO is the export state, as a property list.

White space before the citation, if any, are removed.  The parse tree is
modified by side-effect.

Return newly created footnote object.

(fn CITATION INFO)
(defalias 'org-cite-wrap-citation #[514 "\300\301\302\303\304\305\306\307	\"\310\306\311\"\312\306\312
\"\257\nD\313\314#\210\315
\"\210\316
\317!\"\207" [footnote-reference :label nil :type inline :contents-begin org-element-property :begin :contents-end :end :post-blank org-cite--set-previous-post-blank 0 org-element-insert-before org-element-adopt-elements org-element-extract-element] 15 (#$ . 38188)])
#@611 Adjust note number location for CITATION object, and punctuation around it.

INFO is the export state, as a property list.

Optional argument RULE is the punctuation rule used, as a triplet.  When nil,
rule is determined according to `org-cite-note-rules', which see.

Optional argument PUNCT is a list of punctuation marks to be considered.
When nil, it defaults to `org-cite-punctuation-marks'.

Parse tree is modified by side-effect.

Note: when calling both `org-cite-adjust-note' and `org-cite-wrap-citation' on
the same object, call `org-cite-adjust-note' first.

(fn CITATION INFO &optional RULE PUNCT)
(defalias 'org-cite-adjust-note #[1026 "\205\321
\206\302!\303\206	!\304\305\306\307\310\311D\310DED\310\312DE\313\"\304\305\314\307\315\310DEE\313\"\316\"C\211\242;\205L\317\242\"\205L\320\321\242\"C\322\323\"\324\325\f\326\327&\330
!@\262
C\211\242;\205\201\317\242\"\205\201\320\321\242\"\320\331\242\"\320\332\242\"E\211\242
\243\211\242
\243\211\242
\243C\204\254\211\242\n\242
\204\241\262
\202\251\211?\205\247
\266\202\2030
\333\334\203.
:\203(
\242\211\335\267\202
%\266\2020
\204\350%\266\2020
\203

	&\266\2020
\336\337\"\266\2020

	&\266\2020
\336\337\"\266\2020
\336\337\"\210\266:\203\210
\242\243\211:\203\206
\211\242\211\340=\203\205

\243\211:\203\204
\211\242
\243\211\204\202
\242\203i
\242\203i
\341\202~
\242\203s
\342\202~
\242\203}
\341\202~
\326E\262\266\210\210\266:\203\310\243\211:\203\276\211\242\211\343\267\202\264
\243\211:\203\265
\211\243\211\205\260
\336\337\"\262
\202\272
\336\337\"\262
\202\271
\243\211:\203:\211\242\211\344\267\2020
\243\211\204\377
	\203\346
\345\242\331$\202\242\203\373
\346\242\242$\202\326\202\336\337\"\262
\2025
\243\211\204&\242\204	\205+\345\242\347$\202+\336\337\"\262
\2025\336\337\"\262
\202?\336\337\"\262
\202\271
\243\211:\203\252\211\242\211\350\267\202\240
\243\211\204n\242\205s\346\242\242$\202s\336\337\"\262
\202\245
\243\211\204\226\242\205\233	?\205\233\345\242\347$\202\233\336\337\"\262
\202\245\336\337\"\262
\202\257\336\337\"\262
\202\271\336\337\"\262
\202\303\336\337\"\262
\202\315\336\337\"\262
\266\216\207" [org-cite-adjust-note-numbers org-cite-punctuation-marks org-cite--get-note-rule regexp-opt rx-to-string seq opt group regexp "[\n[:blank:]]*" "\\(?:[\n[:blank:]]*\\(\"\\)\\)?\\([\n[:blank:]]+\\)?\\'" t string-start (0+ (any blank 10)) org-export-get-next-element string-match match-string 1 org-element-map org-export-get-previous-element (citation code entity export-snippet footnote-reference line-break latex-fragment link plain-text radio-target statistics-cookie timestamp verbatim) identity nil (citation subscript superscript) last 2 3 #[1285 "\211\242?\205F\242\205F\300\242\301P\242\302\211\303&\300\304\305\306\242E\307\"\310\242#\311\242\"\210\311\242\"\210\240\210
\240\210\242\240\210\302\240\266\202\207" [replace-regexp-in-string "\"" nil 2 rx-to-string seq string-start t #1="" org-element-set-element] 12 "\n\n(fn PREVIOUS-PUNCT-RE NEXT FINAL-PUNCT PREVIOUS PUNCT)"] #[1542 "\211\242\205e\242?\205e\300\301\242\302\211\303&\242;\203#
\242\242P\202%
\242\304\242\"\210\242;\203;\304\242\"\210\202S\242\203J\305
\242\"\210\202S\306\307\310\n\"\"\210\240\210
\240\210\242\240\210\302\240\266\202\207" [replace-regexp-in-string #1# nil 1 org-element-set-element org-element-insert-before org-element-adopt-elements org-element-property :parent] 13 "\n\n(fn CITATION PREVIOUS-PUNCT-RE NEXT FINAL-PUNCT PREVIOUS PUNCT)"] #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (inside 194 adaptive 211 outside 266)) error "Invalid punctuation rule: %S" same outside inside #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 414 inside 447 outside 580)) #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (after 462 before 521)) org-cite--insert-at-split org-cite--move-punct-before 0 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (after 595 before 632))] 29 (#$ . 38893)])
#@208 Parse string S as a list of Org elements.

The return value is suitable as a replacement for a
"print_bibliography" keyword.  As a consequence, the function
raises an error if S contains a headline.

(fn S)
(defalias 'org-cite-parse-elements #[257 "\300\301\302\"r\211q\210\303\304\"\216
c\210\305\306 !\211\204\307\202J\211:\203G\211\242\310
!\311=\203?
\243\211\2047\305!\202:\312\313!\262
\202B\312\313!\262
\202J\312\313!\262
*\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] org-element-contents org-element-parse-buffer nil org-element-type section error "Headlines cannot replace a keyword"] 7 (#$ . 43226)])
#@259 Parse string S as a secondary string.

The return value is suitable as a replacement for a citation object.

When optional argument AFFIX is non-nil, restrict the set of allowed object
types to match the contents of a citation affix.

(fn S &optional AFFIX)
(defalias 'org-cite-parse-objects #[513 "\300\301\203\302\202\f\303!\"\207" [org-element-parse-secondary-string org-element-restriction citation-reference paragraph] 6 (#$ . 43930)])
#@110 Return a paragraph element containing DATA.
DATA are strings, objects or secondary strings.

(fn &rest DATA)
(defalias 'org-cite-make-paragraph #[128 "\300\301\302\303\300\304\"$\207" [apply org-element-create paragraph nil org-cite-concat] 8 (#$ . 44383)])
#@207 Apply emphasis TYPE on DATA.
TYPE is a symbol among `bold', `italic', `strike-through' and `underline'.
DATA are strings, objects or secondary strings.  Return an object of type TYPE.

(fn TYPE &rest DATA)
(defalias 'org-cite-emphasize #[385 "
\300>\204\301\302\"\210\303\304\305\303\306\"$\207" [(bold italic strike-through underline) error "Wrong emphasis type: %S" apply org-element-create nil org-cite-concat] 9 (#$ . 44650)])
(byte-code "\300\301\302\303#\300\207" [function-put org-cite-emphasize lisp-indent-function 1] 4)
#@158 Concatenate all the DATA arguments and make the result a secondary string.
Each argument may be a string, an object, or a secondary string.

(fn &rest DATA)
(defalias 'org-cite-concat #[128 "\300\301!\211\203:\211@\211\2033\302
!\203\211B\262\2023\211:\203*\303
\"\262\2023\304\305\306\307\"C\"\210
A\266\202\202\210\207" [nil reverse org-element-type append signal wrong-type-argument format "Argument is not a string or a secondary string: %S"] 9 (#$ . 45193)])
#@323 Apply FUNCTION to each element of DATA, and return a secondary string.

In between each pair of results, stick SEPARATOR, which may be a string,
an object, or a secondary string.  FUNCTION must be a function of one argument,
and must return either a string, an object, or a secondary string.

(fn FUNCTION DATA SEPARATOR)
(defalias 'org-cite-mapconcat #[771 "
\205&@!CA\211\203\"\211@\300!#\262
A\266\202\202\210\211\262
\207" [org-cite-concat] 11 (#$ . 45679)])
#@192 Fontify CITE with `org-cite' and `org-cite-key' faces.
CITE is a citation object.  The function applies `org-cite' face
on the whole citation, and `org-cite-key' face on each key.

(fn CITE)
(defalias 'org-cite-fontify-default #[257 "\300\301\"\300\302\"\212\303
!\203\304
!q\210\212\214~\210\211\206`b\210\305\306x\210`+\262
\307\310#\210\311\312#\210\313!\211\205O\211@\314
!\311
@A\315#\266
A\266\202\2026\207" [org-element-property :begin :end markerp marker-buffer " 	" nil add-text-properties (font-lock-multiline t) add-face-text-property org-cite org-cite-get-references org-cite-key-boundaries org-cite-key] 10 (#$ . 46162)])
#@193 Activate citations from up to LIMIT buffer position.
Each citation encountered is activated using the appropriate function
from the processor set in `org-cite-activate-processor'.

(fn LIMIT)
(defalias 'org-cite-activate #[257 "\211\203&\303
\304\"\203&\305
!\306
!	>\204\307\310\311D\"\210\211\312H\262
\206'\313\314\n\315#\205\\\316\224\212\317
!\203=\320
!q\210\212\214~\210\211\206F`b\210\321 +\262
\211\205Z

!\210\322\323\"b\262
\207" [org-cite-activate-processor cl-struct-org-cite-processor-tags org-element-citation-prefix-re org-cite-processor-has-capability-p activate org-cite--get-processor type-of signal wrong-type-argument org-cite-processor 2 org-cite-fontify-default re-search-forward t 0 markerp marker-buffer org-element-citation-parser org-element-property :end] 7 (#$ . 46819)])
#@231 Store bibliography in the communication channel.

Bibliography is stored as a list of absolute file names in the `:bibliography'
property.

INFO is the communication channel, as a plist.  It is modified by side-effect.

(fn INFO)
(defalias 'org-cite-store-bibliography #[257 "\300
\301\302 #\207" [plist-put :bibliography org-cite-list-bibliography-files] 5 (#$ . 47640)])
#@375 Store export processor in the `:cite-export' property during export.

Export processor is stored as a triplet, or nil.

When non-nil, it is defined as (NAME BIBLIOGRAPHY-STYLE CITATION-STYLE) where
NAME is a symbol, whereas BIBLIOGRAPHY-STYLE and CITATION-STYLE are strings,
or nil.

INFO is the communication channel, as a plist.  It is modified by side-effect.

(fn INFO)
(defalias 'org-cite-store-export-processor #[257 "\300\301\302\"\211\303\235\203\304\202Y
\211;\203\223\305\306\307\"r\211q\210\310\311\"\216\212
c\210)\312p!C\313\211\314W\203\200\304\315\304w\210m\203C\304B\262\210\202y\316\317\304f\"\203i\3201_\321\312p!!B\211\2620\266\202y!\266\202y`\322\304w\210\321
`{!B\262\266\211T\262
\202+\210m\204\211!\210\211\237\262
*\262
\202Y
\211:\203V
\301\323\"\324\325\310\326\"\"\327\"\211@\206\256\307\236\211\204\266\304\202O
\211:\203K
\211\243\211:\203C
\211\242\2119\203:

\243\211\204\330\330\304\211D\"\2025
\211:\2031
\211\242\331
!\203(

\243\211\204\363\330\304C\"\202#
\211:\203
\211\242\331
!\203

\243\211\204
\202
!\262
\202
\n!\262
\202#
	!\262
\202,
!\262
\2025
!\262
\202>
!\262
\202F

!\262
\202O

A!\262
\266\202\202Y


!\262
\211\203\202
\211:\203\202
\211\242\332
!\204u
\333\334\"\266\202\202
\335
\336\"\204\201
\333\337\"\210\210\340\302#\207" [#[257 "\300\301\"\207" [user-error "Invalid cite export processor definition: %S"] 4 "\n\n(fn S)"] plist-get :cite-export (nil "") nil generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205	\302\300!\207" [V0 buffer-name kill-buffer] 2] read 0 2 " 	" char-equal 34 (error) org-not-nil "^ 	" :back-end sort seq-filter #[257 "\211\242\301\300\"\207" [V0 org-export-derived-backend-p] 5 "\n\n(fn ARG0)"] #[514 "\300@@\"\207" [org-export-derived-backend-p] 5 "\n\n(fn A B)"] append string-or-null-p org-cite--get-processor user-error "Unknown processor %S" org-cite-processor-has-capability-p export "Processor %S is unable to handle citation export" plist-put] 15 (#$ . 48020)])
#@174 Export CITATION object according to INFO property list.
This function delegates the export of the current citation to the
selected citation processor.

(fn CITATION _ INFO)
(defalias 'org-cite-export-citation #[771 "\301
\302\"\211\204\n\303\207\211:\203]\211\242
\243\211:\203X\211\243\211:\203S\211\243\211\204M\304!\305
!>\2047\306\307\310D\"\210\211\311H\262
\312\n	\"\301	\313\"	$\207\314\315\"\207\314\315\"\207\314\315\"\207\314\315\"\207" [cl-struct-org-cite-processor-tags plist-get :cite-export nil org-cite--get-processor type-of signal wrong-type-argument org-cite-processor 5 org-cite-citation-style :back-end error "Invalid `:cite-export' value: %S"] 14 (#$ . 50069)])
#@181 Return bibliography associated to "print_bibliography" KEYWORD.
BACKEND is the export back-end, as a symbol.  INFO is a plist
used as a communication channel.

(fn KEYWORD _ INFO)
(defalias 'org-cite-export-bibliography #[771 "\301
\302\"\211\204\n\303\207\211:\203l\211\242
\243\211:\203g\211\243\211:\203b\211\243\211\204\\\304!\305
!>\2047\306\307\310D\"\210\211\311H\262
\211\205[\211\312!\301	\313\"\314\n!\315
!\301\f\316\"\f&\207\317\320\"\207\317\320\"\207\317\320\"\207\317\320\"\207" [cl-struct-org-cite-processor-tags plist-get :cite-export nil org-cite--get-processor type-of signal wrong-type-argument org-cite-processor 4 org-cite-list-keys :bibliography org-cite-bibliography-style org-cite-bibliography-properties :back-end error "Invalid `:cite-export' value: %S"] 17 (#$ . 50779)])
#@140 Replace all citations in the parse tree.
INFO is the communication channel, as a plist.  Parse tree is modified
by side-effect.

(fn INFO)
(defalias 'org-cite-process-citations #[257 "\300
!\211\205\266\211@\301
\302#\303\304\"\206\305
\204$\306#\210\202\252\307\"\310
!\203=\311\312\"\203=\306\313#\210\210
;\203i
\302\314
\203N\315\202O\316\317\314\320\317##\266\202\321\322\"P\323\324!\"\266\202\252
:\203\245
\242\2119\203\203\325\"\210\323\"\266\202\252\302\211\203\233\211@\211\262\323
\"\210
A\266\202\202\205\210\325
\"\266\202\252\326\327\"\210\330!\266
A\266\202\202\207" [org-cite-list-citations org-cite-export-citation nil org-element-property :post-blank 0 org-cite--set-previous-post-blank org-export-get-previous-element org-string-nw-p string-suffix-p "\"" 1 replace-regexp-in-string "\\`\\([ 	]*\n\\)+" "\\`[ 	\n
]+" "" "[ 	\n
]+\\'" make-string 32 org-element-insert-before org-export-raw-string org-cite--set-post-blank error "Invalid return value from citation export processor: %S" org-element-extract-element] 14 (#$ . 51609)])
#@161 Replace all "print_bibliography" keywords in the parse tree.

INFO is the communication channel, as a plist.  Parse tree is modified
by side effect.

(fn INFO)
(defalias 'org-cite-process-bibliography #[257 "\300\301\302\"\303\304\305\"$\207" [org-element-map plist-get :parse-tree keyword make-closure #[257 "\301\302\"\303\232\205\200\304
\305\300#\301\306\"\206\307
\204$\310\300#\210\311!\207
;\2038\312!\313\314\"P\315\316!\"\207
:\203z
\242\211<\203f\305\211\203\\\211@\211\262\317
\"\210
A\266\202\202F\210\320
\"\210\311!\207\2119\203u\320\"\210\315\"\207\321\322\"\207\321\322\"\266\202\207" [V0 org-element-property :key "PRINT_BIBLIOGRAPHY" org-cite-export-bibliography nil :post-blank 0 org-cite--set-previous-post-blank org-element-extract-element org-element-normalize-string make-string 10 org-element-set-element org-export-raw-string org-element-insert-before org-cite--set-post-blank error "Invalid return value from citation export processor: %S"] 10 "\n\n(fn KEYWORD)"]] 7 (#$ . 52719)])
#@154 Finalizer for export process.
OUTPUT is the full output of the export process.  INFO is the communication
channel, as a property list.

(fn OUTPUT INFO)
(defalias 'org-cite-finalize-export #[514 "\301
\302\"\211\204\n\207\211:\203m\211\242
\243\211:\203h\211\243\211:\203c\211\243\211\204]\303!\304
!>\2047\305\306\307D\"\210\211\310H\262
\211\204C\207\211\311	!\301\n\312\"\313!\301\f\314\"\f&\207\315\316\"\207\315\316\"\207\315\316\"\207\315\316\"\207" [cl-struct-org-cite-processor-tags plist-get :cite-export org-cite--get-processor type-of signal wrong-type-argument org-cite-processor 6 org-cite-list-keys :bibliography org-cite-bibliography-style :back-end error "Invalid `:cite-export' value: %S"] 16 (#$ . 53768)])
#@221 Follow citation or citation-reference DATUM.
Following is done according to the processor set in `org-cite-follow-processor'.
ARG is the prefix argument received when calling `org-open-at-point', or nil.

(fn DATUM ARG)
(defalias 'org-cite-follow #[514 "\211\204	\302\303!\207\304
!\204\302\305\"\207\306
\307\"\204 \302\310\"\207\304
!\311
!	>\2042\312\313\314D\"\210\211\315H\262
\211\"\207" [org-cite-follow-processor cl-struct-org-cite-processor-tags user-error "No processor set to follow citations" org-cite--get-processor "Unknown processor %S" org-cite-processor-has-capability-p follow "Processor %S cannot follow citations" type-of signal wrong-type-argument org-cite-processor 7] 8 (#$ . 54527)])
#@146 Non-nil when a citation can be inserted at point.
CONTEXT is the element or object at point, as returned by `org-element-context'.

(fn CONTEXT)
(defalias 'org-cite--allowed-p #[257 "\304
!\305\306\"\211\205`
W\262
\203+\307\310\311\312\313\314\315\316	B\317BBBBB\307\"\320 \")\207\211\321>\206
\211\322\267\202\202`\305\323\"Y\205
`\305\324\"W\207\325 ?\206
\212\326 \210\307\327\307\330
!)\262
)?\205g\331\330!))\205
\332\224\205
`\332\224Y\205
\333\224?\206
`\333\224W\207`\212\305\334\"b\210\335\331x\210\336!\337=\203\232`\202\235\320\340!)Y\206
\211\341\267\202\303\330\342!\207`\305\343\"\344 \\\305\345\"\203\277\333\202\300\346\\V\207\336!\347=\203\315\331\207`\305\343\"U\206
\211\350\267\202\353\331\207\212\351\331x\210`)\305\324\"X\207\305\323\"\305\324\"
\205
`Y\205
`
X\266\202\207" [case-fold-search org-element-parsed-keywords inhibit-changing-match-data org-complex-heading-regexp org-element-type org-element-property :post-affiliated t looking-back rx-to-string seq line-start (0+ (any " 	")) "#+" or (":" (0+ nonl)) line-beginning-position (nil paragraph) #s(hash-table size 3 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (verse-block 55 headline 71 inlinetask 71)) :contents-begin :contents-end org-at-heading-p beginning-of-line "\\*+ END[ 	]*$" looking-at nil 4 5 :end " 
	\n" org-element-class object 2 #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (footnote-definition 168 item 172)) "[[:space:]]" :begin current-indentation :checkbox 1 element #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (link 220 table-cell 222)) " 	"] 10 (#$ . 55253)])
#@72 Insert STRING before citation REFERENCE object.

(fn STRING REFERENCE)
(defalias 'org-cite--insert-string-before #[514 "\300\301\"\212\302
!\203\303
!q\210\212\214~\210\211\206`b\210\304\261+\207" [org-element-property :begin markerp marker-buffer ";"] 5 (#$ . 56965)])
#@71 Insert STRING after citation REFERENCE object.

(fn STRING REFERENCE)
(defalias 'org-cite--insert-string-after #[514 "\300\301\"\212\302
!\203\303
!q\210\212\214~\210\211\206`b\210\304\305`Sf\"\203+\306\307\"\202/\306\307\"+\207" [org-element-property :end markerp marker-buffer char-equal 59 insert-before-markers ";"] 6 (#$ . 57248)])
#@117 Build a citation object from a list of citation KEYS.
Citation keys are strings without the leading "@".

(fn KEYS)
(defalias 'org-cite--keys-to-citation #[257 "\300\301\302\303\304\305\"$\207" [apply org-element-create citation nil mapcar #[257 "\300\301\302D\"\207" [org-element-create citation-reference :key] 5 "\n\n(fn K)"]] 8 (#$ . 57601)])
#@1434 Build a function appropriate as an insert processor.

SELECT-KEY is a function called with one argument.  When it is nil, the function
should return a citation key as a string, or nil.  Otherwise, the function
should return a list of such keys, or nil.  The keys should not have any leading
"@" character.

SELECT-STYLE is a function called with one argument, the citation object being
edited or constructed so far.  It should return a style string, or nil.

The return value is a function of two arguments: CONTEXT and ARG.  CONTEXT is
either a citation reference, a citation object, or nil.  ARG is a prefix
argument.

The generated function inserts or edit a citation at point.  More specifically,

  On a citation reference:

    - on the prefix or right before the "@" character, insert a new reference
      before the current one,
    - on the suffix, insert it after the reference,
    - otherwise, update the cite key, preserving both affixes.

    When ARG is non-nil, remove the reference, possibly removing the whole
    citation if it contains a single reference.

  On a citation object:

    - on the style part, offer to update it,
    - on the global prefix, add a new reference before the first one,
    - on the global suffix, add a new reference after the last one,

  Elsewhere, insert a citation at point.  When ARG is non-nil, offer to complete
  style in addition to references.

(fn SELECT-KEY SELECT-STYLE)
(defalias 'org-cite-make-insert-processor #[514 "\300!\203\f\300
!\204\301\302!\210\303\304#\207" [functionp error "Wrong argument type(s)" make-closure #[514 "\302\303!\211\304=\203\251\305!`
AW\205`
@V\262
\203\243\203%\306!\207\307\310\"\212\311
!\2035\312
!q\210\212\214~\210\211\206>`b\210\313\314!+S\211`Y\203\315\\\301 \211\204X\316\317!\210\212\311!\203d\312!q\210\212\214~\210
\206m`b\210
|\210\320
!\205}\321
\261+\207\322!\323\300\324!P`\307\325\n\"W\203\230\326
@\"\207\327
\330
!@\262
\"\207
\300\301#\207\211\331=\204\265
\300\301#\207\203\275\306!\207\332!\211\242
\243\323\300\324!\206\316\316\317!P`Y\203\333\326
	\"\207
`X\203\347\327
	\"\207\212\311!\203\363\312!q\210\212\214~\210\206\374`b\210|\210\211c+\207" [V0 V1 #[771 "\300!\211\204\301\302!\210\303\304\203(\305!!\306
!\203\"\307
P\202#\310\262
\202)\310\311\312\313##c\207" [t user-error "Aborted" format "[cite%s:%s]" org-cite--keys-to-citation org-string-nw-p "/" "" mapconcat #[257 "\300
P\207" ["@"] 3 "\n\n(fn K)"] "; "] 11 "\n\n(fn SELECT-KEY SELECT-STYLE ARG)"] org-element-type citation org-cite-boundaries org-cite-delete-citation org-element-property :begin markerp marker-buffer search-forward ":" 5 user-error "Aborted" org-string-nw-p "/" org-cite-get-references "@" nil :contents-begin org-cite--insert-string-before org-cite--insert-string-after last citation-reference org-cite-key-boundaries] 13 "\n\n(fn CONTEXT ARG)"]] 6 (#$ . 57959)])
#@197 Insert a citation at point.
Insertion is done according to the processor set in `org-cite-insert-processor'.
ARG is the prefix argument received when calling interactively the function.

(fn ARG)
(defalias 'org-cite-insert #[257 "\211\204	\302\303!\207\304
!\204\302\305\"\207\306
\307\"\204 \302\310\"\207\311 \304!\312
!	>\2044\313\314\315D\"\210\211\316H\262
\317!\320>\203F\211\"\207\321!\203Q\211\322\"\207\302\323!\207" [org-cite-insert-processor cl-struct-org-cite-processor-tags user-error "No processor set to insert citations" org-cite--get-processor "Unknown processor %S" org-cite-processor-has-capability-p insert "Processor %S cannot insert citations" org-element-context type-of signal wrong-type-argument org-cite-processor 8 org-element-type (citation citation-reference) org-cite--allowed-p nil "Cannot insert a citation here"] 8 (#$ . 60898) "P"])
(provide 'oc)