Linux iad1-shared-b7-18 6.6.49-grsec-jammy+ #10 SMP Thu Sep 12 23:23:08 UTC 2024 x86_64
Apache
: 67.205.6.31 | : 216.73.216.47
Cant Read [ /etc/named.conf ]
8.2.29
fernandoquevedo
Terminal
AUTO ROOT
Adminer
Backdoor Destroyer
Linux Exploit
Lock Shell
Lock File
Create User
CREATE RDP
PHP Mailer
BACKCONNECT
UNLOCK SHELL
HASH IDENTIFIER
README
+ Create Folder
+ Create File
/
usr /
share /
emacs /
27.1 /
lisp /
net /
[ HOME SHELL ]
Name
Size
Permission
Action
ange-ftp.elc
126.4
KB
-rw-r--r--
browse-url.elc
54.35
KB
-rw-r--r--
dbus.elc
55.05
KB
-rw-r--r--
dig.elc
6.34
KB
-rw-r--r--
dns.elc
11.52
KB
-rw-r--r--
eudc-bob.elc
8.58
KB
-rw-r--r--
eudc-export.elc
5.97
KB
-rw-r--r--
eudc-hotlist.elc
6.69
KB
-rw-r--r--
eudc-vars.elc
14.68
KB
-rw-r--r--
eudc.elc
33.77
KB
-rw-r--r--
eudcb-bbdb.elc
5.97
KB
-rw-r--r--
eudcb-ldap.elc
5.5
KB
-rw-r--r--
eudcb-mab.elc
2.58
KB
-rw-r--r--
eww.elc
68.31
KB
-rw-r--r--
gnutls.elc
12.62
KB
-rw-r--r--
goto-addr.elc
10
KB
-rw-r--r--
hmac-def.elc
1.87
KB
-rw-r--r--
hmac-md5.elc
2.11
KB
-rw-r--r--
imap.elc
102.11
KB
-rw-r--r--
ldap.elc
16.8
KB
-rw-r--r--
mailcap.elc
27.34
KB
-rw-r--r--
mairix.elc
25.1
KB
-rw-r--r--
net-utils.elc
35.04
KB
-rw-r--r--
netrc.elc
4.95
KB
-rw-r--r--
network-stream.elc
12.02
KB
-rw-r--r--
newst-backend.elc
65.76
KB
-rw-r--r--
newst-plainview.elc
48.96
KB
-rw-r--r--
newst-reader.elc
9.66
KB
-rw-r--r--
newst-ticker.elc
7.82
KB
-rw-r--r--
newst-treeview.elc
76.37
KB
-rw-r--r--
newsticker.elc
769
B
-rw-r--r--
nsm.elc
34.82
KB
-rw-r--r--
ntlm.elc
13.79
KB
-rw-r--r--
pop3.elc
20.1
KB
-rw-r--r--
puny.elc
4.92
KB
-rw-r--r--
quickurl.elc
17.83
KB
-rw-r--r--
rcirc.elc
105.35
KB
-rw-r--r--
rfc2104.elc
1.2
KB
-rw-r--r--
rlogin.elc
10.97
KB
-rw-r--r--
sasl-cram.elc
1003
B
-rw-r--r--
sasl-digest.elc
3.33
KB
-rw-r--r--
sasl-ntlm.elc
1.62
KB
-rw-r--r--
sasl-scram-rfc.elc
3.6
KB
-rw-r--r--
sasl.elc
6.58
KB
-rw-r--r--
secrets.elc
23.55
KB
-rw-r--r--
shr-color.elc
8.82
KB
-rw-r--r--
shr.elc
69.72
KB
-rw-r--r--
sieve-manage.elc
15.31
KB
-rw-r--r--
sieve-mode.elc
6.94
KB
-rw-r--r--
sieve.elc
11.62
KB
-rw-r--r--
snmp-mode.elc
14.51
KB
-rw-r--r--
soap-client.elc
221.75
KB
-rw-r--r--
soap-inspect.elc
20.04
KB
-rw-r--r--
socks.elc
12.5
KB
-rw-r--r--
telnet.elc
9.65
KB
-rw-r--r--
tramp-adb.elc
107.17
KB
-rw-r--r--
tramp-archive.elc
25.39
KB
-rw-r--r--
tramp-cache.elc
23.77
KB
-rw-r--r--
tramp-cmds.elc
18.89
KB
-rw-r--r--
tramp-compat.elc
9.57
KB
-rw-r--r--
tramp-ftp.elc
4.38
KB
-rw-r--r--
tramp-gvfs.elc
107.3
KB
-rw-r--r--
tramp-integration.elc
7.03
KB
-rw-r--r--
tramp-loaddefs.el
60.78
KB
-rw-r--r--
tramp-rclone.elc
39.17
KB
-rw-r--r--
tramp-sh.elc
306.37
KB
-rw-r--r--
tramp-smb.elc
140
KB
-rw-r--r--
tramp-sudoedit.elc
76.86
KB
-rw-r--r--
tramp-uu.elc
1.91
KB
-rw-r--r--
tramp.elc
242.21
KB
-rw-r--r--
trampver.elc
2.15
KB
-rw-r--r--
webjump.elc
9.85
KB
-rw-r--r--
zeroconf.elc
18.4
KB
-rw-r--r--
Delete
Unzip
Zip
${this.title}
Close
Code Editor : eww.elc
;ELC ;;; Compiled ;;; in Emacs version 27.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\300\307!\210\300\310!\210\311\312\313\314\315\316\317\320\321\322\323\324& \210\325\326\327\330\331DD\332\315\333\321\312\334\335& \210\325\336\327\330\337DD\340\315\333\321\312\334\335& \210\325\341\327\330\342DD\343\315\333\321\312\334\344& \210\325\345\327\330\346DD\347\315\350\321\312\334\351\352\353& \210\325\354\327\330\355DD\356\315\316\321\312\334\344& \210\325\357\327\330\360DD\361\315\316\321\312\334\362& \210\325\363\327\330\364DD\365\315\316\321\312\334\366& \210\325\367\327\330\370DD\371\315\316\321\312\334\335& \210\325\372\327\330\373DD\374\315\316\321\312\334\375& \210\325\376\327\330\377DD\201@ \315\333\321\312\334\201A & \210\325\201B \327\330\201C DD\201D \315\350\321\312\334\201E & \210\325\201F \327\330\201G DD\201H \315\316\321\312\334\351& \210\325\201I \327\330\201J DD\201K \315\333\321\312\334\201L & \210\325\201M \327\330\201N DD\201O \315\333\321\312\334\201P & \210\201Q \201R \201S \201T \315\333\321\312&\210\201Q \201U \201V \201T \315\316\321\312&\210\201Q \201W \201X \201T \315\333\321\312&\210\201Q \201Y \201Z \201T \315\333\321\312&\210\201Q \201[ \201\\ \201] \315\333\321\312&\210\201Q \201^ \201_ \201` \315\333\321\312&\210\201Q \201a \201b \201c \315\316\321\312&\210\201Q \201d \201e \201f \315\316\321\312&\207" [require cl-lib format-spec shr url url-queue thingatpt mm-url puny 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." directory eww-suggest-uris #[0 "\300\207" [(eww-links-at-point thing-at-point-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." "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] "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-browse-url-new-window-is-tab #[0 "\300\207" [tab-bar] 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] "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) (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" (#$ . 6543)) #@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" (#$ . 6670)) (defvar eww-link-keymap (byte-code "\301!\302\303\304#\210\211\207" [shr-map copy-keymap define-key " " eww-follow-link] 5)) (defvar eww-image-link-keymap (byte-code "\301!\302\303\304#\210\211\207" [shr-image-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 (#$ . 7110)]) #@260 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 called with a prefix ARG, use a new buffer instead of reusing the default EWW buffer. (fn URL &optional ARG) (defalias 'eww #[513 "\306!\262\307\310=\203 \311\312!\202 \313=\203 p\202 \314\312!!\210\315 \210\316!\317! >\2046 \320\321\322D\"\210\211\310H\203} \323\317! >\204L \320\321\322D\"\210\310H!\204} \317! >\204b \320\321\322D\"\210\211\211\310\324\317! >\204v \320\321\322D\"\210\310H!I\266\317! >\204\214 \320\321\322D\"\210\211\325H\203\330 \326\327\317! >\204\243 \320\321\322D\"\210\325H\"\203\330 \317! >\204\271 \320\321\322D\"\210\211\211\325\330\317! >\204\315 \320\321\322D\"\210\325H\331\"I\266\202\222 \332!\262\210\333\n\334#\210\333\n\335\336#\210\337 \210\340\341\342\"c\210eb\210)\f \343\344\345pE#)\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 4 generate-new-buffer "*eww*" eww-mode get-buffer-create eww-setup-buffer url-generic-parse-url type-of signal wrong-type-argument url puny-highly-restrictive-domain-p puny-encode-domain 6 string-match "\\`/[.][.]/" substring 3 url-recreate-url plist-put :url :title "" eww-update-header-line-format t format "Loading %s..." url-retrieve eww-render nil] 11 (#$ . 7521) (byte-code "\301 \302\203 \303\304@\"\202 \305\306Q\307\310\311$\312!D\207" [current-prefix-arg eww-suggested-uris "Enter URL or keywords" format " (default %s)" "" ": " read-string nil eww-prompt-history prefix-numeric-value] 7)]) #@12 (fn URL) (defalias 'eww--dwim-expand-url #[257 "\211\304\211\305\206 \306\307Q\304\310\311#)\266\203\211\203% \312\313#\202& \266\203\311\314\2060 \306\315Q\"\203A \312\313\225\"\266\205\202D \266\205\262\316\304\310\311#)\266\203\204\351 \317\304\310\311#)\266\203\203m \320\321!\210\202\351 \311\322\"\204\245 \311\323\"\204\245 \324!G\325U\203\336 \326\304\310\311#)\266\203\204\236 \324\327\"G\325V\204\245 \311 \"\203\336 \330\304\310\311#)\266\203\204\272 \331P\262\332!\333!\n>\204\314 \334\335\336D\"\210\211\337H\262\340\230\203\351 \211\341P\262\202\351 \342\343\324!\344#P\262\207" [inhibit-changing-match-data eww-local-regex cl-struct-url-tags eww-search-prefix nil "\\(?:" "[ \n ]+" "\\)\\'" t string-match substring 0 "\\`\\(?:" "\\)" "\\`file:/" "\\`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 "+"] 13 (#$ . 9206)]) #@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 (#$ . 10328)]) #@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 (#$ . 10640) "fFile: "]) #@251 Search the web for the text between BEG and END. If region is active (and not whitespace), search the web for the text between BEG and END. Else, prompt the user for a search string. See the `eww-search-prefix' variable for the search engine used. (defalias 'eww-search-words #[0 "\301 \203$ \302 \303 {\304\305\306\307#)\266\203\204 \310!\202# \311\310!\207\311\310!\207" [inhibit-changing-match-data use-region-p region-beginning region-end "\\`[ \n \f]*\\'" nil t string-match eww call-interactively] 8 (#$ . 10847) nil]) #@42 Fetch link at point in a new EWW buffer. (defalias 'eww-open-in-new-buffer #[0 "\304 \211\204\f \305\306!\202L \307=\204 \310=\203\" \203\" \307\311 \210)r \312=\203. \313 \2021 \314\315!q\210\211\316 \232?\205K \312 \210\317:\203I @\202J !)\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 (#$ . 11389) 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 (#$ . 11891)]) #@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\312\335\336\337!\340\"\341$\2165\203\271 5@\327\342 6\343#)\266\203\203\271 \344 \210\345c\210\346\347@\"c\210\346\350 \"c\210eb\210\351 \327\n\n\n&\210\202\317@!\203\321 \351 \327\n\n\n&\210\202@\352\232\203\336 \353 \210\202\354@\327\342 6\343#)\266\203\203\370 \355!\210\202\356\206\206\357\"\210rq\210\332 \360\n#\210\361 \210\3127\n\203 \362\n!\210\363\364!,\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-byte-code "\301\300!\207" vconcat vector [kill-buffer] 2 t string-match erase-buffer "<title>Unsupported content type</title>" format "<h1>Content-type %s is unsupported</h1>" "<a href=%S>Direct link to the document</a>" 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 eww-use-external-browser-for-content-type inhibit-changing-match-data eww-history-position] 16 (#$ . 12148)]) (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]) #@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 "<meta[ \n ]+[^>]*charset=\"?\\([^ \n \"/>]+\\)[\\\"'.*]" nil match-string 1 looking-at "[ \n ]*<\\?xml[ \n ]+[^>]*encoding=\"\\([^\"]+\\)"] 7 (#$ . 13997)]) #@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\206e \315\316BC\206+ \206+ \317\262\3201: \321`d#0\202> \210\202? \210\212\322\323\314\324#\203Z \325\326\224\203R \327\202S \330\324\211#\210\202@ )\331`d\"\210\307`d\"E?\205m `d{rq\210\314\332\n\333#\210\332\n\334#\210\324\211 \206\235 \335 !\336!\f>\204\230 \337\340\341D\"\210\211\342H\262\343 \344\" + ,\345 \210\346!\210\203\270 b\210\202\342 \203\316 eb\210\347e\303\"\211\203\312 \211b\210\210\202\342 eb\210m\204\342 \350`\351\"\203\342 \326y\210\202\321 ,\352 )\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 shr-insert-document next-single-property-change get-text-property eww-form eww-size-text-inputs inhibit-modification-hooks inhibit-read-only] 15 (#$ . 14348)]) #@12 (fn DOM) (defalias 'eww-handle-link #[257 "\301\211@:\203 \211@A@\262\202 \211A@\262\236A\302\211@:\203) \211@A@\262\202. \211A@\262\236A\303\2057 \227\304\"\205G \211\205G \305A#\207" [eww-data rel href assoc (("next" . :next) ("previous" . :previous) ("prev" . :previous) ("start" . :start) ("home" . :home) ("contents" . :contents) ("up" . :up)) plist-put] 8 (#$ . 15885)]) (defvar eww-redirect-level 1) #@12 (fn DOM) (defalias 'eww-tag-meta #[257 "\301\302\211@:\203 \211@A@\262\202 \211A@\262\236A\303\"\205\216 \304W\205\216 \305\211@:\2035 \211@A@\262\202: \211A@\262\236A\211\205\214 \306\307\"\204U \306\310\"\204U \306\311\"\205\214 \312\313\"\312\314\"T\315\232\203n \316\317!!\202\211 \320\321\322\323\317!BC\324\325\211\326\232\203\205 \327\202\206 \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 (#$ . 16314)]) #@12 (fn DOM) (defalias 'eww-tag-link #[257 "\300!\210\211\211\211@:\203 \211@AA\262\202 \211AA\262\211\2057 \211@\211;\203, \301!\210\2020 \302!\210A\266\202\202 \262\207" [eww-handle-link shr-insert shr-descend] 6 (#$ . 17051)]) #@12 (fn DOM) (defalias 'eww-tag-a #[257 "\302!\210`\303!\210\304`\305\306`\"\203 \202 $\207" [eww-image-link-keymap eww-link-keymap eww-handle-link shr-tag-a put-text-property keymap mm-images-in-region-p] 9 (#$ . 17295)]) (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]) #@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-update-header-line-format] 12 (#$ . 17986)]) #@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\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 (#$ . 18232)]) #@15 (fn BUFFER) (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 (#$ . 18552)]) (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 nil 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 (#$ . 19373)]) #@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 (#$ . 19534)]) #@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 (#$ . 19724) nil]) #@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 (#$ . 20266) 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\"\210\320ed\"*\262\312\321\"\322!\210\323 \210\324\325\211\326\327BC\330!E\325p%\210\331\211\203l \211@\332\312\"#\210A\266\202\202U \210\333 \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 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) plist-put eww-update-header-line-format] 11 (#$ . 20728) nil]) #@13 (fn NODE) (defalias 'eww-score-readability #[257 "\300\211@:\203 \211@@\262\202 \211@\262\301>\203 \302\262\202\307 \211@:\203. \211@@\262\2022 \211@\262\303=\203= \300\262\202\307 \211@:\203L \211@@\262\202P \211@\262\304=\203[ \305\262\202\307 \211@:\203j \211@@\262\202n \211@\262\306=\203 \307\310!!G[\262\202\307 \211@:\203\217 \211@AA\262\202\224 \211AA\262\211\203\306 \211@\211;\203\252 \307!G\\\262\202\277 \211:\203\277 \311\312A\"A\206\274 \313!\\\262A\266\202\202\224 \210\314\312#\210\211\207" [-1 (script head comment) -2 meta img 2 a split-string dom-text assoc :eww-readability-score eww-score-readability dom-set-attribute] 8 (#$ . 21692)]) #@13 (fn NODE) (defalias 'eww-highest-readability #[257 "\211\301\302!\211\203a \211@\303\304!\211\262\211@:\203! \211@A@\262\202& \211A@\262\236A\206, \303\211@:\203= \211@A@\262\202B \211A@\262\236A\206H V\203Z \305\306!!G\307V\203Z \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 (#$ . 22392)]) (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\313#\210\301\314\313#\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\301\367\370#\210\301\371\372#\210\301\373\374#\210\375\376\377\201@ $\210\211\207" [make-sparse-keymap define-key "g" eww-reload "G" eww [134217741] eww-open-in-new-buffer [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-switch-to-buffer "S" eww-list-buffers "F" eww-toggle-fonts "D" eww-toggle-paragraph-direction [(meta C)] eww-toggle-colors "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] ["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] ["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) (#$ . 25057)) (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\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\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 (lambda (#1=#:def-tmp-var) (defvar eww-mode-syntax-table #1#)) make-syntax-table "Syntax table for `eww-mode'." (lambda (#1#) (defvar eww-mode-abbrev-table #1#)) define-abbrev-table nil "Abbrev table for `eww-mode'." derived-mode-parent special-mode] 5) #@215 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 or penultimate 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 (#$ . 26579) nil]) #@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? \304=\204 \305=\203 \203 \304\306 \210)\307\310\311\312\313\314!!\315! >\2043 \316\317\320D\"\210\211\321H\262\"!!\210\322 \210\323!\207" [eww-browse-url-new-window-is-tab tab-bar-mode tab-bar-new-tab-choice cl-struct-url-tags 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 (#$ . 28046)]) #@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 (#$ . 29143) 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 (#$ . 29398) nil]) #@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-update-header-line-format] 7 (#$ . 29641)]) #@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 (#$ . 29982) 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 (#$ . 30306) 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 (#$ . 30653) 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 (#$ . 30965) 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 "\303\304\"\203\" \303\305\"\204 \306\307!\202/ \310\311\303\305\"`p%\202/ \312\313`pF#)\207" [eww-data eww-accept-content-types url-mime-accept-string plist-get :url :dom error "No current HTML data" eww-display-html utf-8 url-retrieve eww-render] 10 (#$ . 31366) "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 (#$ . 33344) 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 (#$ . 33484) 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]) #@12 (fn DOM) (defalias 'eww-tag-form #[257 "\301\302\211@:\203 \211@A@\262\202 \211A@\262\236AB\303\304\211@:\203, \211@A@\262\2021 \211A@\262\236ABD`\305c\210\306 \210\211\211@:\203O \211@AA\262\202T \211AA\262\211\203q \211@\211;\203f \307!\210\202j \310!\210A\266\202\202T \266n\204z \305c\210\305c\210`V\205\212 \311\211T\300$)\207" [eww-form :method method :action action "\n" shr-ensure-paragraph shr-insert shr-descend put-text-property] 8 (#$ . 33993)]) #@12 (fn DOM) (defalias 'eww-form-submit #[257 "`\302\211@:\203 \211@A@\262\202 \211A@\262\236A\211G\303U\203$ \304\202% \211\262\211c\210\305`\306#\210\307`\300\310\311\312\313\314\315\211@:\203N \211@A@\262\202S \211A@\262\236A\257$\210\307`\316 $\210\317c\207" [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 (#$ . 34479)]) #@12 (fn DOM) (defalias 'eww-form-checkbox #[257 "`\304\211@:\203 \211@A@\262\202 \211A@\262\236A\203\" c\210\202% c\210\305`\306#\210\307`\302\310\n\311\312 \211@:\203D \211@A@\262\202I \211A@\262\236A\313\314 \211@:\203^ \211@A@\262\202c \211A@\262\236A\227\315\304 \211@:\203y \211@A@\262\202~ \211A@\262\236A\316\317\211@:\203\223 \211@A@\262\202\230 \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 (#$ . 34935)]) #@12 (fn DOM) (defalias 'eww-form-file #[257 "`\302\211@:\203 \211@A@\262\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@:\203L \211@A@\262\202Q \211A@\262\236A\313\314\f\211@:\203f \211@A@\262\202k \211A@\262\236A\227\315\316\211@:\203\201 \211@A@\262\202\206 \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 (#$ . 35605)]) #@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 (#$ . 36193) nil]) #@12 (fn DOM) (defalias 'eww-form-text #[257 "`\302\211@:\203 \211@A@\262\202 \211A@\262\236A\206 \303\227\304\211@:\203/ \211@A@\262\2024 \211A@\262\236A\206: \305\306\307\211@:\203L \211@A@\262\202Q \211A@\262\236A\206W \310!\311\211@:\203i \211@A@\262\202n \211A@\262\236A\204\216 \312\211@:\203\204 \211@A@\262\202\211 \211A@\262\236A\203\222 \313\202\223 \314c\210GW\203\246 \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\341 \211@A@\262\202\346 \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 (#$ . 36501)]) #@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") (#$ . 37344)) #@31 (fn BEG END REPLACE-LENGTH) (defalias 'eww-process-text-input #[771 "TdW\205% SeV\205% \303T\304\"\203 T\202% \303S\304\"\205% S\211\205\367 \303\304\"\305!\306\211\307#\310\311\"\205\364 \211\n\235\205\364 \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\323\236A\324\236A#\210\325\326 \315 \"\327\330\"\203\324 \331\312\211\224#\262\332\333#\210\334\232\205\362 \326 \335\211G\\\336\320G\337\"$\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 " +\\'" substring plist-put :value "password" put-text-property display 42] 18 (#$ . 37655)]) #@12 (fn DOM) (defalias 'eww-tag-textarea #[257 "`\302\211@:\203 \211@A@\262\202 \211A@\262\236A\206 \303\304\305\211@:\203/ \211@A@\262\2024 \211A@\262\236A\206: \306!\304\307\211@:\203M \211@A@\262\202R \211A@\262\236A\206X \306!\310\311 \210c\210\311 \210\312`\"W\203\210 \312`\"Z\313\211W\203\206 \211\314c\266\211T\262\202t \266\315 \262b\210`W\203\310 \310\210`\316 ZZ\211\313V\203\252 \317\320\"c\210\210\321\316 `\322#\210\323\316 `\324\325$\210\323\316 `\326$\210\327y\210\202\217 \323`\301\330 \331\n\332\333\334\335\211@:\203\346 \211@A@\262\202\353 \211A@\262\236A\257$\207" [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 (#$ . 38696)]) #@12 (fn DOM) (defalias 'eww-tag-input #[257 "\301\211@:\203 \211@A@\262\202 \211A@\262\236A\206 \302\227`\303\232\204* \304\232\2031 \305!\210\202\266 \306\267\202\262 \307!\210\202\266 \310!\210\202\266 \311\211@:\203W \211@A@\262\202\\ \211A@\262\236A\203\202 @:\203{ @@\312=\203{ \313@A\314\"\232\204\202 A\262\202^ \204\255 \312\314\315\316\n\211@:\203\235 \211@A@\262\202\242 \211A@\262\236A\206\250 \317\257C\244\210\266\202\266 \320!\210\211`U?\205\315 \321\211T\322\323$\210\321\211T\324$\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" 55 "submit" 62 "hidden" 69)) eww-form-file eww-form-submit name hidden plist-get :name :value value "" eww-form-text put-text-property help-echo "Input field" shr-url] 13 (#$ . 39639)]) #@12 (fn DOM) (defalias 'eww-tag-select #[257 "\302 \210\303\304\211@:\203 \211@A@\262\202 \211A@\262\236A\305F\306`\307\310!\211\203\257 \211@\211\211@:\203: \211@@\262\202> \211@\262\311=\203\250 \312\211@:\203T \211@A@\262\202Y \211A@\262\236A\203{ \313\314\211@:\203q \211@A@\262\202v \211A@\262\236AD\244\210\315!G]\262\316\313\314\211@:\203\227 \211@A@\262\202\234 \211A@\262\236A\317\257B\262\210A\266\202\202% \210\205 \237\262\320\313\"\204\310 \313\321@8D\244\210\244\210\322!\211\323GZ\324\"\261\266\325`\300$\210\326`\327#\210\325`\330 $\210`U\204\376 \325\211T\331\332$\210\302 \207" [eww-form eww-select-map shr-ensure-paragraph :name name :eww-form nil 0 dom-non-text-children 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"] 13 (#$ . 40522)]) #@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 (#$ . 41473)]) #@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 (#$ . 41708) nil]) #@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 (#$ . 42229)]) #@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 (#$ . 42567) nil]) #@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 (#$ . 43172)]) (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\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\202Q \324\325\"\203P \326\307\211\224#\202Q \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 " +\\'" substring] 10 (#$ . 43728)]) #@26 Submit the current form. (defalias 'eww-submit #[0 "\304`\305\"\306\307\"\310\211\311\312!\313\"\211\203\305 \211@\211A@\306\314\"\211\203\274 \306\315\"\316\235\203@ \306\317\"\203\274 \211\306\320\"BB\262\202\274 \306\315\"\321\232\203\200 \306\322\"\211\203| \321\323\324\325!r\211q\210\326\327\330\331\332!\333\"\334$\216\335!\210\336 *\262B\337B\340BFB\262\210\202\274 \306\315\"\341\232\203\262 =\204\241 =\204\274 \204\274 `V\203\274 \342\262\211\306\320\"BB\262\202\274 \211\343!BB\262\266A\266\202\202 \210\211\203\363 \211@\211:\203\354 \211@\344=\203\354 \306A\314\"\306A\320\"\206\347 \345BB\262A\266\202\202\307 \210\346\236A;\203f\346\236A\227\347\232\203f\310\211\203 \211@\211@\321\232\203\350\262A\266\202\202\210\211\350\232\203K\351\310!\352\353\354PBC\355\"\356\357\360\236A\306 \361\"\"!+\262\202a\352\362\363!\356\357\360\236A\306 \361\"\"!+\262\202\205\356\360\236A\203{\357\360\236A\306 \361\"\"\202\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" :filename "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 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 "?"] 19 (#$ . 44279) nil]) #@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 (#$ . 46098) nil]) #@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 "\303!\210\304`\305\"\211\204 \306\307!\202u \310\311\"\203 \312!\202u :\2034 @\313X\2034 !\210\314 \202u \315!\316! >\204F \317\320\321D\"\210\211\322H\262\203q \323\324\n\325\"\"\203q \324\n\326\"\327 \210\330\n\325#\210\331\332\333p%\262\202u \334\"\207" [browse-url-secondary-browser-function 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 shr--blink-link url-generic-parse-url type-of signal wrong-type-argument url 7 eww-same-page-p plist-get :url :dom eww-save-history plist-put eww-display-html utf-8 nil eww-browse-url] 10 (#$ . 46426) (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!\302!>\204 \303\304\305D\"\210\211\306\307I\266\302!>\204+ \303\304\305D\"\210\211\211\306\307I\266\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 (#$ . 47383)]) #@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 (#$ . 47798) nil]) #@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 "\301\302\"\210\303`\304\"\206 \305 \211\204 \306\307!\202 \310\311C#\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] 5 (#$ . 48008) nil]) #@19 (fn STATUS URL) (defalias 'eww-download-callback #[514 "\302\303\"?\205/ \304!\305\306!@!\307\310\311!!\"eb\210\312\313!\210\314\315`d#\210)\316\317\"\266\203\207" [eww-download-directory 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"] 9 (#$ . 48411)]) #@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!>\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 (#$ . 48884)]) #@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\"\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 (#$ . 49300)]) #@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 (#$ . 49696) "zUse character set (default utf-8): "]) #@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\307\306:\2034 @\262rq\210\310\311!)\203) \262\306\211\262\202* \307\2034 A\262\202 \266\203\307\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 t derived-mode-p eww-mode #[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 (#$ . 49954) nil]) #@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 (#$ . 50572) nil]) #@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 (#$ . 50817) 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 (#$ . 51076) nil]) (defalias 'eww-write-bookmarks #[0 "\302\303\"\304\305!\306\307\310\311\312!\313\"\314$\216r\211q\210\315c\210\316 p\")rq\210\317\320\211\320\307%\210*\207" [eww-bookmarks-directory eww-bookmarks expand-file-name "eww-bookmarks" generate-new-buffer " *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!\3058\262\206 \306\306U?\2053 \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" file-attributes 7 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 (#$ . 52498) 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 (#$ . 53320) 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 (#$ . 53682) 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 (#$ . 54129) 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 (#$ . 54445) 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 (#$ . 54863) 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)) (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\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\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 (lambda (#1=#:def-tmp-var) (defvar eww-bookmark-mode-syntax-table #1#)) make-syntax-table "Syntax table for `eww-bookmark-mode'." (lambda (#1#) (defvar eww-bookmark-mode-abbrev-table #1#)) define-abbrev-table nil "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 \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 (#$ . 57187) nil]) (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\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 (#$ . 58491) 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 (#$ . 59250) nil]) (defvar eww-history-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 " " eww-history-browse "n" next-line "p" previous-line 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)) (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\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\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 (lambda (#1=#:def-tmp-var) (defvar eww-history-mode-syntax-table #1#)) make-syntax-table "Syntax table for `eww-history-mode'." (lambda (#1#) (defvar eww-history-mode-abbrev-table #1#)) define-abbrev-table nil "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 \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 (#$ . 61242) 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 (#$ . 62288) 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 (#$ . 63200) 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 (#$ . 63469)]) #@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 (#$ . 63780) 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 (#$ . 63952) 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 (#$ . 64158) 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)) (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\313 !\210\307\302N\204- \303\307\302\304\314!#\210\306\300!\204B \303\300\310\311#\210\315\316\300\317\"\210!\210\300\302N\204P \303\300\302\304\320!#\210\303\311\321\322#\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 (lambda (#1=#:def-tmp-var) (defvar eww-buffers-mode-syntax-table #1#)) make-syntax-table "Syntax table for `eww-buffers-mode'." (lambda (#1#) (defvar eww-buffers-mode-abbrev-table #1#)) define-abbrev-table nil "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 \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 (#$ . 66291) 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) (#$ . 67332)) #@14 (fn ALIST) (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 (#$ . 67504)]) #@12 (fn A B) (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 (#$ . 67677)]) #@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 (#$ . 67876)]) #@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\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 #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 (#$ . 68619)]) (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 (#$ . 69620)]) (provide 'eww)
Close
