From 851b8f5fac389364c579aabb8e8fba344a3f6929 Mon Sep 17 00:00:00 2001 From: Yuchen Pei Date: Sat, 19 Aug 2023 21:39:33 +1000 Subject: Adding a command to browse with the mullvad browser --- emacs/.emacs.d/init/ycp-complete.el | 1 + emacs/.emacs.d/lisp/my/my-web.el | 6 ++++++ 2 files changed, 7 insertions(+) (limited to 'emacs/.emacs.d') 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) -- cgit v1.2.3