From 8f331d44f11dca21a5dae3fb9e95051938f15f50 Mon Sep 17 00:00:00 2001
From: Tomas Janousek <tomi@nomi.cz>
Date: Tue, 16 Mar 2021 17:25:08 +0000
Subject: [PATCH] (wip) TODOs for dropping workspaceNamesRenameWS

---
 CHANGES.md                       | 2 ++
 XMonad/Actions/WorkspaceNames.hs | 2 ++
 2 files changed, 4 insertions(+)

diff --git a/CHANGES.md b/CHANGES.md
index e9e8da7171..f38937604c 100644
--- a/CHANGES.md
+++ b/CHANGES.md
@@ -407,6 +407,8 @@
     - Added `workspaceNamesRenameWS` which makes workspace names visible
       to external pagers and tools like `wmctrl` or `arbtt`.
 
+      TODO: drop this
+
   * `XMonad.Util.PureX`
 
     - Added `focusWindow` and `focusNth` which don't refresh (and thus
diff --git a/XMonad/Actions/WorkspaceNames.hs b/XMonad/Actions/WorkspaceNames.hs
index dc65717a9b..d8d4cb0973 100644
--- a/XMonad/Actions/WorkspaceNames.hs
+++ b/XMonad/Actions/WorkspaceNames.hs
@@ -184,6 +184,8 @@ workspaceNamePrompt conf job = do
 --
 -- Usage:
 -- > ewmh' def{ workspaceRename = workspaceNamesRenameWS }
+--
+-- TODO: drop this, change EwmhConfig to use getWorkspaceNames directly
 workspaceNamesRenameWS :: X (WindowSpace -> WindowSpace)
 workspaceNamesRenameWS =
     getWorkspaceNames ":" <&> \names ws -> ws{ W.tag = names (W.tag ws) ws }