From c80a1d442dbc9c37d48f04b4a943f923629ef61b Mon Sep 17 00:00:00 2001 From: Justin Bedo Date: Thu, 10 Oct 2024 16:02:46 +1100 Subject: switch palette --- jterm.hs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'jterm.hs') diff --git a/jterm.hs b/jterm.hs index d795554..11b8bc2 100644 --- a/jterm.hs +++ b/jterm.hs @@ -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) $ -- cgit v1.2.3