about summary refs log tree commit diff stats
diff options
context:
space:
mode:
-rw-r--r--init.el25
1 files changed, 20 insertions, 5 deletions
diff --git a/init.el b/init.el index de77912..801765b 100644 --- a/init.el +++ b/init.el
@@ -140,10 +140,23 @@ AKA, DO NOT USE THIS FUNCTION!!!"
140 "png") 140 "png")
141 eos)) 141 eos))
142 (lambda (&rest args) 142 (lambda (&rest args)
143 (apply (if (executable-find "feh") 143 (apply
144 #'browse-url-feh 144 (cond ((executable-find "feh") #'browse-url-feh)
145 #'eww-browse-url) 145 ((executable-find "mpv")
146 args))) 146 (defun browse-image-url-mpv (url &rest _args)
147 "View an image URL in mpv."
148 (let ((url (browse-url-encode-url url))
149 (process-environment
150 (browse-url-process-environment)))
151 (message "Viewing %s in mpv..." url)
152 (apply #'start-process
153 (concat "mpv " url) nil
154 "mpv"
155 (append browse-url-mpv-arguments
156 (list "--image-display-duration=inf"
157 url))))))
158 (t #'eww-browse-url))
159 args)))
147 (cons (rx (or "youtube.com" ; videos 160 (cons (rx (or "youtube.com" ; videos
148 "youtu.be" 161 "youtu.be"
149 (seq "." (or "mp4" 162 (seq "." (or "mp4"
@@ -219,7 +232,9 @@ AKA, DO NOT USE THIS FUNCTION!!!"
219 :channels ("#basement") 232 :channels ("#basement")
220 :sasl-username ,circe-default-nick 233 :sasl-username ,circe-default-nick
221 :sasl-password ,(acdw/make-password-fetcher 234 :sasl-password ,(acdw/make-password-fetcher
222 :host "m455.casa"))) 235 :host "m455.casa"))
236 ;; TODO: irc.chat.twitch.tv
237 )
223 circe-reduce-lurker-spam t 238 circe-reduce-lurker-spam t
224 circe-server-auto-join-default-type :after-auth) 239 circe-server-auto-join-default-type :after-auth)
225 240