From 4640ebf48af5ca56e162016b43bbd20f689dd5da Mon Sep 17 00:00:00 2001
From: Josh Rahm <rahm@josher.dev>
Date: Mon, 27 Apr 2026 14:35:18 -0600
Subject: [feat] better use of rdectl in xmobar.

---
 src/Rahm/Desktop/Keys/Wml.hs | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src/Rahm/Desktop/Keys')

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
-- 
cgit