Browse Source

add non-kde things in comments

Josh Bicking 6 years ago
parent
commit
b43f51b90a
1 changed files with 9 additions and 1 deletions
  1. 9 1
      xmonad/.xmonad/xmonad.hs

+ 9 - 1
xmonad/.xmonad/xmonad.hs

@@ -27,8 +27,10 @@ import XMonad.Config.Kde
 import XMonad.Hooks.EwmhDesktops
 
 main = do
+  -- xmproc <- spawnPipe "xmobar"
   xmonad $ ewmh $ docks kde4Config
     { manageHook = manageHook kdeConfig <+> myManageHook
+    -- { manageHook = manageDocks <+> manageHook kdeConfig <+> myManageHook
     , layoutHook = smartBorders $ avoidStruts $
                    (smartSpacing 5 $ withBorder 2 $ Tall 1 (3/100) (1/2)) |||
                    (smartSpacing 5 $ withBorder 2 $ Mirror (Tall 1 (3/100) (1/2))) |||
@@ -41,6 +43,10 @@ main = do
                    -- It's not a bug, it's a feature.
                    simpleTabbed
 
+    -- , logHook = dynamicLogWithPP xmobarPP
+    --   { ppOutput = hPutStrLn xmproc
+    --   , ppTitle = xmobarColor "green" "" . shorten 50
+    --   }
     , startupHook = startup
     , handleEventHook = handleEventHook def <+> fullscreenEventHook
     , modMask     = mod4Mask
@@ -74,8 +80,10 @@ myManageHook = composeAll . concat $
 
 startupList :: [String]
 startupList =
-  [ "owncloud"
+  [ "feh --bg-scale ~/Owncloud/Backgrounds/Xmbindings.png"
+  -- , "trayer --edge top --align right --SetDockType true --SetPartialStrut true --expand true --width 10 --transparent true --alpha 0 --tint 0x000000 --height 22"
   , "compton"
+  , "owncloud"
   ]
 
 startup :: X ()