diff options
author | azahi <azahi@teknik.io> | 2018-10-13 14:12:30 +0300 |
---|---|---|
committer | azahi <azahi@teknik.io> | 2018-10-13 14:12:30 +0300 |
commit | 8e20389ce238d979e6cb9253643bc181d698f5a9 (patch) | |
tree | d777052e5ac411cfa79de596ecc99d7d596705d8 | |
parent | Rework Custom (diff) |
Huge update, yet again
Move to ~/.xmonad Completely redo directory structure Remove Test.hs with xmonad-ng-test because it breaks cabal Add headers for new files Add proper "copyright" entries and mention upstream xmonad developers Other minor fixes
-rw-r--r-- | .gitignore | 1 | ||||
-rwxr-xr-x | scripts/mpc-play-pause.sh (renamed from misc/bin/mpc-play-pause.sh) | 0 | ||||
-rwxr-xr-x | scripts/nsp-console.sh (renamed from misc/bin/nsp-console.sh) | 0 | ||||
-rwxr-xr-x | scripts/screenlock.sh (renamed from misc/bin/screenlock.sh) | 0 | ||||
-rwxr-xr-x | scripts/toggle-compton.sh (renamed from misc/bin/toggle-compton.sh) | 0 | ||||
-rwxr-xr-x | scripts/toggle-redshift.sh (renamed from misc/bin/toggle-redshift.sh) | 0 | ||||
-rwxr-xr-x | scripts/toggle-touchpad.sh (renamed from misc/bin/toggle-touchpad.sh) | 0 | ||||
-rwxr-xr-x | scripts/toggle-trackpoint.sh (renamed from misc/bin/toggle-trackpoint.sh) | 0 | ||||
-rwxr-xr-x | scripts/xmobar/fcitx.sh (renamed from misc/bin/xmobar/fcitx.sh) | 0 | ||||
-rwxr-xr-x | scripts/xshot-select-upload.sh (renamed from misc/bin/xshot-select-upload.sh) | 0 | ||||
-rwxr-xr-x | scripts/xshot-select.sh (renamed from misc/bin/xshot-select.sh) | 0 | ||||
-rwxr-xr-x | scripts/xshot-upload.sh (renamed from misc/bin/xshot-upload.sh) | 0 | ||||
-rwxr-xr-x | scripts/xshot.sh (renamed from misc/bin/xshot.sh) | 0 | ||||
-rw-r--r-- | src/Test.hs | 50 | ||||
-rw-r--r-- | src/XMonad/Actions/FloatSnapSpaced.hs | 2 | ||||
-rw-r--r-- | src/XMonad/Custom/Bindings.hs | 24 | ||||
-rw-r--r-- | src/XMonad/Custom/Log.hs | 4 | ||||
-rw-r--r-- | src/XMonad/Custom/Prompt.hs | 18 | ||||
-rw-r--r-- | src/XMonad/Custom/Scratchpads.hs | 4 | ||||
-rw-r--r-- | src/XMonad/Custom/Startup.hs | 4 | ||||
-rw-r--r-- | src/XMonad/Util/ALSA.hs | 12 | ||||
-rw-r--r-- | stack.yaml | 2 | ||||
-rwxr-xr-x | test/xmonad-ng-xephyr.sh | 102 | ||||
-rw-r--r-- | xmobarrc/bot.hs (renamed from misc/xmobarrcBot.hs) | 9 | ||||
-rw-r--r-- | xmobarrc/top.hs (renamed from misc/xmobarrcTop.hs) | 3 | ||||
-rw-r--r-- | xmonad-ng.cabal | 71 |
26 files changed, 175 insertions, 131 deletions
diff --git a/.gitignore b/.gitignore index b9df080..f11ea6a 100644 --- a/.gitignore +++ b/.gitignore @@ -2,3 +2,4 @@ .stack-work/ cabal.sandbox.config dist/ +prompt-history diff --git a/misc/bin/mpc-play-pause.sh b/scripts/mpc-play-pause.sh index 3fb4f3b..3fb4f3b 100755 --- a/misc/bin/mpc-play-pause.sh +++ b/scripts/mpc-play-pause.sh diff --git a/misc/bin/nsp-console.sh b/scripts/nsp-console.sh index 5d19f46..5d19f46 100755 --- a/misc/bin/nsp-console.sh +++ b/scripts/nsp-console.sh diff --git a/misc/bin/screenlock.sh b/scripts/screenlock.sh index 28dbe0c..28dbe0c 100755 --- a/misc/bin/screenlock.sh +++ b/scripts/screenlock.sh diff --git a/misc/bin/toggle-compton.sh b/scripts/toggle-compton.sh index 91ebc4d..91ebc4d 100755 --- a/misc/bin/toggle-compton.sh +++ b/scripts/toggle-compton.sh diff --git a/misc/bin/toggle-redshift.sh b/scripts/toggle-redshift.sh index 8ba6b60..8ba6b60 100755 --- a/misc/bin/toggle-redshift.sh +++ b/scripts/toggle-redshift.sh diff --git a/misc/bin/toggle-touchpad.sh b/scripts/toggle-touchpad.sh index 5a30528..5a30528 100755 --- a/misc/bin/toggle-touchpad.sh +++ b/scripts/toggle-touchpad.sh diff --git a/misc/bin/toggle-trackpoint.sh b/scripts/toggle-trackpoint.sh index b0b3501..b0b3501 100755 --- a/misc/bin/toggle-trackpoint.sh +++ b/scripts/toggle-trackpoint.sh diff --git a/misc/bin/xmobar/fcitx.sh b/scripts/xmobar/fcitx.sh index ddf1826..ddf1826 100755 --- a/misc/bin/xmobar/fcitx.sh +++ b/scripts/xmobar/fcitx.sh diff --git a/misc/bin/xshot-select-upload.sh b/scripts/xshot-select-upload.sh index e846800..e846800 100755 --- a/misc/bin/xshot-select-upload.sh +++ b/scripts/xshot-select-upload.sh diff --git a/misc/bin/xshot-select.sh b/scripts/xshot-select.sh index 53ad782..53ad782 100755 --- a/misc/bin/xshot-select.sh +++ b/scripts/xshot-select.sh diff --git a/misc/bin/xshot-upload.sh b/scripts/xshot-upload.sh index 91c23f4..91c23f4 100755 --- a/misc/bin/xshot-upload.sh +++ b/scripts/xshot-upload.sh diff --git a/misc/bin/xshot.sh b/scripts/xshot.sh index d7984e3..d7984e3 100755 --- a/misc/bin/xshot.sh +++ b/scripts/xshot.sh diff --git a/src/Test.hs b/src/Test.hs deleted file mode 100644 index eea5d61..0000000 --- a/src/Test.hs +++ /dev/null @@ -1,50 +0,0 @@ -module Main where - -import Control.Monad (void) -import qualified Data.Map as M -import qualified Data.Set as S -import XMonad -import XMonad.Prompt -import XMonad.StackSet (new) -import XMonad.Util.EZConfig (checkKeymap) -import XMonad.Util.Font -import XMonad.Custom.Bindings (rawKeys) -import XMonad.Custom.Theme (promptTheme) - -main :: IO () -main = do - dpy <- openDisplay "" - rootw <- rootWindow dpy $ defaultScreen dpy - - let xmc = def {layoutHook = Layout $ layoutHook def} - initialWinset = new (layoutHook xmc) (workspaces xmc) [] - - let cf = XConf { display = dpy - , config = xmc - , theRoot = rootw - , normalBorder = 0 - , focusedBorder = 0 - , keyActions = M.empty - , buttonActions = M.empty - , mouseFocused = False - , mousePosition = Nothing - , currentEvent = Nothing - } - - let st = XState { windowset = initialWinset - , numberlockMask = 0 - , mapped = S.empty - , waitingUnmap = M.empty - , dragging = Nothing - , extensibleState = M.empty - } - - void $ runX cf st $ do - checkKeymap xmc (rawKeys xmc) - - xmf <- initXMF (font promptTheme) - - case xmf of - Core _ -> io (putStrLn "Font: core") - Utf8 _ -> io (putStrLn "Font: utf8") - Xft _ -> io (putStrLn "Font: xft") diff --git a/src/XMonad/Actions/FloatSnapSpaced.hs b/src/XMonad/Actions/FloatSnapSpaced.hs index 5b5d572..a579376 100644 --- a/src/XMonad/Actions/FloatSnapSpaced.hs +++ b/src/XMonad/Actions/FloatSnapSpaced.hs @@ -1,7 +1,7 @@ ----------------------------------------------------------------------------- -- | -- Module : XMonad.Actions.FloatSnapSpaced --- Copyright : (c) azahi 2018 +-- Copyright : (c) 2009 Anders Engstrom <ankaan@gmail.com> -- License : BSD3-style (see LICENSE) -- -- Maintainer : azahi@teknik.io diff --git a/src/XMonad/Custom/Bindings.hs b/src/XMonad/Custom/Bindings.hs index 7504526..b31599a 100644 --- a/src/XMonad/Custom/Bindings.hs +++ b/src/XMonad/Custom/Bindings.hs @@ -50,7 +50,6 @@ import XMonad.Layout.Reflect import XMonad.Layout.ResizableTile import XMonad.Layout.SubLayouts import XMonad.Prompt.ConfirmPrompt -import XMonad.Prompt.Pass import XMonad.Prompt.Shell import XMonad.Prompt.Window import XMonad.Prompt.Workspace @@ -133,17 +132,17 @@ keysBase _ = keysSystem :: XConfig Layout -> [(String, X ())] keysSystem _ = [ ("M-C-g" , return ()) - , ("<XF86ScreenSaver>" , spawn "~/.xmonad/bin/screenlock.sh") + , ("<XF86ScreenSaver>" , spawn "~/.xmonad/scripts/screenlock.sh") -- , ("M-S-c" , xSelectionNotify) - , ("M-<Print>" , spawn "~/.xmonad/bin/xshot-upload.sh") - , ("M-S-<Print>" , spawn "~/.xmonad/bin/xshot-select-upload.sh") - , ("M-<Insert>" , spawn "~/.xmonad/bin/xcast.sh --webm") - , ("M-S-<Insert>" , spawn "~/.xmonad/bin/xcast.sh --gif") + , ("M-<Print>" , spawn "~/.xmonad/scripts/xshot-upload.sh") + , ("M-S-<Print>" , spawn "~/.xmonad/scripts/xshot-select-upload.sh") + , ("M-<Insert>" , spawn "~/.xmonad/scripts/xcast.sh --webm") + , ("M-S-<Insert>" , spawn "~/.xmonad/scripts/xcast.sh --gif") , ("M-C-<Insert>" , spawn "pkill ffmpeg") - , ("M-C-c" , spawn "~/.xmonad/bin/toggle-compton.sh") - , ("M-C-r" , spawn "~/.xmonad/bin/toggle-redshift.sh") - , ("M-C-p" , spawn "~/.xmonad/bin/toggle-touchpad.sh") - , ("M-C-t" , spawn "~/.xmonad/bin/toggle-trackpoint.sh") + , ("M-C-c" , spawn "~/.xmonad/scripts/toggle-compton.sh") + , ("M-C-r" , spawn "~/.xmonad/scripts/toggle-redshift.sh") + , ("M-C-p" , spawn "~/.xmonad/scripts/toggle-touchpad.sh") + , ("M-C-t" , spawn "~/.xmonad/scripts/toggle-trackpoint.sh") ] keysMedia :: XConfig Layout -> [(String, X ())] @@ -151,7 +150,7 @@ keysMedia _ = [ ("<XF86AudioMute>" , void toggleMute) , ("<XF86AudioLowerVolume>" , void $ lowerVolume 5) , ("<XF86AudioRaiseVolume>" , void $ raiseVolume 5) - , ("<XF86AudioPlay>" , spawn "~/.xmonad/bin/mpc-play-pause.sh") + , ("<XF86AudioPlay>" , spawn "~/.xmonad/scripts/mpc-play-pause.sh") , ("<XF86AudioStop>" , spawn "mpc --no-status stop") , ("<XF86AudioPrev>" , spawn "mpc --no-status prev") , ("<XF86AudioNext>" , spawn "mpc --no-status next") @@ -159,7 +158,7 @@ keysMedia _ = keysWorkspaces :: XConfig Layout -> [(String, X ())] keysWorkspaces _ = - [ ("M-p" , switchProjectPrompt promptTheme) + [ ("M-S-o" , switchProjectPrompt promptTheme) , ("M-S-p" , shiftToProjectPrompt promptTheme) , ("M-," , nextNonEmptyWS) , ("M-." , prevNonEmptyWS) @@ -174,7 +173,6 @@ keysSpawnables :: XConfig Layout -> [(String, X ())] keysSpawnables _ = [ ("M-<Return>" , spawn (C.term C.applications)) , ("M-b" , spawn (C.browser C.applications)) - , ("M-C-p" , passPrompt promptTheme) , ("M-c" , namedScratchpadAction scratchpads "console") , ("M-m" , namedScratchpadAction scratchpads "music") , ("M-t" , namedScratchpadAction scratchpads "top") diff --git a/src/XMonad/Custom/Log.hs b/src/XMonad/Custom/Log.hs index 461634e..e441a02 100644 --- a/src/XMonad/Custom/Log.hs +++ b/src/XMonad/Custom/Log.hs @@ -44,9 +44,7 @@ topBarPP = def , ppWsSep = " " , ppTitle = xmobarColor white1 "" . shorten 50 , ppTitleSanitize = xmobarStrip - , ppLayout = xmobarColor white1 "" . \case "Spacing 12 Tabbed Hidden BSP" -> "Omni.Gaps" - "Tabbed Hidden BSP" -> "Omni" - _ -> "Misc" + , ppLayout = xmobarColor white1 "" , ppOrder = id , ppSort = (namedScratchpadFilterOutWorkspace .) <$> getSortByIndex , ppExtras = [] diff --git a/src/XMonad/Custom/Prompt.hs b/src/XMonad/Custom/Prompt.hs new file mode 100644 index 0000000..15aab2c --- /dev/null +++ b/src/XMonad/Custom/Prompt.hs @@ -0,0 +1,18 @@ +module XMonad.Custom.Prompt + ( listCompFunc + , aListCompFunc + , predicateFunction + ) where + +import Data.Char +import Data.List +import XMonad.Prompt + +listCompFunc :: XPConfig -> [String] -> String -> IO [String] +listCompFunc c xs s = return (filter (searchPredicate c s) xs) + +aListCompFunc :: XPConfig -> [(String, a)] -> String -> IO [String] +aListCompFunc c xs = listCompFunc c (map fst xs) + +predicateFunction :: String -> String -> Bool +predicateFunction x y = lc x `isInfixOf` lc y where lc = map toLower diff --git a/src/XMonad/Custom/Scratchpads.hs b/src/XMonad/Custom/Scratchpads.hs index 98ddaf5..d463b87 100644 --- a/src/XMonad/Custom/Scratchpads.hs +++ b/src/XMonad/Custom/Scratchpads.hs @@ -34,7 +34,7 @@ floatingNSP = customFloating $ S.RationalRect x y w h scratchpads :: [NamedScratchpad] scratchpads = [ NS "console" - (spawnTerminalWith "NSPConsole" "~/.xmonad/bin/nsp-console.sh") + (spawnTerminalWith "NSPConsole" "~/.xmonad/scripts/nsp-console.sh") (title =? "NSPConsole") floatingNSP , NS "volume" @@ -42,7 +42,7 @@ scratchpads = (title =? "NSPVolume") floatingNSP , NS "music" - (spawnTerminalWith "NSPMusic" "~/.bin/mp") + (spawnTerminalWith "NSPMusic" "mp") (title =? "NSPMusic") floatingNSP , NS "top" diff --git a/src/XMonad/Custom/Startup.hs b/src/XMonad/Custom/Startup.hs index 3738f6a..6050dff 100644 --- a/src/XMonad/Custom/Startup.hs +++ b/src/XMonad/Custom/Startup.hs @@ -51,8 +51,8 @@ addEWMHFullscreen = do startupHook :: X () startupHook = do - spawnNamedPipe "xmobar ~/.xmonad/xmobarrcTop.hs" "xmobarTop" - spawnNamedPipe "xmobar ~/.xmonad/xmobarrcBot.hs" "xmobarBot" + spawnNamedPipe "xmobar ~/.xmonad/xmobarrc/top.hs" "xmobarTop" + spawnNamedPipe "xmobar ~/.xmonad/xmobarrc/bot.hs" "xmobarBot" docksStartupHook addEWMHFullscreen setDefaultCursor xC_left_ptr diff --git a/src/XMonad/Util/ALSA.hs b/src/XMonad/Util/ALSA.hs index 3e543df..0bccfd8 100644 --- a/src/XMonad/Util/ALSA.hs +++ b/src/XMonad/Util/ALSA.hs @@ -1,5 +1,17 @@ {-# LANGUAGE CPP #-} +---------------------------------------------------------------------------- +-- | +-- Module : XMonad.Util.ALSA +-- Copyright : (c) daniel@wagner-home.com +-- License : BSD3-style (see LICENSE) +-- +-- Maintainer : azahi@teknik.io +-- Stability : unstable +-- Portability : unportable +-- +---------------------------------------------------------------------------- + module XMonad.Util.ALSA ( toggleMute , raiseVolume diff --git a/stack.yaml b/stack.yaml index ab9f566..0183c3c 100644 --- a/stack.yaml +++ b/stack.yaml @@ -1,4 +1,4 @@ -resolver: lts-12.11 +resolver: lts-12.12 packages: - . - ./vendor/xmonad diff --git a/test/xmonad-ng-xephyr.sh b/test/xmonad-ng-xephyr.sh new file mode 100755 index 0000000..37e0bab --- /dev/null +++ b/test/xmonad-ng-xephyr.sh @@ -0,0 +1,102 @@ +#!/bin/sh -eu + +usage () { + cat << EOF +Usage: xmonad-ng-xephyr.sh [options] + + -d NxN Set the screen size to NxN + -h This message + -n NUM Set the internal DISPLAY to NUM + -s NUM Set the number of screens to NUM +EOF +} + +ARCH=$(uname -m) +OS=$(uname -s | tr '[:upper:]' '[:lower:]') +SCREENS=1 +SCREEN_SIZE="800x600" +DISPLAY_NUMBER=5 + +while getopts "d:hs:n:" o +do + case "${o}" in + d) + SCREEN_SIZE=$OPTARG + ;; + + h) usage + exit + ;; + + n) + DISPLAY_NUMBER=$OPTARG + ;; + + s) + SCREENS=$OPTARG + ;; + + *) + echo + usage + exit 1 + ;; + esac +done + +shift $((OPTIND-1)) + +################################################################################ +if [ -d .stack-work ]; then + echo "stack build detected" + options="" + [ "${NIX_PATH:-NO}" = "NO" ] || options="--nix" + BIN_PATH=$(stack path $options --dist-dir)/build/xmonad-ng +elif [ -d dist ]; then + echo "cabal build detected" + BIN_PATH=$(find dist/ -type f -executable -name xmonad-ng -printf '%h') +else + echo "you need to build xmonad-ng first, see README for instructions" + exit 1 +fi + +RAW_BIN=$BIN_PATH/xmonad-ng +ARCH_BIN=$BIN_PATH/xmonad-ng-$ARCH-$OS + +################################################################################ +cp -p "$RAW_BIN" "$ARCH_BIN" + +################################################################################ +XMONAD_CONFIG_DIR=$(pwd)/state/config +XMONAD_CACHE_DIR=$(pwd)/state/cache +XMONAD_DATA_DIR=$(pwd)/state/data +export XMONAD_CONFIG_DIR XMONAD_CACHE_DIR XMONAD_DATA_DIR + +mkdir -p "$XMONAD_CONFIG_DIR" "$XMONAD_CACHE_DIR" "$XMONAD_DATA_DIR" +echo "xmonad will store state files in $(pwd)/state" + +################################################################################ +SCREEN_COUNTER=0 +SCREEN_OPTS="" +X_OFFSET_CURRENT="0" +X_OFFSET_ADD=$(echo "$SCREEN_SIZE" | cut -dx -f1) + +while expr "$SCREEN_COUNTER" "<" "$SCREENS"; do + SCREEN_OPTS="$SCREEN_OPTS -origin ${X_OFFSET_CURRENT},0 -screen ${SCREEN_SIZE}+${X_OFFSET_CURRENT}" + SCREEN_COUNTER=$(("$SCREEN_COUNTER" + 1)) + X_OFFSET_CURRENT=$(("$X_OFFSET_CURRENT" + "$X_OFFSET_ADD")) +done + +( + # shellcheck disable=SC2086 + Xephyr $SCREEN_OPTS +xinerama +extension RANDR \ + -ac -br -reset -terminate -verbosity 10 \ + -softCursor ":$DISPLAY_NUMBER" & + + export DISPLAY=":$DISPLAY_NUMBER" + echo "Waiting for windows to appear..." && sleep 2 + + xterm -hold xrandr & + xterm & + $ARCH_BIN +) diff --git a/misc/xmobarrcBot.hs b/xmobarrc/bot.hs index c70689b..292fec8 100644 --- a/misc/xmobarrcBot.hs +++ b/xmobarrc/bot.hs @@ -11,6 +11,7 @@ Config { font = "xft:lucy tewi:style=Regular:pixelsize=11,Efont Biwidth:pixelsiz , height = 24 } , textOffset = 16 + , textOffsets = [16, -1] , iconOffset = -1 , lowerOnStart = True , hideOnStart = False @@ -32,11 +33,11 @@ Config { font = "xft:lucy tewi:style=Regular:pixelsize=11,Efont Biwidth:pixelsiz , Run Memory [ "-t", "<fn=1>\57384</fn><usedratio>%" ] 10 , Run ThermalZone 0 ["-t","<fn=1>\57371</fn><temp>°C"] 10 , Run ThermalZone 1 ["-t","<temp>°C"] 10 - , Run Wireless "wlp3s0" [ "-t", "<fn=1>\57882</fn><essid> @ <quality>%" ] 10 + , Run Wireless "wlp3s0" [ "-t", "<fn=1>\57775</fn><essid> @ <quality>%" ] 10 , Run DynNetwork [ "-t", "<fn=1>\57660</fn><rx> / <fn=1>\57659</fn><tx> kbps" ] 10 - , Run Kbd [ ("us", "<fn=1>\57967</fn>English / <fn=1>\57898</fn>") - , ("ru", "<fn=1>\57967</fn>Russian / <fn=1>\57898</fn>")] - , Run Com "/home/free/.xmonad/bin/xmobar/fcitx.sh" [] "fcitx" 3 + , Run Kbd [ ("us", "English / ") + , ("ru", "Russian / ")] + , Run Com "/home/free/.xmonad/scripts/xmobar/fcitx.sh" [] "fcitx" 3 , Run Locks , Run MPD [ "-t", "<fn=1><statei></fn><artist> - <title>" , "--" diff --git a/misc/xmobarrcTop.hs b/xmobarrc/top.hs index 6764359..0f26e5c 100644 --- a/misc/xmobarrcTop.hs +++ b/xmobarrc/top.hs @@ -10,7 +10,8 @@ Config { font = "xft:lucy tewi:style=Regular:pixelsize=11,Efont Biwidth:pixelsiz , width = 1600 , height = 24 } - , textOffset = 16 + , textOffset = -1 + , textOffsets = [-1, -1] , iconOffset = -1 , lowerOnStart = True , hideOnStart = False diff --git a/xmonad-ng.cabal b/xmonad-ng.cabal index 112c369..1713214 100644 --- a/xmonad-ng.cabal +++ b/xmonad-ng.cabal @@ -17,7 +17,8 @@ source-repository head type: git location: https://github.com/azahi/xmonad-ng -library +executable xmonad-ng + main-is: Main.hs ghc-options: -Wall hs-source-dirs: src default-language: Haskell2010 @@ -27,58 +28,21 @@ library , MultiParamTypeClasses , TypeSynonymInstances - exposed-modules: XMonad.Actions.FloatSnapSpaced - , XMonad.Actions.PerConditionKeys - , XMonad.Custom.Bindings - , XMonad.Custom.Event - , XMonad.Custom.Layout - , XMonad.Custom.Log - , XMonad.Custom.Manage - , XMonad.Custom.Misc - , XMonad.Custom.Navigation - , XMonad.Custom.Projects - , XMonad.Custom.Scratchpads - , XMonad.Custom.Startup - , XMonad.Custom.Theme - , XMonad.Custom.Workspaces - , XMonad.Util.ALSA - - build-depends: X11 >= 1.9 && < 1.10 - , alsa-mixer >= 0.2 && < 0.3 - , base >= 4.11 && < 4.12 - , containers >= 0.5 && < 0.6 - , directory >= 1.3 && < 1.4 - , filepath >= 1.4 && < 1.5 - , mtl >= 2.2 && < 2.3 - , text >= 1.2 && < 1.3 - , time >= 1.8 && < 1.9 - , xmonad >= 0.15 && < 0.16 - , xmonad-contrib >= 0.15 && < 0.16 - -executable xmonad-ng - main-is: Main.hs - ghc-options: -Wall - hs-source-dirs: src - default-language: Haskell2010 - - build-depends: X11 >= 1.9 && < 1.10 - , alsa-mixer >= 0.2 && < 0.3 - , base >= 4.11 && < 4.12 - , containers >= 0.5 && < 0.6 - , directory >= 1.3 && < 1.4 - , filepath >= 1.4 && < 1.5 - , mtl >= 2.2 && < 2.3 - , text >= 1.2 && < 1.3 - , time >= 1.8 && < 1.9 - , xmonad >= 0.15 && < 0.16 - , xmonad-contrib >= 0.15 && < 0.16 - , xmonad-ng - -executable xmonad-ng-test - main-is: Test.hs - ghc-options: -Wall - hs-source-dirs: src - default-language: Haskell2010 + other-modules: XMonad.Actions.FloatSnapSpaced + , XMonad.Actions.PerConditionKeys + , XMonad.Custom.Bindings + , XMonad.Custom.Event + , XMonad.Custom.Layout + , XMonad.Custom.Log + , XMonad.Custom.Manage + , XMonad.Custom.Misc + , XMonad.Custom.Navigation + , XMonad.Custom.Projects + , XMonad.Custom.Scratchpads + , XMonad.Custom.Startup + , XMonad.Custom.Theme + , XMonad.Custom.Workspaces + , XMonad.Util.ALSA build-depends: X11 >= 1.9 && < 1.10 , alsa-mixer >= 0.2 && < 0.3 @@ -91,4 +55,3 @@ executable xmonad-ng-test , time >= 1.8 && < 1.9 , xmonad >= 0.15 && < 0.16 , xmonad-contrib >= 0.15 && < 0.16 - , xmonad-ng |