summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar/Plugins
diff options
context:
space:
mode:
Diffstat (limited to 'src/Xmobar/Plugins')
-rw-r--r--src/Xmobar/Plugins/Kbd.hsc28
1 files changed, 14 insertions, 14 deletions
diff --git a/src/Xmobar/Plugins/Kbd.hsc b/src/Xmobar/Plugins/Kbd.hsc
index 763150b..372386e 100644
--- a/src/Xmobar/Plugins/Kbd.hsc
+++ b/src/Xmobar/Plugins/Kbd.hsc
@@ -382,23 +382,23 @@ instance Exec Kbd where
alias (Kbd _) = "kbd"
start (Kbd opts) cb = do
- dpy <- openDisplay ""
+ dpy <- openDisplay ""
- -- initial set of layout
- cb =<< getKbdLay dpy opts
+ -- initial set of layout
+ cb =<< getKbdLay dpy opts
- -- enable listing for
- -- group changes
- _ <- xkbSelectEventDetails dpy xkbUseCoreKbd xkbStateNotify xkbAllStateComponentsMask xkbGroupStateMask
- -- layout/geometry changes
- _ <- xkbSelectEvents dpy xkbUseCoreKbd xkbNewKeyboardNotifyMask xkbNewKeyboardNotifyMask
+ -- enable listing for
+ -- group changes
+ _ <- xkbSelectEventDetails dpy xkbUseCoreKbd xkbStateNotify xkbAllStateComponentsMask xkbGroupStateMask
+ -- layout/geometry changes
+ _ <- xkbSelectEvents dpy xkbUseCoreKbd xkbNewKeyboardNotifyMask xkbNewKeyboardNotifyMask
- allocaXEvent $ \e -> forever $ do
- nextEvent' dpy e
- _ <- getEvent e
- cb =<< getKbdLay dpy opts
+ allocaXEvent $ \e -> forever $ do
+ nextEvent' dpy e
+ _ <- getEvent e
+ cb =<< getKbdLay dpy opts
- closeDisplay dpy
- return ()
+ closeDisplay dpy
+ return ()
-- vim:ft=haskell:ts=4:shiftwidth=4:softtabstop=4:expandtab:foldlevel=20: