Arch Linux

Paul-S

Member

From: Wales

Registered: 2008-02-04

Posts: 353

[SOLVED] - XMonad Workspaces

Hi, I need a bit of help with my workspaces, I use

workspaces = [supWsNum "1" "net",supWsNum "2" "screen",supWsNum "3" "files",supWsNum "4" "chat",supWsNum "5" "hotot",supWsNum "6" "",supWsNum "7" "",supWsNum "8" "",supWsNum "9" ""]
where
                          supWsNum wsName wsNum =" " ++ wsName ++  "^p(;_TOP)^fn(" ++ mySmallFont  ++ ")" ++ wsNum ++ "  ^fn()^p()"

but how would I reference them in

myManageHook  = composeAll 
                           [ className =? "Pidgin"         --> doF (W.shift "1")
                           , className =? "Firefox"        --> doF (W.shift "1")
                           , className =? "Namoroka"       --> doF (W.shift "1")
                           , className =? "Hotot"          --> doF (W.shift "5")
                           , className =? "Chromium"       --> doF (W.shift "1")
                           , className =? "uzbl-browser"   --> doF (W.shift "1")
                           , className =? "jumanji"        --> doF (W.shift "1")
                           , className =? "MPlayer"        --> doF (W.shift "1")
                           , manageDocks
                           ]
                where  
                 role = stringProperty "WM_WINDOW_ROLE"

and

myLayouts = avoidStruts $ smartBorders $
  onWorkspace "4" (named "IM" (reflectHoriz $ withIM (1%8) (Title "Buddy List") (reflectHoriz $ dwmStyle shrinkText myTheme tiled ||| (smartBorders $ tabs)))) $
  onWorkspace "6" (named "Float" (simplestFloat)) $
  onWorkspace "1" (tabs) $
  (tiled ||| named "Mirror" (Mirror tiled) ||| tabs)
    where
      tiled = named "Tall" (ResizableTall 1 (3/100) (1/2) [])
      tabs = named "Tabs" (tabbed shrinkText myTheme)

Cheers
Paul-S

Last edited by Paul-S (2010-12-05 16:28:43)

---

GitHub

Paul-S

Member

From: Wales

Registered: 2008-02-04

Posts: 353

Re: [SOLVED] - XMonad Workspaces

Got it working

myManageHook  = composeAll 
                           [ className =? "Pidgin"         --> moveTo 3
                           , className =? "Firefox"        --> moveTo 0
                           , className =? "Namoroka"       --> moveTo 0
                           , className =? "Hotot"          --> moveTo 4
                           , className =? "Chromium"       --> moveTo 0
                           , className =? "uzbl-browser"   --> moveTo 0
                           , className =? "jumanji"        --> moveTo 0
                           , className =? "MPlayer"        --> moveTo 0
                           , manageDocks
                           ]
                               where moveTo i = doF . W.shift $ if i == -1 then last myWorkspaces else myWorkspaces !! i

and

myLayouts = avoidStruts $ smartBorders $
  onWorkspace (myWorkspaces !! 3) (named "IM" (reflectHoriz $ withIM (1%8) (Title "Buddy List") (reflectHoriz $ dwmStyle shrinkText myTheme tiled ||| (smartBorders $ tabs)))) $
  onWorkspace (myWorkspaces !! 5) (named "Float" (simplestFloat)) $
  onWorkspace (myWorkspaces !! 0) (tabs) $
  (tiled ||| named "Mirror" (Mirror tiled) ||| tabs)
    where
     tiled = named "Tall" (ResizableTall 1 (3/100) (1/2) [])
     tabs = named "Tabs" (tabbed shrinkText myTheme)

Cheers
Paul-S

Last edited by Paul-S (2010-12-05 15:55:32)

---

GitHub

linux-ka

Member

From: ADL

Registered: 2010-05-07

Posts: 232

Re: [SOLVED] - XMonad Workspaces

nice idea :-) maybe I'll copy a some part of it. but one major point for me, where did learn to handle xmonad config in that way? I am bound to use more or less the origin config with some very simple variation. I would like to modifiy it in a way which offers much more functionality, but ...well,..I can't without spending weeks of trial and error runs...

Paul-S

Member

From: Wales

Registered: 2008-02-04

Posts: 353

Re: [SOLVED] - XMonad Workspaces

All of my xmonad.hs is by trial and error, copying bits of other peoples configs,
I have no idea about haskell or any other coding language for that matter. Just
the ability to keep plugging away at something has got me to a config I'm happy with

Cheers
Paul-S

---

GitHub