From 729e030dd25da2e36fa5a1312b8ecb3415dc1675 Mon Sep 17 00:00:00 2001
From: Azat Bahawi <azahi@teknik.io>
Date: Tue, 23 Nov 2021 03:19:06 +0300
Subject: Huge update

---
 src/XMonad/Actions/PerConditionKeys.hs | 34 ----------------------------------
 1 file changed, 34 deletions(-)
 delete mode 100644 src/XMonad/Actions/PerConditionKeys.hs

(limited to 'src/XMonad/Actions/PerConditionKeys.hs')

diff --git a/src/XMonad/Actions/PerConditionKeys.hs b/src/XMonad/Actions/PerConditionKeys.hs
deleted file mode 100644
index 09372cd..0000000
--- a/src/XMonad/Actions/PerConditionKeys.hs
+++ /dev/null
@@ -1,34 +0,0 @@
--- |
--- Module      : XMonad.Actions.PerConditionKeys
--- Copyright   : (c) 2018-2020 Azat Bahawi <azahi@teknik.io>
--- License     : BSD3-style (see LICENSE)
--- Maintainer  : Azat Bahawi <azahi@teknik.io>
--- Stability   : unstable
--- Portability : unportable
---
-
-module XMonad.Actions.PerConditionKeys
-  ( XCond(..)
-  , chooseAction
-  , bindOn
-  ) where
-
-import           Data.List
-import           XMonad
-import qualified XMonad.StackSet               as S
-
-data XCond = WS | LD
-
-chooseAction :: XCond -> (String -> X ()) -> X ()
-chooseAction WS f = withWindowSet (f . S.currentTag)
-chooseAction LD f =
-  withWindowSet (f . description . S.layout . S.workspace . S.current)
-
-bindOn :: XCond -> [(String, X ())] -> X ()
-bindOn xc bindings = chooseAction xc chooser
- where
-  chooser x = case find ((x ==) . fst) bindings of
-    Just (_, action) -> action
-    Nothing          -> case find (("" ==) . fst) bindings of
-      Just (_, action) -> action
-      Nothing          -> return ()
-- 
cgit 1.4.1