diff options
Diffstat (limited to 'lisp')
-rw-r--r-- | lisp/acdw-browse-url.el | 9 |
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." |