;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (require 'url-vars) #@30 URL for the dad joke server. (defconst dad-joke-server-url "https://icanhazdadjoke.com/" (#$ . 107)) #@44 User agent to send to the dad joke server. (defconst dad-joke-user-agent "dad-joke.el (https://github.com/davep/dad-joke.el)" (#$ . 214)) #@46 Acquire a dad joke from the dad joke server. (defalias 'dad-joke-get #[0 "\305\306 BC\307\310\311\312\"r\211q\210\313\314\"\216\315\f!\210\316 *\262+\207" [url-mime-accept-string dad-joke-user-agent url-request-extra-headers url-show-status dad-joke-server-url "text/plain" "User-Agent" nil generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] url-insert-file-contents buffer-string] 4 (#$ . 358)]) #@171 Display a dad joke in the minibuffer. If INSERT is non-nil the joke will be inserted into the current buffer rather than shown in the minibuffer. (fn &optional INSERT) (defalias 'dad-joke #[256 "\300 \211G\301U\203 \302\303!\207\203\211c\207\304\305\"\207" [dad-joke-get 0 error "I didn't get the joke! :-(" message "%s"] 5 (#$ . 828) "P"]) (provide 'dad-joke)