From f28825e471e206bcb7e6dc8e4874c2b771f7d24c Mon Sep 17 00:00:00 2001
From: tv <tv@krebsco.de>
Date: Tue, 7 Feb 2023 02:30:41 +0100
Subject: move Graphics.* & co. to lib

---
 src/Data/Text/Encoding/Extra.hs        | 11 ----------
 src/Foreign/C/String/Extra.hs          | 10 ---------
 src/Graphics/X11/Extra.hs              |  5 -----
 src/Graphics/X11/Xlib/Atom/Extra.hs    | 39 ----------------------------------
 src/Graphics/X11/Xlib/Display/Extra.hs | 20 -----------------
 src/Graphics/X11/Xlib/Extra.hs         |  7 ------
 src/Graphics/X11/Xlib/Extras/Extra.hs  | 14 ------------
 7 files changed, 106 deletions(-)
 delete mode 100644 src/Data/Text/Encoding/Extra.hs
 delete mode 100644 src/Foreign/C/String/Extra.hs
 delete mode 100644 src/Graphics/X11/Extra.hs
 delete mode 100644 src/Graphics/X11/Xlib/Atom/Extra.hs
 delete mode 100644 src/Graphics/X11/Xlib/Display/Extra.hs
 delete mode 100644 src/Graphics/X11/Xlib/Extra.hs
 delete mode 100644 src/Graphics/X11/Xlib/Extras/Extra.hs

(limited to 'src')

