;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'biblio-core) #@81 Forward BibTeX for DBLP entry METADATA to FORWARD-TO. (fn METADATA FORWARD-TO) (defalias 'biblio-dblp--forward-bibtex #[514 "\300\301\"\302\303\304\305\211%\306\307\310\311\"!\"\207" [biblio-alist-get url replace-regexp-in-string "/rec/" "/rec/bib2/" t biblio-url-retrieve biblio-generic-url-callback make-closure #[0 "\300\301 !\207" [V0 biblio-response-as-utf-8] 2 "Parse DBLP BibTeX results."]] 10 (#$ . 110)]) #@59 Prepare a DBLP search result ITEM for display. (fn ITEM) (defalias 'biblio-dblp--extract-interesting-fields #[257 "\300\301\"\302\236A\303\236A\304\236A\305\236A\306\236A\307\236A\302A@B\303A@B\304\310\311A\"B\312A@B\313C\306A@B\307A@B\257\207" [biblio-alist-get info year title authors venue type url seq-map cl-caddr container references] 16 (#$ . 536)]) #@41 Check if ITEM is a DBLP hit. (fn ITEM) (defalias 'biblio-dblp--hitp #[257 "\211\242\300=\207" [hit] 3 (#$ . 921)]) #@44 Extract search results from DBLP response. (defalias 'biblio-dblp--parse-search-results #[0 "\300\301!\210\302ed\"@\303\236A\304\236AA@\305\230\204\306\307\310\"\210\311\312\313\314\"\"\207" [biblio-decode-url-buffer utf-8 xml-parse-region status hits "OK" display-warning biblio-dblp "DBLP query failed" seq-map biblio-dblp--extract-interesting-fields seq-filter biblio-dblp--hitp] 8 (#$ . 1043)]) #@49 Create a DBLP url to look up QUERY. (fn QUERY) (defalias 'biblio-dblp--url #[257 "\300\301\302!\"\207" [format "https://dblp.uni-trier.de/search/publ/api?q=%s&format=xml" url-encode-url] 5 (#$ . 1454)]) #@113 A DBLP backend for biblio.el. COMMAND, ARG, MORE: See `biblio-backends'. (fn COMMAND &optional ARG &rest MORE) (defalias 'biblio-dblp-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)) "DBLP" "DBLP query: " biblio-dblp--url biblio-dblp--parse-search-results biblio-dblp--forward-bibtex add-to-list biblio-backends biblio-dblp-backend nil] 6 (#$ . 1666)]) (add-hook 'biblio-init-hook 'biblio-dblp-backend) #@75 Start a DBLP search for QUERY, prompting if needed. (fn &optional QUERY) (defalias 'biblio-dblp-lookup #[256 "\300\301\"\207" [biblio-lookup biblio-dblp-backend] 4 (#$ . 2291) nil]) (byte-code "\300\301\302\"\210\303\304!\207" [defalias dblp-lookup biblio-dblp-lookup provide biblio-dblp] 3)