nekolinuxblog

-- | The default pretty printing options, as seen in 'dynamicLog'.
defaultPP :: PP
defaultPP = PP { ppCurrent         = wrap "[" "]"
               , ppVisible         = wrap "<" ">"
               , ppHidden          = id
               , ppHiddenNoWindows = const ""
               , ppUrgent          = id
               , ppSep             = " : "
               , ppWsSep           = " "
               , ppTitle           = shorten 80

nekolinuxblog

import XMonad
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Util.Run

main :: IO ()
main = do
  left_bar <- spawnPipe $ "dzen2 -x 0 -w 400 -ta l " ++ dzen_style
  spawn $ "conky -c ~/.xmonad/conky_dzen_laptop | dzen2 -x 400 -ta r " ++ dzen_style
  xmonad defaultConfig { terminal = "urxvt"

nekolinuxblog

background no            
out_to_console yes
out_to_x no
# Update interval in seconds
update_interval 1

TEXT
^i(/home/neko/.xmonad/icon/cpu.xbm) ^fg(\#ffffff)${cpu}%^fg()   \
^i(/home/neko/.xmonad/icon/mem.xbm) ^fg(\#ffffff)${memperc}%^fg()   \
^i(/home/neko/.xmonad/icon/wifi_01.xbm) ${wireless_essid wlan0} \

nekolinuxblog

import qualified Data.Map as M

tel_map = M.fromList [("isono","090-xxxx-0000")
                     ,("fuguta","090-xxxx-1111")
                     ,("namino","090-xxxx-2222")]

nekolinuxblog

keys :: XConfig Layout -> M.Map (KeyMask, KeySym) (X ())
keys conf@(XConfig {XMonad.modMask = modMask}) = M.fromList $
    [ ((modMask .|. shiftMask, xK_Return), spawn $ XMonad.terminal conf) 
    , ..
    ]
   

nekolinuxblog

customKeys 
    :: (XConfig Layout -> [(KeyMask, KeySym)])
    -> (XConfig Layout -> [((KeyMask, KeySym), X())])
    -> XConfig Layout
    -> Map (keyMask, KeySym) (X ())

nekolinuxblog

import XMonad
import XMonad.Util.Run
 
main :: IO ()
main = do
  xmonad defaultConfig { terminal = "urxvt"
                       , modMask = mod4Mask
                       , keys = mykeys
                       }

nekolinuxblog

import XMonad
import XMonad.Util.CustomKeys
 
main :: IO ()
main = xmonad defaultConfig { terminal = "urxvt"
                            , modMask = mod4Mask
                            , keys = customKeys delkeys addkeys
                            }
       where
        delkeys XConfig {modMask = modkey} = [(modkey .|. shiftMask, xK_slash)

nekolinuxblog

import XMonad
import XMonad.Util.EZConfig
 
main :: IO ()
main = xmonad $ defaultConfig { terminal = "urxvt"
                              , modMask = mod4Mask
                               }
                              `additionalKeysP` [("M-q", spawn "killall dzen2; xmonad --recompile && xmonad --restart")]
                              `removeKeysP` ["M-S-/", "M-?"]

nekolinuxblog

import XMonad
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Util.EZConfig
import XMonad.Util.Run

main :: IO ()
main = do
  left_bar <- spawnPipe $ "dzen2 -x 0 -w 400 -ta l " ++ dzen_style
  spawn $ "conky -c ~/.xmonad/conky_dzen_laptop | dzen2 -x 400 -ta r " ++ dzen_style