small changes

eww-bar/.config/eww-bar/eww.yuck

@@ -113,6 +113,7 @@
 
 (defwindow bar_1
   :monitor 1
+  :stacking "bg"
   :geometry (geometry :x 0 :y 0 :width "40px" :height "100%")
   :anchor "top left"
   :reserve (struts :distance "40px" :side "left")

xmonad/.xmonad/lib/Config.hs

@@ -7,15 +7,9 @@ module Config (main) where
 import qualified Data.Map.Strict as M
 import Control.Concurrent
 import           Control.Exception              ( catch , SomeException)
-import           Control.Monad                  (join,  filterM
-                                                , when
-                                                
-                                                )
+import           Control.Monad                  (join,  filterM , when)
 import           Control.Arrow                  ( (>>>) )
-import           Data.List                      ( isPrefixOf
-                                                , isSuffixOf
-                                                , isInfixOf
-                                                )
+import Data.List ( isPrefixOf, isSuffixOf, isInfixOf, find )
 import qualified Data.List
 import System.Exit (exitSuccess)
 import qualified Rofi
@@ -97,8 +91,6 @@ import Data.Bifunctor
 import GHC.IO.Unsafe (unsafePerformIO)
 import XMonad.Layout.LayoutModifier
 import qualified IndependentScreens as IS
-import Data.List (find)
-import System.Process (readProcess)
 --import XMonad.Layout.MultiColumns (multiCol)
 {-# ANN module "HLint: ignore Redundant $" #-}
 {-# ANN module "HLint: ignore Redundant bracket" #-}
@@ -283,7 +275,6 @@ myStartupHook = do
   spawn "xsetroot -cursor_name left_ptr"
   spawnOnce "nitrogen --restore"
   spawnOnce "mailnag"
-  spawnOnce "flameshot"
   spawn "flashfocus"
   spawnOnce "dunst"
   for_ ["led1", "led2"] $ \led -> safeSpawn "sudo" ["liquidctl", "set", led, "color", "fixed", "00ffff"]
@@ -360,7 +351,6 @@ myKeys = concat [ zoomRowBindings, tabbedBindings, multiMonitorBindings, program
   programLaunchBindings :: [(String, X ())]
   programLaunchBindings =
     [ ("M-p",      spawn myLauncher)
-    --, ("M-S-p",    Rofi.showCombi  def [ "drun", "ssh" ])
     , ("M-S-p",    Rofi.showNormal def "drun")
     , ("M-S-e",    Rofi.showNormal (def { Rofi.fuzzy = False }) "emoji")
     --, ("M-s",      spawn $ scriptFile "rofi-search.sh")
@@ -369,13 +359,10 @@ myKeys = concat [ zoomRowBindings, tabbedBindings, multiMonitorBindings, program
     , ("M-e",      Rofi.promptRunCommand def specialCommands)
     , ("M-o",      Rofi.promptRunCommand def withSelectionCommands)
     , ("M-S-C-g",  spawn "giph --stop" >> spawn "scr -s") -- stop gif and video recording
-
-    --, ("M-b",          launchWithBackgroundInstance (className =? "qutebrowser") "bwrap --bind / / --dev-bind /dev /dev --tmpfs /tmp --tmpfs /run qutebrowser")
-    --, ("M-b",          safeSpawnProg "qutebrowser")
     , ("M-b",          safeSpawnProg "google-chrome-stable")
     , ("M-S-<Return>", spawn myTerminal)
     --, ("M-S-<Return>", launchWithBackgroundInstance (className =? "Alacritty") "alacritty")
-    , ("M-S-<",    spawn "flameshot gui")
+    , ("M-C-S-s",  spawn "flameshot gui")
     , ("M-z",      spawn $ scriptFile "copy-pasta.sh")