ikan Uploader :
Directory : /usr/share/emacs/25.2/lisp/net/
Upload File : |
| Current File : //usr/share/emacs/25.2/lisp/net/eww.elc |
;ELC
;;; Compiled
;;; in Emacs version 25.2.1
;;; with all optimizations.
;;; This file contains utf-8 non-ASCII characters,
;;; and so cannot be loaded into Emacs 22 or earlier.
(and (boundp 'emacs-version)
(< (aref emacs-version (1- (length emacs-version))) ?A)
(string-lessp emacs-version "23")
(error "`%s' was compiled for Emacs 23 or later" #$))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(byte-code "\300\301!\210\300\302!\210\300\303!\210\300\304!\210\300\305!\210\300\306!\210\307\310\311\312\313\314\315\316\317\320\321\322& \210\323\324\325\326\327DD\330\313\331\317\310\332\333& \210\323\334\325\326\335DD\336\313\331\317\310\332\333& \210\323\337\325\326\340DD\341\313\331\317\310\332\333& \210\323\342\325\326\343DD\344\313\314\317\310\332\345\346\347& \210\323\350\325\326\351DD\352\313\314\317\310\332\333& \210\323\353\325\326\354DD\355\313\314\317\310\332\356& \210\323\357\325\326\360DD\361\313\314\317\310\332\362& \210\323\363\325\326\364DD\365\313\314\317\310\332\333& \210\323\366\325\326\367DD\370\313\314\317\310\332\371& \210\323\372\325\326\373DD\374\313\331\317\310\332\375& \210\323\376\325\326\377DD\201@ \313\314\317\310\332\345& \210\323\201A \325\326\201B DD\201C \313\331\317\310\332\201D & \210\323\201E \325\326\201F DD\201G \313\331\317\310\332\201H & \210\201I \201J \201K \201L \313\331\317\310&\210\201I \201M \201N \201L \313\314\317\310&\210\201I \201O \201P \201L \313\331\317\310&\210\201I \201Q \201R \201L \313\331\317\310&\210\201I \201S \201T \201U \313\331\317\310&\210\201I \201V \201W \201X \313\331\317\310&\210\201I \201Y \201Z \201[ \313\314\317\310&\210\201I \201\\ \201] \201^ \313\314\317\310&\207" [require format-spec shr url url-queue url-util mm-url 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" [#1="%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" [#2="https://duckduckgo.com/html/?q="] 1 #2#] "Prefix URL to search engine." eww-download-directory #[0 "\300\207" [#3="~/Downloads/"] 1 #3#] "Directory where files will downloaded." eww-suggest-uris #[0 "\300\207" [(eww-links-at-point url-get-url-at-point eww-current-url)] 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." hook :options (eww-links-at-point url-get-url-at-point eww-current-url) eww-bookmarks-directory #[0 "\207" [user-emacs-directory] 1] "Directory where bookmark files will be stored." eww-desktop-remove-duplicates #[0 "\300\207" [t] 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] "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" [#4="\n\n *** Use \\[eww-reload] to reload this buffer. ***\n"] 1 #4#] "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'." eww-history-limit #[0 "\300\207" [50] 1] "Maximum number of entries to retain in the history." (choice (const :tag "Unlimited" nil) integer) eww-use-external-browser-for-content-type #[0 "\300\207" [#5="\\`\\(video/\\|audio/\\|application/ogg\\)"] 1 #5#] "Always use external browser for specified content-type." (choice (const :tag "Never" nil) regexp) eww-after-render-hook #[0 "\300\207" [nil] 1] "A hook called after eww has finished rendering the buffer." eww-form-checkbox-selected-symbol #[0 "\300\207" [#6="[X]"] 1 #6#] "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" [#7="[ ]"] 1 #7#] "Symbol used to represent a checkbox.\nSee also `eww-form-checkbox-selected-symbol'." (choice (const "[ ]") (const "☐") string) custom-declare-face eww-form-submit ((((type x w32 ns) (class color)) :box (:line-width 2 :style released-button) :background "#808080" :foreground "black")) "Face for eww buffer buttons." eww-form-file ((((type x w32 ns) (class color)) :box (:line-width 2 :style released-button) :background "#808080" :foreground "black")) eww-form-checkbox ((((type x w32 ns) (class color)) :box (:line-width 2 :style released-button) :background "lightgrey" :foreground "black")) eww-form-select ((((type x w32 ns) (class color)) :box (:line-width 2 :style released-button) :background "lightgrey" :foreground "black")) eww-form-text ((t (:background "#505050" :foreground "white" :box (:line-width 1)))) "Face for eww text inputs." eww-form-textarea ((t (:background "#C0C0C0" :foreground "black" :box (:line-width 1)))) "Face for eww textarea inputs." eww-invalid-certificate ((default :weight bold) (((class color)) :foreground "red")) "Face for web pages with invalid certificates." eww-valid-certificate ((default :weight bold) (((class color)) :foreground "ForestGreen")) "Face for web pages with valid certificates."] 12)
(defvar eww-data nil)
(defvar eww-history nil)
(defvar eww-history-position 0)
#@73 When this regex is found in the URL, it's not a keyword but an address.
(defvar eww-local-regex "localhost" (#$ . 5895))
(defvar eww-link-keymap (byte-code "\301!\302\303\304#\210\211\207" [shr-map copy-keymap define-key "
" eww-follow-link] 5))
#@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 (#$ . 6150)])
#@156 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'.
(fn URL)
(defalias 'eww #[257 "\211\211\306\307\"\203 \310\311\312\211$\262\306\313\"\203# \310\311\312\211$\266\202\202% \262\262\314\315\312\306#)\266\203\204\310 \316\315\312\306#)\266\203\203N \317\320!\210\202\310 \306\321\"\204\206 \306\322\"\204\206 \323!G\324U\203\277 \325\315\312\306#)\266\203\204 \323\326\"G\324V\204\206 \306 \"\203\277 \327\315\312\306#)\266\203\204\233 \330P\262\331!\211\332H\n>\204\255 \333\334\335D\"\210\211\336H\262\311\230\203\310 \211\337P\262\202\310 \340\341\342#P\262\343\f\344=\203\323 p\202\326 \345\346!!\210\347 \210\350
\351#\210\350
\352\311#\210\353 \210\312 0\354\355\"c\210eb\210)\356\357\315pE#\207" [inhibit-changing-match-data eww-local-regex cl-struct-url-tags eww-search-prefix major-mode eww-data string-match "[ \n
]+\\'" replace-match "" t "\\`[ \n
]+" "\\`file:/" nil "\\`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 0 signal wrong-type-argument url 6 "/" replace-regexp-in-string " " "+" pop-to-buffer-same-window eww-mode get-buffer-create "*eww*" eww-setup-buffer plist-put :url :title eww-update-header-line-format format "Loading %s..." url-retrieve eww-render inhibit-read-only] 8 (#$ . 6561) (byte-code "\300 \301\203 \302\303@\"\202 \304\305Q\306\307\211$C\207" [eww-suggested-uris "Enter URL or keywords" format " (default %s)" "" ": " read-string nil] 7)])
#@35 Render FILE using EWW.
(fn FILE)
(defalias 'eww-open-file #[257 "\301\302\303>\205 \304\305!Q!\207" [system-type eww "file://" (windows-nt ms-dos) "/" expand-file-name] 6 (#$ . 8245) "fFile: "])
#@139 Search the web for the text between BEG and END.
See the `eww-search-prefix' variable for the search engine used.
(fn &optional BEG END)
(defalias 'eww-search-words #[512 "\300{!\207" [eww] 5 (#$ . 8451) "r"])
#@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 (#$ . 8671)])
(defalias 'eww-render #[1282 "\305\306\"\211\203 \211\262\210\307 \310\311\312\"AG\313U\203 \314\202# \311\312\"A!\315\316A\236A\2067 \317\320@!!\2067 \321\227!p\322rq\210\323 \324\305\f\324\"#\210)\325\313\326\327\330!\331\"\332$\216\n\203t \n@\322\333\334#)\266\203\203t \335!\210\202\301 \320@!\203\214 \336 \322\n\n\n&\210\202\301 @\337\232\203\231 \340 \210\202\301 \341@\322\333\334#)\266\203\203\262 \342!\210\202\301 \343\206\277 \206\277 \344\"\210rq\210\323 \345\n#\210\346 \210\313\203\331 \347!\210\350\351!+\207" [last-coding-system-used eww-data eww-use-external-browser-for-content-type inhibit-changing-match-data eww-history-position plist-get :redirect eww-parse-headers mail-header-parse-content-type assoc "content-type" 0 "text/plain" intern charset eww-detect-charset eww-html-p "utf-8" nil plist-put :peer make-byte-code "\301\300!\207" vconcat vector [kill-buffer] 2 t string-match eww-browse-with-external-browser eww-display-html "application/pdf" eww-display-pdf "\\`image/" eww-display-image eww-display-raw utf-8 :url eww-update-header-line-format set-buffer-file-coding-system run-hooks eww-after-render-hook] 16 "\n\n(fn STATUS URL &optional POINT BUFFER ENCODE)"])
(defalias 'eww-parse-headers #[0 "\300eb\210m\204$ l\204$ \301\302!\203 \303\304!\227\303\305!BB\262\304y\210\202 m\204+ \304y\210\211\207" [nil looking-at "\\([^:]+\\): *\\(.*\\)" match-string 1 2] 4])
(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 "<meta[ \n
]+[^>]*charset=\"?\\([^ \n
\"/>]+\\)[\\\"'.*]" nil match-string 1 looking-at "[ \n
]*<\\?xml[ \n
]+[^>]*encoding=\"\\([^\"]+\\)"] 7 "\n\n(fn HTML-P)"])
(defalias 'eww-display-html #[1538 "\306\307!\204\n \310\311!\210\312!\204 \310\313\"\210\314\206W \315\316BC\206+ \206+ \317\262\3201: \321`d#0\202> \210\202? \210\212\322\323\314\324#\203Q \325\326\324\211#\210\202@ )\307`d\"E?\205_ `d{rq\210\327\330\n\331#\210\330\n\332#\210\324\211\333 !\211\334H >\204\206 \335\336\337D\"\210\211\340H\262\341\342! * +\343 \210\344!\210\203\245 b\210\202\317
\203\273 eb\210\345e\305\"\211\203\267 \211b\210\210\202\317 eb\210m\204\317 \346`\347\"\203\317 \350y\210\202\276 ,\351 )\207" [url-queue bidi-paragraph-direction eww-data cl-struct-url-tags shr-external-rendering-functions shr-target-id 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 "" left-to-right plist-put :source :dom url-generic-parse-url 0 signal wrong-type-argument url 7 append ((title . eww-tag-title) (form . eww-tag-form) (input . eww-tag-input) (textarea . eww-tag-textarea) (select . eww-tag-select) (link . eww-tag-link) (meta . eww-tag-meta) (a . eww-tag-a)) erase-buffer shr-insert-document next-single-property-change get-text-property eww-form 1 eww-size-text-inputs inhibit-modification-hooks inhibit-read-only] 15 "\n\n(fn CHARSET URL &optional DOCUMENT POINT BUFFER ENCODE)"])
(defalias 'eww-handle-link #[257 "\302\211@:\203 @A@\202 A@)\236A\303\211@:\203& @A@\202) A@)\236A\304\2053 \227\305\"\205C \211\205C \306 A#\207" [node eww-data rel href assoc (("next" . :next) ("previous" . :previous) ("prev" . :previous) ("start" . :start) ("home" . :home) ("contents" . :contents) ("up" . :up)) plist-put] 9 "\n\n(fn DOM)"])
(defvar eww-redirect-level 1)
(defalias 'eww-tag-meta #[257 "\302\303\211@:\203 @A@\202 A@)\236A\304\"\205\212 \305W\205\212 \306\211@:\2032 @A@\2025 A@)\236A\211\205\210 \307\310\"\204Q \307\311\"\204Q \307\312\"\205\210 \313\314\"\313\315\" T\316\232\203j \317\320!!\202\205 \321\322\323\324\320!BC\325\326\211\327\232\203\201 \330\202\202 \331##!)\266\202\262\207" [node 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"] 14 "\n\n(fn DOM)"])
(defalias 'eww-tag-link #[257 "\304!\210\211\211\211@:\203 @AA\202 AA)\305\211\205; @\211;\203/ \306\n!\210\2023 \307\n!\210 A\211\204 \305+\207" [dom node sub --dolist-tail-- eww-handle-link nil shr-insert shr-descend] 3 "\n\n(fn DOM)"])
(defalias 'eww-tag-a #[257 "\301!\210`\302!\210\303`\304$\207" [eww-link-keymap eww-handle-link shr-tag-a put-text-property keymap] 7 "\n\n(fn DOM)"])
(defalias 'eww-update-header-line-format #[0 "\205D \303 \304\"\303 \305\"G\306U\203 \307\262\211\203, \310\311\303\312\"\203( \313\202) \314#\262\315\316\317\320\321\303 \322\"\206: \323B\324BD\"#\266\202\211\207" [eww-header-line-format eww-data header-line-format plist-get :title :peer 0 "[untitled]" propertize face :warnings eww-invalid-certificate eww-valid-certificate replace-regexp-in-string "%" "%%" format-spec 117 :url "" 116] 11])
(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-update-header-line-format] 12 "\n\n(fn DOM)"])
(defalias 'eww-display-raw #[513 "`d{\301!\204 \302\303\"\210rq\210\304\305 \210\211c\210\3061) \307eGT#0\202- \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 "\n\n(fn BUFFER &optional ENCODE)"])
(defalias 'eww-display-image #[257 "\301 \302!\204
\303\304\"\210rq\210\305\306 \210\307\310\"\210)eb)\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 "\n\n(fn BUFFER)"])
(defalias 'eww-display-pdf #[0 "`d{\302\303\304!!\210\305\306\307 \210\211c\210\310\311!\210*\210eb\207" [inhibit-read-only coding-system-for-write pop-to-buffer-same-window get-buffer-create "*eww pdf*" raw-text t erase-buffer mailcap-view-mime "application/pdf"] 4])
(defalias 'eww-setup-buffer #[0 "\304\305\"\204 \304\306\"\203 \307 \210\310\311 \210\312 \210)\313 \314=?\205% \314 \207" [eww-data inhibit-read-only bidi-paragraph-direction major-mode plist-get :url :dom eww-save-history t remove-overlays erase-buffer left-to-right eww-mode] 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 (#$ . 15435)])
#@47 Return list of URIs, if any, linked at point.
(defalias 'eww-links-at-point #[0 "\300\301\302`\303\"\302`\304\"D\"\207" [remq nil get-text-property shr-url image-url] 6 (#$ . 15596)])
#@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!\203@ \317 \210*\320!\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 html-mode view-buffer] 7 (#$ . 15786) nil])
#@78 Cycle the paragraph direction between left-to-right, right-to-left and auto.
(defalias 'eww-toggle-paragraph-direction #[0 "\301=\203\n \302\202 \303=\203 \301\202 \303\304\305\204 \306\202! \"\207" [bidi-paragraph-direction left-to-right nil right-to-left message "The paragraph direction is now %s" "automatic"] 3 (#$ . 16287) nil])
#@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!r\211q\210\303\304\305\306\307!\310\"\311$\216\312\313\"c\210\3141' \315ed\316#0\202+ \210\202, \210\317ed\"*\262\312\320\"\321!\210\322 \210\323\324\211\325\326BC\327!E\324p%\210\330\211\203g \211@\331\312\"#\210A\266\202\202P \210\332 \207" [eww-data generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 plist-get :source (coding-system-error) decode-coding-region utf-8 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) plist-put eww-update-header-line-format] 11 (#$ . 16638) nil])
(defalias 'eww-score-readability #[257 "\301\211@:\203 @@\202 @)\302>\203 \303\262\202\270 \211@:\203+ @@\202- @)\304=\2039 \301\262\202\270 \211@:\203G @@\202I @)\305=\203U \306\262\202\270 \211@:\203c @@\202e @)\307=\203w \310\311!!G[\262\202\270 \211@:\203\206 @AA\202\211 AA)\211\203\267 \211@\211;\203\240 \310!G\\\262\202\260 \312\313A\"A\206\255 \314!\\\262A\266\202\202\212 \210\315\313#\210\211\207" [node -1 (script head comment) -2 meta img 2 a split-string dom-text assoc :eww-readability-score eww-score-readability dom-set-attribute] 9 "\n\n(fn NODE)"])
(defalias 'eww-highest-readability #[257 "\211\302\303!\211\203R \211@\304\305!\211\262\211@:\203 @A@\202# A@)\236A\206* \304\211@:\203: @A@\202= A@)\236A\206D V\203K \262A\266\202\202 \210\207" [node most-negative-fixnum nil dom-non-text-children :eww-readability-score eww-highest-readability] 9 "\n\n(fn NODE)"])
(defvar eww-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\301\312\311#\210\301\313\314#\210\301\315\316#\210\301\317\320#\210\301\321\322#\210\301\323\324#\210\301\325\326#\210\301\327\330#\210\301\331\332#\210\301\333\334#\210\301\335\336#\210\301\337\340#\210\301\341\342#\210\301\343\344#\210\301\345\346#\210\301\347\350#\210\301\351\352#\210\301\353\354#\210\301\355\356#\210\301\357\360#\210\301\361\362#\210\301\363\364#\210\301\365\366#\210\367\370\371\372$\210\211\207" [make-sparse-keymap define-key "g" eww-reload "G" eww [9] shr-next-link [134217737] shr-previous-link [backtab] [delete] 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-list-buffers "F" eww-toggle-fonts "D" eww-toggle-paragraph-direction "b" eww-add-bookmark "B" eww-list-bookmarks [(meta n)] eww-next-bookmark [(meta p)] eww-previous-bookmark easy-menu-do-define nil "" ("Eww" ["Exit" quit-window t] ["Close browser" quit-window t] ["Reload" eww-reload t] ["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] ["List buffers" eww-list-buffers t] ["Add bookmark" eww-add-bookmark t] ["List bookmarks" eww-list-bookmarks t] ["List cookies" url-cookie-list t] ["Character Encoding" eww-set-character-encoding] ["Toggle Paragraph Direction" eww-toggle-paragraph-direction])] 6))
#@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\211\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) (#$ . 20437))
#@160 Hook run after entering eww mode.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar eww-mode-hook nil (#$ . 20863))
(byte-code "\300\301!\204\f \302\301\303\304#\210\300\207" [boundp eww-mode-map put definition-name eww-mode] 4)
(defvar eww-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [eww-mode-map variable-documentation put purecopy "Keymap for `eww-mode'." boundp eww-mode-syntax-table definition-name eww-mode] 5)
(defvar eww-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [eww-mode-syntax-table variable-documentation put purecopy "Syntax table for `eww-mode'." eww-mode-abbrev-table definition-name eww-mode] 5)
(defvar eww-mode-abbrev-table (progn (define-abbrev-table 'eww-mode-abbrev-table nil) eww-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [eww-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `eww-mode'." eww-mode derived-mode-parent special-mode] 5)
#@200 Mode for browsing the web.
In addition to any hooks its parent mode `special-mode' might have run,
this mode runs the hook `eww-mode-hook', as the final step
during initialization.
\{eww-mode-map}
(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
.=\204R \326
\325.C#\210\327 !\210\330\f!\210
.\306\331!\210\332\333D\306\334!\210\335 \336\337\340\341\307$\210\306\342!\210\341\"\306\343!\210\344#\345\346!\203\220 \306\346!\210/&\306\347!\210\350'\306\351!\210\352)\3070\353 \210\3071)\354\355!\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 eww-history eww-history-position 0 boundp tool-bar-map desktop-save-buffer eww-desktop-misc-data multi-isearch-next-buffer-function eww-isearch-next-buffer buffer-disable-undo run-mode-hooks eww-mode-hook local-abbrev-table eww-tool-bar-map truncate-lines buffer-read-only] 5 (#$ . 22047) nil])
(defalias 'eww-browse-url #[513 "\211\203
\300\301\302!!\210\303 \210\304!\207" [pop-to-buffer-same-window generate-new-buffer "*eww*" eww-mode eww] 5 "\n\n(fn URL &optional NEW-WINDOW)"])
#@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 (#$ . 23689) nil])
#@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 (#$ . 23944) nil])
(defalias 'eww-restore-history #[257 "\303\211\304\305\"\211\204 \306 \202# \307 \210\211c\210\304\310\"b\210\311 *\207" [inhibit-modification-hooks inhibit-read-only eww-data t plist-get :text eww-reload erase-buffer :point eww-update-header-line-format] 7 "\n\n(fn ELEM)"])
#@101 Go to the page marked `next'.
A page is marked `next' if rel="next" appears in a <link>
or <a> 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 (#$ . 24473) nil])
#@113 Go to the page marked `previous'.
A page is marked `previous' if rel="previous" appears in a <link>
or <a> 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 (#$ . 24797) nil])
#@95 Go to the page marked `up'.
A page is marked `up' if rel="up" appears in a <link>
or <a> 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 (#$ . 25144) nil])
#@131 Go to the page marked `top'.
A page is marked `top' if rel="start", rel="home", or rel="contents"
appears in a <link> or <a> tag.
(defalias 'eww-top-url #[0 "\301\302\"\206 \301\303\"\206 \301\304\"\211\203\" \305\306\301\307\"\"!\202% \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 (#$ . 25456) nil])
#@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 "\301\302\"\203\" \301\303\"\204 \304\305!\202, \306\307\301\303\"`p%\202, \310\311`pF#\207" [eww-data plist-get :url :dom error "No current HTML data" eww-display-html utf-8 url-retrieve eww-render] 10 (#$ . 25857) "P"])
(defvar eww-form nil)
(defvar eww-submit-map (byte-code "\300 \301\302\303#\210\301\304\303#\210\211\207" [make-sparse-keymap define-key "
" eww-submit [(control c) (control c)]] 5))
(defvar eww-submit-file (byte-code "\300 \301\302\303#\210\301\304\305#\210\211\207" [make-sparse-keymap define-key "
" eww-select-file [(control c) (control c)] eww-submit] 5))
(defvar eww-checkbox-map (byte-code "\300 \301\302\303#\210\301\304\303#\210\301\305\306#\210\211\207" [make-sparse-keymap define-key " " eww-toggle-checkbox "
" [(control c) (control c)] eww-submit] 5))
(defvar eww-text-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\303\310\305#\210\303\311\312#\210\303\313\314#\210\303\315\316#\210\211\207" [text-mode-map make-keymap set-keymap-parent define-key "
" eww-submit [(control a)] eww-beginning-of-text [(control c) (control c)] [(control e)] eww-end-of-text [9] shr-next-link [134217737] shr-previous-link] 5))
(defvar eww-textarea-map (byte-code "\301 \302\"\210\303\304\305#\210\303\306\307#\210\303\310\311#\210\303\312\313#\210\211\207" [text-mode-map make-keymap set-keymap-parent define-key "
" forward-line [(control c) (control c)] eww-submit [9] shr-next-link [134217737] shr-previous-link] 5))
(defvar eww-select-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\211\207" [make-sparse-keymap define-key "
" eww-change-select [(control c) (control c)] eww-submit] 5))
#@39 Move to the start of the input field.
(defalias 'eww-beginning-of-text #[0 "\300 b\207" [eww-beginning-of-field] 1 (#$ . 27784) nil])
#@49 Move to the end of the text in the input field.
(defalias 'eww-end-of-text #[0 "\300 b\210\301 g\302\232\203 `V\203 \303u\210\202 `V\205 \304u\207" [eww-end-of-field eww-beginning-of-field 32 -1 1] 3 (#$ . 27924) nil])
(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])
(defalias 'eww-tag-form #[257 "\305\306\211@:\203 @A@\202 A@)\236AB\307\310\211@:\203) @A@\202, A@)\236ABD`\311c\210\312 \210\211\211@:\203K @AA\202N AA)\313\211 \205q \f@\211;\203e \314 !\210\202i \315 !\210\fA\211\204V \313+\210n\204z \311c\210\311c\210`V\205\212 \316\211T\301 $)\207" [node eww-form dom sub --dolist-tail-- :method method :action action "\n" shr-ensure-paragraph nil shr-insert shr-descend put-text-property] 9 "\n\n(fn DOM)"])
(defalias 'eww-form-submit #[257 "`\303\211@:\203 @A@\202 A@)\236A\211G\304U\203\" \305\202# \211\262\211c\210\306`\307#\210\310`\301\311 \312\313\314\315\316\211@:\203K @A@\202N A@)\236A\257$\210\310`\317\n$\210\320c\207" [node eww-form eww-submit-map value 0 "Submit" add-face-text-property eww-form-submit put-text-property :eww-form :value :type "submit" :name name keymap " "] 17 "\n\n(fn DOM)"])
(defalias 'eww-form-checkbox #[257 "`\305\211@:\203 @A@\202 A@)\236A\203 c\210\202# \nc\210\306`\307#\210\310`\303\311 \312\313 \211@:\203A @A@\202D A@)\236A\314\315 \211@:\203Y @A@\202\\ A@)\236A\227\316\305
\211@:\203r @A@\202u A@)\236A\317\320\211@:\203\212 @A@\202\215 A@)\236A\257\n$\210\310`\321\f$\210\322c\207" [node 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 "\n\n(fn DOM)"])
(defalias 'eww-form-file #[257 "`\303\211@:\203 @A@\202 A@)\236A\211G\304U\203\" \305\202# \211\262\306c\210\307`\310#\210\211c\210\311`\301\312 \313\303\n\211@:\203I @A@\202L A@)\236A\314\315\f\211@:\203a @A@\202d A@)\236A\227\316\317\211@:\203z @A@\202} A@)\236A\257$\210\311`\320\n$\210\321c\207" [node 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 "\n\n(fn DOM)"])
#@55 Change the value of the upload file menu under point.
(defalias 'eww-select-file #[0 "\301`\302\"\303\304\305!)\306\307G\"\210\310\311#\262\207" [insert-default-directory get-text-property eww-form t read-file-name "filename: " eww-update-field "Browse" plist-put :filename] 6 (#$ . 30432) nil])
(defalias 'eww-form-text #[257 "`\303\211@:\203 @A@\202 A@)\236A\206 \304\227\305\211@:\203, @A@\202/ A@)\236A\2066 \306\307\310\211@:\203G @A@\202J A@)\236A\206Q \311!\312\211@:\203b @A@\202e A@)\236A\204\204 \313\211@:\203{ @A@\202~ A@)\236A\203\210 \314\202\211 \315c\210GW\203\234 \316GZ\317\"c\210\320`\321\322$\210\320`\315\323$\210\320`\324 $\210\320`\323$\210\320`\302\325\n\326 \327\f\330\331\211@:\203\326 @A@\202\331 A@)\236A\257$\210\332c\207" [node 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 "\n\n(fn DOM)"])
#@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") (#$ . 31484))
(defalias 'eww-process-text-input #[771 "TdW\205% SeV\205% \303T\304\"\203 T\202% \303S\304\"\205% S\211\205\366 \303\304\"\305!\306\211\307#\310\311\"\205\363 \211\n\235\205\363 \312V\203 \212\211\313\232\203\\ \314 S\202^ \315 b\210\312V\203{ \316`Sf\317\"\203{ `S`|\210S\262\202` )\202\262 \312W\203\262 \212b\210\211\313\232\203\226 \314 S\202\231 \315 Tb\210`\320\321!\317\"c\210\322`#\266Sb\210)\322\310\323\"\310\324\"#\210\325\326 \315 \"\327\330\"\203\323 \211\312\211\224O\262\331\332#\210\333\232\205\361 \326 \334\211G\\\335\320G\336\"$\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 eql 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 "\n\n(fn BEG END REPLACE-LENGTH)"])
(defalias 'eww-tag-textarea #[257 "`\303\211@:\203 @A@\202 A@)\236A\206 \304\305\306\211@:\203, @A@\202/ A@)\236A\2066 \307!\305\310\211@:\203H @A@\202K A@)\236A\206R \307!\311\312 \210c\210\312 \210\313`\"W\203\202 \313`\"Z\314\211W\203\200 \211\315c\266\211T\262\202n \266\316 \262b\210`W\203\302 \311\210`\317 ZZ\211\314V\203\244 \320\321\"c\210\210\322\317 `\323#\210\324\317 `\325\326$\210\324\317 `\327 $\210\330y\210\202\211 \324`\302\331\n\332\n\333\334\335\336\211@:\203\337 @A@\202\342 A@)\236A\257$\207" [node eww-textarea-map eww-form value "" 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] 20 "\n\n(fn DOM)"])
(defalias 'eww-tag-input #[257 "\302\211@:\203 @A@\202 A@)\236A\206 \303\227`\304\232\204( \305\232\203/ \306!\210\202\274 \307\232\203< \310!\210\202\274 \311\232\203I \312!\210\202\274 \313\232\203\270 \314\211@:\203` @A@\202c A@)\236A\203\212 @:\203\203 @@\315=\203\203 \316@A\317\"\232\204\212 A\262\202f \204\263 \315\317\320\321\n\211@:\203\244 @A@\202\247 A@)\236A\206\256 \322\257C\244\210\266\202\274 \323!\210\211`U?\205\323 \324\211T\325\326$\210\324\211T\327$\207" [node eww-form type "text" "checkbox" "radio" eww-form-checkbox "file" eww-form-file "submit" eww-form-submit "hidden" name hidden plist-get :name :value value "" eww-form-text put-text-property help-echo "Input field" shr-url] 13 "\n\n(fn DOM)"])
(defalias 'eww-tag-select #[257 "\303 \210\304\305\211@:\203 @A@\202 A@)\236A\306 F\307`\310\307\211@:\203/ @@\2021 @)\311=\203{ \211@:\203F @AA\202I AA)\211\203w \211@\312\211@:\203` @A@\202c A@)\236A\204p \313C\"\262A\266\202\202J \210\202 C\262\211\211\203\211@\211\211@:\203\224 @@\202\226 @)\314=\203\374 \315\211@:\203\254 @A@\202\257 A@)\236A\203\321 \316\317\211@:\203\310 @A@\202\313 A@)\236AD\244\210\320!G]\262\321\316\317\211@:\203\354 @A@\202\357 A@)\236A\322\257B\262\210A\266\202\202\200 \210\205U\237\262\323\316\"\204 \316\324@8D\244\210\244\210\325!\211\326GZ\327\"\261\266\330`\301$\210\331`\332#\210\330`\333\n$\210`U\204S\330\211T\334\335$\210\303 \207" [node eww-form eww-select-map shr-ensure-paragraph :name name :eww-form nil 0 optgroup disabled append 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"] 15 "\n\n(fn DOM)"])
(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 "\n\n(fn SELECT)"])
#@60 Change the value of the select drop-down menu under point.
(defalias 'eww-change-select #[0 "\302`\303\"\304\305\306\307\310\"\"\311\312\306\313$\304\314\315\316\304#A#\210\317!b*\207" [completion-ignore-case inhibit-read-only get-text-property eww-form t delq nil mapcar #[257 "\211:\205 \211@\300=\205 \301A\302\"\301A\303\"B\207" [item plist-get :display :value] 5 "\n\n(fn ELEM)"] completing-read "Change value: " require-match plist-put :value assoc-string eww-update-field] 10 (#$ . 35740) nil])
(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 "\n\n(fn STRING &optional OFFSET)"])
#@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\202y \304\314\"\212\315\304\316\"!\211\203s \211@\304A\314\"\232\203l \211@b\210\211A=\204b \310\307\311#\210\312!\210\202l \310\307\313#\210\312 !\210A\266\202\202: \210)\317u\262\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 (#$ . 36584) nil])
(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 "\n\n(fn FORM)"])
(defalias 'eww-size-text-inputs #[0 "e\211\2058 \211dW\2058 \300\301\"\204 \302\301\"\211\262\203 \300\301\"\303\304#\210\302\301\305d$\262\303\306#\266\202 \207" [get-text-property eww-form next-single-property-change plist-put :start nil :end] 7])
(defalias 'eww-input-value #[257 "\300\301\"\300\302\"\303\232\203@ \304\305!r\211q\210\306\307\310\311\312!\313\"\314$\216c\210eb\210\315\316\317\320#\2038 \321\322\320\211#\210\202' \323 *\262\202P \324\325\"\203O \211\307\211\224O\202P \211\207" [plist-get :type :value "textarea" generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 re-search-forward "^ +\n\\| +$" nil t replace-match "" buffer-string string-match " +\\'"] 10 "\n\n(fn INPUT)"])
#@26 Submit the current form.
(defalias 'eww-submit #[0 "\304`\305\"\306\307\"\310\211\311\312!\313\"\211\203\311 \211@\211A@\306\314\"\211\203\300 \306\315\"\316\235\203@ \306\317\"\203\300 \211\306\320\"BB\262\202\300 \306\315\"\321\232\203\204 \321\322\323\324!r\211q\210\325\326\327\330\331!\332\"\333$\216\334\306\335\"!\210\336 *\262B\337\306\314\"B\340\306\335\"BEBB\262\202\300 \306\315\"\341\232\203\266 =\204\245 =\204\300 \204\300 `V\203\300 \342\262\211\306\320\"BB\262\202\300 \211\343!BB\262\266A\266\202\202 \210\211\203\367 \211@\211:\203\360 \211@\344=\203\360 \306A\314\"\306A\320\"\206\353 \345BB\262A\266\202\202\313 \210\346\236A;\203j\346\236A\227\347\232\203j\310\211\203#\211@\211@\321\232\203 \350\262A\266\202\202\f\210\211\350\232\203O\351\310!\352\353\354PBC\355\"\356\357\360\236A\306 \361\"\"!+\262\202e\352\362\363!\356\357\360\236A\306 \361\"\"!+\262\202\211\356\360\236A\203\357\360\236A\306 \361\"\"\202\203\306 \361\"\364\363!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 "file" "filedata" generate-new-buffer " *temp*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents :filename buffer-string "name" "filename" "submit" t 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 "?"] 18 (#$ . 38257) nil])
#@143 Browse the current URL with an external browser.
The browser to used is specified by the `shr-external-browser' variable.
(fn &optional URL)
(defalias 'eww-browse-with-external-browser #[256 "\206 \302 \303\"!\207" [shr-external-browser eww-data plist-get :url] 5 (#$ . 40089) nil])
#@193 Browse the URL under point.
If EXTERNAL is single prefix, browse the URL using `shr-external-browser'.
If EXTERNAL is double prefix, browse in new buffer.
(fn &optional EXTERNAL MOUSE-EVENT)
(defalias 'eww-follow-link #[512 "\303!\210\304`\305\"\211\204 \306\307!\202l \310\311\"\203 \312!\202l :\2031 @\313X\2031 !\202l \314!\211\315H >\204C \316\317\320D\"\210\211\321H\262\203h \322\323\n\324\"\"\203h \323\n\325\"\326 \210\327\330\331p%\262\202l \332\"\207" [shr-external-browser cl-struct-url-tags eww-data mouse-set-point get-text-property shr-url message "No link under point" string-match "^mailto:" browse-url-mail 4 url-generic-parse-url 0 signal wrong-type-argument url 7 eww-same-page-p plist-get :url :dom eww-save-history eww-display-html utf-8 nil eww-browse-url] 10 (#$ . 40383) (list current-prefix-arg last-nonmenu-event)])
#@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!\302H>\204 \303\304\305D\"\210\211\306\307I\266\211\302H>\204+ \303\304\305D\"\210\211\211\306\307I\266\310!\310!\232\207" [cl-struct-url-tags url-generic-parse-url 0 signal wrong-type-argument url 7 nil url-recreate-url] 8 (#$ . 41251)])
#@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 (#$ . 41663) nil])
#@55 Download URL under point to `eww-download-directory'.
(defalias 'eww-download #[0 "\300`\301\"\211\204 \302\303!\202 \304\305C#\207" [get-text-property shr-url message "No URL under point" url-retrieve eww-download-callback] 5 (#$ . 41872) nil])
(defalias 'eww-download-callback #[514 "\301\302\"?\205* \303!\304!@\305\306\307!!\"eb\210\310\311!\210\312`d#\210\313\314\"\266\203\207" [eww-download-directory plist-get :error url-generic-parse-url url-path-and-query eww-make-unique-file-name eww-decode-url-file-name file-name-nondirectory re-search-forward "
?\n
?\n" write-region message "Saved %s"] 9 "\n\n(fn STATUS URL)"])
(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!>\2034 \2025 \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 "\n\n(fn STRING)"])
(defalias 'eww-make-unique-file-name #[514 "G\300U\203
\301\262\202 \302\303\"\203 \301P\262\304\305\302\306\"\2030 \307\304\"\262\307\310!\262\311\312\"!\203J \313\314$\262T\262\2020 \312\"\207" [0 "!" string-match "\\`[.]" 1 "" "\\`\\(.*\\)\\([.][^.]+\\)" match-string 2 file-exists-p expand-file-name format "%s(%d)%s"] 10 "\n\n(fn FILE DIRECTORY)"])
#@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 (#$ . 43299) "zUse character set (default utf-8): "])
#@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 (#$ . 43557) nil])
(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 (#$ . 43829) nil])
(defalias 'eww-write-bookmarks #[0 "\302\303\"\304\305\306!!\307\310\311\312\313!\314\"\315$\216r\211q\210\316c\210\317 p\")rq\210\320\321\211\321\310%\210*\207" [eww-bookmarks-directory eww-bookmarks expand-file-name "eww-bookmarks" get-buffer-create generate-new-buffer-name " *temp file*" make-byte-code 0 "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 ";; Auto-generated file; don't edit\n" pp write-region nil] 9])
(defalias 'eww-read-bookmarks #[0 "\302\303\"\304\305!8\206
\306\306U?\2050 \307\310!r\211q\210\311\306\312\313\314!\315\"\316$\216\317!\210\320p!*\262\211\207" [eww-bookmarks-directory eww-bookmarks expand-file-name "eww-bookmarks" 7 file-attributes 0 generate-new-buffer " *temp*" make-byte-code "\301\300!\205 \302\300!\207" vconcat vector [buffer-name kill-buffer] 2 insert-file-contents read] 8])
#@24 Display the bookmarks.
(defalias 'eww-list-bookmarks #[0 "\300\301!\210\302 \207" [pop-to-buffer "*eww bookmarks*" eww-bookmark-prepare] 2 (#$ . 45273) nil])
(defalias 'eww-bookmark-prepare #[0 "\303 \210\204 \304\305!\210\306\307!q\210\310 \210\311 \312\245\313\314\"\315\316\211\317 \210\320\313\321\322#P\211\203d \211@`\262\323\324\"\262GV\203I \325\"\262\313\323\326\"#\327\261\210\330\211T\331$\210A\266\202\202+ \210eb)\207" [eww-bookmarks inhibit-read-only header-line-format eww-read-bookmarks user-error "No bookmarks are defined" 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 (#$ . 46095) nil])
#@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 (#$ . 46457) nil])
#@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 (#$ . 46904) nil])
#@38 Go to the next bookmark in the list.
(defalias 'eww-next-bookmark #[0 "\300\211\301\302!\204 \303\262\304 \210r\301\302!q\210\204 m\204 \305y\210\306\307 \310\"\262\211\204. \311\312!\210)\313\314\315\"!\207" [nil get-buffer "*eww bookmarks*" t eww-bookmark-prepare 1 get-text-property line-beginning-position eww-bookmark user-error "No next bookmark" eww-browse-url plist-get :url] 6 (#$ . 47220) nil])
#@42 Go to the previous bookmark in the list.
(defalias 'eww-previous-bookmark #[0 "\300\211\301\302!\204 \303\262\304 \210r\301\302!q\210\203 db\210\202! \305 \210l\203( \306y\210o\2033 \307\310!\210\2026 \306y\210\311\312 \313\"\262)\314\315\316\"!\207" [nil get-buffer "*eww bookmarks*" t 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 (#$ . 47638) nil])
(defvar eww-bookmark-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\310\311\312\313$\210\211\207" [make-sparse-keymap define-key [(control k)] eww-bookmark-kill [(control y)] eww-bookmark-yank "
" eww-bookmark-browse easy-menu-do-define nil "Menu for `eww-bookmark-mode-map'." ("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])] 6))
#@170 Hook run after entering eww bookmarks mode.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar eww-bookmark-mode-hook nil (#$ . 48730))
(byte-code "\300\301!\204\f \302\301\303\304#\210\300\207" [boundp eww-bookmark-mode-map put definition-name eww-bookmark-mode] 4)
(defvar eww-bookmark-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [eww-bookmark-mode-map variable-documentation put purecopy "Keymap for `eww-bookmark-mode'." boundp eww-bookmark-mode-syntax-table definition-name eww-bookmark-mode] 5)
(defvar eww-bookmark-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [eww-bookmark-mode-syntax-table variable-documentation put purecopy "Syntax table for `eww-bookmark-mode'." eww-bookmark-mode-abbrev-table definition-name eww-bookmark-mode] 5)
(defvar eww-bookmark-mode-abbrev-table (progn (define-abbrev-table 'eww-bookmark-mode-abbrev-table nil) eww-bookmark-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [eww-bookmark-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `eww-bookmark-mode'." eww-bookmark-mode derived-mode-parent special-mode] 5)
#@219 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 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
\325 C#\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 (#$ . 50095) nil])
(defalias 'eww-save-history #[0 "\303\304`#\210\303\305\306 #\210 B\307\310D\n\205 \n \233\211\205# \211\311\241\207" [eww-data eww-history eww-history-limit plist-put :point :text buffer-string :title "" nil] 4])
#@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\210)\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 (#$ . 51352) 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 (#$ . 52111) nil])
(defvar eww-history-mode-map (byte-code "\300 \301\302\303#\210\304\305\306\307$\210\211\207" [make-sparse-keymap define-key "
" eww-history-browse easy-menu-do-define nil "Menu for `eww-history-mode-map'." ("Eww History" ["Exit" quit-window t] ["Browse" eww-history-browse :active (get-text-property (line-beginning-position) 'eww-history)])] 6))
#@168 Hook run after entering eww history mode.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar eww-history-mode-hook nil (#$ . 52819))
(byte-code "\300\301!\204\f \302\301\303\304#\210\300\207" [boundp eww-history-mode-map put definition-name eww-history-mode] 4)
(defvar eww-history-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [eww-history-mode-map variable-documentation put purecopy "Keymap for `eww-history-mode'." boundp eww-history-mode-syntax-table definition-name eww-history-mode] 5)
(defvar eww-history-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [eww-history-mode-syntax-table variable-documentation put purecopy "Syntax table for `eww-history-mode'." eww-history-mode-abbrev-table definition-name eww-history-mode] 5)
(defvar eww-history-mode-abbrev-table (progn (define-abbrev-table 'eww-history-mode-abbrev-table nil) eww-history-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [eww-history-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `eww-history-mode'." eww-history-mode derived-mode-parent special-mode] 5)
#@221 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 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
\325 C#\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 (#$ . 54163) nil])
#@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)\266 \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 (#$ . 55194) 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 (#$ . 56106) nil])
#@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 (#$ . 56375)])
#@53 Move to next eww buffer in the list and display it.
(defalias 'eww-buffer-show-next #[0 "\300y\210m\203\n eb\210\301 \207" [nil eww-buffer-show] 1 (#$ . 56686) nil])
#@57 Move to previous eww buffer in the list and display it.
(defalias 'eww-buffer-show-previous #[0 "\300 \210o\203\n db\210\301y\210\302 \207" [beginning-of-line -1 eww-buffer-show] 1 (#$ . 56858) nil])
#@28 Kill buffer from eww list.
(defalias 'eww-buffer-kill #[0 "\301 \302\303\"\304\211\204 \305\306!\210\307!\210\310y\210`|\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 (#$ . 57064) nil])
(defvar eww-buffers-mode-map (byte-code "\300 \301\302\303#\210\301\304\305#\210\301\306\307#\210\301\310\311#\210\312\313\314\315$\210\211\207" [make-sparse-keymap define-key [(control k)] eww-buffer-kill "
" eww-buffer-select "n" eww-buffer-show-next "p" eww-buffer-show-previous easy-menu-do-define nil "Menu for `eww-buffers-mode-map'." ("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)])] 6))
#@168 Hook run after entering eww buffers mode.
No problems result if this variable is not bound.
`add-hook' automatically binds it. (This is true for all hook variables.)
(defvar eww-buffers-mode-hook nil (#$ . 57981))
(byte-code "\300\301!\204\f \302\301\303\304#\210\300\207" [boundp eww-buffers-mode-map put definition-name eww-buffers-mode] 4)
(defvar eww-buffers-mode-map (make-sparse-keymap))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\305\306!\204 \302\306\307\310#\210\300\207" [eww-buffers-mode-map variable-documentation put purecopy "Keymap for `eww-buffers-mode'." boundp eww-buffers-mode-syntax-table definition-name eww-buffers-mode] 5)
(defvar eww-buffers-mode-syntax-table (make-syntax-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [eww-buffers-mode-syntax-table variable-documentation put purecopy "Syntax table for `eww-buffers-mode'." eww-buffers-mode-abbrev-table definition-name eww-buffers-mode] 5)
(defvar eww-buffers-mode-abbrev-table (progn (define-abbrev-table 'eww-buffers-mode-abbrev-table nil) eww-buffers-mode-abbrev-table))
(byte-code "\300\301N\204 \302\300\301\303\304!#\210\302\305\306\307#\207" [eww-buffers-mode-abbrev-table variable-documentation put purecopy "Abbrev table for `eww-buffers-mode'." eww-buffers-mode derived-mode-parent special-mode] 5)
#@215 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 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
\325 C#\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 (#$ . 59325) nil])
#@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) (#$ . 60351))
(defalias 'eww-desktop-data-1 #[257 "\301\211\203\" \211@A@>\203 BB\262\266\211AA\262\202 \207" [eww-desktop-data-save nil] 8 "\n\n(fn ALIST)"])
(defalias 'eww-desktop-history-duplicate #[514 "\300\203* @\301>\204 A@\302@\"\232\203! AA\262\202 \303\262\303\262\202 \207" [t (:point) plist-get nil] 8 "\n\n(fn A B)"])
#@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#\202 D\207" [eww-data eww-history eww-desktop-remove-duplicates mapcar eww-desktop-data-1 :history cl-remove-duplicates :test eww-desktop-history-duplicate] 7 (#$ . 60867)])
#@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\204I \307 \311\"\203I \313\n\314\"\203: \315\307 \311\"!\210\202I \313\n\316\"\203I \317\320\f!c\210)p)\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 memql (t auto) eww (zerop (buffer-size)) t substitute-command-keys] 7 (#$ . 61610)])
(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 "\211\203 \3011 \302 0\202 \210\202# \210\202# \203 \303 \210\202# \304 \210p\207" [isearch-forward (error) eww-top-url eww-next-url eww-previous-url] 3 (#$ . 62540)])
(provide 'eww)
Kontol Shell Bypass