ENH use dunstctl directly in xmonad
This commit is contained in:
parent
081959081a
commit
2a866f9877
|
@ -432,15 +432,6 @@ internalBindings c =
|
||||||
, KeyBinding "M-S-l" "shift workspace up screen" $ swapNextScreen >> nextScreen
|
, KeyBinding "M-S-l" "shift workspace up screen" $ swapNextScreen >> nextScreen
|
||||||
, KeyBinding "M-S-h" "shift workspace down screen" $ swapPrevScreen >> prevScreen
|
, KeyBinding "M-S-h" "shift workspace down screen" $ swapPrevScreen >> prevScreen
|
||||||
]
|
]
|
||||||
|
|
||||||
-- dummy map for dunst commands (defined separately but this makes them show
|
|
||||||
-- up in the help menu)
|
|
||||||
, KeyGroup "Dunst"
|
|
||||||
[ KeyBinding "M-`" "dunst history" skip
|
|
||||||
, KeyBinding "M-S-`" "dunst close" skip
|
|
||||||
, KeyBinding "M-M1-`" "dunst context menu" skip
|
|
||||||
, KeyBinding "M-C-`" "dunst close all" skip
|
|
||||||
]
|
|
||||||
]
|
]
|
||||||
|
|
||||||
mkNamedSubmap :: XConfig Layout -> KeyGroup (X ()) -> [((KeyMask, KeySym), NamedAction)]
|
mkNamedSubmap :: XConfig Layout -> KeyGroup (X ()) -> [((KeyMask, KeySym), NamedAction)]
|
||||||
|
@ -521,6 +512,13 @@ externalBindings bc sc ts =
|
||||||
, KeyBinding "<XF86AudioMute>" "volume mute" runVolumeMute
|
, KeyBinding "<XF86AudioMute>" "volume mute" runVolumeMute
|
||||||
]
|
]
|
||||||
|
|
||||||
|
, KeyGroup "Dunst"
|
||||||
|
[ KeyBinding "M-`" "dunst history" runNotificationHistory
|
||||||
|
, KeyBinding "M-S-`" "dunst close" runNotificationClose
|
||||||
|
, KeyBinding "M-M1-`" "dunst context menu" runNotificationContext
|
||||||
|
, KeyBinding "M-C-`" "dunst close all" runNotificationCloseAll
|
||||||
|
]
|
||||||
|
|
||||||
, KeyGroup "System"
|
, KeyGroup "System"
|
||||||
[ KeyBinding "M-." "backlight up" $ runMaybe bc backlightUp
|
[ KeyBinding "M-." "backlight up" $ runMaybe bc backlightUp
|
||||||
, KeyBinding "M-," "backlight down" $ runMaybe bc backlightDown
|
, KeyBinding "M-," "backlight down" $ runMaybe bc backlightDown
|
||||||
|
|
|
@ -27,6 +27,10 @@ module XMonad.Internal.Command.Desktop
|
||||||
, runCaptureBrowser
|
, runCaptureBrowser
|
||||||
, runStartISyncTimer
|
, runStartISyncTimer
|
||||||
, runStartISyncService
|
, runStartISyncService
|
||||||
|
, runNotificationClose
|
||||||
|
, runNotificationCloseAll
|
||||||
|
, runNotificationHistory
|
||||||
|
, runNotificationContext
|
||||||
) where
|
) where
|
||||||
|
|
||||||
import Control.Monad (void)
|
import Control.Monad (void)
|
||||||
|
@ -70,6 +74,9 @@ myCapture = "flameshot"
|
||||||
myImageBrowser :: String
|
myImageBrowser :: String
|
||||||
myImageBrowser = "feh"
|
myImageBrowser = "feh"
|
||||||
|
|
||||||
|
myNotificationCtrl :: String
|
||||||
|
myNotificationCtrl = "dunstctl"
|
||||||
|
|
||||||
--------------------------------------------------------------------------------
|
--------------------------------------------------------------------------------
|
||||||
-- | Misc constants
|
-- | Misc constants
|
||||||
|
|
||||||
|
@ -135,6 +142,24 @@ runVolumeUp = spawnSound volumeChangeSound (return ()) $ void (raiseVolume 2)
|
||||||
runVolumeMute :: IO MaybeX
|
runVolumeMute :: IO MaybeX
|
||||||
runVolumeMute = spawnSound volumeChangeSound (void toggleMute) $ return ()
|
runVolumeMute = spawnSound volumeChangeSound (void toggleMute) $ return ()
|
||||||
|
|
||||||
|
--------------------------------------------------------------------------------
|
||||||
|
-- | Notification control
|
||||||
|
|
||||||
|
runNotificationCmd :: String -> IO MaybeX
|
||||||
|
runNotificationCmd cmd = spawnCmdIfInstalled myNotificationCtrl [cmd]
|
||||||
|
|
||||||
|
runNotificationClose :: IO MaybeX
|
||||||
|
runNotificationClose = runNotificationCmd "close"
|
||||||
|
|
||||||
|
runNotificationCloseAll :: IO MaybeX
|
||||||
|
runNotificationCloseAll = runNotificationCmd "close-all"
|
||||||
|
|
||||||
|
runNotificationHistory :: IO MaybeX
|
||||||
|
runNotificationHistory = runNotificationCmd "history-pop"
|
||||||
|
|
||||||
|
runNotificationContext :: IO MaybeX
|
||||||
|
runNotificationContext = runNotificationCmd "context"
|
||||||
|
|
||||||
--------------------------------------------------------------------------------
|
--------------------------------------------------------------------------------
|
||||||
-- | System commands
|
-- | System commands
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue