Permalink
Browse files

fix to work with gnome-terminal

  • Loading branch information...
1 parent c9a7cd0 commit 89801e294f67b6bd10a4820a9b0fab5d0168d7f4 @mhansen committed Jul 21, 2010
Showing with 52 additions and 9 deletions.
  1. +2 −0 .gitignore
  2. +14 −0 gnome-terminal-wrapper
  3. +36 −9 xmonad.hs
View
@@ -1,4 +1,6 @@
*.o
*.hi
*.errors
+*.swp
+history
xmonad-i386-linux
View
@@ -0,0 +1,14 @@
+#!/bin/bash
+
+terminal=${0%-wrapper}
+terminal=${terminal##*/}
+args=()
+while (($#)); do
+ if [ "$1" = "-e" ]; then
+ shift
+ exec $terminal ${args[@]} -e "$*"
+ fi
+ args[${#args[@]}]=$1
+ shift
+done
+exec $terminal ${args[@]}
View
@@ -1,20 +1,47 @@
+import qualified Data.Map as M
+import qualified XMonad.StackSet as W
import XMonad
+import XMonad.Config.Desktop
import XMonad.Config.Gnome
-import qualified XMonad.StackSet as W
import XMonad.Hooks.ManageHelpers
-import XMonad.Layout.NoBorders
+import XMonad.Layout.Accordion
+import XMonad.Layout.Column
+import XMonad.Layout.Tabbed
+import XMonad.Prompt
+import XMonad.Prompt.AppendFile
+import XMonad.Prompt.Man
+import XMonad.Prompt.Shell
+import XMonad.Util.EZConfig
myManageHook :: ManageHook
myManageHook = composeAll (
- [ resource =? "Do" --> doIgnore
- , isFullscreen --> doFullFloat
+ [ resource =? "Do" --> doFloat --gnome do
+ , isFullscreen --> doFullFloat --don't interfere with fullscreen video
])
-
fullscreenVideo :: [ManageHook]
fullscreenVideo = [ isFullscreen --> (doF W.focusDown <+> doFullFloat) ]
-main = xmonad gnomeConfig
- { modMask = mod4Mask
- , manageHook = manageHook gnomeConfig <+> myManageHook
- }
+main = xmonad $ gnomeConfig
+ { modMask = mod4Mask -- Windows Key
+ , borderWidth = 1
+ , normalBorderColor = "#dddddd"
+ , focusedBorderColor = "#ff0000"
+ , layoutHook = desktopLayoutModifiers (myLayout)
+ , manageHook = myManageHook <+> manageHook gnomeConfig
+ , terminal = "~/.xmonad/gnome-terminal-wrapper"
+ }
+ `additionalKeysP`
+ [ ("M-c", spawn "google-chrome")
+ , ("M-n", appendFilePrompt defaultXPConfig "/home/moon/notes")
+ , ("M-m", manPrompt defaultXPConfig)
+ , ("M-s", shellPrompt defaultXPConfig)
+ ]
+
+
+myLayout = tiled ||| Mirror tiled ||| Full ||| simpleTabbed ||| Accordion
+ where
+ tiled = Tall nmaster delta ratio --partitions the screen into two panes
+ nmaster = 1 -- default numer of windows in the master pane
+ ratio = 1/2 -- default proportion of screen occupied by master pane
+ delta = 3/100 -- percent of screen to incrememnt by when resizing panes

0 comments on commit 89801e2

Please sign in to comment.