update font and other minor things

1 files changed, 6 insertions, 20 deletions

diff --git a/.config/XMonad/xmonad.hs b/.config/XMonad/xmonad.hs
index 7b635fc..1f3f5e7 100644
--- a/.config/XMonad/xmonad.hs
+++ b/.config/XMonad/xmonad.hs
@@ -26,13 +26,10 @@ import qualified XMonad.Actions.TreeSelect as TS
 import XMonad.Layout.Spacing
 import XMonad.Layout.LayoutModifier
 import XMonad.Layout.WindowNavigation as WN
--- import XMonad.Layout.Fullscreen
 import XMonad.Layout.Renamed as R (renamed, Rename(Replace))
 
 -- Layouts
--- import XMonad.Layout.AvoidFloats
 import XMonad.Layout.BinarySpacePartition as BSP
--- import XMonad.Layout.CenteredMaster
 import XMonad.Layout.Grid
 import XMonad.Layout.ThreeColumns
 import XMonad.Layout.TwoPane
@@ -52,7 +49,6 @@ import XMonad.Hooks.SetWMName
 import XMonad.Hooks.ManageDocks
 import XMonad.Hooks.DynamicLog
 import XMonad.Hooks.EwmhDesktops
--- import XMonad.Hooks.FadeInactive
 
 -- utilities
 import XMonad.Util.SpawnOnce
@@ -67,8 +63,8 @@ myStartupHook :: X ()
 myStartupHook = do
           spawnOnce "start-lemonbar.sh"
           spawnOnce "firefox"
-	  -- setWMName "AnimeThighsWM"
-	  setWMName "LG3D"
+	  setWMName "AnimeThighsWM"
+	  -- setWMName "LG3D"
           setDefaultCursor xC_left_ptr
 
 -- defaults
@@ -117,13 +113,15 @@ myVolMute = "pulseaudio-ctl mute && killall lemonblocks -5"
 
 
 myFont :: String
-myFont = "xft:Roboto:pixelsize=16:antialias=true"
+myFont = "xft:Hack:style=Regular:size=12"
 
 
 -- wm variables
 
-nBorder = "#130F23" -- "#3804f4" -- "#bf00ff"
+-- fBorder = "#bf00ff"
+-- fBorder = "#3804f4"
 fBorder = "#00ff85"
+nBorder = "#130F23"
 
 myBorderWidth = 1
 
@@ -165,13 +163,6 @@ myTSConfig = TS.TSConfig { TS.ts_hidechildren = False
                            , TS.ts_navigate     = TS.defaultNavigation
                            }
 
-myPowerMenu :: TS.TSConfig (X ()) -> X ()
-myPowerMenu a = TS.treeselectAction a
-    [Node (TS.TSNode "SHUTDOWN" "It's not like I'm gonna miss you, b- baka!" (spawn "shutdown now")) []
-    , Node (TS.TSNode "REBOOT" "Be quick, okay?" (spawn "reboot")) []
-    , Node (TS.TSNode "CANCEL" "Do nothing" (return ())) []
-    ]
-
 myTreeMenu :: TS.TSConfig (X ()) -> X ()
 myTreeMenu a = TS.treeselectAction a
     [ Node (TS.TSNode "Section Screenshot" "Take screenshot of a section on the screen" (spawn "scrot -s /zt/Screenshots/Screenshot-%Y-%d-%m--%T.png")) []
@@ -290,8 +281,6 @@ myKeys = [
 
          -- toggle bars
          , ((myModMask, xK_backslash), sendMessage ToggleStruts) -- toggle both bars
-         -- , ((myModMask, xK_bracketleft), sendMessage $ ToggleStrut D) -- toggle bottom bar
-         -- , ((myModMask, xK_bracketright), sendMessage $ ToggleStrut U) -- toggle top bar
 
          -- BSP layout keybindings
          -- resize
@@ -306,8 +295,6 @@ myKeys = [
          -- other
          , ((myModMask,                              xK_d     ), sendMessage Rotate)
          , ((myModMask,                              xK_s     ), sendMessage BSP.Swap)
---          , ((myModMask .|. shiftMask .|. controlMask , xK_j     ), sendMessage $ SplitShift Prev)
---          , ((myModMask .|. shiftMask .|. controlMask , xK_k     ), sendMessage $ SplitShift Next)
          , ((myModMask, xK_f), withFocused (sendMessage . maximizeRestore))
          ] ++ [ -- for extra workspace(s)
          ((myModMask, key), (windows $ W.greedyView ws))
@@ -438,4 +425,3 @@ main = do
   logHook            = dynamicLogWithPP myLemonbarPP { ppOutput = \x -> hPutStrLn notXMobar x}, 
   startupHook        = myStartupHook
 } `additionalMouseBindings` myMouseBindings `additionalKeys` myKeys `additionalKeysP` myKeys'
--- `additionalMouseBindings` myMouseBindings `additionalKeys` myKeys `mkKeymap` myEmacsKeys