summaryrefslogtreecommitdiffhomepage
path: root/doc/window-managers.org
diff options
context:
space:
mode:
authorjao <jao@gnu.org>2022-02-19 04:22:52 +0000
committerjao <jao@gnu.org>2022-02-19 04:22:52 +0000
commit1507fe356d26d6a90650b0aecf806c1ddf287f9a (patch)
tree0d1e894ecfb51e8b85937ff4947a113a897c3ae0 /doc/window-managers.org
parent70d19883d513a2b5b9038df6c15062cebea680a3 (diff)
downloadxmobar-1507fe356d26d6a90650b0aecf806c1ddf287f9a.tar.gz
xmobar-1507fe356d26d6a90650b0aecf806c1ddf287f9a.tar.bz2
Documentation: shuffling around the DBus xmonad example
Diffstat (limited to 'doc/window-managers.org')
-rw-r--r--doc/window-managers.org65
1 files changed, 65 insertions, 0 deletions
diff --git a/doc/window-managers.org b/doc/window-managers.org
index 3a194c8..09f7e3e 100644
--- a/doc/window-managers.org
+++ b/doc/window-managers.org
@@ -222,3 +222,68 @@ choice.
xpm :: String -> String
xpm = icon . (++ ".xpm")
#+end_src
+*** Example for using the DBus IPC interface with XMonad
+
+ Bind the key which should {,un}map xmobar to a dummy value. This is
+ necessary for {,un}grabKey in xmonad.
+
+ #+begin_src haskell
+ ((0, xK_Alt_L), pure ())
+ #+end_src
+
+ Also, install =avoidStruts= layout modifier from
+ =XMonad.Hooks.ManageDocks=
+
+ Finally, install these two event hooks (=handleEventHook= in =XConfig=)
+ =myDocksEventHook= is a replacement for =docksEventHook= which reacts
+ on unmap events as well (which =docksEventHook= doesn't).
+
+ #+begin_src haskell
+ import qualified XMonad.Util.ExtensibleState as XS
+
+ data DockToggleTime = DTT { lastTime :: Time } deriving (Eq, Show, Typeable)
+
+ instance ExtensionClass DockToggleTime where
+ initialValue = DTT 0
+
+ toggleDocksHook :: Int -> KeySym -> Event -> X All
+ toggleDocksHook to ks ( KeyEvent { ev_event_display = d
+ , ev_event_type = et
+ , ev_keycode = ekc
+ , ev_time = etime
+ } ) =
+ io (keysymToKeycode d ks) >>= toggleDocks >> return (All True)
+ where
+ toggleDocks kc
+ | ekc == kc && et == keyPress = do
+ safeSendSignal ["Reveal 0", "TogglePersistent"]
+ XS.put ( DTT etime )
+ | ekc == kc && et == keyRelease = do
+ gap <- XS.gets ( (-) etime . lastTime )
+ safeSendSignal [ "TogglePersistent"
+ , "Hide " ++ show (if gap < 400 then to else 0)
+ ]
+ | otherwise = return ()
+
+ safeSendSignal s = catchX (io $ sendSignal s) (return ())
+ sendSignal = withSession . callSignal
+ withSession mc = connectSession >>= \c -> callNoReply c mc >> disconnect c
+ callSignal :: [String] -> MethodCall
+ callSignal s = ( methodCall
+ ( objectPath_ "/org/Xmobar/Control" )
+ ( interfaceName_ "org.Xmobar.Control" )
+ ( memberName_ "SendSignal" )
+ ) { methodCallDestination = Just $ busName_ "org.Xmobar.Control"
+ , methodCallBody = map toVariant s
+ }
+
+ toggleDocksHook _ _ _ = return (All True)
+
+ myDocksEventHook :: Event -> X All
+ myDocksEventHook e = do
+ when (et == mapNotify || et == unmapNotify) $
+ whenX ((not `fmap` (isClient w)) <&&> runQuery checkDock w) refresh
+ return (All True)
+ where w = ev_window e
+ et = ev_event_type e
+ #+end_src