ENH don't use the togglebt script
This commit is contained in:
parent
77e6fbe4ad
commit
83abef8540
|
@ -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 ()
|
||||||
|
|
Loading…
Reference in New Issue