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

X.U.Run: Add toInput

Browse Source
This commit is contained in:
Tony Zorman
2023-08-08 20:00:25 +02:00
parent bf41a85d9c
commit 0ca3ce7a18
2 changed files with 7 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
XMonad/Util/Run.hs
View File

@@ -49,6 +49,7 @@ module XMonad.Util.Run (
spawnExternalProcess,
proc,
getInput,
toInput,
-- ** Programs
inEditor,
@@ -364,6 +365,10 @@ infixr 3 >-$
proc :: X Input -> X ()
proc xi = spawn =<< getInput xi
-- | Create an effectful 'Input' from a 'String'.
toInput :: String -> X Input
toInput = pure . mkDList
-- | Get the completed input string.
getInput :: X Input -> X String
getInput xi = xi <&> ($ "")