.ghci

-- mostly ripped off from https://teh.id.au/posts/2017/02/13/interactive-print/index.html

:{
:def pp (\_ -> return
             $ unlines ["import qualified Text.Show.Pretty as SP",
                        "import qualified Language.Haskell.HsColour as HSC",
                        "import Language.Haskell.HsColour.Colourise (defaultColourPrefs)",
                        "_colorPrint = putStrLn . HSC.hscolour HSC.TTY defaultColourPrefs False False \"\" False . SP.ppShow",
                        ":set -interactive-print _colorPrint"])
:}

:def npp \_ -> return (":set -interactive-print System.IO.print")

:pp