ndwarshuis
/
xmonad-config
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

ENH don't use the togglebt script

This commit is contained in:
Nathan Dwarshuis 2020-03-16 16:01:04 -04:00
parent 77e6fbe4ad
commit 83abef8540
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
bin/xmonad.hs
View File

@ -436,9 +436,14 @@ runVolumeUp = void (raiseVolume 2)
runVolumeMute :: X () runVolumeMute :: X ()
runVolumeMute = void toggleMute runVolumeMute = void toggleMute
-- TODO write this in haskell -- TODO make a formatter for the notify command
runToggleBluetooth :: X () runToggleBluetooth :: X ()
runToggleBluetooth = spawn "togglebt" runToggleBluetooth = spawn
$ "bluetoothctl show | grep -q \"Powered: no\""
#!&& "a=on"
#!|| "a=off"
#!>> formatCmd "bluetoothctl" ["power", "$a", ">", "/dev/null"]
#!&& formatCmd "notify-send" ["\"bluetooth powered $a\""]
-- TODO write these in haskell -- TODO write these in haskell
runIncBacklight :: X () runIncBacklight :: X ()