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
import XMonad.StackSet as S import XMonad.StackSet as S
import Data.List (find)
-- $usage -- $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. -- 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 :: [(String, X())] -> X()
bindOn bindings = chooseAction chooser where bindOn bindings = chooseAction chooser where
chooser ws = case find ((ws==).fst) bindings of chooser ws = case lookup ws bindings of
Just (_, action) -> action Just action -> action
Nothing -> case find ((""==).fst) bindings of Nothing -> case lookup "" bindings of
Just (_, action) -> action Just action -> action
Nothing -> return () Nothing -> return ()