;ELC ;;; Compiled ;;; in Emacs version 29.4 ;;; with all optimizations. (byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\300\307!\210\300\310!\210\300\311!\210\300\312!\210\313\314\315\316\317\320\321\322\323\324\325\326& \210\327\330\331\332\333DD\334\317\335\323\314\336\337& \210\327\340\331\332\341DD\342\317\335\323\314\336\337& \210\327\343\331\332\344DD\345\317\346\336\347&\210\327\350\331\332\351DD\352\317\353\323\314\336\354& \207" [require cl-lib mm-url puny shr text-property-search thingatpt url url-queue url-file xdg custom-declare-group eww nil "Emacs Web Wowser." :version "25.1" :link (custom-manual "(eww) Top") :group web :prefix "eww-" custom-declare-variable eww-header-line-format funcall function #[0 "\300\207" ["%t: %u"] 1 #1=""] "Header line format.\n- %t is replaced by the title.\n- %u is replaced by the URL." "24.4" :type string eww-search-prefix #[0 "\300\207" ["https://duckduckgo.com/html/?q="] 1 #1#] "Prefix URL to search engine." eww-use-browse-url #[0 "\300\207" ["\\`mailto:"] 1 #1#] "EWW will use `browse-url' when following links that match this regexp.\nThe action to be taken can be further customized via\n`browse-url-handlers'." "28.1" regexp eww-default-download-directory #[0 "\300\207" ["~/Downloads/"] 1 #1#] "Default directory where `eww' saves downloaded files.\nUsed by `eww--download-directory', which see." "29.1" directory] 12)#@223 Return the name of the EWW download directory. The default is specified by `eww-default-download-directory'; however, if that directory doesn't exist and the DOWNLOAD XDG user directory is defined, use the latter instead. (defalias 'eww--download-directory #[0 "\301!\203\n\206\302\303!\211\205\304!\262\206\207" [eww-default-download-directory file-exists-p xdg-user-dir "DOWNLOAD" file-name-as-directory] 3 (#$ . 1439)]) (byte-code "\300\301\302\303\304DD\305\306\307\310\311\312\313& \210\300\314\302\303\315DD\316\306\317\310\311\312\320\321\322& \210\300\323\302\303\324DD\325\306\326\310\311\312\327& \210\300\330\302\303\331DD\332\306\326\310\311\312\333& \210\300\334\302\303\335DD\336\306\326\310\311\312\337& \210\300\340\302\303\341DD\342\306\326\310\311\312\343& \210\300\344\302\303\345DD\346\306\326\310\311\312\347& \210\300\350\302\303\351DD\352\306\307\312\353&\210\300\354\302\303\355DD\356\306\357\310\311\312\360& \210\300\361\302\303\362DD\363\306\317\310\311\312\364& \210\300\365\302\303\366DD\367\306\326\310\311\312\320& \210\300\370\302\303\371DD\372\306\373\312\374\310\311& \210\300\375\302\303\376DD\377\312\201@\306\373\310\311& \210\300\201A\302\303\201BDD\201C\306\357\310\311\312\201D& \210\300\201E\302\303\201FDD\201G\306\357\310\311\312\201H& \210\300\201I\302\303\201JDD\201K\312\201L\306\373&\207" [custom-declare-variable eww-download-directory funcall function #[0 "\300\207" [eww--download-directory] 1 #1=""] "Directory where files will downloaded.\nThis should either be a directory name or a function (called with\nno parameters) that returns a directory name." :version "28.1" :group eww :type (choice directory function) eww-suggest-uris #[0 "\300\207" [(eww-links-at-point thing-at-point-url-at-point eww-current-url)] 1 #1#] "List of functions called to form the list of default URIs for `eww'.\nEach of the elements is a function returning either a string or a list\nof strings. The results will be joined into a single list with\nduplicate entries (if any) removed." "27.1" hook :options (eww-links-at-point thing-at-point-url-at-point eww-current-url) eww-bookmarks-directory #[0 "\207" [user-emacs-directory] 1 #1#] "Directory where bookmark files will be stored." "25.1" directory eww-desktop-remove-duplicates #[0 "\300\207" [t] 1 #1#] "Whether to remove duplicates from the history when saving desktop data.\nIf non-nil, repetitive EWW history entries (comprising of the URI, the\ntitle, and the point position) will not be saved as part of the Emacs\ndesktop. Otherwise, such entries will be retained." boolean eww-restore-desktop #[0 "\300\207" [nil] 1 #1#] "How to restore EWW buffers on `desktop-restore'.\nIf t or `auto', the buffers will be reloaded automatically.\nIf nil, buffers will require manual reload, and will contain the text\nspecified in `eww-restore-reload-prompt' instead of the actual Web\npage contents." (choice (const :tag "Restore all automatically" t) (const :tag "Require manual reload" nil)) eww-restore-reload-prompt #[0 "\300\207" ["\n\n *** Use \\[eww-reload] to reload this buffer. ***\n"] 1 #1#] "The string to put in the buffers not reloaded on `desktop-restore'.\nThis prompt will be used if `eww-restore-desktop' is nil.\n\nThe string will be passed through `substitute-command-keys'." string eww-history-limit #[0 "\300\207" [50] 1 #1#] "Maximum number of entries to retain in the history." (choice (const :tag "Unlimited" nil) integer) eww-retrieve-command #[0 "\300\207" [nil] 1 #1#] "Command to retrieve an URL via an external program.\nIf nil, `url-retrieve' is used to download the data.\nIf `sync', `url-retrieve-synchronously' is used.\nFor other non-nil values, this should be a list of strings where\nthe first item is the program, and the rest are the arguments." (choice (const :tag "Use `url-retrieve'" nil) (const :tag "Use `url-retrieve-synchronously'" sync) (repeat :tag "Command/args" string)) eww-use-external-browser-for-content-type #[0 "\300\207" ["\\`\\(video/\\|audio/\\|application/ogg\\)"] 1 #1#] "Always use external browser for specified content-type." "24.4" (choice (const :tag "Never" nil) regexp) eww-browse-url-new-window-is-tab #[0 "\300\207" [tab-bar] 1 #1#] "Whether to open up new windows in a tab or a new buffer.\nIf t, then open the URL in a new tab rather than a new buffer if\n`eww-browse-url' is asked to open it in a new window.\nIf `tab-bar', then open the URL in a new tab only when\nthe tab bar is enabled." (choice (const :tag "Always open URL in new tab" t) (const :tag "Open new tab when tab bar is enabled" tab-bar) (const :tag "Never open URL in new tab" nil)) eww-after-render-hook #[0 "\300\207" [nil] 1 #1#] "A hook called after eww has finished rendering the buffer." eww-auto-rename-buffer #[0 "\300\207" [nil] 1 #1#] "Automatically rename EWW buffers once the page is rendered.\n\nWhen nil, do not rename the buffer. With a non-nil value\ndetermine the renaming scheme, as follows:\n\n- `title': Use the web page's title.\n- `url': Use the web page's URL.\n- a function's symbol: Run a user-defined function that returns a\n string with which to rename the buffer. Sample of a\n user-defined function:\n\n (defun my-eww-rename-buffer ()\n (when (eq major-mode \\='eww-mode)\n (when-let ((string (or (plist-get eww-data :title)\n (plist-get eww-data :url))))\n (format \"*%s*\" string))))\n\nThe string of `title' and `url' is always truncated to the value\nof `eww-buffer-name-length'." "29.1" (choice (const :tag "Do not rename buffers (default)" nil) (const :tag "Rename buffer to web page title" title) (const :tag "Rename buffer to web page URL" url) (function :tag "A user-defined function to rename the buffer")) eww-buffer-name-length #[0 "\300\207" [40] 1 #1#] "Length of renamed buffer name, per `eww-auto-rename-buffer'." natnum eww-form-checkbox-selected-symbol #[0 "\300\207" ["[X]"] 1 #1#] "Symbol used to represent a selected checkbox.\nSee also `eww-form-checkbox-symbol'." (choice (const "[X]") (const "☒") (const "☑") string) eww-form-checkbox-symbol #[0 "\300\207" ["[ ]"] 1 #1#] "Symbol used to represent a checkbox.\nSee also `eww-form-checkbox-selected-symbol'." (choice (const "[ ]") (const "☐") string) eww-url-transformers #[0 "\300\207" [(eww-remove-tracking)] 1 #1#] "This is a list of transforming functions applied to an URL before usage.\nThe functions will be called with the URL as the single\nparameter, and should return the (possibly) transformed URL." (repeat function)] 12) (custom-declare-face 'eww-form-submit '((((type x w32 ns haiku pgtk) (class color)) :box (:line-width 2 :style released-button) :background "#808080" :foreground "black")) "Face for eww buffer buttons." :version "24.4" :group 'eww) (custom-declare-face 'eww-form-file '((((type x w32 ns haiku pgtk) (class color)) :box (:line-width 2 :style released-button) :background "#808080" :foreground "black")) "Face for eww buffer buttons." :version "25.1" :group 'eww) (custom-declare-face 'eww-form-checkbox '((((type x w32 ns haiku pgtk) (class color)) :box (:line-width 2 :style released-button) :background "lightgrey" :foreground "black")) "Face for eww buffer buttons." :version "24.4" :group 'eww) (custom-declare-face 'eww-form-select '((((type x w32 ns haiku pgtk) (class color)) :box (:line-width 2 :style released-button) :background "lightgrey" :foreground "black")) "Face for eww buffer buttons." :version "24.4" :group 'eww) (custom-declare-face 'eww-form-text '((t :background "#505050" :foreground "white" :box (:line-width 1))) "Face for eww text inputs." :version "24.4" :group 'eww) (custom-declare-face 'eww-form-textarea '((t :background "#C0C0C0" :foreground "black" :box (:line-width 1))) "Face for eww textarea inputs." :version "24.4" :group 'eww) (custom-declare-face 'eww-invalid-certificate '((default :weight bold) (((class color)) :foreground "red")) "Face for web pages with invalid certificates." :version "25.1" :group 'eww) (custom-declare-face 'eww-valid-certificate '((default :weight bold) (((class color)) :foreground "ForestGreen")) "Face for web pages with valid certificates." :version "25.1" :group 'eww) (defvar eww-data nil) (defvar eww-history nil) (defvar eww-history-position 0) (defvar eww-prompt-history nil)#@73 When this regex is found in the URL, it's not a keyword but an address. (defvar eww-local-regex "localhost" (#$ . 9737))#@42 Value used for the HTTP "Accept" header. (defvar eww-accept-content-types "text/html, text/plain, text/sgml, text/css, application/xhtml+xml, */*;q=0.01" (#$ . 9863)) (defvar eww-link-keymap (define-keymap :parent shr-map "RET" 'eww-follow-link "" 'eww-follow-link)) (defvar eww-image-link-keymap (define-keymap :parent shr-image-map "RET" 'eww-follow-link))#@109 Return the list of URIs to suggest at the `eww' prompt. This list can be customized via `eww-suggest-uris'. (defalias 'eww-suggested-uris #[0 "\301\302\303\"\304\211\203G\211@\211 \211;\203\211C\202\211\211\203>\211@\211\2037\305\"\2047\306\"\210\211B\262A\266\202\202\266A\266\202\202\210\211\237\207" [eww-suggest-uris make-vector 42 0 nil intern-soft intern] 10 (#$ . 10237)])#@374 Function to be run to parse command line URLs. This is meant to be used for MIME handlers or command line use. Setting the handler for "text/x-uri;" to "emacs -f eww-browse %u" will then start up Emacs and call eww to browse the url. This can also be used on the command line directly: emacs -f eww-browse https://gnu.org will start Emacs and browse the GNU web site. (defalias 'eww-browse #[0 "\204\301\302!\210\303\211A\242!\207" [command-line-args-left user-error "No URL given" eww] 3 (#$ . 10648) nil])#@505 Fetch URL and render the page. If the input doesn't look like an URL or a domain name, the word(s) will be searched for via `eww-search-prefix'. If NEW-BUFFER is non-nil (interactively, the prefix arg), use a new buffer instead of reusing the default EWW buffer. If BUFFER, the data to be rendered is in that buffer. In that case, this function doesn't actually fetch URL. BUFFER will be killed after rendering. For more information, see Info node `(eww) Top'. (fn URL &optional NEW-BUFFER BUFFER) (defalias 'eww #[769 "\306!\262\307\203\310\311!\202\312=\203p\202\313\311!!\210\314 \210\315!\316! >\2044\317\320\321D\"\210\211\322H\203y\323\316! >\204J\317\320\321D\"\210\322H!\204y\316! >\204`\317\320\321D\"\210\211\322\324\316! >\204s\317\320\321D\"\210\322H!I\210\316! >\204\210\317\320\321D\"\210\211\325H\203\321\326\327\316! >\204\237\317\320\321D\"\210\325H\"\203\321\316! >\204\265\317\320\321D\"\210\211\325\316! >\204\306\317\320\321D\"\210\325H\330\331OI\210\202\216\332!\262\210\333!\262\334\n\335#\210\334\n\336\337#\210\340 \210\341\342\343\"c\210eb)\210\f\211\203prq\210\344\331\331$)\262\202\345\344\331pE#)\207" [major-mode cl-struct-url-tags eww-data inhibit-read-only eww-accept-content-types url-mime-accept-string eww--dwim-expand-url pop-to-buffer-same-window generate-new-buffer "*eww*" eww-mode get-buffer-create eww-setup-buffer url-generic-parse-url type-of signal wrong-type-argument url 4 puny-highly-restrictive-domain-p puny-encode-domain 6 string-match "\\`/[.][.]/" 3 nil url-recreate-url eww--transform-url plist-put :url :title "" eww--after-page-change t format "Loading %s..." eww-render eww-retrieve] 11 (#$ . 11172) (byte-code "\301 \302\303\304\205 @\"\305\306$D\207" [current-prefix-arg eww-suggested-uris read-string format-prompt "Enter URL or keywords" nil eww-prompt-history] 6)])#@28 (fn URL CALLBACK CBARGS) (defalias 'eww-retrieve #[771 "\301\267\202\302\303#\207\304!r\211q\210\305\303\306#)\207\307\310!\307\311!rq\210\312\306!\210\313\314\315\316p\317\320\321C\"\322\323\324\f%&\n)\207" [eww-retrieve-command #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (nil 6 sync 12)) url-retrieve eww-render url-retrieve-synchronously apply nil generate-new-buffer " *eww retrieve*" " *eww error*" set-buffer-multibyte make-process :name "*eww fetch*" :buffer :stderr :command append :sentinel make-closure #[514 "\304!?\2054\305\300!\203\306\300!\203\307\306\300!!\210\310\300!\210\305\301!\2054r\301q\210eb\210\311c\210\312\313\303\314\302$)\207" [V0 V1 V2 V3 process-live-p buffer-live-p get-buffer-process delete-process kill-buffer "Content-type: text/html; charset=utf-8\n\n" apply funcall nil] 7 "\n\n(fn PROCESS _)"]] 21 (#$ . 13080)]) (byte-code "\300\301\302\303#\300\207" [function-put eww browse-url-browser-kind internal] 4)#@12 (fn URL) (defalias 'eww--dwim-expand-url #[257 "\303!\262\304\305\306\307$\266\203\204\232\310\305\306\307$\266\203\203&\311\312!\210\207\306\313\"\204\\\306\314\"\204\\\315!G\316U\203\217\317\305\306\307$\266\203\204U\315\320\"G\316V\204\\\306\"\203\217\321\305\306\307$\266\203\204o\322P\262\323!\324! >\204\201\325\326\327D\"\210\211\330H\262\331\230\203\232\211\332P\207\n\333\334\315!\335#P\262\207" [eww-local-regex cl-struct-url-tags eww-search-prefix string-trim "\\`file:/" nil string-match t "\\`ftp://" user-error "FTP is not supported" "\\`[A-Za-z]+:" "\\`[A-Za-z_]+\\.[A-Za-z._]+/" split-string 1 "\\`[\"'].*[\"']\\'" "[.:]" "\\`[a-zA-Z][-a-zA-Z0-9+.]*://" "http://" url-generic-parse-url type-of signal wrong-type-argument url 6 "" "/" mapconcat url-hexify-string "+"] 9 (#$ . 14100)])#@91 Translate all < characters that do not look like start of tags into <. (fn START END) (defalias 'eww--preprocess-html #[514 "\212\214}\210b\210\301\302\303\304\301#\205\"\305\224b\210``T|\210\306c\210\202 +\207" [case-fold-search t re-search-forward "<[^0-9a-z!?/]" nil 0 "<"] 6 (#$ . 14950)])#@35 Render FILE using EWW. (fn FILE) (defalias 'eww-open-file #[257 "\302\303\304 \305>\205 \306\307!Q!)\207" [url-allow-non-local-files system-type t eww "file://" (windows-nt ms-dos) "/" expand-file-name] 6 (#$ . 15262) "fFile: "])#@13 (fn FILE) (defalias 'eww--file-buffer #[257 "r\300\301!q\210\302\303!\210\304\305\306!!\206\307\310\261\210\311!\210p)\207" [generate-new-buffer " *eww file*" set-buffer-multibyte nil "Content-type: " mailcap-extension-to-mime url-file-extension "application/octet-stream" "\n\n" insert-file-contents] 5 (#$ . 15501)])#@258 Search the web for the text in the region. If region is active (and not whitespace), search the web for the text between region beginning and end. Else, prompt the user for a search string. See the variable `eww-search-prefix' for the search engine used. (defalias 'eww-search-words #[0 "\300 \203 \301 \302 {\303\304\305\306$\266\203\204\307!\207\310\307!\207\310\307!\207" [use-region-p region-beginning region-end "\\`[ \n \f]*\\'" nil string-match t eww call-interactively] 9 (#$ . 15833) nil])#@42 Fetch link at point in a new EWW buffer. (defalias 'eww-open-in-new-buffer #[0 "\304 \211\204\n\305\306!\207\307=\204\310=\203 \203 \307\311 )\210r \312=\203,\313 \202/\314\315!q\210\211\316 \232?\205I\312 \210\317:\203G@\202H!)\207" [eww-browse-url-new-window-is-tab tab-bar-mode tab-bar-new-tab-choice major-mode eww-suggested-uris user-error "No link at point" t tab-bar tab-new eww-mode clone-buffer generate-new-buffer "*eww*" eww-current-url eww] 3 (#$ . 16349) nil])#@148 Return non-nil if CONTENT-TYPE designates an HTML content type. Currently this means either text/html or application/xhtml+xml. (fn CONTENT-TYPE) (defalias 'eww-html-p #[257 "\211\300\235\207" [("text/html" "application/xhtml+xml")] 3 (#$ . 16846)])#@110 Rename the current EWW buffer. The renaming scheme is performed in accordance with `eww-auto-rename-buffer'. (defalias 'eww--rename-buffer #[0 "\302\303\304\305\"\304\306\" \203< \307=\203!\262\202<\310 !\203) \262\202<\311\232\2044\2048\312\2029!\262\205D\313\314\"\207" [eww-data eww-auto-rename-buffer nil #[257 "\301\302\303\"\"\207" [eww-buffer-name-length format "*%s # eww*" truncate-string-to-width] 6 "\n\n(fn STRING)"] plist-get :title :url url functionp "" "Untitled" rename-buffer t] 7 (#$ . 17103)])#@49 (fn STATUS URL &optional POINT BUFFER ENCODE) (defalias 'eww-render #[1282 "\306 \307\310\311\"AG\312U\203\313\202\310\311\"A!\314\315A\236A\206+\316\317@!!\206+\320\227!p\321!\322!>\204A\323\324\325D\"\210\211\326H\262\327\330 \331\"\211\203U\211\262 \210rq\210\332 \333\330\f\333\"#\210\321!)\334\335\"\2161\203\2571@\327\336\337$\266\203\203\257\340 \210\341c\210\342\343@\"c\210\342\344 \"c\210eb\210\345 \327\n\n\n&\210\202\372\317@!\203\307\345 \327\n\n\n&\210\202\372@\346\232\203\324\347 \210\202\372\350@\327\336\337$\266\203\203\353\351!\210\202\372\352\206\370\206\370\353\"\210rq\210\332 \354\n#\210\355 \210\3122\n\203\356\n!\210\357\360!\210\327\2113,\207" [cl-struct-url-tags shr-target-id last-coding-system-used eww-data list-buffers-directory url-current-lastloc eww-parse-headers mail-header-parse-content-type assoc "content-type" 0 "text/plain" intern charset eww-detect-charset eww-html-p "utf-8" url-generic-parse-url type-of signal wrong-type-argument url 7 nil plist-get :redirect plist-put :peer make-closure #[0 "\301\300!\207" [V0 kill-buffer] 2] string-match t erase-buffer "Unsupported content type" format "

Content-type %s is unsupported

" "Direct link to the document" eww-display-html "application/pdf" eww-display-pdf "\\`image/" eww-display-image eww-display-raw utf-8 :url eww--after-page-change set-buffer-file-coding-system run-hooks eww-after-render-hook eww-use-external-browser-for-content-type eww-history-position buffer-undo-list] 17 (#$ . 17647)]) (defalias 'eww-parse-headers #[0 "\300eb\210m\204$l\204$\301\302!\203\303\304!\227\303\305!BB\262\304y\210\202m\204+\304y\210\207" [nil looking-at "\\([^:]+\\): *\\(.*\\)" match-string 1 2] 4])#@15 (fn HTML-P) (defalias 'eww-detect-charset #[257 "\301`\203\302\303\304\301#\203\211b\203\305\306!\206$\307\310!\205$\305\306!)\207" [case-fold-search t re-search-forward "]*charset=\"?\\([^ \n \"/>]+\\)[\\\"'.*]" nil match-string 1 looking-at "[ \n ]*<\\?xml[ \n ]+[^>]*encoding=\"\\([^\"]+\\)"] 7 (#$ . 19468)])#@59 (fn CHARSET URL &optional DOCUMENT POINT BUFFER ENCODE) (defalias 'eww-display-html #[1538 "\306\307!\204\n\310\311!\210\312!\204\310\313\"\210\314\206b\315\316BC\206+\206+\317\262\3201;\321`d#0\210\202<\210\212\322\323\314\324#\203W\325\326\224\203O\327\202P\330\324\211#\210\202=)\331`d\"\210\307`d\"E?\205j`d{rq\210\314\332\n\333#\210\332\n\334#\210\324\211 \206\232\335 !\336!\f>\204\225\337\340\341D\"\210\211\342H\262\343 \344\"12\345 \210\346\347\350\351\352\"#\210\203\273b\210\202\370 \203\344eb\210\353\303 \354#\211\203\340\336!3>\204\333\337\340\355D\"\210\211\326Hb\210\210\202\370eb\210m\204\370\356`\357\"\203\370\326y\210\202\347,\360 )\207" [url-queue bidi-paragraph-direction eww-data shr-target-id cl-struct-url-tags shr-external-rendering-functions fboundp libxml-parse-html-region error "This function requires Emacs to be compiled with libxml2" buffer-live-p "Buffer %s doesn't exist" nil base href utf-8 (coding-system-error) decode-coding-region re-search-forward "\\( $\\)\\|" t replace-match 1 "" "�" eww--preprocess-html plist-put :source :dom url-generic-parse-url type-of signal wrong-type-argument url 7 append ((title . eww-tag-title) (form . eww-tag-form) (input . eww-tag-input) (button . eww-form-submit) (textarea . eww-tag-textarea) (select . eww-tag-select) (link . eww-tag-link) (meta . eww-tag-meta) (a . eww-tag-a)) erase-buffer funcall-with-delayed-message 2 "Rendering HTML..." make-closure #[0 "\301\300!\207" [V0 shr-insert-document] 2] text-property-search-forward member prop-match get-text-property eww-form eww-size-text-inputs inhibit-modification-hooks inhibit-read-only cl-struct-prop-match-tags] 15 (#$ . 19818)])#@12 (fn DOM) (defalias 'eww-handle-link #[257 "\302\211@:\203 \211@\202\211A@\262\236A\303\211@:\203!\211@\202\"\211A@\262\236A\304\205/\227\305\"\205L\211\205L\211A\306>\203F\307\300!\210\310\311 A#\207" [multi-isearch-next-buffer-function eww-data rel href assoc (("next" . :next) ("previous" . :previous) ("prev" . :previous) ("start" . :start) ("home" . :home) ("contents" . :contents) ("up" . :up)) (:next :previous) make-local-variable eww-isearch-next-buffer plist-put] 8 (#$ . 21550)]) (defvar eww-redirect-level 1)#@12 (fn DOM) (defalias 'eww-tag-meta #[257 "\301\302\211@:\203\211@\202\211A@\262\236A\303\"\205\206\304W\205\206\305\211@:\203-\211@\202.\211A@\262\236A\211\205\204\306\307\"\204M\306\310\"\204M\306\311\"\205\204\312\313\"\312\314\"T\315\232\203f\316\317!!\202\201\320\321\322\323\317!BC\324\325\211\326\232\203}\327\202~\330##!)\266\202\262\207" [eww-redirect-level cl-equalp http-equiv "refresh" 5 content string-match "^\\([0-9]+\\) *;.*url=\"\\([^\"]+\\)\"" "^\\([0-9]+\\) *;.*url='\\([^']+\\)'" "^\\([0-9]+\\) *;.*url=\\([^ ]+\\)" match-string 1 2 "0" eww shr-expand-url eww-tag-a dom-node a href format "Auto refresh in %s second%s disabled" "1" "" "s"] 13 (#$ . 22096)])#@12 (fn DOM) (defalias 'eww-tag-link #[257 "\300!\210\211\211\211@:\203\211@\202\211AA\262\211\2053\211@\211;\203(\301!\210\202,\302!\210A\266\202\202\207" [eww-handle-link shr-insert shr-descend] 6 (#$ . 22812)])#@12 (fn DOM) (defalias 'eww-tag-a #[257 "\302!\210`\303!\210\304\211@:\203\211@\202\211A@\262\236A\2051\305`\306\307`\"\203/\2020 $\207" [eww-image-link-keymap eww-link-keymap eww-handle-link shr-tag-a href put-text-property keymap mm-images-in-region-p] 9 (#$ . 23043)])#@22 (fn STRING PIXELS) (defalias 'eww--limit-string-pixelwise #[514 "\211\204\207\300\301\302\"r\211q\210\303\304\"\216c\210\305 W\203!\2028\305 V\2032o\2042\306u\210\202!e`eT]{*\207" [generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] eww--pixel-column -1] 6 (#$ . 23332)]) (defalias 'eww--pixel-column #[0 "\300p!\204 \301 \302\303\"\216\304\305\211\"\210\306\305p\"\210\307\305\310 `#@)\207\307\305\310 `#@\207" [get-buffer-window current-window-configuration make-closure #[0 "\301\300!\207" [V0 set-window-configuration] 2] set-window-dedicated-p nil set-window-buffer window-text-pixel-size line-beginning-position] 5]) (defalias 'eww-update-header-line-format #[0 "\205\307\304 \305\"\304 \306\"\307\304 \310\"G\311U\203\312\202\304 \310\"\313\314#\203;\315\311G\304\316\"\2036\317\2027\320\321%\210\203\261\307\313\314#\262\322!\323\307\324\325\326!\n>\204]\327\330\331D\"\210\332H\326!\n>\204q\327\330\331D\"\210\333H#\313\314#!\334\335\321\"\323\336!\\V\203\215\266\337\202\261\323\340P!\\V\203\257\341Z\323\307\342\313\314#!Z\"\307\343\313\314#P\262\266\344\345\346\347\350\206\275\337B\351BD\"#\266\203\211\207" [eww-header-line-format eww-data cl-struct-url-tags header-line-format plist-get :peer :url propertize :title 0 "[untitled]" face variable-pitch add-face-text-property :warnings eww-invalid-certificate eww-valid-certificate t url-generic-parse-url string-pixel-width format "%s://%s" type-of signal wrong-type-argument url 1 4 window-width nil "xxxxx" "" "xx" eww--limit-string-pixelwise "...: " "..." string-replace "%" "%%" format-spec 117 116] 14]) (defalias 'eww--after-page-change #[0 "\300 \210\301 \207" [eww-update-header-line-format eww--rename-buffer] 1])#@12 (fn DOM) (defalias 'eww-tag-title #[257 "\301\302\303\304\305\303\306\307\310\n!###\210\311 \207" [eww-data plist-put :title replace-regexp-in-string "^ \\| $" "" "[ \n]+" " " dom-text eww--after-page-change] 12 (#$ . 25152)])#@32 (fn BUFFER &optional ENCODE) (defalias 'eww-display-raw #[513 "`d{\301!\204\302\303\"\210rq\210\304\305 \210\211c\210\3061*\307eGT#0\210\202+\210)eb)\207" [inhibit-read-only buffer-live-p error "Buffer %s doesn't exist" t erase-buffer (coding-system-error) decode-coding-region] 7 (#$ . 25390)])#@15 (fn BUFFER) (defalias 'eww-display-image #[257 "\301 \302!\204 \303\304\"\210rq\210\305\306 \210\307\310\")\210eb)\207" [inhibit-read-only shr-parse-image-data buffer-live-p error "Buffer %s doesn't exist" t erase-buffer shr-put-image nil] 5 (#$ . 25703)]) (defalias 'eww-display-pdf #[0 "p`r\301\302!q\210\303\304 \210\305\306!\210\307\"\210\310\311!)\210\312 \313U\203'\314 \202-eb\210\315p!)\207" [inhibit-read-only get-buffer-create "*eww pdf*" t erase-buffer set-buffer-multibyte nil insert-buffer-substring mailcap-view-mime "application/pdf" buffer-size 0 kill-buffer pop-to-buffer-same-window] 5]) (defalias 'eww-setup-buffer #[0 "\305\306\"\204\305\307\"\203\310 \210\311\312 \210\313 )\210\314\315\303!\210\314\f\316=\204+\316 \210\317 \207" [eww-data inhibit-read-only bidi-paragraph-direction multi-isearch-next-buffer-function major-mode plist-get :url :dom eww-save-history t remove-overlays erase-buffer nil make-local-variable eww-mode buffer-disable-undo] 3])#@64 Return URI of the Web page the current EWW buffer is visiting. (defalias 'eww-current-url #[0 "\301\302\"\207" [eww-data plist-get :url] 3 (#$ . 26708)])#@47 Return list of URIs, if any, linked at point. (defalias 'eww-links-at-point #[0 "\300\301\302`\303\"\302`\304\"D\"\207" [seq-filter stringp get-text-property shr-url image-url] 6 (#$ . 26868)])#@48 View the HTML source code of the current page. (defalias 'eww-view-source #[0 "\304\305!\306\307\"rq\210\310ed|\210\211\206\311c\210eb\210\312\313d\"\211:\2036\211@\262\314!\2036\315ed#\210\n\210\316\317!\203C\317 \210\202L\316\320!\203L\320 \210*\321!\207" [eww-data inhibit-read-only last-coding-system-used buffer-file-coding-system get-buffer-create "*eww-source*" plist-get :source t "no source" find-auto-coding "" coding-system-p decode-coding-region fboundp mhtml-mode html-mode view-buffer] 7 (#$ . 27067) [nil (eww-mode)]])#@78 Cycle the paragraph direction between left-to-right, right-to-left and auto. (defalias 'eww-toggle-paragraph-direction #[0 "\301\267\202\302\202\303\202\304\305\306\204\307\202\"\207" [bidi-paragraph-direction #s(hash-table size 2 test eq rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (left-to-right 6 right-to-left 10)) nil left-to-right right-to-left message "The paragraph direction is now %s" "automatic"] 3 (#$ . 27621) [nil (eww-mode)]])#@203 View the main "readable" parts of the current web page. This command uses heuristics to find the parts of the web page that contains the main textual portion, leaving out navigation menus and the like. (defalias 'eww-readable #[0 "\301\302\303\"r\211q\210\304\305\"\216\306\307\"c\210\3101\"\311ed\312#0\210\202#\210\313ed\"\210\314ed\"*\262\306\315\"\316!\210\317 \210\320\321\211\322\323BC\324!E\321p%\210\325\211\203c\211@\326\306\"#\210A\266\202\202L\210\327 \207" [eww-data generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] plist-get :source (coding-system-error) decode-coding-region utf-8 eww--preprocess-html libxml-parse-html-region :url eww-score-readability eww-save-history eww-display-html nil base href eww-highest-readability (:source :url :title :next :previous :up :peer) plist-put eww--after-page-change] 11 (#$ . 28095) [nil (eww-mode)]])#@13 (fn NODE) (defalias 'eww-score-readability #[257 "\300\211@:\203 \211@\202\211@\262\301>\203\302\262\202\266\211@:\203(\211@\202)\211@\262\303=\2037\300\262\202\266\211@:\203C\211@\202D\211@\262\304=\203R\305\262\202\266\211@:\203^\211@\202_\211@\262\306=\203s\307\310!!G[\262\202\266\211@:\203\211@\202\200\211AA\262\211\203\265\211@\211;\203\232\307!G\\\262\202\256\211:\203\256\311A\236A\206\253\312!\\\262A\266\202\202\204\210\313\311#\210\207" [-1 (script head comment) -2 meta img 2 a split-string dom-text :eww-readability-score eww-score-readability dom-set-attribute] 7 (#$ . 29039)])#@13 (fn NODE) (defalias 'eww-highest-readability #[257 "\211\301\302!\211\203Y\211@\303\304!\211\262\211@:\203\211@\202\211A@\262\236A\206(\303\211@:\2035\211@\2026\211A@\262\236A\206@V\203R\305\306!!G\307V\203R\262A\266\202\202\210\207" [most-negative-fixnum nil dom-non-text-children :eww-readability-score eww-highest-readability split-string dom-texts 100] 9 (#$ . 29692)]) (defvar eww-mode-map (byte-code "\300\301\302\303\304\305\306\307\310\311\312\313\312\314\315\316\317\320\321\322\323\324\325\326\327\330\331\332\333\334\335\336\337\340\341\342\343\344\345\346\347\350\351\352\353\354\355\356\357\360\361\362\363\364\365\366\367\370\371\372\373\374\375\376\317\377\321\201@\201A&D\207" [define-keymap "g" eww-reload "G" eww "M-RET" eww-open-in-new-buffer "TAB" shr-next-link "C-M-i" shr-previous-link "" "" scroll-down-command "l" eww-back-url "r" eww-forward-url "n" eww-next-url "p" eww-previous-url "u" eww-up-url "t" eww-top-url "&" eww-browse-with-external-browser "d" eww-download "w" eww-copy-page-url "C" url-cookie-list "v" eww-view-source "R" eww-readable "H" eww-list-histories "E" eww-set-character-encoding "s" eww-switch-to-buffer "S" eww-list-buffers "F" eww-toggle-fonts "D" eww-toggle-paragraph-direction "M-C" eww-toggle-colors "M-I" eww-toggle-images "b" eww-add-bookmark "B" eww-list-bookmarks "M-n" eww-next-bookmark "M-p" eww-previous-bookmark "" "" :menu ("Eww" ["Exit" quit-window t] ["Close browser" quit-window t] ["Reload" eww-reload t] ["Follow URL in new buffer" eww-open-in-new-buffer] ["Back to previous page" eww-back-url :active (not (zerop (length eww-history)))] ["Forward to next page" eww-forward-url :active (not (zerop eww-history-position))] ["Browse with external browser" eww-browse-with-external-browser t] ["Download" eww-download t] ["View page source" eww-view-source] ["Copy page URL" eww-copy-page-url t] ["List histories" eww-list-histories t] ["Switch to buffer" eww-switch-to-buffer t] ["List buffers" eww-list-buffers t] ["Add bookmark" eww-add-bookmark t] ["List bookmarks" eww-list-bookmarks t] ["List cookies" url-cookie-list t] ["Toggle fonts" eww-toggle-fonts t] ["Toggle colors" eww-toggle-colors t] ["Toggle images" eww-toggle-images t] ["Character Encoding" eww-set-character-encoding] ["Toggle Paragraph Direction" eww-toggle-paragraph-direction])] 69))#@60 Populate MENU with eww commands at CLICK. (fn MENU CLICK) (defalias 'eww-context-menu #[514 "\302\303#\210\304\305!\306\307\307\310$\210\311\312\313\"!\211\2032\211@\211:\203+\302\314@!A#\210A\266\202\202\266\315\316!\317\"\204F\315\316!\320\"\203n\302\321\322\323 \203S\324\202T\325\326BBB#\210\302\327\322\330 \203g\325\202h\324\331BBB#\210\207" [menu-bar-separator browse-url-new-window-flag define-key [eww-separator] make-sparse-keymap "Eww" easy-menu-do-define nil ("Eww" ["Back to previous page" eww-back-url :visible (not (zerop (length eww-history)))] ["Forward to next page" eww-forward-url :visible (not (zerop eww-history-position))] ["Reload" eww-reload t]) reverse lookup-key [menu-bar eww] vector mouse-posn-property event-start shr-url image-url [shr-mouse-browse-url-new-window] menu-item "Follow URL in new window" shr-mouse-browse-url shr-mouse-browse-url-new-window (:help "Browse the URL under the mouse cursor in a new window") [shr-mouse-browse-url] "Follow URL" (:help "Browse the URL under the mouse cursor")] 9 (#$ . 32084)])#@26 Tool bar for `eww-mode'. (defvar eww-tool-bar-map (byte-code "\301 \302\211\203\211@\303@A$\210A\266\202\202\210\207" [eww-mode-map make-sparse-keymap ((quit-window . "close") (eww-reload . "refresh") (eww-back-url . "left-arrow") (eww-forward-url . "right-arrow") (eww-view-source . "show") (eww-copy-page-url . "copy") (eww-add-bookmark . "bookmark_add")) tool-bar-local-item-from-menu] 8) (#$ . 33166)) (defvar eww-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [eww-mode-hook variable-documentation put "Hook run after entering eww mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp eww-mode-map definition-name eww-mode] 4) (defvar eww-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204*\303\307\310\311#\210\312\307\306\307!\203&\313\202(\314 \"\210\307\302N\2048\303\307\302\304\315!#\210\306\300!\204X\303\300\310\311#\210\312\300\306\300!\203P\313\202V\316\300\313\"\210\"\210\300\302N\204f\303\300\302\304\317!#\210\303\311\320\321#\207" [eww-mode-abbrev-table eww-mode-map variable-documentation put purecopy "Keymap for `eww-mode'." boundp eww-mode-syntax-table definition-name eww-mode defvar-1 nil make-syntax-table "Syntax table for `eww-mode'." define-abbrev-table "Abbrev table for `eww-mode'." derived-mode-parent special-mode] 5)#@215 Mode for browsing the web. \{eww-mode-map} In addition to any hooks its parent mode `special-mode' might have run, this mode runs the hook `eww-mode-hook', as the final or penultimate step during initialization. (defalias 'eww-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 !\204'\316 \317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324 \325\"\204R 8=\204R\326 \3258C#\210\327 !\210\330\f!\210 8\306\331!\210\332\333D\306\334!\210\335\336\337\340\341\307$\210\336\342\343\344\307$\210\306\345!\210\341%\306\346!\210\347&\350\351!\203\227\306\351!\2109)\306\352!\210\353*\307:\306\354!\210\355,\356\",\306\357!\210\360/\361 \210\306\362!\210\3632\336\364\365\341\307$\210\307;)\366\367!\207" [delay-mode-hooks major-mode mode-name eww-mode-map eww-mode-syntax-table eww-mode-abbrev-table make-local-variable t special-mode eww-mode "eww" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table eww-data :title "" browse-url-browser-function eww-browse-url add-hook after-change-functions eww-process-text-input nil context-menu-functions eww-context-menu 5 eww-history eww-history-position 0 boundp tool-bar-map desktop-save-buffer eww-desktop-misc-data thing-at-point-provider-alist append ((url . eww--url-at-point)) bookmark-make-record-function eww-bookmark-make-record buffer-disable-undo shr-url-transformer eww--transform-url text-scale-mode-hook eww--rescale-images run-mode-hooks eww-mode-hook local-abbrev-table eww-tool-bar-map truncate-lines buffer-read-only] 5 (#$ . 34639)]) (defalias 'eww--rescale-images #[0 "\203 \303_T\202\f\304\212eb\210\3052\\\306\307\310\311#\211\203S\312!\n>\204,\313\314\315D\"\210\211\316H\317\320\"\204C\321\320\317\322\"\206A\304#\210\321\322\317\320\"_#\266\202\323\305\310\"\266\202)\207" [text-scale-mode text-scale-mode-amount cl-struct-prop-match-tags 0.1 1 #1=#:done14 text-property-search-forward display nil #[514 "\300!\207" [imagep] 4 "\n\n(fn _ VALUE)"] type-of signal wrong-type-argument prop-match 3 image-property :original-scale image--set-property :scale throw] 9])#@37 `thing-at-point' provider function. (defalias 'eww--url-at-point #[0 "\300`\301\"\207" [get-text-property shr-url] 3 (#$ . 36939)])#@611 Ask the EWW browser to load URL. Interactively, if the variable `browse-url-new-window-flag' is non-nil, loads the document in a new buffer tab on the window tab-line. A non-nil prefix argument reverses the effect of `browse-url-new-window-flag'. If `tab-bar-mode' is enabled, then whenever a document would otherwise be loaded in a new buffer, it is loaded in a new tab in the tab-bar on an existing frame. See more options in `eww-browse-url-new-window-is-tab'. Non-interactively, this uses the optional second argument NEW-WINDOW instead of `browse-url-new-window-flag'. (fn URL &optional NEW-WINDOW) (defalias 'eww-browse-url #[513 "\211\203?\305=\204\306=\203 \203\305\307 )\210\310\311\312\313\314\315!!\316! >\2043\317\320\321D\"\210\211\322H\262\"!!\210\323 \210\305\324!)\207" [eww-browse-url-new-window-is-tab tab-bar-mode tab-bar-new-tab-choice cl-struct-url-tags url-allow-non-local-files t tab-bar tab-new pop-to-buffer-same-window generate-new-buffer format "*eww-%s*" url-generic-parse-url eww--dwim-expand-url type-of signal wrong-type-argument url 4 eww-mode eww] 11 (#$ . 37077)]) (byte-code "\300\301\302\303#\300\207" [function-put eww-browse-url browse-url-browser-kind internal] 4)#@38 Go to the previously displayed page. (defalias 'eww-back-url #[0 " GY\203 \302\303!\210\304 \210\305\\\306 S\234!\207" [eww-history-position eww-history user-error "No previous page" eww-save-history 2 eww-restore-history] 3 (#$ . 38310) [nil (eww-mode)]])#@32 Go to the next displayed page. (defalias 'eww-forward-url #[0 "\302U\203\n\303\304!\210\305 \210\306 S\234!\207" [eww-history-position eww-history 0 user-error "No next page" eww-save-history eww-restore-history] 3 (#$ . 38577) [nil (eww-mode)]])#@13 (fn ELEM) (defalias 'eww-restore-history #[257 "\304\211\305\306\"\211\204\307 \202(\310 \210\211c\210\305\311\"b\210\305\312\"\313 *\207" [inhibit-modification-hooks inhibit-read-only eww-data list-buffers-directory t plist-get :text eww-reload erase-buffer :point :url eww--after-page-change] 7 (#$ . 38832)])#@101 Go to the page marked `next'. A page is marked `next' if rel="next" appears in a or tag. (defalias 'eww-next-url #[0 "\301\302\"\203\303\304\301\302\"\301\305\"\"!\207\306\307!\207" [eww-data plist-get :next eww-browse-url shr-expand-url :url user-error "No `next' on this page"] 6 (#$ . 39165) [nil (eww-mode)]])#@113 Go to the page marked `previous'. A page is marked `previous' if rel="previous" appears in a or tag. (defalias 'eww-previous-url #[0 "\301\302\"\203\303\304\301\302\"\301\305\"\"!\207\306\307!\207" [eww-data plist-get :previous eww-browse-url shr-expand-url :url user-error "No `previous' on this page"] 6 (#$ . 39501) [nil (eww-mode)]])#@95 Go to the page marked `up'. A page is marked `up' if rel="up" appears in a or tag. (defalias 'eww-up-url #[0 "\301\302\"\203\303\304\301\302\"\301\305\"\"!\207\306\307!\207" [eww-data plist-get :up eww-browse-url shr-expand-url :url user-error "No `up' on this page"] 6 (#$ . 39860) [nil (eww-mode)]])#@131 Go to the page marked `top'. A page is marked `top' if rel="start", rel="home", or rel="contents" appears in a or tag. (defalias 'eww-top-url #[0 "\301\302\"\206\301\303\"\206\301\304\"\211\203 \305\306\301\307\"\"!\207\310\311!\207" [eww-data plist-get :start :contents :home eww-browse-url shr-expand-url :url user-error "No `top' for this page"] 7 (#$ . 40184) [nil (eww-mode)]])#@226 Reload the current page. If LOCAL is non-nil (interactively, the command was invoked with a prefix argument), don't reload the page from the network, but just re-display the HTML already fetched. (fn &optional LOCAL ENCODE) (defalias 'eww-reload #[512 "\304\305\"\203\304\306\"\204\307\310!\207\311\312\304\306\"`p%\207\313!\314! >\2040\315\316\317D\"\210\211\320H\321\232\203Xpr\322\314! >\204J\315\316\317D\"\210\323H!q\210\324\325\325$)\207\n\326\324`pF#)\207" [eww-data cl-struct-url-tags eww-accept-content-types url-mime-accept-string plist-get :url :dom error "No current HTML data" eww-display-html utf-8 url-generic-parse-url type-of signal wrong-type-argument url 1 "file" eww--file-buffer 6 eww-render nil eww-retrieve] 11 (#$ . 40594) ["P" (eww-mode)]]) (defvar eww-form nil) (defvar eww-submit-map (define-keymap "RET" 'eww-submit "C-c C-c" 'eww-submit)) (defvar eww-submit-file (define-keymap "RET" 'eww-select-file "C-c C-c" 'eww-submit)) (defvar eww-checkbox-map (define-keymap "SPC" 'eww-toggle-checkbox "RET" 'eww-toggle-checkbox "C-c C-c" 'eww-submit)) (defvar eww-text-map (define-keymap :full t :parent text-mode-map "RET" 'eww-submit "C-a" 'eww-beginning-of-text "C-c C-c" 'eww-submit "C-e" 'eww-end-of-text "TAB" 'shr-next-link "M-TAB" 'shr-previous-link "" 'shr-previous-link)) (defvar eww-textarea-map (define-keymap :full t :parent text-mode-map "RET" 'forward-line "C-c C-c" 'eww-submit "TAB" 'shr-next-link "M-TAB" 'shr-previous-link "" 'shr-previous-link))#@24 Map for select buttons (defvar eww-select-map (define-keymap "RET" 'eww-change-select "" 'mouse-face "" 'eww-change-select "C-c C-c" 'eww-submit) (#$ . 42129))#@39 Move to the start of the input field. (defalias 'eww-beginning-of-text #[0 "\300 b\207" [eww-beginning-of-field] 1 (#$ . 42316) [nil (eww-mode)]])#@49 Move to the end of the text in the input field. (defalias 'eww-end-of-text #[0 "\300 b\210\301 g\302=\203`V\203\303u\210\202`V\205 \304u\207" [eww-end-of-field eww-beginning-of-field 32 -1 1] 3 (#$ . 42468) [nil (eww-mode)]]) (defalias 'eww-beginning-of-field #[0 "o\203`\207\300`\301\"\300`S\301\"=\204`\207\302`\301\303e$\207" [get-text-property eww-form previous-single-property-change nil] 5]) (defalias 'eww-end-of-field #[0 "\300`\301\302d$S\207" [next-single-property-change eww-form nil] 5])#@12 (fn DOM) (defalias 'eww-tag-form #[257 "\301\302\211@:\203\211@\202\211A@\262\236AB\303\304\211@:\203$\211@\202%\211A@\262\236ABD`\305c\210\306 \210\211\211@:\203C\211@\202D\211AA\262\211\205e\211@\211;\203Z\307!\210\202^\310!\210A\266\202\202H\266n\204n\305c\210\305c\210`V\205~\311\211T\300$)\207" [eww-form :method method :action action "\n" shr-ensure-paragraph shr-insert shr-descend put-text-property] 8 (#$ . 42986)])#@12 (fn DOM) (defalias 'eww-form-submit #[257 "`\302\211@:\203\211@\202\211A@\262\236A\211\204M\211\211@:\203&\211@\202'\211AA\262\211\205H\211@\211;\203=\303!\210\202A\304!\210A\266\202\202+\266\202P\211c\210`U\203Y\305c\210\306`\307#\210\310`\300\311\312\313\314\315\316\211@:\203y\211@\202z\211A@\262\236A\257$\210\310`\317 $\210\320c\207" [eww-form eww-submit-map value shr-insert shr-descend "Submit" add-face-text-property eww-form-submit put-text-property :eww-form :value :type "submit" :name name keymap " "] 17 (#$ . 43447)])#@12 (fn DOM) (defalias 'eww-form-checkbox #[257 "`\304\211@:\203\211@\202\211A@\262\236A\203c\210\202! c\210\305`\306#\210\307`\302\310\n\311\312 \211@:\203<\211@\202=\211A@\262\236A\313\314 \211@:\203R\211@\202S\211A@\262\236A\227\315\304 \211@:\203i\211@\202j\211A@\262\236A\316\317\211@:\203\211@\202\200\211A@\262\236A\257\n$\210\307`\320 $\210\321c\207" [eww-form-checkbox-selected-symbol eww-form-checkbox-symbol eww-form eww-checkbox-map checked add-face-text-property eww-form-checkbox put-text-property :eww-form :value value :type type :checked :name name keymap " "] 18 (#$ . 44020)])#@12 (fn DOM) (defalias 'eww-form-file #[257 "`\302\211@:\203\211@\202\211A@\262\236A\211G\303U\203 \304\202!\211\262\305c\210\306`\307#\210\211c\210\310`\300\311\312\302\n\211@:\203D\211@\202E\211A@\262\236A\313\314\f\211@:\203Z\211@\202[\211A@\262\236A\227\315\316\211@:\203q\211@\202r\211A@\262\236A\257$\210\310`\317 $\210\320c\207" [eww-form eww-submit-file value 0 " No file selected" "Browse" add-face-text-property eww-form-file put-text-property :eww-form :value :type type :name name keymap " "] 17 (#$ . 44650)])#@55 Change the value of the upload file menu under point. (defalias 'eww-select-file #[0 "\301`\302\"\303\304\305!)\306\307\"\210\310\311#\207" [insert-default-directory get-text-property eww-form t read-file-name "filename: " eww-update-field 6 plist-put :filename] 6 (#$ . 45203) [nil (eww-mode)]])#@12 (fn DOM) (defalias 'eww-form-text #[257 "`\302\211@:\203\211@\202\211A@\262\236A\206\303\227\304\211@:\203'\211@\202(\211A@\262\236A\2062\305\306\307\211@:\203@\211@\202A\211A@\262\236A\206K\310!\311\211@:\203Y\211@\202Z\211A@\262\236A\204z\312\211@:\203p\211@\202q\211A@\262\236A\203~\313\202\314c\210GW\203\222\315GZ\316\"c\210\317`\320\321$\210\317`\314\322$\210\317`\323$\210\317`\322$\210\317`\301\324 \325 \326\f\327\330\211@:\203\311\211@\202\312\211A@\262\236A\257$\210\331c\207" [eww-text-map eww-form type "text" value "" string-to-number size "40" disabled readonly read-only inhibit-read-only make-string 32 put-text-property face eww-form-text t local-map :eww-form :value :type :name name " "] 20 (#$ . 45510)])#@126 List of input types which represent a text input. See URL `https://developer.mozilla.org/en-US/docs/Web/HTML/Element/Input'. (defconst eww-text-input-types '("text" "password" "textarea" "color" "date" "datetime" "datetime-local" "email" "month" "number" "search" "tel" "time" "url" "week") (#$ . 46295))#@31 (fn BEG END REPLACE-LENGTH) (defalias 'eww-process-text-input #[771 "TdW\205%SeV\205%\303T\304\"\203T\202%\303S\304\"\205%S\211\205\364\303\304\"\305!\306\211ZZ\307\310\"\205\361\211\n\235\205\361\311V\203}\212\211\312\232\203[\313 S\202]\314 b\210\311V\203y`Sf\315=\203y`S`|\210S\262\202_)\202\260\311W\203\260\212b\210\211\312\232\203\224\313 S\202\227\314 Tb\210`\316\317!\315\"c\210\320`#\266Sb)\210\320\321\236A\322\236A#\210\323\324 \314 \"\325\326\"\203\321\211\311\211\224O\262\327\330#\210\331\232\205\357\324 \332\211G\\\333\316G\334\"$\262\262*\266\204\207" [buffer-undo-list inhibit-read-only eww-text-input-types get-text-property eww-form text-properties-at t plist-get :type 0 "textarea" line-end-position eww-end-of-field 32 make-string abs set-text-properties :start :end buffer-substring-no-properties eww-beginning-of-field string-match " +\\'" plist-put :value "password" put-text-property display 42] 18 (#$ . 46605)])#@12 (fn DOM) (defalias 'eww-tag-textarea #[257 "`\302!\206\303\304\305\211@:\203\211@\202\211A@\262\236A\206!\306!\304\307\211@:\2030\211@\2021\211A@\262\236A\206;\306!\310\311 \210c\210\311 \210\312`\"W\203k\312`\"Z\313\211W\203i\310\314c\266\211T\262\202W\266\315 \262b\210`W\203\253\310\210`\316 ZZ\211\313V\203\215\317\320\"c\210\210\321\316 `\322#\210\323\316 `\324\325$\210\323\316 `\326$\210\327y\210\202r\323`\301\330 \331\n\332\333\334\335\211@:\203\305\211@\202\306\211A@\262\236A\257$\210\323\211T\336\325$\207" [eww-textarea-map eww-form dom-text "" string-to-number rows "10" cols nil shr-ensure-newline count-lines 0 "\n" point-marker line-beginning-position make-string 32 add-face-text-property eww-form-textarea put-text-property inhibit-read-only t local-map 1 :eww-form :value :type "textarea" :name name shr-tab-stop] 20 (#$ . 47618)])#@12 (fn DOM) (defalias 'eww-tag-input #[257 "\301\211@:\203 \211@\202\211A@\262\236A\206\302\227`\303\232\204&\304\232\203-\305!\210\202\252\306\267\202\246\307!\210\202\252\310!\210\202\252\311\211@:\203O\211@\202P\211A@\262\236A\203z@:\203s@@\312=\203s\313@A\314\"\232\204zA\262\202V\204\241\312\314\315\316\n\211@:\203\221\211@\202\222\211A@\262\236A\206\234\317\257C\244\210\266\202\252\320!\210\211`U?\205\300\321\211T\322\323$\210\321\211T\324\325$\207" [eww-form type "text" "checkbox" "radio" eww-form-checkbox #s(hash-table size 3 test equal rehash-size 1.5 rehash-threshold 0.8125 purecopy t data ("file" 51 "submit" 58 "hidden" 65)) eww-form-file eww-form-submit name hidden plist-get :name :value value "" eww-form-text put-text-property help-echo "Input field" shr-tab-stop t] 13 (#$ . 48524)])#@12 (fn DOM) (defalias 'eww-tag-select #[257 "\302 \210\303\304\211@:\203\211@\202\211A@\262\236A\305F\306`\307\310\311\"\211\203\210\211@\312\211@:\2035\211@\2026\211A@\262\236A\203X\313\314\211@:\203N\211@\202O\211A@\262\236AD\244\210\315!G]\262\316\313\314\211@:\203p\211@\202q\211A@\262\236A\317\257B\262\210A\266\202\202\"\210\205\341\237\262\320\313\"\204\241\313\321@8D\244\210\244\210\322!\211\323GZ\324\"\261\266\325`\300$\210\326`\327#\210\325`\330 $\210`U\204\337\325\211T\331\332$\210\325\211T\333\334$\210\302 \207" [eww-form eww-select-map shr-ensure-paragraph :name name :eww-form nil 0 dom-by-tag option selected :value value dom-text item :display plist-get 2 eww-select-display make-string 32 put-text-property add-face-text-property eww-form-select keymap help-echo "select field" shr-tab-stop t] 13 (#$ . 49387)])#@15 (fn SELECT) (defalias 'eww-select-display #[257 "\300\301\"\302\211\2030\211@\211:\203)\211@\303=\203)\300A\301\"\232\203)\300A\304\"\262A\266\202\202\210\207" [plist-get :value nil item :display] 9 (#$ . 50282)])#@13 (fn FORM) (defalias 'eww--form-items #[257 "\211\300\211:\203%@\262:\203@\301=\203AB\262A\262\202\211\237\207" [nil item] 6 (#$ . 50516)])#@72 Change the value of the select drop-down menu under point. (fn EVENT) (defalias 'eww-change-select #[257 "\300!\210\301`\302\"\303\304\305\306\307\"\310!\"B\"\207" [mouse-set-point get-text-property eww-form popup-menu "Change Value" mapcar make-closure #[257 "\301\302\303\"\304\305\300#\306#\207" [V0 vector plist-get :display make-closure #[0 "\302\301\303\304\300\303\"#\210\305\304\300\306\"!b\207" [V0 V1 plist-put :value plist-get eww-update-field :display] 6 nil nil] t] 7 "\n\n(fn ELEM)"] eww--form-items] 8 (#$ . 50679) [(list last-nonmenu-event) (eww-mode)]])#@32 (fn STRING &optional OFFSET) (defalias 'eww-update-field #[513 "\211\204\301\262\302`!\303 \\\304 T\303 G\\\305|\210u\210\306\\ZGZ\307\"\261\210\301U\203=\310#\210)\207" [inhibit-read-only 0 text-properties-at eww-beginning-of-field eww-end-of-field t make-string 32 set-text-properties] 10 (#$ . 51262)])#@47 Toggle the value of the checkbox under point. (defalias 'eww-toggle-checkbox #[0 "\302`\303\"\304\305\"\211\306\232\203-\304\307\"\203!\310\307\311#\210\312!\202*\310\307\313#\210\312 !Tb\207\304\314\"\212\315\304\316\"!\211\203s\211@\304A\314\"\232\203l\211@b\210\211A=\204a\310A\307\311#\210\312!\210\202l\310A\307\313#\210\312 !\210A\266\202\2028)\210\317u\207" [eww-form-checkbox-symbol eww-form-checkbox-selected-symbol get-text-property eww-form plist-get :type "checkbox" :checked plist-put nil eww-update-field t :name eww-inputs :eww-form 1] 9 (#$ . 51599) [nil (eww-mode)]])#@13 (fn FORM) (defalias 'eww-inputs #[257 "e\300\203<dW\203<\301\302\"\204\303\302\"\211\262\203\304\301\302\"\305\"=\2033\301\302\"BB\262\303\302\"\262\202\211\237\207" [nil get-text-property eww-form next-single-property-change plist-get :eww-form] 7 (#$ . 52211)]) (defalias 'eww-size-text-inputs #[0 "e\211\205:\211dW\205:\300\301\"\204\302\301\"\211\262\203\300\301\"\211\303BC\244\210\302\301\304d$\262\211\305BC\244\266\202\207" [get-text-property eww-form next-single-property-change :start nil :end] 7])#@14 (fn INPUT) (defalias 'eww-input-value #[257 "\300\301\"\300\302\"\303\232\2036\304\305\306\"r\211q\210\307\310\"\216c\210eb\210\311\312\313\306#\2032\314\315\306\211#\210\202!\316 *\207\317\320\"\203C\211\321\211\224O\207\207" [plist-get :type :value "textarea" generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] re-search-forward "^ +\n\\| +$" nil replace-match "" buffer-string string-match " +\\'" 0] 8 (#$ . 52766)])#@26 Submit the current form. (defalias 'eww-submit #[0 "\304`\305\"\306\307\"\310\211\311\312!\313\"\211\203\310\211@\211A@\306\314\"\211\203\277\306\315\"\316\235\203F\306\317\"\203\277\211\306\320\"\206;\321BB\262\266\202\301\306\315\"\322\232\203\201\306\323\"\211\203|\322\324\325\326\327\"r\211q\210\330\331\"\216\332!\210\333 *\262B\334B\335BFB\262\266\202\301\306\315\"\336\232\203\265 =\204\242 =\204\277\204\277`V\203\277\327\262\211\306\320\"BB\262\266\202\301\211\337!BB\262\266A\266\202\202\210\211\203\366\211@\211:\203\357\211@\340=\203\357\306A\314\"\306A\320\"\206\352\341BB\262A\266\202\202\312\210\342\236A;\203a\342\236A\227\343\232\203a\310\211\203\"\211@\211@\322\232\203\344\262A\266\202\202 \210\211\344\232\203J\345\310!\346\347\350PBC\351\"\352\353\354\236A\306 \355\"\"!+\207\346\356\357!\352\353\354\236A\306 \355\"\"!+\207\352\354\236A\203v\353\354\236A\306 \355\"\"\202z\306 \355\"\360\357!Q!\207" [url-request-data url-request-extra-headers url-request-method eww-data get-text-property eww-form plist-get :eww-form nil sort eww-inputs #[514 "@@W\207" [] 4 "\n\n(fn O1 O2)"] :name :type ("checkbox" "radio") :checked :value "on" "file" :filename "filedata" generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents buffer-string "name" "filename" "submit" eww-input-value hidden "" :method "post" "multipart/form-data" mml-compute-boundary "POST" "Content-Type" "multipart/form-data; boundary=" mm-url-encode-multipart-form-data eww-browse-url shr-expand-url :action :url (("Content-Type" . "application/x-www-form-urlencoded")) mm-url-encode-www-form-urlencoded "?"] 16 (#$ . 53265) [nil (eww-mode)]])#@160 Browse the current URL with an external browser. The browser to used is specified by the `browse-url-secondary-browser-function' variable. (fn &optional URL) (defalias 'eww-browse-with-external-browser #[256 "\206 \302 \303\"!\207" [browse-url-secondary-browser-function eww-data plist-get :url] 5 (#$ . 55078) [nil (eww-mode)]])#@63 Remove the commong utm_ tracking cookies from URLs. (fn URL) (defalias 'eww-remove-tracking #[257 "\300\301\302#\207" [replace-regexp-in-string ".utm_.*" ""] 5 (#$ . 55417)])#@41 Apply `eww-url-transformers'. (fn URL) (defalias 'eww--transform-url #[257 "\211\205\211\203\211@\211!\262A\266\202\202\210\211\207" [eww-url-transformers] 5 (#$ . 55599)])#@211 Browse the URL under point. If EXTERNAL is single prefix, browse the URL using `browse-url-secondary-browser-function'. If EXTERNAL is double prefix, browse in new buffer. (fn &optional EXTERNAL MOUSE-EVENT) (defalias 'eww-follow-link #[512 "\305!\210\306`\307\"\310!\311\204\312\313!\207\311\314\315$\266\203\203&\316!\207:\2039@\317X\2039 !\210\320 \207\321!\322!\n>\204K\323\324\325D\"\210\211\326H\262\211\262\203\227\327\330 \331\"\"\203\227`\332 \210\333 \331#\210eb\210\334\335\336#\211\203\212\322!\f>\204\205\323\324\337D\"\210\211\340Hb\207\341\232\203\224e\202\225b\207\342\"\207" [eww-use-browse-url browse-url-secondary-browser-function cl-struct-url-tags eww-data cl-struct-prop-match-tags mouse-set-point get-text-property shr-url eww--transform-url nil message "No link under point" string-match t browse-url 4 shr--blink-link url-generic-parse-url type-of signal wrong-type-argument url 7 eww-same-page-p plist-get :url eww-save-history plist-put text-property-search-forward shr-target-id member prop-match 1 "top" eww-browse-url] 13 (#$ . 55789) [(list current-prefix-arg last-nonmenu-event) (eww-mode)]])#@111 Return non-nil if URL1 and URL2 represent the same page. Differences in #targets are ignored. (fn URL1 URL2) (defalias 'eww-same-page-p #[514 "\301!\301!\302!>\204\303\304\305D\"\210\306\307I\210\302!>\204)\303\304\305D\"\210\211\306\307I\210\310!\310!\232\207" [cl-struct-url-tags url-generic-parse-url type-of signal wrong-type-argument url 7 nil url-recreate-url] 8 (#$ . 56961)])#@54 Copy the URL of the current page into the kill ring. (defalias 'eww-copy-page-url #[0 "\301\302\303\304\"\"\210\305\303\304\"!\207" [eww-data message "%s" plist-get :url kill-new] 5 (#$ . 57365) [nil (eww-mode)]])#@107 Download URL to `eww-download-directory'. Use link at point if there is one, else the current page's URL. (defalias 'eww-download #[0 ";\203 \202  \301\302\"\210\303`\304\"\206\305 \211\204!\306\307!\207\310\311D#\207" [eww-download-directory access-file "Download failed" get-text-property shr-url eww-current-url message "No URL under point" url-retrieve eww-download-callback] 7 (#$ . 57587) [nil (eww-mode)]])#@23 (fn STATUS URL DIR) (defalias 'eww-download-callback #[771 "\301\302\"?\205/\303!\304\305!@!\306\307\310!!\"eb\210\311\312!\210\313\314`d#)\210\315\316\"\266\203\207" [coding-system-for-write plist-get :error url-generic-parse-url directory-file-name url-path-and-query eww-make-unique-file-name eww-decode-url-file-name file-name-nondirectory re-search-forward " ?\n ?\n" no-conversion write-region message "Saved %s"] 10 (#$ . 58018)])#@15 (fn STRING) (defalias 'eww-decode-url-file-name #[257 "\303!\304\206\304\305\"\306\232\203\305\202\307!@\"\310!\211\311\232\2040\312 \206*\n!>\2032\207\207" [coding-system-for-read file-name-coding-system default-file-name-coding-system url-unhex-string decode-coding-string utf-8 (unicode) detect-coding-string find-coding-systems-string (undecided) coding-system-base] 7 (#$ . 58472)])#@23 (fn FILE DIRECTORY) (defalias 'eww-make-unique-file-name #[514 "G\300U\203 \301\262\202\302\303\"\203\301P\262\304\305\302\306\"\2032\307\304\"\262\307\310\"\262\311\312\"!\203L\313\314$\262T\262\2022\312\"\207" [0 "!" string-match "\\`[.]" 1 "" "\\`\\(.*\\)\\([.][^.]+\\)" match-string 2 file-exists-p expand-file-name format "%s(%d)%s"] 10 (#$ . 58885)])#@84 Set character encoding to CHARSET. If CHARSET is nil then use UTF-8. (fn CHARSET) (defalias 'eww-set-character-encoding #[257 "\211\204 \300\301\302\"\207\300\301\"\207" [eww-reload nil utf-8] 4 (#$ . 59283) ["zUse character set (default `utf-8'): " (eww-mode)]])#@61 Prompt for an EWW buffer to display in the selected window. (defalias 'eww-switch-to-buffer #[0 "\301\302\303\304\305 \237\306\211\211:\2034@\262rq\210\307\310!)\203)\262\306\211\262\202*\311\2034A\262\202 \266\203\311\312$!)\207" [completion-extra-properties (:annotation-function (lambda (buf) (with-current-buffer buf (format " %s" (eww-current-url))))) pop-to-buffer-same-window read-buffer "Switch to EWW buffer: " buffer-list nil derived-mode-p eww-mode t #[257 "r\211:\203 \211A\202\300!q\210\301\302!)\207" [get-buffer derived-mode-p eww-mode] 3 "\n\n(fn BUFN)"]] 9 (#$ . 59555) [nil (eww-mode)]])#@59 Toggle whether to use monospaced or font-enabled layouts. (defalias 'eww-toggle-fonts #[0 "?\301 \210\302\303\203\304\202\305\"\207" [shr-use-fonts eww-reload message "Proportional fonts are now %s" "on" "off"] 3 (#$ . 60185) [nil (eww-mode)]])#@53 Toggle whether to use HTML-specified colors or not. (defalias 'eww-toggle-colors #[0 "\301\302?\211\203 \303\202\304\"\210\305 \207" [shr-use-colors message "Colors are now %s" "on" "off" eww-reload] 4 (#$ . 60442) [nil (eww-mode)]])#@42 Toggle whether or not to display images. (defalias 'eww-toggle-images #[0 "?\301 \210\302\303\203\304\202\305\"\207" [shr-inhibit-images eww-reload message "Images are now %s" "off" "on"] 3 (#$ . 60686) [nil (eww-mode)]]) (defvar eww-bookmarks nil)#@28 Bookmark the current page. (defalias 'eww-add-bookmark #[0 "\302 \210\211\203!\211@\303 \304\"\303\304\"\232\203\305\306!\210A\266\202\202\210\307\310!\205U\311\312\313\303 \314\"#\311\315\316#\262\304\303 \304\"\314\317\320 \257B\210\321 \210\322\323\303 \304\"\303 \314\"#\207" [eww-bookmarks eww-data eww-read-bookmarks plist-get :url user-error "Already bookmarked" y-or-n-p "Bookmark this page?" replace-regexp-in-string "[\n ]" " " :title "\\` +\\| +\\'" "" :time current-time-string eww-write-bookmarks message "Bookmarked %s (%s)"] 7 (#$ . 60947) [nil (eww-mode)]]) (defalias 'eww-write-bookmarks #[0 "\304\305\"\306\307\310\"\311\312\"\216r\211q\210\313c\210\314\211\315 p\"+rq\210\316\314\211\314\317%*\210\207" [eww-bookmarks-directory print-level print-length eww-bookmarks expand-file-name "eww-bookmarks" generate-new-buffer " *temp file*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] ";; Auto-generated file; don't edit -*- mode: lisp-data -*-\n" nil pp write-region 0] 9])#@123 Read bookmarks from `eww-bookmarks'. If ERROR-OUT, signal user-error if there are no bookmarks. (fn &optional ERROR-OUT) (defalias 'eww-read-bookmarks #[256 "\302\303\"\304!\3058\262\206\306\306U?\205-\307\310\311\"r\211q\210\312\313\"\216\314!\210\315p!*\262\205: ?\205:\316\317!\207" [eww-bookmarks-directory eww-bookmarks expand-file-name "eww-bookmarks" file-attributes 7 0 generate-new-buffer " *temp*" t make-closure #[0 "\301\300!\205 \302\300!\207" [V0 buffer-name kill-buffer] 2] insert-file-contents read user-error "No bookmarks are defined"] 6 (#$ . 62001)])#@24 Display the bookmarks. (defalias 'eww-list-bookmarks #[0 "\300\301!\210\302\303!\210\304 \207" [eww-read-bookmarks t pop-to-buffer "*eww bookmarks*" eww-bookmark-prepare] 2 (#$ . 62593) nil]) (defalias 'eww-bookmark-prepare #[0 "\303\304!q\210\305 \210\306 \307\245\310\311\"\312\313\211\314 \210\315\310\316\317#P\n\211\203Y\211@`\262\320\321\"\262GV\203>\322\"\262\310\320\323\"#\324\261\210\325\211T\326$\210A\266\202\202 \210eb)\207" [inhibit-read-only header-line-format eww-bookmarks get-buffer-create "*eww bookmarks*" eww-bookmark-mode window-width 2 format "%%-%ds %%s" t nil erase-buffer " " "Title" "URL" plist-get :title truncate-string-to-width :url "\n" put-text-property eww-bookmark] 12]) (defvar eww-bookmark-kill-ring nil)#@28 Kill the current bookmark. (defalias 'eww-bookmark-kill #[0 "\303 \304\305\"\306\211\204\307\310!\210\311y\210`{ B`|\210\312\n\"\313 )\207" [inhibit-read-only eww-bookmark-kill-ring eww-bookmarks line-beginning-position get-text-property eww-bookmark t user-error "No bookmark on the current line" 1 delq eww-write-bookmarks] 5 (#$ . 63363) [nil (eww-bookmark-mode)]])#@56 Yank a previously killed bookmark to the current line. (defalias 'eww-bookmark-yank #[0 "\204\303\304!\210\305 \210\306`\307\211A\242c\210\310\311\"\262eU\203*\211\nB\202:\312`\"\211S\n\233\n\233B\241\266\313 )\207" [eww-bookmark-kill-ring inhibit-read-only eww-bookmarks user-error "No previously killed bookmark" beginning-of-line t nil get-text-property eww-bookmark count-lines eww-write-bookmarks] 8 (#$ . 63746) [nil (eww-bookmark-mode)]])#@41 Browse the bookmark under point in eww. (defalias 'eww-bookmark-browse #[0 "\300\301 \302\"\211\204 \303\304!\210\305 \210\306\307\310\"!\207" [get-text-property line-beginning-position eww-bookmark user-error "No bookmark on the current line" quit-window eww-browse-url plist-get :url] 5 (#$ . 64214) [nil (eww-bookmark-mode)]])#@38 Go to the next bookmark in the list. (defalias 'eww-next-bookmark #[0 "\300\211\301\302!\204\303\262\304\303!\210\305 \210r\301\302!q\210\204#m\204#\306y\210\307\310 \311\"\262\211\2042\312\313!\210)\314\315\316\"!\207" [nil get-buffer "*eww bookmarks*" t eww-read-bookmarks eww-bookmark-prepare 1 get-text-property line-beginning-position eww-bookmark user-error "No next bookmark" eww-browse-url plist-get :url] 6 (#$ . 64551) [nil (eww-bookmark-mode)]])#@42 Go to the previous bookmark in the list. (defalias 'eww-previous-bookmark #[0 "\300\211\301\302!\204\303\262\304\303!\210\305 \210r\301\302!q\210\203\"db\210\202%\306 \210l\203,\307y\210o\2037\310\311!\210\202:\307y\210\312\313 \314\")\262\315\316\317\"!\207" [nil get-buffer "*eww bookmarks*" t eww-read-bookmarks eww-bookmark-prepare beginning-of-line -1 user-error "No previous bookmark" get-text-property line-beginning-position eww-bookmark eww-browse-url plist-get :url] 6 (#$ . 65022) [nil (eww-bookmark-mode)]]) (defvar eww-bookmark-mode-map (define-keymap "C-k" 'eww-bookmark-kill "C-y" 'eww-bookmark-yank "RET" 'eww-bookmark-browse :menu '("Eww Bookmark" ["Exit" quit-window t] ["Browse" eww-bookmark-browse :active (get-text-property (line-beginning-position) 'eww-bookmark)] ["Kill" eww-bookmark-kill :active (get-text-property (line-beginning-position) 'eww-bookmark)] ["Yank" eww-bookmark-yank :active eww-bookmark-kill-ring]))) (defvar eww-bookmark-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [eww-bookmark-mode-hook variable-documentation put "Hook run after entering eww bookmarks mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp eww-bookmark-mode-map definition-name eww-bookmark-mode] 4) (defvar eww-bookmark-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204*\303\307\310\311#\210\312\307\306\307!\203&\313\202(\314 \"\210\307\302N\2048\303\307\302\304\315!#\210\306\300!\204X\303\300\310\311#\210\312\300\306\300!\203P\313\202V\316\300\313\"\210\"\210\300\302N\204f\303\300\302\304\317!#\210\303\311\320\321#\207" [eww-bookmark-mode-abbrev-table eww-bookmark-mode-map variable-documentation put purecopy "Keymap for `eww-bookmark-mode'." boundp eww-bookmark-mode-syntax-table definition-name eww-bookmark-mode defvar-1 nil make-syntax-table "Syntax table for `eww-bookmark-mode'." define-abbrev-table "Abbrev table for `eww-bookmark-mode'." derived-mode-parent special-mode] 5)#@234 Mode for listing bookmarks. \{eww-bookmark-mode-map} In addition to any hooks its parent mode `special-mode' might have run, this mode runs the hook `eww-bookmark-mode-hook', as the final or penultimate step during initialization. (defalias 'eww-bookmark-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 !\204'\316 \317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324 \325\"\204R =\204R\326 \325C#\210\327 !\210\330\f!\210 \331 \210\307)\332\333!\207" [delay-mode-hooks major-mode mode-name eww-bookmark-mode-map eww-bookmark-mode-syntax-table eww-bookmark-mode-abbrev-table make-local-variable t special-mode eww-bookmark-mode "eww bookmarks" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table buffer-disable-undo run-mode-hooks eww-bookmark-mode-hook local-abbrev-table truncate-lines] 5 (#$ . 67152)]) (defalias 'eww-save-history #[0 "\303\304`#\210\303\305\306 #\210\307\310\311\n\312$)\210\313\314D\211\207" [eww-data history-delete-duplicates eww-history-limit plist-put :point :text buffer-string nil add-to-history eww-history t :title ""] 5])#@25 List the eww-histories. (defalias 'eww-list-histories #[0 "\204\304\305!\210p\306\307!q\210\310 \210\311\301!\210\211\312\313\211\314\211\211\211\315 \210\211\203K\211@`\262\316\317\"G]\262\316\320\"G]\262A\266\202\202'\210\321\322#\262\323\321\324\325#P\211\203\217\211@`\262\316\317\"\262\316\320\"\262\321#c\210\326c\210\327\211T\300$\210A\266\202\202_\210eb)\266\330\307!\207" [eww-history eww-current-buffer inhibit-read-only header-line-format error "No eww-histories are defined" get-buffer-create "*eww history*" eww-history-mode make-local-variable t 0 nil erase-buffer plist-get :url :title format "%%-%ds %%-%ds" " " "Title" "URL" "\n" put-text-property pop-to-buffer] 16 (#$ . 68451) nil])#@40 Browse the history under point in eww. (defalias 'eww-history-browse #[0 "\301\302 \303\"\211\204 \304\305!\210\306 \210\211\203\307!\210\210\310!\207" [eww-current-buffer get-text-property line-beginning-position eww-history error "No history on the current line" quit-window pop-to-buffer-same-window eww-restore-history] 4 (#$ . 69205) [nil (eww-history-mode)]]) (defvar eww-history-mode-map (define-keymap "RET" 'eww-history-browse "n" 'next-line "p" 'previous-line :menu '("Eww History" ["Exit" quit-window t] ["Browse" eww-history-browse :active (get-text-property (line-beginning-position) 'eww-history)]))) (defvar eww-history-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [eww-history-mode-hook variable-documentation put "Hook run after entering eww history mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp eww-history-mode-map definition-name eww-history-mode] 4) (defvar eww-history-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204*\303\307\310\311#\210\312\307\306\307!\203&\313\202(\314 \"\210\307\302N\2048\303\307\302\304\315!#\210\306\300!\204X\303\300\310\311#\210\312\300\306\300!\203P\313\202V\316\300\313\"\210\"\210\300\302N\204f\303\300\302\304\317!#\210\303\311\320\321#\207" [eww-history-mode-abbrev-table eww-history-mode-map variable-documentation put purecopy "Keymap for `eww-history-mode'." boundp eww-history-mode-syntax-table definition-name eww-history-mode defvar-1 nil make-syntax-table "Syntax table for `eww-history-mode'." define-abbrev-table "Abbrev table for `eww-history-mode'." derived-mode-parent special-mode] 5)#@236 Mode for listing eww-histories. \{eww-history-mode-map} In addition to any hooks its parent mode `special-mode' might have run, this mode runs the hook `eww-history-mode-hook', as the final or penultimate step during initialization. (defalias 'eww-history-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 !\204'\316 \317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324 \325\"\204R =\204R\326 \325C#\210\327 !\210\330\f!\210 \331 \210\307)\332\333!\207" [delay-mode-hooks major-mode mode-name eww-history-mode-map eww-history-mode-syntax-table eww-history-mode-abbrev-table make-local-variable t special-mode eww-history-mode "eww history" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table buffer-disable-undo run-mode-hooks eww-history-mode-hook local-abbrev-table truncate-lines] 5 (#$ . 70988)])#@21 Enlist eww buffers. (defalias 'eww-list-buffers #[0 "\303p\304 \211\203+\211@r\211q\210\305\306!\203#\307\310\311\"\310\312\"#B\262)A\266\202\202\210\2044\313\314!\210\237\262\315\316!q\210\317 \210\320\321\211\303\211\211\211\322 \210\211\203n\211@\323\234G]\262\324\234G]\262A\266\202\202O\210\325\326#\262\327\325\330\331#P\321\323\n\211\203\306\211@`\262\211\323\234\262\211\324\234\262T\262\325\n#c\210\332c\210\211\321\234\333\211T\334$\210\f=\203\276\262\210A\266\202\202\204\210eb\210\211Sy)\266\f\335\316!\207" [eww-data inhibit-read-only header-line-format nil buffer-list derived-mode-p eww-mode vector plist-get :title :url error "No eww buffers" get-buffer-create "*eww buffers*" eww-buffers-mode t 0 erase-buffer 1 2 format "%%-%ds %%-%ds" " " "Title" "URL" "\n" put-text-property eww-buffer pop-to-buffer] 19 (#$ . 72029) nil])#@23 Switch to eww buffer. (defalias 'eww-buffer-select #[0 "\300\301 \302\"\211\204 \303\304!\210\305 \210\306!\207" [get-text-property line-beginning-position eww-buffer error "No buffer on current line" quit-window pop-to-buffer-same-window] 3 (#$ . 72936) [nil (eww-buffers-mode)]])#@48 Display buffer under point in eww buffer list. (defalias 'eww-buffer-show #[0 "\300\301 \302\"\211\204 \303\304!\210\305\306!\210\307!\210\305\310!\207" [get-text-property line-beginning-position eww-buffer error "No buffer on current line" other-window -1 pop-to-buffer-same-window 1] 3 (#$ . 73225)])#@53 Move to next eww buffer in the list and display it. (defalias 'eww-buffer-show-next #[0 "\300y\210m\203\neb\210\301 \207" [nil eww-buffer-show] 1 (#$ . 73535) [nil (eww-buffers-mode)]])#@57 Move to previous eww buffer in the list and display it. (defalias 'eww-buffer-show-previous #[0 "\300 \210o\203\ndb\210\301y\210\302 \207" [beginning-of-line -1 eww-buffer-show] 1 (#$ . 73727) [nil (eww-buffers-mode)]])#@28 Kill buffer from eww list. (defalias 'eww-buffer-kill #[0 "\301 \302\303\"\304\211\204\305\306!\210\307!\210\310y\210`|)\266m\203$\311y\210\312 \207" [inhibit-read-only line-beginning-position get-text-property eww-buffer t user-error "No buffer on the current line" kill-buffer 1 -1 eww-buffer-show] 4 (#$ . 73953) [nil (eww-buffers-mode)]]) (defvar eww-buffers-mode-map (define-keymap "C-k" 'eww-buffer-kill "RET" 'eww-buffer-select "n" 'eww-buffer-show-next "p" 'eww-buffer-show-previous :menu '("Eww Buffers" ["Exit" quit-window t] ["Select" eww-buffer-select :active (get-text-property (line-beginning-position) 'eww-buffer)] ["Kill" eww-buffer-kill :active (get-text-property (line-beginning-position) 'eww-buffer)]))) (defvar eww-buffers-mode-hook nil) (byte-code "\300\301N\204\f\302\300\301\303#\210\304\305!\204\302\305\306\307#\210\300\207" [eww-buffers-mode-hook variable-documentation put "Hook run after entering eww buffers mode.\nNo problems result if this variable is not bound.\n`add-hook' automatically binds it. (This is true for all hook variables.)" boundp eww-buffers-mode-map definition-name eww-buffers-mode] 4) (defvar eww-buffers-mode-map (make-sparse-keymap)) (byte-code "\301\302N\204\303\301\302\304\305!#\210\306\307!\204*\303\307\310\311#\210\312\307\306\307!\203&\313\202(\314 \"\210\307\302N\2048\303\307\302\304\315!#\210\306\300!\204X\303\300\310\311#\210\312\300\306\300!\203P\313\202V\316\300\313\"\210\"\210\300\302N\204f\303\300\302\304\317!#\210\303\311\320\321#\207" [eww-buffers-mode-abbrev-table eww-buffers-mode-map variable-documentation put purecopy "Keymap for `eww-buffers-mode'." boundp eww-buffers-mode-syntax-table definition-name eww-buffers-mode defvar-1 nil make-syntax-table "Syntax table for `eww-buffers-mode'." define-abbrev-table "Abbrev table for `eww-buffers-mode'." derived-mode-parent special-mode] 5)#@230 Mode for listing buffers. \{eww-buffers-mode-map} In addition to any hooks its parent mode `special-mode' might have run, this mode runs the hook `eww-buffers-mode-hook', as the final or penultimate step during initialization. (defalias 'eww-buffers-mode #[0 "\306\300!\210\307\310 \210\311\312\310\313N\203\314\311\313\310\313N#\210\315 !\204'\316 \317 \"\210\320\f!\211\2035\211\321 =\203;\322\f\323 \"\210\210\324 \325\"\204R =\204R\326 \325C#\210\327 !\210\330\f!\210 \331 \210\307)\332\333!\207" [delay-mode-hooks major-mode mode-name eww-buffers-mode-map eww-buffers-mode-syntax-table eww-buffers-mode-abbrev-table make-local-variable t special-mode eww-buffers-mode "eww buffers" mode-class put keymap-parent set-keymap-parent current-local-map char-table-parent standard-syntax-table set-char-table-parent syntax-table abbrev-table-get :parents abbrev-table-put use-local-map set-syntax-table buffer-disable-undo run-mode-hooks eww-buffers-mode-hook local-abbrev-table truncate-lines] 5 (#$ . 75848)])#@101 List of `eww-data' properties to preserve in the desktop file. Also used when saving `eww-history'. (defvar eww-desktop-data-save '(:url :title :point) (#$ . 76884))#@14 (fn ALIST) (defalias 'eww-desktop-data-1 #[257 "\301\211\203\"\211@A@>\203BB\262\266\211AA\262\202\207" [eww-desktop-data-save nil] 8 (#$ . 77055)])#@12 (fn A B) (defalias 'eww-desktop-history-duplicate #[514 "\300\203*@\301=\204A@\302@\"\232\203!AA\262\202\303\262\303\262\202\207" [t :point plist-get nil] 8 (#$ . 77227)])#@482 Return a property list with data used to restore eww buffers. This list will contain, as :history, the list, whose first element is the value of `eww-data', and the tail is `eww-history'. If `eww-desktop-remove-duplicates' is non-nil, duplicate entries (if any) will be removed from the list. Only the properties listed in `eww-desktop-data-save' are included. Generally, the list should not include the (usually overly large) :dom, :source and :text properties. (fn DIRECTORY) (defalias 'eww-desktop-misc-data #[257 "\303\304 B\"\305\n\203\306\307\310#\202D\207" [eww-data eww-history eww-desktop-remove-duplicates mapcar eww-desktop-data-1 :history cl-remove-duplicates :test eww-desktop-history-duplicate] 7 (#$ . 77425)])#@306 Restore an eww buffer from its desktop file record. If `eww-restore-desktop' is t or `auto', this function will also initiate the retrieval of the respective URI in the background. Otherwise, the restored buffer will contain a prompt to do so by using \[eww-reload]. (fn FILE-NAME BUFFER-NAME MISC-DATA) (defalias 'eww-restore-desktop #[771 "r\305!q\210\306 \210\307\310\"A\307\310\"@\206\311\307\312\"D\204A\307 \311\"\203A\n\313\267\202A\314\307 \311\"!\210\202A\315\316\f!c)\210p)\207" [eww-history eww-data eww-restore-desktop inhibit-read-only eww-restore-reload-prompt get-buffer-create eww-mode plist-get :history :url :uri #s(hash-table size 4 test eql rehash-size 1.5 rehash-threshold 0.8125 purecopy t data (t 47 auto 47 zerop 57 (buffer-size) 57)) eww t substitute-command-keys] 7 (#$ . 78167)]) (byte-code "\300\301\302\"\210\300\303\304\"\207" [add-to-list desktop-locals-to-save eww-history-position desktop-buffer-mode-handlers (eww-mode . eww-restore-desktop)] 3)#@97 Go to the next page to search using `rel' attribute for navigation. (fn &optional BUFFER WRAP) (defalias 'eww-isearch-next-buffer #[512 "\302\211\203\3031\304 0\210\202\"\210\202\" \203\305 \210\202\"\306 \210)p\207" [eww-retrieve-command isearch-forward sync (error) eww-top-url eww-next-url eww-previous-url] 3 (#$ . 79167)])#@60 Create a default bookmark name for the current EWW buffer. (defalias 'eww-bookmark-name #[0 "\301\302\"\207" [eww-data plist-get :title] 3 (#$ . 79511)])#@47 Create a bookmark for the current EWW buffer. (defalias 'eww-bookmark-make-record #[0 "\301 \302\303\304!\305\306\307\"B\310B\"B\207" [eww-data eww-bookmark-name append bookmark-make-record-default t location plist-get :url ((handler . eww-bookmark-jump))] 7 (#$ . 79671)])#@58 Default bookmark handler for EWW buffers. (fn BOOKMARK) (defalias 'eww-bookmark-jump #[257 "\300\301\302\"!\207" [eww bookmark-prop-get location] 5 (#$ . 79951)]) (byte-code "\300\301\302\303#\210\304\305!\207" [put eww-bookmark-jump bookmark-handler-type "EWW" provide eww] 4)