summaryrefslogtreecommitdiffhomepage
path: root/src/Xmobar/X11/Events.hs
blob: 4334f6b4ea54c905bb07eda5dbca7171b48964e0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
------------------------------------------------------------------------------
-- |
-- Module: Xmobar.X11.Events
-- Copyright: (c) 2018 Jose Antonio Ortega Ruiz
-- License: BSD3-style (see LICENSE)
--
-- Maintainer: jao@gnu.org
-- Stability: unstable
-- Portability: portable
-- Created: Sun Nov 25, 2018 23:24
--
--
-- Utilities or event handling
--
------------------------------------------------------------------------------


module Xmobar.X11.Events(nextEvent') where

import Control.Concurrent
import System.Posix.Types (Fd(..))

import Graphics.X11.Xlib (
  Display(..), XEventPtr, nextEvent, pending, connectionNumber)

-- | A version of nextEvent that does not block in foreign calls.
nextEvent' :: Display -> XEventPtr -> IO ()
nextEvent' d p = do
    pend <- pending d
    if pend /= 0
        then nextEvent d p
        else do
            threadWaitRead (Fd fd)
            nextEvent' d p
 where
    fd = connectionNumber d