;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require biblio-core biblio-doi] 2) #@58 API key used to query IEEE; for use only with biblio.el! (defconst biblio-ieee--api-key "rfwzcsz3f9fkhklhii84xdfz" (#$ . 163)) (defconst biblio-ieee--api-root-url "https://ieeexploreapi.ieee.org/api/v1/search/articles") #@88 Forward BibTeX for IEEE Xplore entry METADATA to FORWARD-TO. (fn METADATA FORWARD-TO) (defalias 'biblio-ieee--forward-bibtex #[514 "\300\301\302\"\"\207" [biblio-doi-forward-bibtex biblio-alist-get doi] 6 (#$ . 389)]) #@60 Format AUTHOR for IEEE Xplore search results. (fn AUTHOR) (defalias 'biblio-ieee--format-author #[257 "\211\300\236A\301\236A\302\303\304!#\207" [full_name affiliation biblio-join " " biblio-parenthesize] 9 (#$ . 616)]) #@66 Prepare a IEEE Xplore search result ITEM for display. (fn ITEM) (defalias 'biblio-ieee--extract-interesting-fields #[257 "\211\300\236A\301\236A\302\236A\303\211\236A\236A\304\236A\305\236A\306\236A\307\310\311\n\236A\236A\236A\307\312\311 \236A\236A\236A\313\n\236A\314 \236A\315\f\236A\300\fB\316\fB\302\fB\303\317\320\"B\304\fB\321\fB\322 DB\323\f\206q B\324 B\325 B\326 B\257 \207" [doi publication_year title authors publisher publication_title isbn terms author_terms index_terms ieee_terms abstract_url pdf_url access_type year seq-map biblio-ieee--format-author container references type url direct-url open-access-status] 26 (#$ . 847)]) #@51 Extract search results from IEEE Xplore response. (defalias 'biblio-ieee--parse-search-results #[0 "\300\301!\210\302 \303\236A\304\305\"\207" [biblio-decode-url-buffer utf-8 json-read articles seq-map biblio-ieee--extract-interesting-fields] 5 (#$ . 1531)]) #@57 Create an IEEE Xplore url to look up QUERY. (fn QUERY) (defalias 'biblio-ieee--url #[257 "\302\303\304!\305 !$\207" [biblio-ieee--api-root-url biblio-ieee--api-key format "%s?querytext=%s&apikey=%s" url-encode-url rot13] 7 (#$ . 1798)]) #@120 A IEEE Xplore backend for biblio.el. COMMAND, ARG, MORE: See `biblio-backends'. (fn COMMAND &optional ARG &rest MORE) (defalias 'biblio-ieee-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)) "IEEE Xplore" "IEEE Xplore query: " biblio-ieee--url biblio-ieee--parse-search-results biblio-ieee--forward-bibtex add-to-list biblio-backends biblio-ieee-backend nil] 6 (#$ . 2045)]) (add-hook 'biblio-init-hook 'biblio-ieee-backend) #@75 Start a IEEE search for QUERY, prompting if needed. (fn &optional QUERY) (defalias 'biblio-ieee-lookup #[256 "\300\301\"\207" [biblio-lookup biblio-ieee-backend] 4 (#$ . 2691) nil]) (byte-code "\300\301\302\"\210\303\304!\207" [defalias ieee-lookup biblio-ieee-lookup provide biblio-ieee] 3)