summary refs log tree commit diff stats
path: root/lisp
diff options
context:
space:
mode:
Diffstat (limited to 'lisp')
-rw-r--r--lisp/acdw-browse-url.el9
1 files changed, 8 insertions, 1 deletions
diff --git a/lisp/acdw-browse-url.el b/lisp/acdw-browse-url.el index 93f470c..9f8e484 100644 --- a/lisp/acdw-browse-url.el +++ b/lisp/acdw-browse-url.el
@@ -6,7 +6,7 @@
6 "Arguments to pass to mpv in `browse-url-mpv'.") 6 "Arguments to pass to mpv in `browse-url-mpv'.")
7 7
8(defun browse-url-mpv (url &optional new-window) 8(defun browse-url-mpv (url &optional new-window)
9 "Play `URL' in mpv." 9 "Play URL in mpv."
10 (interactive (browse-url-interactive-arg "Video URL: ")) 10 (interactive (browse-url-interactive-arg "Video URL: "))
11 (ignore new-window) ;; mpv always opens a new window 11 (ignore new-window) ;; mpv always opens a new window
12 (let* ((url (browse-url-encode-url url)) 12 (let* ((url (browse-url-encode-url url))
@@ -112,6 +112,13 @@ Then, build `browse-url-button-regexp' with the new protocol."
112 112
113;;; Browse-URL tweaks 113;;; Browse-URL tweaks
114 114
115;; convert reddit.com to teddit
116(defun acdw/eww-browse-reddit-url (url &rest args)
117 "Browse a Reddit.com URL using Teddit."
118 (let* ((teddit "teddit.com")
119 (url (replace-regexp-in-string "reddit\\.com" teddit url)))
120 (eww-browse-url url args)))
121
115;; convert twitter.com to nitter 122;; convert twitter.com to nitter
116(defun acdw/eww-browse-twitter-url (url &rest args) 123(defun acdw/eww-browse-twitter-url (url &rest args)
117 "Browse a Twitter.com URL using Nitter." 124 "Browse a Twitter.com URL using Nitter."