December 2009 - xmonad

Other Distro's
by Peter Nikolic 06 Dec '09

06 Dec '09

Hi It would be nice to see opensSUSE included in the list Pete . -- Powered by openSUSE 11.2 Milestone 2 (x86_64) Kernel: 2.6.30-rc6-git3-4- default KDE: 4.2.86 (KDE 4.2.86 (KDE 4.3 >= 20090514)) "release 1" 14:43 up 15 days 4:32, 3 users, load average: 0.18, 0.19, 0.17

2 1

Issue 341 in xmonad: Segmentation Fault & Other Issues
by codesite-noreply＠google.com 06 Dec '09

06 Dec '09

Status: New Owner: ---- New issue 341 by edro4838: Segmentation Fault & Other Issues http://code.google.com/p/xmonad/issues/detail?id=341 What steps will reproduce the problem? 1.run xmonad --recompile 2. 3. What is the expected output? What do you see instead? expected: xmonad If ~/.xmonad has only xmonad.hs, xmonad-x86_64-linux (executable) will be produced on the first run of the windowmanager (which will work on subsequent boots). Using 'ghc --make xmonad' will produce a new, working binary 'xmonad'. The only way I can affect changes from xmonad.hs is to delete 'xmonad-x86_*', compile using ghc, renaming xmonad to xmonad-x86_64-linux and finally log out and then back in; or modify xmonad.hs, delete xmonad-x86*, logout and then log back in. What version of the product are you using? On what operating system? ghc 6.10.4 base from Ubuntu 9.10 amd64, xmonad & -contrib 0.9, all packages are current as of 11-19 and compiled without any errors. Are you using an xmonad.hs? Please attach it and the output of "xmonad --recompile". segmentation fault xmonad --recompile Please provide any additional information below. -- You received this message because you are listed in the owner or CC fields of this issue, or because you starred this issue. You may adjust your issue notification preferences at: http://code.google.com/hosting/settings

1 3

xmonad-extras is now on hackage
by Daniel Schoepe 06 Dec '09

06 Dec '09

The xmonad-extras package which contains some additional functionality that requires additional dependencies is now on Hackage: http://hackage.haskell.org/package/xmonad-extras-0.9 It includes a prompt for MPD, volume control and a way to evaluate Haskell expression at runtime, similar to Emacs' eval feature. If anyone has some modules or ideas that can't go in contrib due to dependencies, patches and/or suggestions are always welcome.

4 5

Re: Issue 314 in xmonad: Investigate merging SmartBorders to core
by codesite-noreply＠google.com 04 Dec '09

04 Dec '09

Comment #5 on issue 314 by liskni.si: Investigate merging SmartBorders to core http://code.google.com/p/xmonad/issues/detail?id=314 Please note that if smartBorders is applied after layoutHints, which I feel may be the case if it was merged into core, it causes hints to not be followed in all cases where border size is adjusted. -- You received this message because you are listed in the owner or CC fields of this issue, or because you starred this issue. You may adjust your issue notification preferences at: http://code.google.com/hosting/settings

1 0

darcs patch: Prompt.hs: Corrected quit keybindings
by Tim Horton 03 Dec '09

03 Dec '09

