2011-07-17 19:20:19 +02:00
|
|
|
{-# LANGUAGE TemplateHaskell #-}
|
|
|
|
|
|
2011-07-12 19:09:05 +02:00
|
|
|
module Phi.X11.AtomList ( atoms
|
2011-07-17 19:20:19 +02:00
|
|
|
, specialAtoms
|
2011-07-12 19:09:05 +02:00
|
|
|
) where
|
|
|
|
|
|
2011-07-17 19:20:19 +02:00
|
|
|
import Language.Haskell.TH
|
|
|
|
|
|
2011-10-10 23:22:59 +02:00
|
|
|
import Graphics.XHB
|
2011-07-17 19:20:19 +02:00
|
|
|
|
|
|
|
|
atoms :: [String]
|
2011-09-07 16:38:36 +02:00
|
|
|
atoms = [ "ATOM"
|
|
|
|
|
, "CARDINAL"
|
|
|
|
|
, "STRING"
|
2011-09-09 03:20:16 +02:00
|
|
|
, "VISUALID"
|
2011-09-07 16:38:36 +02:00
|
|
|
, "UTF8_STRING"
|
|
|
|
|
, "WM_NAME"
|
|
|
|
|
, "WM_CLASS"
|
2011-09-07 19:35:59 +02:00
|
|
|
, "WM_TRANSIENT_FOR"
|
2011-07-17 19:20:19 +02:00
|
|
|
, "MANAGER"
|
2011-07-13 20:13:04 +02:00
|
|
|
, "_NET_WM_NAME"
|
2011-07-12 19:09:05 +02:00
|
|
|
, "_NET_WM_WINDOW_TYPE"
|
2011-07-15 09:17:57 +02:00
|
|
|
, "_NET_WM_WINDOW_TYPE_NORMAL"
|
2011-07-12 19:09:05 +02:00
|
|
|
, "_NET_WM_WINDOW_TYPE_DOCK"
|
2011-07-15 09:17:57 +02:00
|
|
|
, "_NET_WM_WINDOW_TYPE_DESKTOP"
|
|
|
|
|
, "_NET_WM_WINDOW_TYPE_TOOLBAR"
|
|
|
|
|
, "_NET_WM_WINDOW_TYPE_MENU"
|
|
|
|
|
, "_NET_WM_WINDOW_TYPE_SPLASH"
|
2011-07-12 19:09:05 +02:00
|
|
|
, "_NET_WM_DESKTOP"
|
2011-07-15 15:31:46 +02:00
|
|
|
, "_NET_WM_ICON"
|
2011-07-12 19:09:05 +02:00
|
|
|
, "_NET_WM_STATE"
|
|
|
|
|
, "_NET_WM_STATE_SKIP_PAGER"
|
|
|
|
|
, "_NET_WM_STATE_SKIP_TASKBAR"
|
|
|
|
|
, "_NET_WM_STATE_STICKY"
|
|
|
|
|
, "_NET_WM_STATE_BELOW"
|
|
|
|
|
, "_NET_WM_STRUT"
|
|
|
|
|
, "_NET_WM_STRUT_PARTIAL"
|
2011-07-17 19:20:19 +02:00
|
|
|
, "_NET_WM_PID"
|
|
|
|
|
, "_NET_SYSTEM_TRAY_OPCODE"
|
|
|
|
|
, "_NET_SYSTEM_TRAY_ORIENTATION"
|
|
|
|
|
, "_NET_SYSTEM_TRAY_VISUAL"
|
2011-07-15 09:17:57 +02:00
|
|
|
, "_NET_ACTIVE_WINDOW"
|
|
|
|
|
, "_NET_NUMBER_OF_DESKTOPS"
|
2011-07-16 10:46:26 +02:00
|
|
|
, "_NET_CURRENT_DESKTOP"
|
2011-09-06 12:54:58 +02:00
|
|
|
, "_NET_DESKTOP_NAMES"
|
2011-07-15 09:17:57 +02:00
|
|
|
, "_NET_CLIENT_LIST"
|
2011-07-13 20:13:04 +02:00
|
|
|
, "_MOTIF_WM_HINTS"
|
2011-07-19 11:16:50 +02:00
|
|
|
, "_XEMBED"
|
2011-07-13 20:13:04 +02:00
|
|
|
, "_XROOTPMAP_ID"
|
|
|
|
|
, "_XROOTMAP_ID"
|
2011-10-17 21:16:01 +02:00
|
|
|
, "PHI_SYSTRAY_HELPER"
|
2011-07-12 19:09:05 +02:00
|
|
|
]
|
2011-07-17 19:20:19 +02:00
|
|
|
|
2011-10-10 23:22:59 +02:00
|
|
|
-- the expression must have the type (ConnectionClass c => c -> String)
|
2011-07-17 19:20:19 +02:00
|
|
|
specialAtoms :: [(String, Q Exp)]
|
2011-10-10 23:22:59 +02:00
|
|
|
specialAtoms = [ ("_NET_SYSTEM_TRAY_SCREEN", [|("_NET_SYSTEM_TRAY_S" ++) . show . connectionScreen|])
|
2011-09-08 19:15:23 +02:00
|
|
|
]
|
