From beed9b602ab5c5aa44345831313486bd6053ae7a Mon Sep 17 00:00:00 2001
From: Alexander Sulfrian <alexander.sulfrian@fu-berlin.de>
Date: Wed, 23 Jul 2014 00:08:22 +0200
Subject: Australien does not have a key for mod4

---
 xmonad.hs | 25 ++++++++++++++++---------
 1 file changed, 16 insertions(+), 9 deletions(-)

diff --git a/xmonad.hs b/xmonad.hs
index 4dcef11..ef36e3f 100644
--- a/xmonad.hs
+++ b/xmonad.hs
@@ -58,6 +58,9 @@ import XMonad.Util.Replace (replace)
 import Control.Monad (when)
 import System.Environment (getArgs)
 
+-- for hostname handling (no windows key on "Australien")
+import Network.HostName
+
 -- custom modules
 import HistoryGrid
 import EZConfig
@@ -75,7 +78,10 @@ browser = "viewurl-opera.sh"
 myWorkspaces :: [String]
 myWorkspaces = ["1:web", "2:mail" ,"3:irc", "4:im", "5:code"] ++ map show [6 .. 9 :: Int] ++ ["0", "video", "music"]
 
-modM = mod4Mask -- mod1Mask = Alt, mod2Mask = , mod3Mask= , mod4Mask = Win, mod5Mask = AltGr
+modM :: String -> KeyMask
+-- mod1Mask = Alt, mod2Mask = , mod3Mask= , mod4Mask = Win, mod5Mask = AltGrk
+modM "Australien" = mod1Mask
+modM _            = mod4Mask
 
 myDzenUrgencyConfig = DzenUrgencyHook
         { args = ["-bg", "red", "-fg", "black", "-fn", font,
@@ -89,15 +95,16 @@ main = do
 
   dzenStatusDir <- getAppUserDataDirectory "xmonad"
   dzenStatusFile <- openFile (dzenStatusDir ++ "/dzenStatus") WriteMode
+  hostname <- getHostName
   xmonad
     -- Do _not_ use "ewhm" here, this would add the ewhm hooks to the
     -- end of your custom hooks (esp. the startup hook) and this would
     -- overwrite the setWMName "LG3D" and some Java apps will not work.
     $ withUrgencyHook myDzenUrgencyConfig
-    $ myConfig dzenStatusFile
+    $ myConfig dzenStatusFile hostname
 
-myConfig statusFile = defaultConfig
-        { modMask = modM
+myConfig statusFile hostname = defaultConfig
+        { modMask = modM hostname
         , terminal = term
         , borderWidth = 1
         , normalBorderColor  = "#545454"
@@ -105,7 +112,7 @@ myConfig statusFile = defaultConfig
         , logHook = myLogHook statusFile
         , manageHook = myManageHook
         , keys = \c -> mkKeymap c $ myKeys c
-        , mouseBindings = \c -> M.union (M.fromList $ myMouse c) $ mouseBindings defaultConfig c
+        , mouseBindings = \c -> M.union (M.fromList $ myMouse (modM hostname) c) $ mouseBindings defaultConfig c
         , layoutHook = myLayout
         , workspaces = myWorkspaces
         , handleEventHook = myEventHook
@@ -418,14 +425,14 @@ myKeys c =
           (m, f) <- [("M-", W.view), ("M-S-", W.shift), ("M-C-", copy)]
   ]
 
-myMouse c =
-  [ ((modM, button1),
+myMouse modm c =
+  [ ((modm, button1),
      (\w -> focus w >> mouseMoveWindow w >> snapMagicMove (Just 50) (Just 50) w))
 
-  , ((modM .|. shiftMask, button1),
+  , ((modm .|. shiftMask, button1),
      (\w -> focus w >> mouseMoveWindow w >> snapMagicMouseResize 0.8 (Just 50) (Just 50) w))
 
-  , ((modM, button3),
+  , ((modm, button3),
      (\w -> focus w >> Flex.mouseWindow Flex.resize w))
   ]
 
-- 
cgit v1.2.3