Informatik

import XMonad
import XMonad.Actions.DwmPromote
import XMonad.Hooks.DynamicLog
import XMonad.Hooks.ManageDocks
import XMonad.Layout.Tabbed
import XMonad.Util.Run(spawnPipe)

import Data.Monoid
import System.Exit
import System.IO.UTF8

import qualified XMonad.StackSet as W
import qualified Data.Map        as M

myTerminal      = "urxvtc"

myFocusFollowsMouse :: Bool
myFocusFollowsMouse = True

myBorderWidth   = 1
myModMask       = mod4Mask
myNumlockMask   = mod2Mask
myWorkspaces    = ["1","2","3","4","5:www","6:min"]
myNormalBorderColor  = "#dddddd"
myFocusedBorderColor = "#ff0000"

myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
    [ ((modm .|. shiftMask, xK_Return), spawn $ XMonad.terminal conf)
    , ((modm,               xK_p     ), spawn "exe=`dmenu_path | dmenu` && eval \\"exec $exe\\"")
    , ((modm .|. shiftMask, xK_c     ), kill)
    , ((modm,               xK_space ), sendMessage NextLayout)
    , ((modm .|. shiftMask, xK_space ), setLayout $ XMonad.layoutHook conf)
    , ((modm,               xK_n     ), refresh)
    , ((modm,               xK_Tab   ), windows W.focusDown)
    , ((modm,               xK_j     ), windows W.focusDown)
    , ((modm,               xK_k     ), windows W.focusUp  )
    , ((modm,               xK_m     ), windows W.focusMaster  )
    , ((modm,               xK_Return), dwmpromote)
    , ((modm .|. shiftMask, xK_j     ), windows W.swapDown  )
    , ((modm .|. shiftMask, xK_k     ), windows W.swapUp    )
    , ((modm,               xK_h     ), sendMessage Shrink)
    , ((modm,               xK_l     ), sendMessage Expand)
    , ((modm,               xK_t     ), withFocused $ windows . W.sink)
    , ((modm              , xK_comma ), sendMessage (IncMasterN 1))
    , ((modm              , xK_period), sendMessage (IncMasterN (-1)))
    , ((modm              , xK_b     ), sendMessage ToggleStruts)
    , ((modm .|. shiftMask, xK_q     ), io (exitWith ExitSuccess))
    , ((modm              , xK_q     ), spawn "xmonad --recompile; xmonad --restart")
    ]
    ++
    [((m .|. modm, k), windows $ f i)
        | (i, k) <- zip (XMonad.workspaces conf) [xK_1 .. xK_9]
        , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]]
    ++
    [ ((modm,               xK_o), spawn "opera -nomail -nolirc")
    , ((modm,               xK_e), spawn "claws-mail")
    , ((modm,               xK_f), spawn "firefox")
    , ((modm,               xK_g), spawn "gqview")
    , ((modm .|. shiftMask, xK_g), spawn "gvim")
    , ((modm,               xK_s), spawn "urxvt -pe tabbed,matcher")
    , ((modm,               xK_less), windows $ W.greedyView "5:www")
    ]

myMouseBindings (XConfig {XMonad.modMask = modm}) = M.fromList $
    [ ((modm, button1), (\w -> focus w >> mouseMoveWindow w
                                       >> windows W.shiftMaster))
    , ((modm, button2), (\w -> focus w >> windows W.shiftMaster))
    , ((modm, button3), (\w -> focus w >> mouseResizeWindow w
                                       >> windows W.shiftMaster))
    ]

myLayout = avoidStruts(tiled ||| Mirror tiled ||| simpleTabbedAlways ||| Full)
  where
     tiled   = Tall nmaster delta ratio
     nmaster = 1
     ratio   = 7/10
     delta   = 5/100

myManageHook = composeAll
    [ className =? "Gimp"           --> doFloat
    , className =? "MPlayer"        --> doFloat
    , className =? "Opera"          --> doShift "5:www"
    ,(className =? "Firefox" <&&> resource =? "Dialog") --> doFloat ]

myEventHook = mempty

myLogHook h = dynamicLogWithPP $ myPP h

myPP h = defaultPP
         { ppCurrent         = wrap "^bg(#e5f9ff)^fg(#105468)" "^bg()^fg()"
         , ppVisible         = wrap "^fg(#a00000)" "^fg()"
         , ppHidden          = wrap "^fg(#ffffff)" "^fg()"
         , ppHiddenNoWindows = wrap "^fg(#7eacb9)" "^fg()"
         , ppSep             = " | "
         , ppWsSep           = "  "
         , ppTitle           = shorten 80
         , ppOrder           = workspaceTag
         , ppOutput          = System.IO.UTF8.hPutStrLn h
         }
    where workspaceTag (x:xs) = ("[ " ++ x ++ " ]") : xs

myStartupHook = return ()

main = do dzenh <- spawnPipe "dzen2 -p -w 1280 -ta l"
          xmonad $ defaults dzenh

defaults dzenh = defaultConfig {
        terminal           = myTerminal,
        focusFollowsMouse  = myFocusFollowsMouse,
        borderWidth        = myBorderWidth,
        modMask            = myModMask,
        numlockMask        = myNumlockMask,
        workspaces         = myWorkspaces,
        normalBorderColor  = myNormalBorderColor,
        focusedBorderColor = myFocusedBorderColor,

        keys               = myKeys,
        mouseBindings      = myMouseBindings,

        layoutHook         = myLayout,
        manageHook         = myManageHook,
        handleEventHook    = myEventHook,
        logHook            = myLogHook dzenh,
        startupHook        = myStartupHook
    }

module Fac where

fac n = product [1..n]

{-# LANGUAGE TemplateHaskell #-}

module Main where

import Fac
import Language.Haskell.TH.Syntax

main = print $(lift $ fac (5 :: Int))