;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\304\305\306\307\310\311%\210\312\313\314\315\316DD\317\310\311\320\321&\207" [require biblio-core biblio-doi timezone custom-declare-group biblio-arxiv nil "arXiv support in biblio.el" :group biblio custom-declare-variable biblio-arxiv-bibtex-header funcall function #[0 "\300\207" [#1="online"] 1 #1#] "Which header to use for BibTeX entries generated from arXiv metadata." :type string] 8) #@65 Create an unformated BibTeX record for METADATA. (fn METADATA) (defalias 'biblio-arxiv--build-bibtex-1 #[257 "\211\301\236A\302\236A\303\236A\304\236A\305\236A\306\307\310\311 \"&\207" [biblio-arxiv-bibtex-header authors title year identifier category format "@%s{NO_KEY,\nauthor = {%s},\ntitle = {{%s}},\nyear = {%s},\narchivePrefix = {arXiv},\neprint = {%s},\nprimaryClass = {%s}}" biblio-join-1 " AND "] 15 (#$ . 532)]) #@53 Create a BibTeX record for METADATA. (fn METADATA) (defalias 'biblio-arxiv--build-bibtex #[257 "\211\300\236A\301\302\"\210\303\304!\305\"\207" [id message "Auto-generating a BibTeX entry for %S." biblio-format-bibtex biblio-arxiv--build-bibtex-1 t] 6 (#$ . 978)]) #@82 Forward BibTeX for arXiv entry METADATA to FORWARD-TO. (fn METADATA FORWARD-TO) (defalias 'biblio-arxiv--forward-bibtex #[514 "\300\236A\301!\203\302!!\207\303\"\207" [doi seq-empty-p biblio-arxiv--build-bibtex biblio-doi-forward-bibtex] 7 (#$ . 1253)]) #@54 Format AUTHOR for arXiv search results. (fn AUTHOR) (defalias 'biblio-arxiv--format-author #[257 "\211\242\300=\205 \211A\301\236A\302\236A\303\304A@\305A@!#\266\202\262\207" [author name arxiv:affiliation biblio-join " " biblio-parenthesize] 9 (#$ . 1523)]) #@68 Extract identifier from ID, the URL of an arXiv abstract. (fn ID) (defalias 'biblio-arxiv--extract-id #[257 "\300\301\302#\207" [replace-regexp-in-string "https?://arxiv.org/abs/" ""] 5 (#$ . 1795)]) #@53 Extract PDF url from ID of an arXiv entry. (fn ID) (defalias 'biblio-arxiv--pdf-url #[257 "\211\205\300P\207" ["https://arxiv.org/pdf/"] 3 (#$ . 2003)]) #@63 Prepare an arXiv search result ENTRY for display. (fn ENTRY) (defalias 'biblio-arxiv--extract-interesting-fields #[257 "\211\300\236A\301\236A\302\236A\303\236A\304\236A\305\236A\306\236A\307A@!\310A@B\311B\312\313 A@!\314HB\303A@B\315\316\317\"B\320 A@B\321\322\323 @\"B\324A@ DB\325\326B\327\322\330 @\"B\331\332\f!B\257 \207" [id arxiv:doi published title arxiv:journal_ref arxiv:primary_category link biblio-arxiv--extract-id doi identifier year timezone-parse-date 0 authors seq-map biblio-arxiv--format-author container category biblio-alist-get term references type "eprint" url href direct-url biblio-arxiv--pdf-url] 23 (#$ . 2166)]) #@47 Check if ENTRY is an arXiv entry. (fn ENTRY) (defalias 'biblio-arxiv--entryp #[257 "\211\242\300=\207" [entry] 3 (#$ . 2841)]) #@45 Extract search results from arXiv response. (defalias 'biblio-arxiv--parse-search-results #[0 "\300\301!\210\302ed\"\303\236A\304\305\306\307\"\"\207" [biblio-decode-url-buffer utf-8 xml-parse-region feed seq-map biblio-arxiv--extract-interesting-fields seq-filter biblio-arxiv--entryp] 7 (#$ . 2975)]) #@51 Create an arXiv url to look up QUERY. (fn QUERY) (defalias 'biblio-arxiv--url #[257 "\300\301\302!\"\207" [format "https://export.arxiv.org/api/query?search_query=%s" url-encode-url] 5 (#$ . 3286)]) #@114 A arXiv backend for biblio.el. COMMAND, ARG, MORE: See `biblio-backends'. (fn COMMAND &optional ARG &rest MORE) (defalias 'biblio-arxiv-backend #[641 "\300\267\202\301\207\302\207\303!\207\304 \207\305@\"\207\306\307\310\"\207\311\207" [#s(hash-table size 6 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (name 6 prompt 8 url 10 parse-buffer 14 forward-bibtex 17 register 23)) "arXiv" "arXiv query: " biblio-arxiv--url biblio-arxiv--parse-search-results biblio-arxiv--forward-bibtex add-to-list biblio-backends biblio-arxiv-backend nil] 6 (#$ . 3494)]) (add-hook 'biblio-init-hook 'biblio-arxiv-backend) #@77 Start an arXiv search for QUERY, prompting if needed. (fn &optional QUERY) (defalias 'biblio-arxiv-lookup #[256 "\300\301\"\207" [biblio-lookup biblio-arxiv-backend] 4 (#$ . 4128) nil]) (byte-code "\300\301\302\"\210\303\304!\207" [defalias arxiv-lookup biblio-arxiv-lookup provide biblio-arxiv] 3)