You are not logged in.

#1 2010-11-24 23:12:30

nnoell
Member
From: Spain
Registered: 2010-08-21
Posts: 99

[SOLVED]Xmonad clickeable workspaces problem with this setup

Hi everybody,

I recently swiched from openbox to xmonad and I have some problems with the clickeable workspaces configuration. Thanks to this guide I am able to solve the problem, however It seems that it only works when the workspace config doesn't have icons on the workspace name. I mean, it only works when the workspace name is a simple string like "1", "main", etc...

Here is my workspaces setup:

myWorkspaces = clickable . (map dzenEscape) $ 
    [ ws "/root.xbm" "shell"
    , ws "/fox.xbm" "web"
    , ws "/note.xbm" "music"
    , ws "/code.xbm" "code"
    , ws "/info_03.xbm" "chat"
    , ws "/mouse_01.xbm" "gfx"
    , ws "/win.xbm" "wine"
    ]
    where
        ws wsIcon wsName = "  ^i(" ++ myBitmapsPath ++ wsIcon ++ ") " ++ wsName ++  "  "
        clickable l     = [ "^ca(1, /home/nnoell/.xmonad/scripts/superkey.sh " ++ show (n) ++ ")" ++ ws ++ "^ca()" |
            (i,ws) <- zip [1..] l,
            let n = if i == 10 then 0 else i ] -- needed for 10 workspaces

With this setup I can switch workspaces by clicking on them but the name of them have no icon, instead of having the icon they have the full icon path.

How it looks:
25026386.png

How I would like it to look:
22860641.png

Is there any solution to this problem? btw, i'm pretty new to haskell.

Thanks for your time.

Last edited by nnoell (2010-11-27 19:55:14)

Offline

#2 2010-11-27 19:54:52

nnoell
Member
From: Spain
Registered: 2010-08-21
Posts: 99

Re: [SOLVED]Xmonad clickeable workspaces problem with this setup

I found the problem, it seems you have to define the workspace names in one string. Like so:

myWorkspaces = clickable $
    ["  ^i(/home/nnoell/.xmonad/icons/root.xbm) shell  "
    ,"  ^i(/home/nnoell/.xmonad/icons/fox.xbm) web  "
    ,"  ^i(/home/nnoell/.xmonad/icons/note.xbm) music  "
    ,"  ^i(/home/nnoell/.xmonad/icons/code.xbm) code  "
    ,"  ^i(/home/nnoell/.xmonad/icons/info_03.xbm) chat  "
    ,"  ^i(/home/nnoell/.xmonad/icons/mouse_01.xbm) gfx  "
    ,"  ^i(/home/nnoell/.xmonad/icons/ac.xbm) video  "
    ,"  ^i(/home/nnoell/.xmonad/icons/win.xbm) wine  "
    ]
        where clickable l = [ "^ca(1,xdotool key super+" ++ show (n) ++ ")" ++ ws ++ "^ca()" |
            (i,ws) <- zip [1..] l,
            let n = if i == 10 then 0 else i 

Last edited by nnoell (2010-11-27 21:16:20)

Offline

Board footer

Powered by FluxBB