mirror of
https://github.com/xmonad/xmonad.git
synced 2025-07-30 19:51:52 -07:00
@@ -36,7 +36,7 @@ import XMonad.StackSet hiding (modify)
|
|||||||
import Prelude
|
import Prelude
|
||||||
import Control.Exception.Extensible (fromException, try, bracket, throw, finally, SomeException(..))
|
import Control.Exception.Extensible (fromException, try, bracket, throw, finally, SomeException(..))
|
||||||
import qualified Control.Exception.Extensible as E
|
import qualified Control.Exception.Extensible as E
|
||||||
import Control.Applicative
|
import Control.Applicative(Applicative, pure, (<$>), (<*>))
|
||||||
import Control.Monad.State
|
import Control.Monad.State
|
||||||
import Control.Monad.Reader
|
import Control.Monad.Reader
|
||||||
import Data.Semigroup
|
import Data.Semigroup
|
||||||
|
@@ -197,7 +197,6 @@ launch initxmc = do
|
|||||||
hSetBuffering stdout NoBuffering
|
hSetBuffering stdout NoBuffering
|
||||||
|
|
||||||
let layout = layoutHook xmc
|
let layout = layoutHook xmc
|
||||||
lreads = readsLayout layout
|
|
||||||
initialWinset = let padToLen n xs = take (max n (length xs)) $ xs ++ repeat ""
|
initialWinset = let padToLen n xs = take (max n (length xs)) $ xs ++ repeat ""
|
||||||
in new layout (padToLen (length xinesc) (workspaces xmc)) $ map SD xinesc
|
in new layout (padToLen (length xinesc) (workspaces xmc)) $ map SD xinesc
|
||||||
|
|
||||||
|
@@ -28,7 +28,7 @@ import Data.Ratio
|
|||||||
import qualified Data.Map as M
|
import qualified Data.Map as M
|
||||||
import qualified Data.Set as S
|
import qualified Data.Set as S
|
||||||
|
|
||||||
import Control.Applicative
|
import Control.Applicative((<$>), (<*>))
|
||||||
import Control.Arrow (second)
|
import Control.Arrow (second)
|
||||||
import Control.Monad.Reader
|
import Control.Monad.Reader
|
||||||
import Control.Monad.State
|
import Control.Monad.State
|
||||||
|
17
xmonad.cabal
17
xmonad.cabal
@@ -123,3 +123,20 @@ test-suite properties
|
|||||||
X11,
|
X11,
|
||||||
xmonad
|
xmonad
|
||||||
main-is: Properties.hs
|
main-is: Properties.hs
|
||||||
|
other-modules: Instances
|
||||||
|
Properties.Delete
|
||||||
|
Properties.Failure
|
||||||
|
Properties.Floating
|
||||||
|
Properties.Focus
|
||||||
|
Properties.GreedyView
|
||||||
|
Properties.Insert
|
||||||
|
Properties.Layout.Full
|
||||||
|
Properties.Layout.Tall
|
||||||
|
Properties.Screen
|
||||||
|
Properties.Shift
|
||||||
|
Properties.Stack
|
||||||
|
Properties.StackSet
|
||||||
|
Properties.Swap
|
||||||
|
Properties.View
|
||||||
|
Properties.Workspace
|
||||||
|
Utils
|
||||||
|
Reference in New Issue
Block a user