ElKowar/dots-of-war
1
0
Fork 0
mirror of https://github.com/elkowar/dots-of-war.git synced 2024-12-26 14:12:23 +00:00
Code Issues 1 Projects 1 Releases Packages Wiki Activity

small changes

Browse source
This commit is contained in:
elkowar 2021-08-23 16:39:58 +02:00
parent d752499dc3
commit 88123ab2de
No known key found for this signature in database
GPG key ID: E321AD71B1D1F27F
2 changed files with 15 additions and 27 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
eww-bar/.config/eww-bar/eww.yuck
View file

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

19
xmonad/.xmonad/lib/Config.hs
View file

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