tons of misc updates

[distro-setup] / subdir_files / .xmonad / xmonad.hs

diff --git a/subdir_files/.xmonad/xmonad.hs b/subdir_files/.xmonad/xmonad.hs
index 12423d106f2df2a2b86ed432751d1d27711bb494..28298108f0acf900a2daa62a59824b7316c33a16 100644 (file)
--- a/subdir_files/.xmonad/xmonad.hs
+++ b/subdir_files/.xmonad/xmonad.hs
@@ -1,3 +1,4 @@
+
 import XMonad
 --import XMonad.Config.Gnome
 
@@ -17,6 +18,7 @@ import XMonad.Config.Desktop
 import XMonad.Hooks.EwmhDesktops
 import XMonad.Config.Xfce
 import XMonad.Hooks.ManageDocks
+import XMonad.Layout.NoFrillsDecoration
 
 import qualified XMonad.StackSet as W
 import qualified Data.Map        as M
@@ -28,13 +30,15 @@ import XMonad.Hooks.SetWMName
 
 -- /usr/share/xmonad/xmonad.hs on fedora has integration with gnome etc. but I
 -- had lots of problems with gnome integration.
+myL = noFrillsDeco shrinkText def (layoutHook def)
 
 main = xmonad $ defaults
+--main = xmonad def { layoutHook = myL } $ defaults
 
 
 defaults = desktopConfig
        {
-         terminal            = "sakura"
+         terminal            = "konsole"
        , borderWidth        = 0
        , modMask            = mod4Mask
        , keys               = myKeys
@@ -80,9 +84,17 @@ myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
     [ ((modm, xK_q), io (exitWith ExitSuccess)) -- %! Quit xmonad
 
     , ((modm, xK_2), spawn "pavucontrol")
-    , ((modm, xK_3), spawn "firefox")
-
-    , ((modm, xK_4), spawn "input-setup.sh")
+--    , ((modm, xK_3), spawn "firefox  -no-remote -P sfw")
+--    todo: clicking links in other applications won't open in
+--    a firefox opened with -no-remote, so we have to hardcode a
+--    primary firefox profile here. I'd rather have a command which
+--    sets which is the pimary for opening links. It could alter a file,
+--    and we could launch firefox with a wrapper script which looks at that file.
+    , ((modm, xK_3), spawn "abrowser -P sfw")
+    , ((modm, xK_4), spawn "abrowser -no-remote -P firefox-main-profile")
+
+    , ((modm, xK_5), spawn "/a/exe/input-setup l")
+    , ((modm, xK_1), spawn "/a/exe/input-setup k")
 
     -- we would really want to keep track of which workspace is darkened,
     -- and change things depending on where that workspace is
@@ -188,7 +200,7 @@ myKeys conf@(XConfig {XMonad.modMask = modm}) = M.fromList $
 
 
 
-    -- open workspace, and send to workspace with same key plus control
+    -- open workspace, and send to workspace with same key plus shift
     [((m .|. modm, k), windows $ f i)
          | (i, k) <- zip (XMonad.workspaces conf) [xK_f, xK_d, xK_s, xK_a, xK_z, xK_grave, xK_7, xK_0]
     , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]]