diff options
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 |