twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-05-19 03:20:21 -07:00
Code Issues Packages Projects Releases Wiki Activity

ImageButtonDecoration: new image for menu button

Browse Source
This commit is contained in:
Jan Vornberger 2010-04-02 17:49:10 +00:00
parent e125c84616
commit c37cbbadf5
1 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
XMonad/Layout/ImageButtonDecoration.hs
View File

@ -81,16 +81,16 @@ convertToBool :: [[Int]] -> [[Bool]]
convertToBool = map convertToBool'
menuButton' :: [[Int]]
menuButton' = [[0,0,0,0,1,1,0,0,0,0],
[0,0,0,1,1,1,1,0,0,0],
[0,0,1,1,0,0,1,1,0,0],
[0,1,1,0,0,0,0,1,1,0],
[1,1,0,0,1,1,0,0,1,1],
[1,1,0,0,1,1,0,0,1,1],
[0,1,1,0,0,0,0,1,1,0],
[0,0,1,1,0,0,1,1,0,0],
[0,0,0,1,1,1,1,0,0,0],
[0,0,0,0,1,1,0,0,0,0]]
menuButton' = [[1,1,1,1,1,1,1,1,1,1],
[1,1,1,1,1,1,1,1,1,1],
[1,1,0,0,0,0,0,0,1,1],
[1,1,0,0,0,0,0,0,1,1],
[1,1,1,1,1,1,1,1,1,1],
[1,1,1,1,1,1,1,1,1,1],
[1,1,1,1,1,1,1,1,1,1],
[1,1,1,1,1,1,1,1,1,1],
[1,1,1,1,1,1,1,1,1,1],
[1,1,1,1,1,1,1,1,1,1]]
menuButton :: [[Bool]]
menuButton = convertToBool menuButton'