neocturne/phi
Archived
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Core is independent of X11 now

Browse source
This commit is contained in:
Matthias Schiffer 2011-09-08 19:15:23 +02:00
parent 234388ef38
commit 4d519acbd4
10 changed files with 308 additions and 278 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/Phi/X11/AtomList.hs
View file

@ -53,4 +53,4 @@ atoms = [ "ATOM"
-- the expression must have the type (Connection -> String)
specialAtoms :: [(String, Q Exp)]
specialAtoms = [ ("_NET_SYSTEM_TRAY_SCREEN", [|("_NET_SYSTEM_TRAY_S" ++) . show . screen . displayInfo|])
]
]