Hey, I noticed that the documentation read Ctrl-G to cancel a prompt, but the code used Ctrl-Q. I also added Ctrl-[ for vim users as an alternative to ESC. Wed Dec 2 21:00:41 PST 2009 Tim Horton <tmhorton(a)gmail.com> * Prompt.hs: Corrected quit keybindings Later

3 2

0.8 to 0.9.2 problems with xmonad.hs - a real mess - debug help needed please - system is freezing after a while
by yvonne barrymore 03 Dec '09

03 Dec '09

Hi, getting a lot of system freeze. I haven't changed what I believe needs to be altered as I'm almost certain to get it wrong. I also am attempting to get dzen2 working (script showing top right) I work with these 2 .xmonad.hs files. They both have many issues for me. sorry about asking, I hope this post is not too long. I have tried for 2 weeks. I do not use many of the features in the xmonad.hs files. They are from examples I found. I also cannot get the dzen.sh script to show up lately. I know i will keep trying until I understand! :=) I would be happy just to know what is causing my system freeze. So maybe I can get help to update to 0.9.2 ?? I unfortunately need the actual code changes as I have not the skill to read man pages and then do myself. I have read the 0.9 changelog and tried. defaultGaps, Scratchpad, yes, many problems running in 0.9.2 I believe. === .xinitrc === #!/bin/sh # ~/.xinitrc urxvtd -q -o -f & xmodmap ~/.Xmodmap & autocutsel & eval `cat ~/.fehbg` & xsetroot -cursor_name left_ptr -solid '#090909' & stalonetray -i 16 --max-width 48 --icon-gravity E --geometry 48x16-0+0 -bg '#2e3436' --sticky --skip-taskbar & ~/bin/dzen.sh | dzen2 -e 'onstart=lower' -p -ta r -fn '-*-terminus-medium-*-*-*-12-*-*-*-*-*-iso8859-1' -bg '#2e3436' -fg '#babdb6' -h 16 -w 1632 & exec xmonad === === xmonad.hs NUMBER 1 === import XMonad hiding ((|||)) import XMonad.ManageHook import qualified XMonad.StackSet as W import XMonad.Actions.CycleWS import XMonad.Actions.Promote import XMonad.Hooks.DynamicLog import XMonad.Hooks.ManageDocks import XMonad.Hooks.UrgencyHook import XMonad.Layout.DwmStyle import XMonad.Layout.IM import XMonad.Layout.LayoutCombinators import XMonad.Layout.Named import XMonad.Layout.NoBorders import XMonad.Layout.PerWorkspace import XMonad.Layout.Reflect import XMonad.Layout.ResizableTile import XMonad.Layout.Tabbed import XMonad.Util.EZConfig import XMonad.Util.Run import XMonad.Util.Scratchpad import Data.Ratio ((%)) statusBarCmd= "dzen2 -e '' -w 720 -ta l -fn '-*-terminus-*-*-*-*-12-*-*-*-*-*-*-*' -bg black -fg #d3d7cf " main = do din <- spawnPipe statusBarCmd xmonad $ withUrgencyHook dzenUrgencyHook { args = ["-fn", "-*-terminus-*-*-*-*-12-*-*-*-*-*-*-*","-bg", "yellow", "-fg", "black"] } $ defaultConfig { borderWidth = 2 , workspaces = ["1:main","2:im","3:web","4:mail"] ++ map show [5..9] , terminal = "urxvt -e tmux -2 new-session" , modMask = mod4Mask , manageHook = myManageHook <+> manageHook defaultConfig <+> manageDocks <+> scratchpadManageHookDefault , logHook = dynamicLogWithPP $ myPP din , layoutHook = myLayouts } `additionalKeysP` myKeys din myManageHook = composeAll [ className =? "Pidgin" --> doF (W.shift "2:im") , className =? "Firefox" --> doF (W.shift "3:web") , className =? "Gran Paradiso" --> doF (W.shift "3:web") , title =? "mutt" --> doF (W.shift "4:mail") ] myKeys conf = [ ("M-<Return>", spawn "urxvt") , ("M-p", spawn "dmenu_run") , ("M-c", kill) -- run programs , ("M-f", spawn "firefox") , ("M-e", spawn "pcmanfm") , ("M-s", scratchpadSpawnActionTerminal "urxvt") -- resize tile , ("M-a", sendMessage MirrorShrink) , ("M-z", sendMessage MirrorExpand) -- moving workspaces , ("M-<Left>", prevWS) , ("M-<Right>", nextWS) , ("M-S-<Left>", shiftToPrev) , ("M-S-<Right>", shiftToNext) , ("M-<Tab>", toggleWS) , ("M-S-<Return>", promote) , ("M-u", focusUrgent) ] myPP h = defaultPP { ppCurrent = wrap "^fg(#000000)^bg(#a6c292) " " ^fg()^bg()" , ppHidden = wrap "^i(~/icons/dzen/has_win_nv.xbm)" " " , ppHiddenNoWindows = wrap " " " " , ppSep = " ^fg(grey60)^r(3x3)^fg() " , ppWsSep = "" , ppLayout = dzenColor "#80AA83" "" . (\x -> case x of "Tall" -> "^i(~/icons/dzen/tall.xbm)" "Mirror" -> "^i(~/icons/dzen/mtall.xbm)" "Tabs" -> "Tabs" "IM" -> "IM" ) , ppTitle = dzenColor "white" "" . wrap "< " " >" , ppOutput = hPutStrLn h } myTheme = defaultTheme { decoHeight = 16 , activeColor = "#a6c292" , activeBorderColor = "#a6c292" , activeTextColor = "#000000" , inactiveBorderColor = "#000000" } myLayouts = avoidStruts $ smartBorders $ onWorkspace "2:im" (named "IM" (reflectHoriz $ withIM (1%8) (Title "Buddy List") (reflectHoriz $ dwmStyle shrinkText myTheme tiled ||| (smartBorders $ tabs)))) $ onWorkspace "3:web" (tabs) $ (tiled ||| named "Mirror" (Mirror tiled) ||| tabs) where tiled = named "Tall" (ResizableTall 1 (3/100) (1/2) []) tabs = named "Tabs" (tabbed shrinkText myTheme) ==================== === xmonad.hs NUMBER 2 === -- vim :fdm=marker sw=4 sts=4 ts=4 et ai: -- Imports {{{ import XMonad import XMonad.Layout import XMonad.Layout.NoBorders (noBorders) import XMonad.Layout.PerWorkspace import XMonad.Layout.LayoutHints import XMonad.Layout.ThreeColumns import XMonad.Hooks.DynamicLog (PP(..), dynamicLogWithPP, wrap, defaultPP) import XMonad.Hooks.UrgencyHook import XMonad.Util.Run (spawnPipe) import qualified XMonad.StackSet as W import qualified Data.Map as M import System.IO (hPutStrLn) -- }}} -- Control Center {{{ -- Colour scheme {{{ myNormalBGColor = "#2e3436" myFocusedBGColor = "#414141" myNormalFGColor = "#babdb6" myFocusedFGColor = "#73d216" myUrgentFGColor = "#f57900" myUrgentBGColor = myNormalBGColor mySeperatorColor = "#2e3436" -- }}} myBitmapsDir = "~/icons/dzen" myFont = "-*-terminus-medium-*-*-*-12-*-*-*-*-*-iso8859-1" -- }}} -- Workspaces {{{ myWorkspaces :: [WorkspaceId] myWorkspaces = ["general", "internet", "chat", "code"] ++ map show [5..9 :: Int] -- }}} -- Keybindings {{{ myKeys conf@(XConfig {modMask = modm}) = M.fromList $ [ ((modm , xK_p), spawn ("exec `dmenu_path | dmenu -fn '" ++ myFont ++ "' -nb '" ++ myNormalBGColor ++ "' -nf '" ++ myNormalFGColor ++ "' -sb '" ++ myFocusedBGColor ++ "' -sf '" ++ myFocusedFGColor ++ "'`")), ((modm , xK_g), spawn ("exec gajim-remote toggle_roster_appearance")) ] ++ -- Remap switching workspaces to M-[asdfzxcv] [((m .|. modm, k), windows $ f i) | (i, k) <- zip (XMonad.workspaces conf) [xK_a, xK_s, xK_d, xK_f, xK_v] , (f, m) <- [(W.greedyView, 0), (W.shift, shiftMask)]] -- }}} statusBarCmd= "dzen2 -p -h 16 -ta l -bg '" ++ myNormalBGColor ++ "' -fg '" ++ myNormalFGColor ++ "' -w 768 -sa c -fn '" ++ myFont ++ "'" defaultGaps = [(18,0,0,0)] -- -- Fields are: top, bottom, left, right. -- myDefaultGaps = [(0,20,0,0),(0,20,0,0)] -- Main {{{ main = do statusBarPipe <- spawnPipe statusBarCmd xmonad $ withUrgencyHook NoUrgencyHook $defaultConfig { modMask = mod4Mask, borderWidth = 3, terminal = "urxvt", normalBorderColor = myNormalBGColor, focusedBorderColor = myFocusedFGColor, -- defaultGaps = [(16,0,0,0)], manageHook = manageHook defaultConfig <+> myManageHook, layoutHook = onWorkspace "chat" chatLayout globalLayout, workspaces = myWorkspaces, logHook = dynamicLogWithPP $ myPP statusBarPipe, keys = \c -> myKeys c `M.union` keys defaultConfig c } where globalLayout = layoutHints (tiled) ||| layoutHints (noBorders Full) ||| layoutHints (Mirror tiled) ||| layoutHints (Tall 1 (3/100) (1/2)) chatLayout = layoutHints (noBorders Full) tiled = ThreeCol 1 (3/100) (1/2) -- }}} -- Window rules (floating, tagging, etc) {{{ myManageHook = composeAll [ className =? "Firefox-bin" --> doF(W.shift "internet"), className =? "Gajim.py" --> doF(W.shift "chat"), title =? "Gajim" --> doFloat, className =? "stalonetray" --> doIgnore, className =? "trayer" --> doIgnore ] -- }}} -- Dzen Pretty Printer {{{ myPP handle = defaultPP { ppCurrent = wrap ("^fg(" ++ myFocusedFGColor ++ ")^bg(" ++ myFocusedBGColor ++ ")^p(4)") "^p(4)^fg()^bg()", ppUrgent = wrap ("^fg(" ++ myUrgentFGColor ++ ")^bg(" ++ myUrgentBGColor ++ ")^p(4)") "^p(4)^fg()^bg()", ppVisible = wrap ("^fg(" ++ myNormalFGColor ++ ")^bg(" ++ myNormalBGColor ++ ")^p(4)") "^p(4)^fg()^bg()", ppSep = "^fg(" ++ mySeperatorColor ++ ")^r(3x3)^fg()", ppLayout = (\x -> case x of "Tall" -> " ^i(" ++ myBitmapsDir ++ "/tall.xbm) " "Mirror Tall" -> " ^i(" ++ myBitmapsDir ++ "/mtall.xbm) " "Full" -> " ^i(" ++ myBitmapsDir ++ "/full.xbm) " "ThreeCol" -> " ^i(" ++ myBitmapsDir ++ "/threecol.xbm) " "Hinted Tall" -> " ^i(" ++ myBitmapsDir ++ "/tall.xbm) " "Hinted Mirror Tall" -> " ^i(" ++ myBitmapsDir ++ "/mtall.xbm) " "Hinted Full" -> " ^i(" ++ myBitmapsDir ++ "/full.xbm) " "Hinted ThreeCol" -> " ^i(" ++ myBitmapsDir ++ "/threecol.xbm) " _ -> " " ++ x ++ " " ), ppTitle = wrap ("^fg(" ++ myFocusedFGColor ++ ")") "^fg()" , ppOutput = hPutStrLn handle } -- }}} ===

