diff options
| -rw-r--r-- | emacs/.emacs.d/init/ycp-complete.el | 1 | ||||
| -rw-r--r-- | emacs/.emacs.d/lisp/my/my-web.el | 6 |
2 files changed, 7 insertions, 0 deletions
diff --git a/emacs/.emacs.d/init/ycp-complete.el b/emacs/.emacs.d/init/ycp-complete.el index 29bdaf7..dec3ae3 100644 --- a/emacs/.emacs.d/init/ycp-complete.el +++ b/emacs/.emacs.d/init/ycp-complete.el @@ -280,6 +280,7 @@ (:name firefox :command browse-url-firefox) (:name firefox-private :command my-browse-url-firefox-private) (:name tor-browser :command my-browse-url-tor-browser) + (:name mullvad-browser :command my-browse-url-mullvad) (:name qutebrowser :command my-browse-url-qutebrowser) (:name download-and-open :command my-fetch-url))) (my-setq-from-local hmm-handlers) diff --git a/emacs/.emacs.d/lisp/my/my-web.el b/emacs/.emacs.d/lisp/my/my-web.el index eced148..bd6a55d 100644 --- a/emacs/.emacs.d/lisp/my/my-web.el +++ b/emacs/.emacs.d/lisp/my/my-web.el @@ -80,6 +80,12 @@ (start-process (concat "qutebrowser " url) nil "qutebrowser" url)) +(defun my-browse-url-mullvad (url) + "Browse URL with Mullvad browser." + (setq url (browse-url-encode-url url)) + (start-process (concat "mullvad-browser " url) nil "mullvad-browser" + url)) + ;; TODO: change to using hmm matching url with default app ;; override browse-url (defun my-browse-url (url &optional arg) |