diff options
author | Justin Bedo <cu@cua0.org> | 2024-10-10 16:02:46 +1100 |
---|---|---|
committer | Justin Bedo <cu@cua0.org> | 2024-10-10 16:09:38 +1100 |
commit | c80a1d442dbc9c37d48f04b4a943f923629ef61b (patch) | |
tree | a63189ca165d5cf4c812c3e5116bdc74af84e896 /jterm.hs | |
parent | af429246e83dd5d61d2ed6f2580cad2350dd594c (diff) |
switch palette
Diffstat (limited to 'jterm.hs')
-rw-r--r-- | jterm.hs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -406,8 +406,8 @@ main = do withXftColorName display visual colourmap "black" $ \fgcolour -> withXftColorValue display visual colourmap (XRenderColor 0xffff 0xffff 0xeaea 0xffff) $ \bgcolour -> do - withXftColorValue display visual colourmap (XRenderColor 0x3030 0xd4d4 0xd4d4 0xffff) $ \selcolour -> do - withXftColorValue display visual colourmap (XRenderColor 0xaeae 0xeeee 0xeeee 0xffff) $ \linecolour -> do + withXftColorValue display visual colourmap (XRenderColor 0xf7f7 0xeaea 0xffff 0xffff) $ \selcolour -> do + withXftColorValue display visual colourmap (XRenderColor 0xaeae 0xf7f7 0xffff 0xffff) $ \linecolour -> do selectInput display win (exposureMask .|. buttonPressMask .|. buttonReleaseMask .|. keyPressMask .|. pointerMotionMask) allocaXEvent $ \e -> flip runStateT (Buffer 0 "" (0, 0) Nothing pty) $ |