lupan/.emacs.d
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

WWW browsers: select one from helm menu before opening the URL

Browse Source
This commit is contained in:
Łukasz Pankowski 2019-12-13 22:00:57 +01:00
parent 1cd40a2258
commit 48c5cf2a02
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
init.el
View File

@ -900,9 +900,22 @@ inserted between the braces between the braces."
:keybinding "g")) :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 () (defun my-eww-scale-adjust ()
"Slightly bigger font but text shorter than text." "Slightly bigger font but text shorter than text."