blob: fceccc3fd86a44591b56682557401f9389cf1036 (
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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
|
;;; -*- lexical-binding: t; -*-
;;; Commentary:
;;; Code:
(require 'fill-column)
(require 'transient)
(defconst bd/bookmarks nil)
(defconst bd/browse-engine-list
'(("ddg" . ("https://www.duckduckgo.com/?q=" 3))
("web" . ("" 3))
("wkpa" . ("https://en.wikipedia.org/w/index.php?search=" 3))
("inv" . ("https://yewtu.be/search?q=" 0))
("ud" . ("https://www.urbandictionary.com/define.php?term=" 2))
("arch" . ("https://wiki.archlinux.org/index.php?title=Special%3ASearch&search=" 2))))
(defun bd/browse--engine-candidates ()
(mapcar #'car bd/browse-engine-list))
(defun bd/browse (url &optional pref &rest _)
"Given PREF, launches URL in one of librewolf, torbrowser,
icecat, or eww."
(interactive)
(pcase pref
(0 (eww url))
(1 (start-process "torbrowser" nil "torbrowser" "--new-window" url))
(2 (start-process "icecat" nil "icecat" "--new-window" url))
(_ (start-process "librewolf" nil "librewolf" "--new-window" url))))
(setopt browse-url-browser-function 'bd/browse)
(transient-define-argument bd/browse--engines ()
"Toggles which search engine to use."
:description "engine"
:key "C-n"
:class 'transient-option
:unsavable t
:allow-empty nil
:always-read t
:argument "candidate="
:init-value (lambda (obj) (oset obj value (car (bd/browse--engine-candidates))))
:choices (bd/browse--engine-candidates))
(transient-define-suffix bd/browse--search (i)
:description "search"
:key "s"
(interactive "sstring: ")
(let ((engine (cdr (assoc (transient-arg-value "candidate=" (transient-args 'bd/browse-dispatcher))
bd/browse-engine-list))))
(browse-url (concat (car engine) i) (cadr engine))))
(transient-define-suffix bd/browse--bookmark ()
:description "bookmarks"
:key "b"
(interactive)
(let ((choice (completing-read "goto: " (mapcar #'car bd/bookmarks))))
(apply #'bd/browse (cdr (assoc choice bd/bookmarks)))))
(transient-define-prefix bd/browse-dispatcher ()
["Dispatcher > Browse\n"
[(bd/browse--engines)
""
(bd/browse--search)
(bd/browse--bookmark)]])
(defun rip (url)
"Play URL (or search string) in mpv."
(interactive "sURL or search string: ")
(message "Ludu %s" url)
(start-process "rip" nil
"mpv" "--force-window=yes"
(concat (if (string-match "https://.*" url)
"ytdl://"
"ytdl://ytsearch:") url)))
(setopt browse-url-handlers
`((,(regexp-opt '("youtube.com" "youtu.be" "deezer.page")) .
(lambda (url &rest _) (rip url))))
url-privacy-level '(email os emacs lastloc cookies))
(use-package shr
:defer t
:config
(setopt shr-use-fonts t
shr-cookie-policy nil
shr-max-width 85))
(use-package elpher
:bind
(:map elpher-mode-map
("l" . #'elpher-back)
("d" . #'elpher-download)
("w" . #'elpher-copy-current-url)
("A" . #'elpher-copy-link-url)
("E" . #'elpher-bookmark-current)
("TAB" . #'elpher-next-link)
("g" . #'elpher-reload)
("G" . #'elpher-go))
:config
(defun bd/elpher (original url &optional new-window)
"Handle gemini links."
(cond ((string-match-p "\\`\\(gemini\\|gopher\\)://" url)
(elpher-go url))
(t (funcall original url new-window))))
(advice-add 'eww :around 'bd/elpher)
(setopt elpher-default-url-type "gemini"
elpher-connection-timeout 120
elpher-gemini-max-fill-width 85
elpher-use-emacs-bookmark-menu t))
(use-package eww
:hook
((eww-after-render . (lambda ()
(setq-local fill-column-desired-width 90)
(fill-column-mode))))
:config
(setopt 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)
;;; bd--browse.el ends here
|
