add dynamic workspace names

src/XMonad/Custom/Prompt.hs

@@ -0,0 +1,14 @@
+module XMonad.Custom.Prompt (module XMonad.Prompt, myXPConfig) where
+
+import XMonad.Prompt
+
+myXPConfig :: XPConfig
+myXPConfig = def
+    { font = "xft:Hack:pixelsize=14"
+    , bgColor = "#200000"
+    , fgColor = "#CFCFCF"
+    , height = 40
+    , position = CenteredAt 0.5 0.5
+    , promptBorderWidth = 2
+    , showCompletionOnTab = True
+    }

src/XMonad/Custom/WorkspaceNames.hs

@@ -0,0 +1,11 @@
+module XMonad.Custom.WorkspaceNames (module XMonad.Actions.WorkspaceNames, myWorkspaceNamesKeyBindings) where
+
+import XMonad
+import XMonad.Actions.WorkspaceNames
+
+import XMonad.Custom.Prompt
+
+myWorkspaceNamesKeyBindings :: [(String, X ())]
+myWorkspaceNamesKeyBindings = [
+    ("M-w", renameWorkspace myXPConfig)
+  ]

xmonad-custom.cabal

@@ -16,9 +16,11 @@ library
                    XMonad.Custom.ProgramWorkspaces
                    XMonad.Custom.UniversitySetup
                    XMonad.Custom.Layout
+                   XMonad.Custom.Prompt
                    XMonad.Custom.Workspaces
                    XMonad.Custom.Modifiers
                    XMonad.Custom.NumberWorkspaces
+                   XMonad.Custom.WorkspaceNames
   hs-source-dirs:  src
   ghc-options:     -funbox-strict-fields -Wall -Wno-unused-do-bind
   build-depends:   base