diff options
| author | Josh Rahm <rahm@josher.dev> | 2026-04-27 14:35:18 -0600 |
|---|---|---|
| committer | Josh Rahm <rahm@josher.dev> | 2026-04-27 14:35:18 -0600 |
| commit | 4640ebf48af5ca56e162016b43bbd20f689dd5da (patch) | |
| tree | 166b5f05a7d71ac5459792d51b8ac5c36e968ea7 /src/Rahm/Desktop/Keys | |
| parent | f9c3420cf571a66f8b274b0287f284522bb0feb4 (diff) | |
| download | rde-4640ebf48af5ca56e162016b43bbd20f689dd5da.tar.gz rde-4640ebf48af5ca56e162016b43bbd20f689dd5da.tar.bz2 rde-4640ebf48af5ca56e162016b43bbd20f689dd5da.zip | |
[feat] better use of rdectl in xmobar.
Diffstat (limited to 'src/Rahm/Desktop/Keys')
| -rw-r--r-- | src/Rahm/Desktop/Keys/Wml.hs | 4 |
1 files changed, 4 insertions, 0 deletions
diff --git a/src/Rahm/Desktop/Keys/Wml.hs b/src/Rahm/Desktop/Keys/Wml.hs index e64c6e0..2d4562a 100644 --- a/src/Rahm/Desktop/Keys/Wml.hs +++ b/src/Rahm/Desktop/Keys/Wml.hs @@ -41,6 +41,7 @@ module Rahm.Desktop.Keys.Wml workspaceForStringT, workspaceForString, locationSetForKeysT, + locationSetForStringT, locationSetForKeys, readNextWorkspaceName, workspaceName, @@ -459,6 +460,9 @@ workspaceForStringT = workspaceForKeysT . map (\c -> (def, def, [c])) workspaceForString :: String -> X (Maybe Workspace) workspaceForString = runMaybeT . workspaceForStringT +locationSetForStringT :: String -> MaybeT X [Location] +locationSetForStringT = locationSetForKeysT . map (\c -> (def, def, [c])) + -- Like the above, but unwrap the MaybeT locationSetForKeysT :: KeyString -> MaybeT X [Location] locationSetForKeysT s = runKeyFeedWithKeys s readNextLocationSet |