;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'biblio-core) #@80 Forward BibTeX for HAL entry METADATA to FORWARD-TO. (fn METADATA FORWARD-TO) (defalias 'biblio-hal--forward-bibtex #[514 "\211\300\301\"!\207" [biblio-alist-get bibtex] 6 (#$ . 110)]) #@58 Prepare a HAL search result ITEM for display. (fn ITEM) (defalias 'biblio-hal--extract-interesting-fields #[257 "\211\300\236A\301\236A\302\236A\303\236A\304\236A\305\236A\306\236A\307\236A\310 \236A\311\n\236A\312 \236A\313\f\236A\314 \236A\315 B\316\317!\320HB\321 B\322\323\324\325\326\"\327\325\326\"!#B\330\fB\331\fB\332\fB\333\334E!B\335 B\336 B\337\340\f\341\"@B\257 \207" [doiId_s producedDate_tdate label_bibtex title_s subtitle_s authFullName_s journalPublisher_s journalTitle_s halId_s arxivId_s submitType_s uri_s files_s doi year timezone-parse-date 0 bibtex title biblio-join " " biblio-join-1 ", " biblio-parenthesize authors publisher container references biblio-remove-empty type url direct-url append nil] 29 (#$ . 303)]) #@43 Extract search results from HAL response. (defalias 'biblio-hal--parse-search-results #[0 "\300\301!\210\302 \303\236A\304\303\236A\236A\204\305\306\307\"\210\310\311\"\207" [biblio-decode-url-buffer utf-8 json-read response docs display-warning biblio-hal "HAL query failed" seq-map biblio-hal--extract-interesting-fields] 6 (#$ . 1086)]) #@48 Create a HAL url to look up QUERY. (fn QUERY) (defalias 'biblio-hal--url #[257 "\300\301\302!\303\304\305\306\307\310\311\312\313\314\315\316\317\320\321\322&$\207" [format "https://api.archives-ouvertes.fr/search/?q=%s&wt=%s&fl=%s" url-encode-url "json" biblio-join "," "arxivId_s" "halId_s" "doiId_s" "title_s" "subtitle_s" "authFullName_s" "structName_s" "journalPublisher_s" "submitType_s" "label_bibtex" "files_s" "uri_s" "producedDate_tdate"] 20 (#$ . 1438)]) #@112 A HAL backend for biblio.el. COMMAND, ARG, MORE: See `biblio-backends'. (fn COMMAND &optional ARG &rest MORE) (defalias 'biblio-hal-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)) "HAL" "HAL (archives ouvertes) query: " biblio-hal--url biblio-hal--parse-search-results biblio-hal--forward-bibtex add-to-list biblio-backends biblio-hal-backend nil] 6 (#$ . 1914)]) (add-hook 'biblio-init-hook 'biblio-hal-backend) #@74 Start a HAL search for QUERY, prompting if needed. (fn &optional QUERY) (defalias 'biblio-hal-lookup #[256 "\300\301\"\207" [biblio-lookup biblio-hal-backend] 4 (#$ . 2550) nil]) (byte-code "\300\301\302\"\210\303\304!\207" [defalias hal-lookup biblio-hal-lookup provide biblio-hal] 3)