twin/xmonad-contrib
1
0
Fork 0
mirror of https://github.com/xmonad/xmonad-contrib.git synced 2025-07-26 09:41:52 -07:00
Code Issues Packages Projects Releases Wiki Activity

use complCaseSensitivity field

Browse Source 
Use the newly-added complCaseSensitivity field of XPConfig where
possible, rather than declaring primed function variants.
This commit is contained in:
ivanbrennan
2020-09-28 22:27:07 -04:00
parent b63159fd00
commit 52c5bd61cb
4 changed files with 47 additions and 80 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
XMonad/Layout/WorkspaceDir.hs
View File

@@ -26,7 +26,6 @@ module XMonad.Layout.WorkspaceDir (
-- $usage
workspaceDir,
changeDir,
changeDir',
WorkspaceDir,
) where
@@ -34,8 +33,8 @@ import System.Directory ( setCurrentDirectory, getCurrentDirectory )
import Control.Monad ( when )
import XMonad hiding ( focus )
import XMonad.Prompt ( ComplCaseSensitivity (ComplCaseSensitive), XPConfig )
import XMonad.Prompt.Directory ( directoryPrompt' )
import XMonad.Prompt ( XPConfig )
import XMonad.Prompt.Directory ( directoryPrompt )
import XMonad.Layout.LayoutModifier
import XMonad.StackSet ( tag, currentTag )
@@ -61,7 +60,8 @@ import XMonad.StackSet ( tag, currentTag )
--
-- If you prefer a prompt with case-insensitive completion:
--
-- > , ((modm .|. shiftMask, xK_x ), changeDir' (ComplCaseSensitive False) def)
-- > , ((modm .|. shiftMask, xK_x ),
-- changeDir def {complCaseSensitivity = ComplCaseSensitive False})
--
-- For detailed instruction on editing the key binding see:
--
@@ -92,7 +92,4 @@ scd :: String -> X ()
scd x = catchIO $ setCurrentDirectory x
changeDir :: XPConfig -> X ()
changeDir = changeDir' (ComplCaseSensitive True)
changeDir' :: ComplCaseSensitivity -> XPConfig -> X ()
changeDir' csn c = directoryPrompt' csn c "Set working directory: " (sendMessage . Chdir)
changeDir c = directoryPrompt c "Set working directory: " (sendMessage . Chdir)