3 5

darcs patch: X.H.ManageDocks: ignore struts that cover an entire sc...
by Tomas Janousek 02 Dec '09

02 Dec '09

darcs send try #2, sorry for the noise. Thu Nov 19 15:50:43 CET 2009 Tomas Janousek <tomi(a)nomi.cz> * X.H.ManageDocks: ignore struts that cover an entire screen on that screen Imagine a screen layout like this: 11111111 11111111 11111111 222222 <--- xmobar here 222222 222222 When placing xmobar as indicated, the partial strut property indicates that an entire height of screen 1 is covered by the strut, as well as a few lines at the top of screen 2. The original code would create a screen rectangle of negative height and wreak havoc. This patch causes such strut to be ignored on the screen it covers entirely, resulting in the desired behaviour of a small strut at the top of screen 2. Please note that this semantics of _NET_WM_STRUT and _NET_WM_STRUT_PARTIAL is different to what is in wm-spec. The "correct" thing to do would be to discard the covered portion of screen 1 leaving two narrow areas at the sides, but this new behaviour is probably more desirable in many cases, at least for xmonad/xmobar users. The correct solution of having separate _NET_WM_STRUT_PARTIAL for each Xinerama screen was mentioned in wm-spec maillist in 2007, but has never really been proposed, discussed and included in wm-spec. Hence this "hack". -- Tomáš Janoušek, a.k.a. Liskni_si, http://work.lisk.in/

