phi/lib/Phi/X11/AtomList.hs

module Phi.X11.AtomList ( atoms
                        ) where

atoms = [ "UTF8_STRING"
        , "_NET_WM_NAME"
        , "_NET_WM_WINDOW_TYPE"
        , "_NET_WM_WINDOW_TYPE_DOCK"
        , "_NET_WM_DESKTOP"
        , "_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"
        , "_MOTIF_WM_HINTS"
        , "_XROOTPMAP_ID"
        , "_XROOTMAP_ID"
        ]
Preload atoms using template haskell 2011-07-12 19:09:05 +02:00			`module Phi.X11.AtomList ( atoms`
			`) where`

Set _NET_WM_NAME atom 2011-07-13 20:13:04 +02:00			`atoms = [ "UTF8_STRING"`
			`, "_NET_WM_NAME"`
Preload atoms using template haskell 2011-07-12 19:09:05 +02:00			`, "_NET_WM_WINDOW_TYPE"`
			`, "_NET_WM_WINDOW_TYPE_DOCK"`
			`, "_NET_WM_DESKTOP"`
			`, "_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"`
Set _NET_WM_NAME atom 2011-07-13 20:13:04 +02:00			`, "_MOTIF_WM_HINTS"`
			`, "_XROOTPMAP_ID"`
			`, "_XROOTMAP_ID"`
Preload atoms using template haskell 2011-07-12 19:09:05 +02:00			`]`