Piper

lib/KeyBindings.hs

@@ -29,6 +29,7 @@ import XMonad.Util.NamedScratchpad
 
 -- Custom (in libs)
 import Password (passPrompt)
+import Music (trackPrompt)
 
 modify :: XConfig l -> XConfig l
 modify conf =
@@ -68,6 +69,7 @@ modify conf =
                       , ("M-p s", shellPrompt promptConfig)
                       , ("M-p c", withFocused centerWindow)
                       , ("M-d", passPrompt promptConfig)
+                      , ("M-m", trackPrompt promptConfig)
                       , -- Scratchpads
                         ("M-p p", namedScratchpadAction R.pads "htop")
                       , -- Dunst

lib/Music.hs

@@ -0,0 +1,11 @@
+module Music (trackPrompt) where
+
+import XMonad.Prompt
+
+newtype Music = Music {unMusic :: String}
+
+instance XPrompt Music where
+  showXPrompt (Music s) = s <> ": "
+  commandToComplete _ = id
+
+trackPrompt = undefined

lib/Password.hs

@@ -1,7 +1,7 @@
 -- Initially from
 -- https://github.com/MasseR/xmonad-masser/blob/master/src/XMonad/Password.hs
 
-module Password (passGeneratePrompt, passPrompt) where
+module Password (passPrompt) where
 
 import Control.Monad.Trans (liftIO)
 import Data.Function (on)
@@ -29,9 +29,6 @@ instance XPrompt Pass where
   commandToComplete _ = id
   nextCompletion _ = getNextCompletion
 
-passGeneratePrompt :: XPConfig -> X ()
-passGeneratePrompt _ = return () -- Not implemented
-
 passPrompt :: XPConfig -> X ()
 passPrompt = mkPassPrompt "Select password" selectPassword
 

lib/Projects.hs

@@ -38,6 +38,7 @@ projects =
   , singleApp "renoise"
   , singleApp "mixxx"
   , singleApp "darktable"
+  , singleApp "piper"
   , singleAppWithName "Books" "calibre"
   , singleAppWithName "discord" "Discord"
   , singleAppWithName "matrix" "element-desktop"

xmonad-config.cabal

@@ -17,6 +17,7 @@ executable xmonad
   main-is:              xmonad.hs
   other-modules:        KeyBindings
                       , MouseBindings
+                      , Music
                       , Nord
                       , Password
                       , Projects