Snoooopy/dtos-dotfiles
1
0
Fork 0
mirror of https://gitlab.com/dwt1/dotfiles.git synced 2026-04-24 03:50:24 +10:00
Code Issues Packages Projects Releases Wiki Activity

Reverting GridSelect list back to standard tuples.

Browse Source
This commit is contained in:
Derek Taylor
2020-07-14 12:25:31 -05:00
parent 7d93ee9b70
commit 3995d6ad71
1 changed files with 13 additions and 22 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
.xmonad/lib/Custom/MyGridMenu.hs
View File

@@ -40,25 +40,16 @@ spawnSelected' lst = gridselect conf lst >>= flip whenJust spawn
, gs_font = myFont , gs_font = myFont
} }
myAppGrid = [ ("Audacity", "audacity")
myAppsFave :: [(String, String, String)] , ("Deadbeef", "deadbeef")
myAppsFave = [ ("Audacity", "audacity", "Graphical cross-platform audio eidtor") , ("Emacs", "emacsclient -c -a emacs")
, ("Deadbeef", "deadbeef", "Lightweight GUI audio player") , ("Firefox", "firefox")
, ("Emacs", "emacs", "Much more than a text editor") , ("Geany", "geany")
, ("Firefox", "firefox", "The famous open source web browser") , ("Geary", "geary")
, ("Geany", "geany", "A nice text editor") , ("Gimp", "gimp")
, ("Geary", "geary", "Email client that is attractive") , ("Kdenlive", "kdenlive")
, ("Gimp", "gimp", "Open source alternative to Photoshop") , ("LibreOffice Impress", "loimpress")
, ("Kdenlive", "kdenlive", "A great open source video editor") , ("LibreOffice Writer", "lowriter")
, ("LibreOffice Impress", "loimpress", "For making presentations") , ("OBS", "obs")
, ("LibreOffice Writer", "lowriter", "A fully featured word processor") , ("PCManFM", "pcmanfm")
, ("OBS", "obs", "Open broadcaster software")
, ("PCManFM", "pcmanfm", "Lightweight graphical file manager")
] ]
-- Let's take myAppsFave, myBookmarks and myConfigs and take only
-- the first two values from those 3-tuples (for GridSelect).
myAppGrid :: [(String, String)]
myAppGrid = [ (a,b) | (a,b,c) <- xs]
where xs = myAppsFave