blob: f418ad57e9e0ed1c6de1cdb50f7e7f1514f335ba (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
|
;;; eww-config --- EWW Text Browser Settings -*- lexical-binding: t; -*-
;; author Craig Jennings <c@cjennings.net>
;;; Commentary:
;;; Code:
;; -------------------------------- Eww Copy Url -------------------------------
(defun cj/eww-copy-url ()
"Copies the eww url to clipboard"
(interactive)
(when (string= major-mode "eww-mode")
(let ((current-url (plist-get eww-data :url)))
(when current-url
(kill-new current-url)))))
;; (defun cj/eww-copy-url ()
;; "Copies the eww url to clipboard"
;; (interactive)
;; (when (string= major-mode "eww-mode") ; Ensure we're in eww-mode
;; (kill-new eww-current-url))) ; Copy to clipboard
;; ------------------------------------ EWW ------------------------------------
(use-package eww
:ensure nil ;; built-in
:bind
("M-E" . eww)
(:map eww-mode-map
("<" . eww-back-url) ;; in addition to 'l'
(">" . eww-forward-url) ;; in addition to 'n'
("i" . eww-toggle-images)
("u" . cj/eww-copy-url)
("o" . eww-open-in-new-buffer))
:config
(setq shr-use-colors nil) ;; respect colors in the html
(setq shr-bullet "• ") ;; unordered lists use bullet glyph
(setq shr-folding-mode t)
(setq eww-search-prefix "http://frogfind.com/?q=") ;; use Frog Find as search engine
;; (setq eww-search-prefix "https://duckduckgo.com/html?q=") ;; use Duck Duck Go as search engine
(setq url-cookie-file "~/.local/share/cookies.txt")
(setq url-privacy-level '(email agent lastloc))) ;; don't send any info listed here
(provide 'eww-config)
;;; eww-config.el ends here
|
