From 4b448be1c8c4cc1d973561f94b4527962d09bdd7 Mon Sep 17 00:00:00 2001
From: Josh Rahm <joshuarahm@gmail.com>
Date: Mon, 28 Mar 2022 22:57:25 -0600
Subject: Add firefox to the browsers list

---
 src/Main.hs | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/Main.hs b/src/Main.hs
index 0018fa2..44fb358 100644
--- a/src/Main.hs
+++ b/src/Main.hs
@@ -23,7 +23,6 @@ import Internal.RebindKeys
 import qualified XMonad as X
 import qualified XMonad.StackSet as W
 
-
 main = do
 
   -- Execute some commands.
@@ -37,7 +36,9 @@ main = do
 
   (=<<) X.xmonad $
     applyKeys $ ewmh $ docks $ windowHooks (composeAll [
-           (className =? "Google-chrome" <||> className =? "Brave-browser") --> composeAll [
+           let browsers = ["Google-chrome", "Brave-browser", "firefox-default"] in
+
+           (flip elem browsers <$> className) --> composeAll [
              -- The geniuses that made chrome decided that Ctrl+W should kill
              -- the current tab! This makes it consistent with the rest of the
              -- world ... ctrl+w deletes the last word (ctrl+backspace).
-- 
cgit