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

Use lookup instead of find in A.PerWorkspaceKeys

Browse Source
This commit is contained in:
Adam Vogt 2009-11-29 03:26:50 +00:00
parent de3cafec0d
commit 84a8e42ac0
1 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
XMonad/Actions/PerWorkspaceKeys.hs
View File

@ -21,7 +21,6 @@ module XMonad.Actions.PerWorkspaceKeys (
import XMonad
import XMonad.StackSet as S
import Data.List (find)
-- $usage
--
@ -42,9 +41,9 @@ chooseAction f = withWindowSet (f . S.currentTag)
-- If it isn't listed, then run default action (marked with empty string, \"\"), or do nothing if default isn't supplied.
bindOn :: [(String, X())] -> X()
bindOn bindings = chooseAction chooser where
chooser ws = case find ((ws==).fst) bindings of
Just (_, action) -> action
Nothing -> case find ((""==).fst) bindings of
Just (_, action) -> action
chooser ws = case lookup ws bindings of
Just action -> action
Nothing -> case lookup "" bindings of
Just action -> action
Nothing -> return ()