From 48c5cf2a02d0731829909dc1f42c6c7824e5df08 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?=C5=81ukasz=20Pankowski?= Date: Fri, 13 Dec 2019 22:00:57 +0100 Subject: [PATCH] WWW browsers: select one from helm menu before opening the URL --- init.el | 17 +++++++++++++++-- 1 file changed, 15 insertions(+), 2 deletions(-) diff --git a/init.el b/init.el index 9718c79..db53f1c 100644 --- a/init.el +++ b/init.el @@ -900,9 +900,22 @@ inserted between the braces between the braces." :keybinding "g")) -;;; ### EWW browser ### +;;; ### WWW browsers ### -(setq browse-url-browser-function #'eww-browse-url) +(setq my-browsers + '(("Firefox" . browse-url-firefox) + ("Chromium" . browse-url-chromium) + ("EWW" . eww-browse-url))) + +(defun my-browse-url (&rest args) + "Select the prefered browser from a helm menu before opening the URL." + (interactive) + (let ((browser (helm :sources (helm-build-sync-source "WWW browsers" + :candidates (mapcar 'car my-browsers)) + :buffer "*my browsers*"))) + (apply (cdr (assoc browser my-browsers)) args))) + +(setq browse-url-browser-function #'my-browse-url) (defun my-eww-scale-adjust () "Slightly bigger font but text shorter than text."