Files
dtos-dotfiles/.xmonad/lib/Custom/MyVariables.hs
2020-07-14 11:54:05 -05:00

43 lines
1.5 KiB
Haskell

module Custom.MyVariables where
-- imports
import XMonad
import qualified XMonad.StackSet as W
------------------------------------------------------------------------
-- VARIABLES
------------------------------------------------------------------------
-- It's nice to assign values to stuff that you will use more than once
-- in the config. Setting values for things like font, terminal and editor
-- means you only have to change the value here to make changes globally.
myFont :: String
myFont = "xft:Mononoki Nerd Font:bold:size=9:antialias=true:hinting=true"
myModMask :: KeyMask
myModMask = mod4Mask -- Sets modkey to super/windows key
myTerminal :: String
myTerminal = "alacritty" -- Sets default terminal
myBrowser :: String
myBrowser = "qutebrowser " -- Sets firefox as browser for tree select
-- myBrowser = myTerminal ++ " -e lynx " -- Sets lynx as browser for tree select
myEditor :: String
myEditor = "emacsclient -c -a emacs " -- Sets emacs as editor for tree select
-- myEditor = myTerminal ++ " -e vim " -- Sets vim as editor for tree select
myBorderWidth :: Dimension
myBorderWidth = 2 -- Sets border width for windows
myNormColor :: String
myNormColor = "#292d3e" -- Border color of normal windows
myFocusColor :: String
myFocusColor = "#bbc5ff" -- Border color of focused windows
altMask :: KeyMask
altMask = mod1Mask -- Setting this for use in xprompts
windowCount :: X (Maybe String)
windowCount = gets $ Just . show . length . W.integrate' . W.stack . W.workspace . W.current . windowset