phi/lib/Phi/X11/AtomList.hs

module Phi.X11.AtomList ( atoms
                        ) where

atoms = [ "UTF8_STRING"
        , "WM_NAME"
        , "_NET_WM_NAME"
        , "_NET_WM_WINDOW_TYPE"
        , "_NET_WM_WINDOW_TYPE_NORMAL"
        , "_NET_WM_WINDOW_TYPE_DOCK"
        , "_NET_WM_WINDOW_TYPE_DESKTOP"
        , "_NET_WM_WINDOW_TYPE_TOOLBAR"
        , "_NET_WM_WINDOW_TYPE_MENU"
        , "_NET_WM_WINDOW_TYPE_SPLASH"
        , "_NET_WM_DESKTOP"
        , "_NET_WM_ICON"
        , "_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"
        , "_NET_ACTIVE_WINDOW"
        , "_NET_NUMBER_OF_DESKTOPS"
        , "_NET_CLIENT_LIST"
        , "_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"`
Some more work on the taskbar 2011-07-15 09:17:57 +02:00			`, "WM_NAME"`
Set _NET_WM_NAME atom 2011-07-13 20:13:04 +02:00			`, "_NET_WM_NAME"`
Preload atoms using template haskell 2011-07-12 19:09:05 +02:00			`, "_NET_WM_WINDOW_TYPE"`
Some more work on the taskbar 2011-07-15 09:17:57 +02:00			`, "_NET_WM_WINDOW_TYPE_NORMAL"`
Preload atoms using template haskell 2011-07-12 19:09:05 +02:00			`, "_NET_WM_WINDOW_TYPE_DOCK"`
Some more work on the taskbar 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"`
Preload atoms using template haskell 2011-07-12 19:09:05 +02:00			`, "_NET_WM_DESKTOP"`
Taskbar: show tasks 2011-07-15 15:31:46 +02:00			`, "_NET_WM_ICON"`
Preload atoms using template haskell 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"`
Some more work on the taskbar 2011-07-15 09:17:57 +02:00			`, "_NET_ACTIVE_WINDOW"`
			`, "_NET_NUMBER_OF_DESKTOPS"`
			`, "_NET_CLIENT_LIST"`
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			`]`