1 ;;; eww.el --- Emacs Web Wowser
3 ;; Copyright (C) 2013 Free Software Foundation, Inc.
5 ;; Author: Lars Magne Ingebrigtsen <larsi@gnus.org>
8 ;; This file is part of GNU Emacs.
10 ;; GNU Emacs is free software: you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by
12 ;; the Free Software Foundation, either version 3 of the License, or
13 ;; (at your option) any later version.
15 ;; GNU Emacs is distributed in the hope that it will be useful,
16 ;; but WITHOUT ANY WARRANTY; without even the implied warranty of
17 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 ;; GNU General Public License for more details.
20 ;; You should have received a copy of the GNU General Public License
21 ;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
27 (eval-when-compile (require 'cl))
28 (require 'format-spec)
39 (defcustom eww-header-line-format "%t: %u"
41 - %t is replaced by the title.
42 - %u is replaced by the URL."
47 (defcustom eww-search-prefix "https://duckduckgo.com/html/?q="
48 "Prefix URL to search engine"
53 (defcustom eww-download-path "~/Downloads/"
54 "Path where files will downloaded."
59 (defface eww-form-submit
60 '((((type x w32 ns) (class color)) ; Like default mode line
61 :box (:line-width 2 :style released-button)
62 :background "#808080" :foreground "black"))
63 "Face for eww buffer buttons."
67 (defface eww-form-checkbox
68 '((((type x w32 ns) (class color)) ; Like default mode line
69 :box (:line-width 2 :style released-button)
70 :background "lightgrey" :foreground "black"))
71 "Face for eww buffer buttons."
75 (defface eww-form-select
76 '((((type x w32 ns) (class color)) ; Like default mode line
77 :box (:line-width 2 :style released-button)
78 :background "lightgrey" :foreground "black"))
79 "Face for eww buffer buttons."
83 (defface eww-form-text
84 '((t (:background "#505050"
86 :box (:line-width 1))))
87 "Face for eww text inputs."
91 (defvar eww-current-url nil)
92 (defvar eww-current-title ""
93 "Title of current page.")
94 (defvar eww-history nil)
95 (defvar eww-history-position 0)
97 (defvar eww-next-url nil)
98 (defvar eww-previous-url nil)
99 (defvar eww-up-url nil)
100 (defvar eww-home-url nil)
101 (defvar eww-start-url nil)
102 (defvar eww-contents-url nil)
106 "Fetch URL and render the page.
107 If the input doesn't look like an URL or a domain name, the
108 word(s) will be searched for via `eww-search-prefix'."
109 (interactive "sEnter URL or keywords: ")
110 (if (and (= (length (split-string url)) 1)
111 (> (length (split-string url "\\.")) 1))
113 (unless (string-match-p "\\`[a-zA-Z][-a-zA-Z0-9+.]*://" url)
114 (setq url (concat "http://" url)))
115 ;; some site don't redirect final /
116 (when (string= (url-filename (url-generic-parse-url url)) "")
117 (setq url (concat url "/"))))
118 (unless (string-match-p "\\'file:" url)
119 (setq url (concat eww-search-prefix
120 (replace-regexp-in-string " " "+" url)))))
121 (url-retrieve url 'eww-render (list url)))
124 (defun eww-open-file (file)
125 "Render a file using EWW."
126 (interactive "fFile: ")
127 (eww (concat "file://" (expand-file-name file))))
129 (defun eww-render (status url &optional point)
130 (let ((redirect (plist-get status :redirect)))
132 (setq url redirect)))
133 (set (make-local-variable 'eww-next-url) nil)
134 (set (make-local-variable 'eww-previous-url) nil)
135 (set (make-local-variable 'eww-up-url) nil)
136 (set (make-local-variable 'eww-home-url) nil)
137 (set (make-local-variable 'eww-start-url) nil)
138 (set (make-local-variable 'eww-contents-url) nil)
139 (let* ((headers (eww-parse-headers))
141 (and (string-match "#\\(.*\\)" url)
142 (match-string 1 url)))
144 (mail-header-parse-content-type
145 (or (cdr (assoc "content-type" headers))
149 (or (cdr (assq 'charset (cdr content-type)))
150 (eww-detect-charset (equal (car content-type)
153 (data-buffer (current-buffer)))
157 ((equal (car content-type) "text/html")
158 (eww-display-html charset url))
159 ((string-match "^image/" (car content-type))
163 (setq eww-history-position 0)
168 (let ((point (next-single-property-change
169 (point-min) 'shr-target-id)))
171 (goto-char (1+ point)))))))
172 (kill-buffer data-buffer))))
174 (defun eww-parse-headers ()
176 (goto-char (point-min))
177 (while (and (not (eobp))
179 (when (looking-at "\\([^:]+\\): *\\(.*\\)")
180 (push (cons (downcase (match-string 1))
188 (defun eww-detect-charset (html-p)
189 (let ((case-fold-search t)
193 "<meta[\t\n\r ]+[^>]*charset=\"?\\([^\t\n\r \"/>]+\\)[\\\"'.*]" nil t)
197 "[\t\n\r ]*<\\?xml[\t\n\r ]+[^>]*encoding=\"\\([^\"]+\\)")
200 (defun eww-display-html (charset url)
201 (unless (eq charset 'utf8)
203 (decode-coding-region (point) (point-max) charset)
204 (coding-system-error nil)))
207 'base (list (cons 'href url))
208 (libxml-parse-html-region (point) (point-max)))))
210 (setq eww-current-url url)
211 (eww-update-header-line-format)
212 (let ((inhibit-read-only t)
213 (after-change-functions nil)
215 (shr-external-rendering-functions
216 '((title . eww-tag-title)
217 (form . eww-tag-form)
218 (input . eww-tag-input)
219 (textarea . eww-tag-textarea)
220 (body . eww-tag-body)
221 (select . eww-tag-select)
222 (link . eww-tag-link)
224 (shr-insert-document document))
225 (goto-char (point-min))))
227 (defun eww-handle-link (cont)
228 (let* ((rel (assq :rel cont))
229 (href (assq :href cont))
231 ;; The text associated with :rel is case-insensitive.
232 (if rel (downcase (cdr rel)))
233 '(("next" . eww-next-url)
234 ;; Texinfo uses "previous", but HTML specifies
235 ;; "prev", so recognize both.
236 ("previous" . eww-previous-url)
237 ("prev" . eww-previous-url)
238 ;; HTML specifies "start" but also "contents",
239 ;; and Gtk seems to use "home". Recognize
240 ;; them all; but store them in different
241 ;; variables so that we can readily choose the
243 ("start" . eww-start-url)
244 ("home" . eww-home-url)
245 ("contents" . eww-contents-url)
246 ("up" . eww-up-url)))))
249 (set (cdr where) (cdr href)))))
251 (defun eww-tag-link (cont)
252 (eww-handle-link cont)
255 (defun eww-tag-a (cont)
256 (eww-handle-link cont)
259 (defun eww-update-header-line-format ()
260 (if eww-header-line-format
261 (setq header-line-format
262 (replace-regexp-in-string
264 (format-spec eww-header-line-format
265 `((?u . ,eww-current-url)
266 (?t . ,eww-current-title)))))
267 (setq header-line-format nil)))
269 (defun eww-tag-title (cont)
270 (setq eww-current-title "")
272 (when (eq (car sub) 'text)
273 (setq eww-current-title (concat eww-current-title (cdr sub)))))
274 (eww-update-header-line-format))
276 (defun eww-tag-body (cont)
277 (let* ((start (point))
278 (fgcolor (cdr (or (assq :fgcolor cont)
280 (bgcolor (cdr (assq :bgcolor cont)))
281 (shr-stylesheet (list (cons 'color fgcolor)
282 (cons 'background-color bgcolor))))
284 (eww-colorize-region start (point) fgcolor bgcolor)))
286 (defun eww-colorize-region (start end fg &optional bg)
288 (let ((new-colors (shr-color-check fg bg)))
291 (add-face-text-property start end
292 (list :foreground (cadr new-colors))
295 (add-face-text-property start end
296 (list :background (car new-colors))
299 (defun eww-display-raw ()
300 (let ((data (buffer-substring (point) (point-max))))
302 (let ((inhibit-read-only t))
304 (goto-char (point-min))))
306 (defun eww-display-image ()
307 (let ((data (shr-parse-image-data)))
309 (let ((inhibit-read-only t))
310 (shr-put-image data nil))
311 (goto-char (point-min))))
313 (defun eww-setup-buffer ()
314 (switch-to-buffer (get-buffer-create "*eww*"))
315 (let ((inhibit-read-only t))
318 (unless (eq major-mode 'eww-mode)
322 (let ((map (make-sparse-keymap)))
323 (suppress-keymap map)
324 (define-key map "q" 'eww-quit)
325 (define-key map "g" 'eww-reload)
326 (define-key map [tab] 'shr-next-link)
327 (define-key map [backtab] 'shr-previous-link)
328 (define-key map [delete] 'scroll-down-command)
329 (define-key map "\177" 'scroll-down-command)
330 (define-key map " " 'scroll-up-command)
331 (define-key map "l" 'eww-back-url)
332 (define-key map "f" 'eww-forward-url)
333 (define-key map "n" 'eww-next-url)
334 (define-key map "p" 'eww-previous-url)
335 (define-key map "u" 'eww-up-url)
336 (define-key map "t" 'eww-top-url)
337 (define-key map "&" 'eww-browse-with-external-browser)
338 (define-key map "d" 'eww-download)
339 (define-key map "w" 'eww-copy-page-url)
340 (define-key map "C" 'url-cookie-list)
342 (define-key map "b" 'eww-add-bookmark)
343 (define-key map "B" 'eww-list-bookmarks)
344 (define-key map [(meta n)] 'eww-next-bookmark)
345 (define-key map [(meta p)] 'eww-previous-bookmark)
347 (easy-menu-define nil map ""
350 ["Reload" eww-reload t]
351 ["Back to previous page" eww-back-url
352 :active (not (zerop (length eww-history)))]
353 ["Forward to next page" eww-forward-url
354 :active (not (zerop eww-history-position))]
355 ["Browse with external browser" eww-browse-with-external-browser t]
356 ["Download" eww-download t]
357 ["Copy page URL" eww-copy-page-url t]
358 ["Add bookmark" eww-add-bookmark t]
359 ["List bookmarks" eww-copy-page-url t]
360 ["List cookies" url-cookie-list t]))
363 (define-derived-mode eww-mode nil "eww"
364 "Mode for browsing the web.
367 (set (make-local-variable 'eww-current-url) 'author)
368 (set (make-local-variable 'browse-url-browser-function) 'eww-browse-url)
369 (set (make-local-variable 'after-change-functions) 'eww-process-text-input)
370 (set (make-local-variable 'eww-history) nil)
371 (set (make-local-variable 'eww-history-position) 0)
372 (buffer-disable-undo)
373 ;;(setq buffer-read-only t)
376 (defun eww-save-history ()
377 (push (list :url eww-current-url
378 :title eww-current-title
380 :text (buffer-string))
384 (defun eww-browse-url (url &optional new-window)
385 (when (and (equal major-mode 'eww-mode)
391 "Exit the Emacs Web Wowser."
393 (setq eww-history nil)
394 (kill-buffer (current-buffer)))
396 (defun eww-back-url ()
397 "Go to the previously displayed page."
399 (when (>= eww-history-position (length eww-history))
400 (error "No previous page"))
402 (setq eww-history-position (+ eww-history-position 2))
403 (eww-restore-history (elt eww-history (1- eww-history-position))))
405 (defun eww-forward-url ()
406 "Go to the next displayed page."
408 (when (zerop eww-history-position)
409 (error "No next page"))
411 (eww-restore-history (elt eww-history (1- eww-history-position))))
413 (defun eww-restore-history (elem)
414 (let ((inhibit-read-only t))
416 (insert (plist-get elem :text))
417 (goto-char (plist-get elem :point))
418 (setq eww-current-url (plist-get elem :url)
419 eww-current-title (plist-get elem :title))))
421 (defun eww-next-url ()
422 "Go to the page marked `next'.
423 A page is marked `next' if rel=\"next\" appears in a <link>
427 (eww-browse-url (shr-expand-url eww-next-url eww-current-url))
428 (error "No `next' on this page")))
430 (defun eww-previous-url ()
431 "Go to the page marked `previous'.
432 A page is marked `previous' if rel=\"previous\" appears in a <link>
436 (eww-browse-url (shr-expand-url eww-previous-url eww-current-url))
437 (error "No `previous' on this page")))
440 "Go to the page marked `up'.
441 A page is marked `up' if rel=\"up\" appears in a <link>
445 (eww-browse-url (shr-expand-url eww-up-url eww-current-url))
446 (error "No `up' on this page")))
448 (defun eww-top-url ()
449 "Go to the page marked `top'.
450 A page is marked `top' if rel=\"start\", rel=\"home\", or rel=\"contents\"
451 appears in a <link> or <a> tag."
453 (let ((best-url (or eww-start-url
457 (eww-browse-url (shr-expand-url best-url eww-current-url))
458 (error "No `top' for this page"))))
461 "Reload the current page."
463 (url-retrieve eww-current-url 'eww-render
464 (list eww-current-url (point))))
468 (defvar eww-form nil)
470 (defvar eww-submit-map
471 (let ((map (make-sparse-keymap)))
472 (define-key map "\r" 'eww-submit)
473 (define-key map [(control c) (control c)] 'eww-submit)
476 (defvar eww-checkbox-map
477 (let ((map (make-sparse-keymap)))
478 (define-key map [space] 'eww-toggle-checkbox)
479 (define-key map "\r" 'eww-toggle-checkbox)
480 (define-key map [(control c) (control c)] 'eww-submit)
484 (let ((map (make-keymap)))
485 (set-keymap-parent map text-mode-map)
486 (define-key map "\r" 'eww-submit)
487 (define-key map [(control a)] 'eww-beginning-of-text)
488 (define-key map [(control c) (control c)] 'eww-submit)
489 (define-key map [(control e)] 'eww-end-of-text)
490 (define-key map [tab] 'shr-next-link)
491 (define-key map [backtab] 'shr-previous-link)
494 (defvar eww-textarea-map
495 (let ((map (make-keymap)))
496 (set-keymap-parent map text-mode-map)
497 (define-key map "\r" 'forward-line)
498 (define-key map [(control c) (control c)] 'eww-submit)
499 (define-key map [tab] 'shr-next-link)
500 (define-key map [backtab] 'shr-previous-link)
503 (defvar eww-select-map
504 (let ((map (make-sparse-keymap)))
505 (define-key map "\r" 'eww-change-select)
506 (define-key map [(control c) (control c)] 'eww-submit)
509 (defun eww-beginning-of-text ()
510 "Move to the start of the input field."
512 (goto-char (eww-beginning-of-field)))
514 (defun eww-end-of-text ()
515 "Move to the end of the text in the input field."
517 (goto-char (eww-end-of-field))
518 (let ((start (eww-beginning-of-field)))
519 (while (and (equal (following-char) ? )
522 (when (> (point) start)
525 (defun eww-beginning-of-field ()
529 ((not (eq (get-text-property (point) 'eww-form)
530 (get-text-property (1- (point)) 'eww-form)))
533 (previous-single-property-change
534 (point) 'eww-form nil (point-min)))))
536 (defun eww-end-of-field ()
537 (1- (next-single-property-change
538 (point) 'eww-form nil (point-max))))
540 (defun eww-tag-form (cont)
542 (list (assq :method cont)
543 (assq :action cont)))
545 (shr-ensure-paragraph)
550 (when (> (point) start)
551 (put-text-property start (1+ start)
552 'eww-form eww-form))))
554 (defun eww-form-submit (cont)
555 (let ((start (point))
556 (value (cdr (assq :value cont))))
558 (if (zerop (length value))
562 (add-face-text-property start (point) 'eww-form-submit)
563 (put-text-property start (point) 'eww-form
564 (list :eww-form eww-form
567 :name (cdr (assq :name cont))))
568 (put-text-property start (point) 'keymap eww-submit-map)
571 (defun eww-form-checkbox (cont)
572 (let ((start (point)))
573 (if (cdr (assq :checked cont))
576 (add-face-text-property start (point) 'eww-form-checkbox)
577 (put-text-property start (point) 'eww-form
578 (list :eww-form eww-form
579 :value (cdr (assq :value cont))
580 :type (downcase (cdr (assq :type cont)))
581 :checked (cdr (assq :checked cont))
582 :name (cdr (assq :name cont))))
583 (put-text-property start (point) 'keymap eww-checkbox-map)
586 (defun eww-form-text (cont)
587 (let ((start (point))
588 (type (downcase (or (cdr (assq :type cont))
590 (value (or (cdr (assq :value cont)) ""))
591 (width (string-to-number
592 (or (cdr (assq :size cont))
595 (when (< (length value) width)
596 (insert (make-string (- width (length value)) ? )))
597 (put-text-property start (point) 'face 'eww-form-text)
598 (put-text-property start (point) 'local-map eww-text-map)
599 (put-text-property start (point) 'inhibit-read-only t)
600 (put-text-property start (point) 'eww-form
601 (list :eww-form eww-form
604 :name (cdr (assq :name cont))))
607 (defun eww-process-text-input (beg end length)
608 (let* ((form (get-text-property (min (1+ end) (point-max)) 'eww-form))
609 (properties (text-properties-at end))
610 (type (plist-get form :type)))
612 (member type '("text" "password" "textarea")))
615 ;; Delete some space at the end.
618 (if (equal type "textarea")
619 (1- (line-end-position))
621 (let ((new (- end beg)))
622 (while (and (> new 0)
623 (eql (following-char) ? ))
624 (delete-region (point) (1+ (point)))
625 (setq new (1- new))))
626 (set-text-properties beg end properties)))
631 (if (equal type "textarea")
632 (1- (line-end-position))
634 (let ((start (point)))
635 (insert (make-string length ? ))
636 (set-text-properties start (point) properties)))))
637 (let ((value (buffer-substring-no-properties
638 (eww-beginning-of-field)
639 (eww-end-of-field))))
640 (when (string-match " +\\'" value)
641 (setq value (substring value 0 (match-beginning 0))))
642 (plist-put form :value value)
643 (when (equal type "password")
644 ;; Display passwords as asterisks.
645 (let ((start (eww-beginning-of-field)))
646 (put-text-property start (+ start (length value))
647 'display (make-string (length value) ?*))))))))
649 (defun eww-tag-textarea (cont)
650 (let ((start (point))
651 (value (or (cdr (assq :value cont)) ""))
652 (lines (string-to-number
653 (or (cdr (assq :rows cont))
655 (width (string-to-number
656 (or (cdr (assq :cols cont))
662 (when (< (count-lines start (point)) lines)
663 (dotimes (i (- lines (count-lines start (point))))
665 (setq end (point-marker))
667 (while (< (point) end)
669 (let ((pad (- width (- (point) (line-beginning-position)))))
671 (insert (make-string pad ? ))))
672 (add-face-text-property (line-beginning-position)
673 (point) 'eww-form-text)
674 (put-text-property (line-beginning-position) (point)
675 'local-map eww-textarea-map)
677 (put-text-property start (point) 'eww-form
678 (list :eww-form eww-form
681 :name (cdr (assq :name cont))))))
683 (defun eww-tag-input (cont)
684 (let ((type (downcase (or (cdr (assq :type cont))
688 ((or (equal type "checkbox")
689 (equal type "radio"))
690 (eww-form-checkbox cont))
691 ((equal type "submit")
692 (eww-form-submit cont))
693 ((equal type "hidden")
694 (let ((form eww-form)
695 (name (cdr (assq :name cont))))
696 ;; Don't add <input type=hidden> elements repeatedly.
698 (or (not (consp (car form)))
699 (not (eq (caar form) 'hidden))
700 (not (equal (plist-get (cdr (car form)) :name)
702 (setq form (cdr form)))
704 (nconc eww-form (list
707 :value (cdr (assq :value cont))))))))
709 (eww-form-text cont)))
710 (unless (= start (point))
711 (put-text-property start (1+ start) 'help-echo "Input field"))))
713 (defun eww-tag-select (cont)
714 (shr-ensure-paragraph)
715 (let ((menu (list :name (cdr (assq :name cont))
721 (when (eq (car elem) 'option)
722 (when (cdr (assq :selected (cdr elem)))
723 (nconc menu (list :value
724 (cdr (assq :value (cdr elem))))))
725 (let ((display (or (cdr (assq 'text (cdr elem))) "")))
726 (setq max (max max (length display)))
728 :value (cdr (assq :value (cdr elem)))
732 (setq options (nreverse options))
733 ;; If we have no selected values, default to the first value.
734 (unless (plist-get menu :value)
735 (nconc menu (list :value (nth 2 (car options)))))
737 (let ((selected (eww-select-display menu)))
739 (make-string (- max (length selected)) ? )))
740 (put-text-property start (point) 'eww-form menu)
741 (add-face-text-property start (point) 'eww-form-select)
742 (put-text-property start (point) 'keymap eww-select-map)
743 (shr-ensure-paragraph))))
745 (defun eww-select-display (select)
746 (let ((value (plist-get select :value))
748 (dolist (elem select)
749 (when (and (consp elem)
750 (eq (car elem) 'item)
751 (equal value (plist-get (cdr elem) :value)))
752 (setq display (plist-get (cdr elem) :display))))
755 (defun eww-change-select ()
756 "Change the value of the select drop-down menu under point."
758 (let* ((input (get-text-property (point) 'eww-form))
759 (completion-ignore-case t)
762 (mapcar (lambda (elem)
764 (eq (car elem) 'item)
765 (cons (plist-get (cdr elem) :display)
766 (plist-get (cdr elem) :value))))
769 (completing-read "Change value: " options nil 'require-match))
770 (inhibit-read-only t))
771 (plist-put input :value (cdr (assoc-string display options t)))
773 (eww-update-field display))))
775 (defun eww-update-field (string)
776 (let ((properties (text-properties-at (point)))
777 (start (eww-beginning-of-field))
778 (end (1+ (eww-end-of-field))))
779 (delete-region start end)
781 (make-string (- (- end start) (length string)) ? ))
782 (set-text-properties start end properties)
785 (defun eww-toggle-checkbox ()
786 "Toggle the value of the checkbox under point."
788 (let* ((input (get-text-property (point) 'eww-form))
789 (type (plist-get input :type)))
790 (if (equal type "checkbox")
793 (if (plist-get input :checked)
795 (plist-put input :checked nil)
796 (eww-update-field "[ ]"))
797 (plist-put input :checked t)
798 (eww-update-field "[X]"))))
799 ;; Radio button. Switch all other buttons off.
800 (let ((name (plist-get input :name)))
802 (dolist (elem (eww-inputs (plist-get input :eww-form)))
803 (when (equal (plist-get (cdr elem) :name) name)
804 (goto-char (car elem))
805 (if (not (eq (cdr elem) input))
807 (plist-put input :checked nil)
808 (eww-update-field "[ ]"))
809 (plist-put input :checked t)
810 (eww-update-field "[X]")))))
813 (defun eww-inputs (form)
814 (let ((start (point-min))
817 (< start (point-max)))
818 (when (or (get-text-property start 'eww-form)
819 (setq start (next-single-property-change start 'eww-form)))
820 (when (eq (plist-get (get-text-property start 'eww-form) :eww-form)
822 (push (cons start (get-text-property start 'eww-form))
824 (setq start (next-single-property-change start 'eww-form))))
827 (defun eww-input-value (input)
828 (let ((type (plist-get input :type))
829 (value (plist-get input :value)))
831 ((equal type "textarea")
834 (goto-char (point-min))
835 (while (re-search-forward "^ +\n\\| +$" nil t)
836 (replace-match "" t t))
839 (if (string-match " +\\'" value)
840 (substring value 0 (match-beginning 0))
844 "Submit the current form."
846 (let* ((this-input (get-text-property (point) 'eww-form))
847 (form (plist-get this-input :eww-form))
849 (dolist (elem (sort (eww-inputs form)
851 (< (car o1) (car o2)))))
852 (let* ((input (cdr elem))
853 (input-start (car elem))
854 (name (plist-get input :name)))
857 ((member (plist-get input :type) '("checkbox" "radio"))
858 (when (plist-get input :checked)
859 (push (cons name (plist-get input :value))
861 ((equal (plist-get input :type) "submit")
862 ;; We want the values from buttons if we hit a button if
863 ;; we hit enter on it, or if it's the first button after
864 ;; the field we did hit return on.
865 (when (or (eq input this-input)
866 (and (not (eq input this-input))
868 (> input-start (point))))
870 (push (cons name (plist-get input :value))
873 (push (cons name (eww-input-value input))
876 (when (and (consp elem)
877 (eq (car elem) 'hidden))
878 (push (cons (plist-get (cdr elem) :name)
879 (plist-get (cdr elem) :value))
881 (if (and (stringp (cdr (assq :method form)))
882 (equal (downcase (cdr (assq :method form))) "post"))
883 (let ((url-request-method "POST")
884 (url-request-extra-headers
885 '(("Content-Type" . "application/x-www-form-urlencoded")))
886 (url-request-data (mm-url-encode-www-form-urlencoded values)))
887 (eww-browse-url (shr-expand-url (cdr (assq :action form))
891 (if (cdr (assq :action form))
892 (shr-expand-url (cdr (assq :action form))
896 (mm-url-encode-www-form-urlencoded values))))))
898 (defun eww-browse-with-external-browser ()
899 "Browse the current URL with an external browser.
900 The browser to used is specified by the `shr-external-browser' variable."
902 (funcall shr-external-browser eww-current-url))
904 (defun eww-copy-page-url ()
906 (message "%s" eww-current-url)
907 (kill-new eww-current-url))
909 (defun eww-download ()
910 "Download URL under point to `eww-download-directory'."
912 (let ((url (get-text-property (point) 'shr-url)))
914 (message "No URL under point")
915 (url-retrieve url 'eww-download-callback (list url)))))
917 (defun eww-download-callback (status url)
918 (unless (plist-get status :error)
919 (let* ((obj (url-generic-parse-url url))
920 (path (car (url-path-and-query obj)))
921 (file (eww-make-unique-file-name (file-name-nondirectory path)
924 (message "Saved %s" file))))
926 (defun eww-make-unique-file-name (file directory)
928 ((zerop (length file))
930 ((string-match "\\`[.]" file)
931 (setq file (concat "!" file))))
933 (while (file-exists-p (expand-file-name file directory))
935 (if (string-match "\\`\\(.*\\)\\([.][^.]+\\)" file)
936 (format "%s(%d)%s" (match-string 1 file)
937 count (match-string 2 file))
938 (format "%s(%d)" file count)))
939 (setq count (1+ count)))
940 (expand-file-name file directory)))
944 (defvar eww-bookmarks nil)
946 (defun eww-add-bookmark ()
947 "Add the current page to the bookmarks."
950 (dolist (bookmark eww-bookmarks)
951 (when (equal eww-current-url
952 (plist-get bookmark :url))
953 (error "Already bookmarked")))
954 (let ((title (replace-regexp-in-string "[\n\t\r]" " " eww-current-title)))
955 (setq title (replace-regexp-in-string "\\` +\\| +\\'" "" title))
956 (push (list :url eww-current-url
958 :time (current-time-string))
960 (eww-write-bookmarks)
961 (message "Bookmarked %s (%s)" eww-current-url eww-current-title))
963 (defun eww-write-bookmarks ()
964 (with-temp-file (expand-file-name "eww-bookmarks" user-emacs-directory)
965 (insert ";; Auto-generated file; don't edit\n")
966 (pp eww-bookmarks (current-buffer))))
968 (defun eww-read-bookmarks ()
969 (let ((file (expand-file-name "eww-bookmarks" user-emacs-directory)))
971 (unless (zerop (or (nth 7 (file-attributes file)) 0))
973 (insert-file-contents file)
974 (read (current-buffer)))))))
976 (defun eww-list-bookmarks ()
977 "Display the bookmarks."
979 (eww-bookmark-prepare)
980 (pop-to-buffer "*eww bookmarks*"))
982 (defun eww-bookmark-prepare ()
984 (when (null eww-bookmarks)
985 (error "No bookmarks are defined"))
986 (set-buffer (get-buffer-create "*eww bookmarks*"))
988 (let ((format "%-40s %s")
989 (inhibit-read-only t)
992 (setq header-line-format (concat " " (format format "URL" "Title")))
993 (dolist (bookmark eww-bookmarks)
995 (setq url (plist-get bookmark :url))
996 (when (> (length url) 40)
997 (setq url (substring url 0 40)))
998 (insert (format format url
999 (plist-get bookmark :title))
1001 (put-text-property start (1+ start) 'eww-bookmark bookmark))
1002 (goto-char (point-min))))
1004 (defvar eww-bookmark-kill-ring nil)
1006 (defun eww-bookmark-kill ()
1007 "Kill the current bookmark."
1009 (let* ((start (line-beginning-position))
1010 (bookmark (get-text-property start 'eww-bookmark))
1011 (inhibit-read-only t))
1013 (error "No bookmark on the current line"))
1015 (push (buffer-substring start (point)) eww-bookmark-kill-ring)
1016 (delete-region start (point))
1017 (setq eww-bookmarks (delq bookmark eww-bookmarks))
1018 (eww-write-bookmarks)))
1020 (defun eww-bookmark-yank ()
1021 "Yank a previously killed bookmark to the current line."
1023 (unless eww-bookmark-kill-ring
1024 (error "No previously killed bookmark"))
1026 (let ((inhibit-read-only t)
1029 (insert (pop eww-bookmark-kill-ring))
1030 (setq bookmark (get-text-property start 'eww-bookmark))
1031 (if (= start (point-min))
1032 (push bookmark eww-bookmarks)
1033 (let ((line (count-lines start (point))))
1034 (setcdr (nthcdr (1- line) eww-bookmarks)
1035 (cons bookmark (nthcdr line eww-bookmarks)))))
1036 (eww-write-bookmarks)))
1038 (defun eww-bookmark-quit ()
1039 "Kill the current buffer."
1041 (kill-buffer (current-buffer)))
1043 (defun eww-bookmark-browse ()
1044 "Browse the bookmark under point in eww."
1046 (let ((bookmark (get-text-property (line-beginning-position) 'eww-bookmark)))
1048 (error "No bookmark on the current line"))
1049 ;; We wish to leave this window, but if it's the only window here,
1050 ;; just let it remain.
1053 (eww (plist-get bookmark :url))))
1055 (defun eww-next-bookmark ()
1056 "Go to the next bookmark in the list."
1060 (unless (get-buffer "*eww bookmarks*")
1062 (eww-bookmark-prepare))
1063 (with-current-buffer (get-buffer "*eww bookmarks*")
1064 (when (and (not first)
1067 (setq bookmark (get-text-property (line-beginning-position)
1070 (error "No next bookmark")))
1071 (eww-browse-url (plist-get bookmark :url))))
1073 (defun eww-previous-bookmark ()
1074 "Go to the previous bookmark in the list."
1078 (unless (get-buffer "*eww bookmarks*")
1080 (eww-bookmark-prepare))
1081 (with-current-buffer (get-buffer "*eww bookmarks*")
1083 (goto-char (point-max))
1084 (beginning-of-line))
1085 ;; On the final line.
1089 (error "No previous bookmark")
1091 (setq bookmark (get-text-property (line-beginning-position)
1093 (eww-browse-url (plist-get bookmark :url))))
1095 (defvar eww-bookmark-mode-map
1096 (let ((map (make-sparse-keymap)))
1097 (suppress-keymap map)
1098 (define-key map "q" 'eww-bookmark-quit)
1099 (define-key map [(control k)] 'eww-bookmark-kill)
1100 (define-key map [(control y)] 'eww-bookmark-yank)
1101 (define-key map "\r" 'eww-bookmark-browse)
1104 (define-derived-mode eww-bookmark-mode nil "eww bookmarks"
1105 "Mode for listing bookmarks.
1107 \\{eww-bookmark-mode-map}"
1108 (buffer-disable-undo)
1109 (setq buffer-read-only t
1114 ;;; eww.el ends here