diff options
| author | Jim Porter | 2024-03-18 16:52:34 -0700 |
|---|---|---|
| committer | Jim Porter | 2024-03-23 10:17:06 -0700 |
| commit | 4b0f5cdb01fbd05c8184a89fa8543eb5600fb4f8 (patch) | |
| tree | 26a5e302417cf3dcd972a51994e77c1745d237dc /test | |
| parent | 72972118e6f5831f200108cd7b80bf86538c265e (diff) | |
| download | emacs-4b0f5cdb01fbd05c8184a89fa8543eb5600fb4f8.tar.gz emacs-4b0f5cdb01fbd05c8184a89fa8543eb5600fb4f8.zip | |
Add 'eww-readable-urls'
* lisp/net/eww.el (eww-readable-urls): New option.
(eww-default-readable-p): New function...
(eww-display-html): ... use it.
* test/lisp/net/eww-tests.el (eww-test/readable/default-readable): New
test.
* doc/misc/eww.texi (Basics): Document 'eww-readable-urls'.
* etc/NEWS: Announce this change (bug#68254).
Diffstat (limited to 'test')
| -rw-r--r-- | test/lisp/net/eww-tests.el | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/test/lisp/net/eww-tests.el b/test/lisp/net/eww-tests.el index a09e0a4f279..b83435e0bd9 100644 --- a/test/lisp/net/eww-tests.el +++ b/test/lisp/net/eww-tests.el | |||
| @@ -231,5 +231,17 @@ This sets `eww-before-browse-history-function' to | |||
| 231 | "This is an uninteresting sentence." | 231 | "This is an uninteresting sentence." |
| 232 | (buffer-substring-no-properties (point-min) (point-max))))))) | 232 | (buffer-substring-no-properties (point-min) (point-max))))))) |
| 233 | 233 | ||
| 234 | (ert-deftest eww-test/readable/default-readable () | ||
| 235 | "Test that EWW displays readable parts of pages by default when applicable." | ||
| 236 | (eww-test--with-mock-retrieve | ||
| 237 | (let* ((eww-test--response-function | ||
| 238 | (lambda (_url) | ||
| 239 | (concat "Content-Type: text/html\n\n" | ||
| 240 | "<html><body>Hello there</body></html>"))) | ||
| 241 | (eww-readable-urls '("://example\\.invalid/"))) | ||
| 242 | (eww "example.invalid") | ||
| 243 | ;; Make sure EWW uses "readable" mode. | ||
| 244 | (should (plist-get eww-data :readable))))) | ||
| 245 | |||
| 234 | (provide 'eww-tests) | 246 | (provide 'eww-tests) |
| 235 | ;; eww-tests.el ends here | 247 | ;; eww-tests.el ends here |