;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\302\303\304\305\306DD\307\310\311\312\313&\207" [require biblio-core custom-declare-variable biblio-download-directory funcall function #[0 "\300\207" [nil] 1] "Where to put downloaded papers." :group biblio :type directory] 8) #@131 Retrieve a RECORD from Dissemin, and display it. RECORD is a formatted record as expected by `biblio-insert-result'. (fn RECORD) (defalias 'biblio-download--action #[257 "\211\301\236A\302\236A\203\211\303P\304\305\306%\307\310\"\"\207\311\312!\207" [biblio-download-directory direct-url identifier ".pdf" read-file-name "Save as (see also biblio-download-directory): " nil url-copy-file expand-file-name user-error "This record does not contain a direct URL (try arXiv or HAL)"] 11 (#$ . 343)]) #@58 Add download to list of `biblio-selection-mode' actions. (defalias 'biblio-download--register-action #[0 "\300\301\302\"\207" [add-to-list biblio-selection-mode-actions-alist ("Download this article" . biblio-download--action)] 3 (#$ . 857)]) (byte-code "\300\301\302\"\210\303\304!\207" [add-hook biblio-selection-mode-hook biblio-download--register-action provide biblio-download] 3)