diff options
author | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-09-07 16:38:36 +0200 |
---|---|---|
committer | Matthias Schiffer <mschiffer@universe-factory.net> | 2011-09-07 16:38:36 +0200 |
commit | 15d9304e052d2e5d4416e54a6fd24fbd0a252964 (patch) | |
tree | 0c9384b5fa0554ac7fd6deb7bc4a077b065e8a7c /lib/Phi/X11/AtomList.hs | |
parent | 42d5f27d32c74b29545ce0922e55407fa5ccc7fc (diff) | |
download | phi-15d9304e052d2e5d4416e54a6fd24fbd0a252964.tar phi-15d9304e052d2e5d4416e54a6fd24fbd0a252964.zip |
Converted core to XHB/XCB
Diffstat (limited to 'lib/Phi/X11/AtomList.hs')
-rw-r--r-- | lib/Phi/X11/AtomList.hs | 14 |
1 files changed, 10 insertions, 4 deletions
diff --git a/lib/Phi/X11/AtomList.hs b/lib/Phi/X11/AtomList.hs index dbd6fc5..d05bad2 100644 --- a/lib/Phi/X11/AtomList.hs +++ b/lib/Phi/X11/AtomList.hs @@ -6,10 +6,16 @@ module Phi.X11.AtomList ( atoms import Language.Haskell.TH -import Graphics.X11.Xlib +import Graphics.XHB +import Graphics.XHB.Connection.Open atoms :: [String] -atoms = [ "UTF8_STRING" +atoms = [ "ATOM" + , "CARDINAL" + , "STRING" + , "UTF8_STRING" + , "WM_NAME" + , "WM_CLASS" , "MANAGER" , "_NET_WM_NAME" , "_NET_WM_WINDOW_TYPE" @@ -43,7 +49,7 @@ atoms = [ "UTF8_STRING" , "_XROOTMAP_ID" ] --- the expression must have the type (Display -> String) +-- the expression must have the type (Connection -> String) specialAtoms :: [(String, Q Exp)] -specialAtoms = [ ("_NET_SYSTEM_TRAY_SCREEN", [|("_NET_SYSTEM_TRAY_S" ++) . show . defaultScreen|]) +specialAtoms = [ ("_NET_SYSTEM_TRAY_SCREEN", [|("_NET_SYSTEM_TRAY_S" ++) . show . screen . displayInfo|]) ]
\ No newline at end of file |