;ELC ;;; Compiled ;;; in Emacs version 28.0.50 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\207" [require request dom] 2) #@164 Look up selected region in weblio.jp. Display the results in a fresh buffer, *weblio* Argument START start of region. Argument END end of region. (fn START END) (defalias 'weblio-lookup-region #[514 "\300{!\207" [weblio-lookup-word] 5 (#$ . 153) "r"]) #@54 Look up WORD in the weblio.jp dictionary. (fn WORD) (defalias 'weblio-lookup-word #[257 "\300\301P\302\303\304\305\306\"\307\305\310 \"&\210\311\312\"\207" [request "https://www.weblio.jp/content/" :parser #[0 "\300`d\"\207" [libxml-parse-html-region] 3] :error make-closure #[128 "\301\302\"A@\303\304\300#\207" [V0 plist-member :symbol-status error "Failed to load %s with error %s"] 6 "\n\n(fn &key SYMBOL-STATUS &allow-other-keys)"] :success #[128 "\306\307\"A@\310\311\312\313\"@\314\315\"\"@\314\316\"\"\312\317\"\" r\320\321\300\322Q!q\210p\323 \210\324\211\325\211\325\"\326 \210\327\330!\210+\211#\331\332\333\"!\210\203_\334\335\"\210\202d\334\336\"\210\331\337!\210\340 \341!\210)\207" [V0 default-directory buffer-read-only buffer-file-name buffer-undo-list inhibit-modification-hooks plist-member :data #[257 "\300\301\"\207" [mapcar #[257 "\300\301\"\207" [apply concat] 4 "\n\n(fn EL)"]] 4 "\n\n(fn LIST)"] #[514 "\300\301\"!\207" [mapcar dom-strings] 6 "\n\n(fn KONKAT NODES)"] dom-by-class "^kijiWrp$" dom-by-tag h2 p "^kiji$" get-buffer-create "*weblio-" "*" kill-all-local-variables nil t erase-buffer run-hooks temp-buffer-setup-hook princ format "%s\n\n" mapcar #[257 "\300\301\302\"!\207" [princ format "%s\n\n"] 5 "\n\n(fn E)"] #[257 "\300\301\302\"!\207" [princ format "%s\n\n"] 5 "\n\n(fn E)"] "_" fit-window-to-buffer internal-temp-output-buffer-show inhibit-read-only standard-output] 16 "\n\n(fn &key DATA &allow-other-keys)"] message "Looking up %s ..."] 11 (#$ . 415) "sWeblio lookup: "]) (provide 'weblio)