.config/emacs/modules/bd--eww.el


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

;; -*- lexical-binding: t; -*-


;; do not use an external browser
(setopt browse-url-browser-function 'eww-browse-url
        shr-use-fonts nil
        shr-cookie-policy nil
        shr-max-width 85
        ;; send only user agent
        url-privacy-level '(email os emacs lastloc cookies)
        eww-search-prefix "https://searx.be/search?q="
        eww-auto-rename-buffer 'title
        eww-use-browse-url (regexp-opt '("mailto:"
                                         "youtube.com"
                                         "youtu.be"
                                         "yewtu.be"
                                         "vid.puffyan.us"))
        browse-url-handlers
        `((,(regexp-opt'("youtube.com" "youtu.be" "yewtu.be" "vid.puffyan.us")) .
           (lambda (url &rest _)
             (message "Ludu %s" url)
             (start-process-shell-command "rip-video" nil (concat "rip-video " url))))))


(provide 'bd--eww)