diff --git a/src/Data/Text/Encoding/Extra.hs b/src/Data/Text/Encoding/Extra.hs
deleted file mode 100644
index a8e6234..0000000
--- a/src/Data/Text/Encoding/Extra.hs
+++ /dev/null
@@ -1,11 +0,0 @@
-module Data.Text.Encoding.Extra where
-
-import Data.ByteString (ByteString)
-import Data.Text (Text)
-import qualified Data.Text.Encoding as Text
-import qualified Data.Text.Encoding.Error as Text
-
-
-decodeUtf8Lenient :: ByteString -> Text
-decodeUtf8Lenient =
-  Text.decodeUtf8With Text.lenientDecode
diff --git a/src/Foreign/C/String/Extra.hs b/src/Foreign/C/String/Extra.hs
deleted file mode 100644
index a7b6dfe..0000000
--- a/src/Foreign/C/String/Extra.hs
+++ /dev/null
@@ -1,10 +0,0 @@
-module Foreign.C.String.Extra where
-
-import Data.Word (Word8)
-import Foreign.C.String (castCCharToChar)
-import Foreign.C.Types (CChar)
-import qualified Data.Char as Char
-
-
-castCCharToWord8 :: CChar -> Word8
-castCCharToWord8 = fromIntegral . Char.ord . castCCharToChar
diff --git a/src/Graphics/X11/Extra.hs b/src/Graphics/X11/Extra.hs
deleted file mode 100644
index ce4cb46..0000000
--- a/src/Graphics/X11/Extra.hs
+++ /dev/null
@@ -1,5 +0,0 @@
-module Graphics.X11.Extra
-        ( module Graphics.X11.Xlib.Extra
-        ) where
-
-import Graphics.X11.Xlib.Extra
diff --git a/src/Graphics/X11/Xlib/Atom/Extra.hs b/src/Graphics/X11/Xlib/Atom/Extra.hs
deleted file mode 100644
index 8442c48..0000000
--- a/src/Graphics/X11/Xlib/Atom/Extra.hs
+++ /dev/null
@@ -1,39 +0,0 @@
-module Graphics.X11.Xlib.Atom.Extra where
-
-import Graphics.X11.Types (Atom)
-import Graphics.X11.Xlib.Atom (internAtom)
-import Graphics.X11.Xlib.Display.Extra (withDefaultDisplay)
-import System.IO.Unsafe (unsafePerformIO)
-
-
-unsafeInternAtom :: String -> Bool -> Atom
-unsafeInternAtom atomName onlyIfExists =
-  unsafePerformIO $ withDefaultDisplay $ \display ->
-    internAtom display atomName onlyIfExists
-
-_NET_ACTIVE_WINDOW :: Atom
-_NET_ACTIVE_WINDOW = unsafeInternAtom "_NET_ACTIVE_WINDOW" True
-
-_NET_CLIENT_LIST :: Atom
-_NET_CLIENT_LIST = unsafeInternAtom "_NET_CLIENT_LIST" True
-
-_NET_CURRENT_DESKTOP :: Atom
-_NET_CURRENT_DESKTOP = unsafeInternAtom "_NET_CURRENT_DESKTOP" True
-
-_NET_DESKTOP_NAMES :: Atom
-_NET_DESKTOP_NAMES = unsafeInternAtom "_NET_DESKTOP_NAMES" True
-
-_NET_WM_DESKTOP :: Atom
-_NET_WM_DESKTOP = unsafeInternAtom "_NET_WM_DESKTOP" True
-
-_NET_WM_NAME :: Atom
-_NET_WM_NAME = unsafeInternAtom "_NET_WM_NAME" True
-
-_WIN_WORKSPACE :: Atom
-_WIN_WORKSPACE = unsafeInternAtom "_WIN_WORKSPACE" True
-
-_WIN_WORKSPACE_NAMES :: Atom
-_WIN_WORKSPACE_NAMES = unsafeInternAtom "_WIN_WORKSPACE_NAMES" True
-
-_WM_NAME :: Atom
-_WM_NAME = unsafeInternAtom "WM_NAME" True
diff --git a/src/Graphics/X11/Xlib/Display/Extra.hs b/src/Graphics/X11/Xlib/Display/Extra.hs
deleted file mode 100644
index 16b1a74..0000000
--- a/src/Graphics/X11/Xlib/Display/Extra.hs
+++ /dev/null
@@ -1,20 +0,0 @@
-module Graphics.X11.Xlib.Display.Extra where
-
-import Control.Exception (bracket)
-import System.Environment (getEnv)
-import System.IO.Unsafe (unsafePerformIO)
-import Graphics.X11.Xlib.Types (Display)
-import Graphics.X11.Xlib.Display (closeDisplay, openDisplay)
-
-
-defaultDisplayName :: String
-defaultDisplayName =
-    unsafePerformIO (getEnv "DISPLAY")
-
-withDisplay :: String -> (Display -> IO a) -> IO a
-withDisplay display =
-    bracket (openDisplay display) closeDisplay
-
-withDefaultDisplay :: (Display -> IO a) -> IO a
-withDefaultDisplay =
-    withDisplay defaultDisplayName
diff --git a/src/Graphics/X11/Xlib/Extra.hs b/src/Graphics/X11/Xlib/Extra.hs
deleted file mode 100644
index c2093ab..0000000
--- a/src/Graphics/X11/Xlib/Extra.hs
+++ /dev/null
@@ -1,7 +0,0 @@
-module Graphics.X11.Xlib.Extra
-        ( module Graphics.X11.Xlib.Atom.Extra
-        , module Graphics.X11.Xlib.Display.Extra
-        ) where
-
-import Graphics.X11.Xlib.Atom.Extra
-import Graphics.X11.Xlib.Display.Extra
diff --git a/src/Graphics/X11/Xlib/Extras/Extra.hs b/src/Graphics/X11/Xlib/Extras/Extra.hs
deleted file mode 100644
index d88bf9d..0000000
--- a/src/Graphics/X11/Xlib/Extras/Extra.hs
+++ /dev/null
@@ -1,14 +0,0 @@
-module Graphics.X11.Xlib.Extras.Extra where
-
-import Data.Text (Text)
-import Foreign.C.String.Extra (castCCharToWord8)
-import qualified Data.ByteString as ByteString
-import qualified Data.Text.Encoding.Extra as Text
-import qualified Graphics.X11 as X11
-import qualified Graphics.X11.Xlib.Extras as X11
-
-
-getWindowPropertyText :: X11.Display -> X11.Atom -> X11.Window -> IO (Maybe Text)
-getWindowPropertyText d a w =
-  fmap (Text.decodeUtf8Lenient . ByteString.pack . map castCCharToWord8) <$>
-    X11.getWindowProperty8 d a w
-- 
cgit v1.2.3