ADD isync service shortcuts
This commit is contained in:
parent
51757eebf8
commit
0eda7a2949
|
@ -479,6 +479,8 @@ mkKeys ts c =
|
||||||
-- M-<F1> reserved for showing the keymap
|
-- M-<F1> reserved for showing the keymap
|
||||||
, ("M-<F2>", "restart xmonad", runCleanup ts >> runRestart)
|
, ("M-<F2>", "restart xmonad", runCleanup ts >> runRestart)
|
||||||
, ("M-<F3>", "recompile xmonad", runRecompile)
|
, ("M-<F3>", "recompile xmonad", runRecompile)
|
||||||
|
, ("M-<F7>", "start Isync Service", runStartISyncService)
|
||||||
|
, ("M-C-<F7>", "start Isync Timer", runStartISyncTimer)
|
||||||
, ("M-<F8>", "select autorandr profile", runAutorandrMenu)
|
, ("M-<F8>", "select autorandr profile", runAutorandrMenu)
|
||||||
, ("M-<F9>", "toggle ethernet", runToggleEthernet)
|
, ("M-<F9>", "toggle ethernet", runToggleEthernet)
|
||||||
, ("M-<F10>", "toggle bluetooth", runToggleBluetooth)
|
, ("M-<F10>", "toggle bluetooth", runToggleBluetooth)
|
||||||
|
|
|
@ -28,6 +28,8 @@ module XMonad.Internal.Command.Desktop
|
||||||
, runScreenCapture
|
, runScreenCapture
|
||||||
, runDesktopCapture
|
, runDesktopCapture
|
||||||
, runCaptureBrowser
|
, runCaptureBrowser
|
||||||
|
, runStartISyncTimer
|
||||||
|
, runStartISyncService
|
||||||
) where
|
) where
|
||||||
|
|
||||||
import Control.Monad (void)
|
import Control.Monad (void)
|
||||||
|
@ -137,6 +139,18 @@ runToggleEthernet = spawn
|
||||||
#!>> fmtCmd "nmcli" ["device", "$a", ethernetIface]
|
#!>> fmtCmd "nmcli" ["device", "$a", ethernetIface]
|
||||||
#!&& fmtNotifyCmd defNoteInfo { body = Just $ Text "ethernet \"$a\"ed" }
|
#!&& fmtNotifyCmd defNoteInfo { body = Just $ Text "ethernet \"$a\"ed" }
|
||||||
|
|
||||||
|
runStartISyncTimer :: X ()
|
||||||
|
runStartISyncTimer = spawn
|
||||||
|
$ "systemctl --user start mbsync.timer"
|
||||||
|
#!&& fmtNotifyCmd defNoteInfo { body = Just $ Text "Isync timer started" }
|
||||||
|
#!|| fmtNotifyCmd defNoteError { body = Just $ Text "Isync timer failed to start" }
|
||||||
|
|
||||||
|
runStartISyncService :: X ()
|
||||||
|
runStartISyncService = spawn
|
||||||
|
$ "systemctl --user start mbsync.service"
|
||||||
|
#!&& fmtNotifyCmd defNoteInfo { body = Just $ Text "Isync completed" }
|
||||||
|
#!|| fmtNotifyCmd defNoteError { body = Just $ Text "Isync failed" }
|
||||||
|
|
||||||
--------------------------------------------------------------------------------
|
--------------------------------------------------------------------------------
|
||||||
-- | Configuration commands
|
-- | Configuration commands
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue