diff options
Diffstat (limited to '.config/emacs/modules/bd--browse.el')
| -rw-r--r-- | .config/emacs/modules/bd--browse.el | 34 |
1 files changed, 20 insertions, 14 deletions
diff --git a/.config/emacs/modules/bd--browse.el b/.config/emacs/modules/bd--browse.el index 83bf0a2..3dd15fe 100644 --- a/.config/emacs/modules/bd--browse.el +++ b/.config/emacs/modules/bd--browse.el @@ -53,23 +53,29 @@ icecat, or eww." (list (bd/selector-bookmarks) (bd/selector-search))))) - -;;;; eww -(setopt shr-use-fonts t - shr-cookie-policy nil - shr-max-width 85 - ;; send only user agent - url-privacy-level '(email os emacs lastloc cookies) - eww-search-prefix "https://duckduckgo.com/html/?q=" - eww-auto-rename-buffer 'title - eww-use-browse-url (regexp-opt '("mailto:" - "youtube.com" - "youtu.be")) - browse-url-handlers +(setopt browse-url-handlers `((,(regexp-opt '("youtube.com" "youtu.be")) . (lambda (url &rest _) (message "Ludu %s" url) - (start-process-shell-command "rip-video" nil (concat "rip-video " url)))))) + (start-process-shell-command "rip-video" nil (concat "rip-video " url))))) + url-privacy-level '(email os emacs lastloc cookies)) + +(use-package shr + :custom + (shr-use-fonts t) + (shr-cookie-policy nil) + (shr-max-width 85)) + +(use-package eww + :custom + (eww-search-prefix "https://duckduckgo.com/html/?q=") + (eww-auto-rename-buffer 'title) + (eww-use-browse-url (regexp-opt '("mailto:" + "youtube.com" + "youtu.be")))) + +(use-package apropos + :bind (("C-h a" . selector-apropos))) (provide 'bd--browse) |