3 2

Launch without double-fork
by Luis Cabellos 02 Dec '09

02 Dec '09

Hi, I was checking why there is two procces every time than I launch a console. I found than spawn uses /bin/sh to lauch applications. I think than to expecific commands is no need to double-fork, I added the patch lo launch console without double-fork: diff -rN old-xmonad/XMonad/Config.hs new-xmonad/XMonad/Config.hs 183c183 < [ ((modMask .|. shiftMask, xK_Return), spawn $ XMonad.terminal conf) -- %! Launch terminal --- > [ ((modMask .|. shiftMask, xK_Return), spawnf $ XMonad.terminal conf) -- %! Launch terminal diff -rN old-xmonad/XMonad/Core.hs new-xmonad/XMonad/Core.hs 30c30 < getAtom, spawn, spawnPID, getXMonadDir, recompile, trace, whenJust, whenX, --- > getAtom, spawn, spawnPID, spawnf, spawnPIDf, getXMonadDir, recompile, trace, whenJust, whenX, 406a407,424 > -- | spawnf. Launch an external application. It forks the application and > -- runs the 'String' using the PATH to locate > -- runs the 'String' you pass as a command to /bin/sh. > spawnf :: MonadIO m => String -> m () > spawnf x = spawnPIDf x >> return () > > -- | Like 'spawnf', but returns the 'ProcessID' of the launched application > spawnPIDf :: MonadIO m => String -> m ProcessID > spawnPIDf x = io . forkProcess . finally nullStdin $ do > uninstallSignalHandlers > createSession > executeFile x True [] Nothing > where > nullStdin = do > fd <- openFd "/dev/null" ReadOnly Nothing defaultFileFlags > dupTo fd stdInput > closeFd fd > What do you think? -- LC, ("There is no Dana, only Zuul." - Cazafantasmas [1984])

4 4

XMonad.StackSet doesn't have focusLast
by Ted Zlatanov 01 Dec '09

01 Dec '09

Similar to focusDown and focusUp in XMonad.StackSet, is there a way to do focusLast? I am learning Haskell but don't know it well enough to write that function yet. I saw something promising in http://xmonad.org/xmonad-docs/xmonad-contrib/src/XMonad-Hooks-InsertPositio… (with a specific note wondering if focusLast should go into StackSet) but don't know if it will work. Any help is most welcome. Thanks Ted

2 3

X.A.Search & UTF8
by Konstantin Sobolev 01 Dec '09

01 Dec '09

Hello, I'm trying out X.A.Search and as I can see it doesn't work with non-latin characters out of the box. For instance cyrillic text gets converted into some hex-looking mess. The following fixes it for me, but I'm not sure if we can add a dependency on utf8-string: + import Codec.Binary.UTF8.String ( utf8Encode ) ... - searchEngine name site = searchEngineF name (\s -> site ++ (escape s)) + searchEngine name site = searchEngineF name (\s -> site ++ (utf8Encode (escape s)))

2 2