Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- import qualified IPPrint
- import qualified Language.Haskell.HsColour as HsColour
- import qualified Language.Haskell.HsColour.Colourise as HsColour
- import qualified Language.Haskell.HsColour.Output as HsColour
- let myColourPrefs = HsColour.defaultColourPrefs { HsColour.conid = [HsColour.Foreground HsColour.Yellow, HsColour.Bold], HsColour.conop = [HsColour.Foreground HsColour.Yellow], HsColour.string = [HsColour.Foreground HsColour.Green], HsColour.char = [HsColour.Foreground HsColour.Cyan], HsColour.number = [HsColour.Foreground HsColour.Red, HsColour.Bold], HsColour.layout = [HsColour.Foreground HsColour.White], HsColour.keyglyph = [HsColour.Foreground HsColour.White] }
- let myPrint :: (Show a) => a -> IO (); myPrint = putStrLn . HsColour.hscolour (HsColour.TTYg HsColour.XTerm256Compatible) myColourPrefs False False "" False . IPPrint.pshow
- :set -interactive-print=myPrint
- :set prompt "\ESC[33mλ > \ESC[m"
Advertisement
Add Comment
Please, Sign In to add comment