blob: af2e7ae8d4bb233ef2e03ce6c15a37b9d7a6f27f (
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
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
|
{-# LANGUAGE CPP, ForeignFunctionInterface, EmptyDataDecls #-}
------------------------------------------------------------------------------
-- |
-- Module: Xmobar.X11.Cairo
-- Copyright: (c) 2022 Jose Antonio Ortega Ruiz
-- License: BSD3-style (see LICENSE)
--
-- Maintainer: jao@gnu.org
-- Stability: unstable
-- Portability: unportable
-- Created: Thu Sep 08, 2022 01:25
--
--
-- Xlib Cairo Surface creation
--
------------------------------------------------------------------------------
module Xmobar.X11.CairoSurface (withXlibSurface, withBitmapSurface) where
import Graphics.X11.Xlib.Types
import Graphics.X11.Types
import GI.Cairo.Render.Types
import qualified GI.Cairo.Render.Internal as Internal
import Foreign
import Foreign.C
#include <cairo/cairo-xlib.h>
foreign import ccall "cairo_xlib_surface_create"
cSurfaceCreate :: Display -> Drawable -> Visual -> CInt -> CInt -> Ptr Surface
foreign import ccall "cairo_xlib_surface_create_for_bitmap"
cBitmapCreate :: Display -> Pixmap -> Screen -> CInt -> CInt -> Ptr Surface
createXlibSurface :: Display -> Drawable -> Visual -> Int -> Int -> IO Surface
createXlibSurface d dr v w h =
mkSurface $ cSurfaceCreate d dr v (fromIntegral w) (fromIntegral h)
withXlibSurface ::
Display -> Drawable -> Visual -> Int -> Int -> (Surface -> IO a) -> IO a
withXlibSurface d dr v w h f = do
surface <- createXlibSurface d dr v w h
ret <- f surface
Internal.surfaceDestroy surface
return ret
createBitmapSurface :: Display -> Pixmap -> Screen -> Int -> Int -> IO Surface
createBitmapSurface d p s w h =
mkSurface $ cBitmapCreate d p s (fromIntegral w) (fromIntegral h)
withBitmapSurface ::
Display -> Pixmap -> Screen -> Int -> Int -> (Surface -> IO a) -> IO a
withBitmapSurface d p s w h f = do
surface <- createBitmapSurface d p s w h
ret <- f surface
Internal.surfaceDestroy surface
return ret
|
