Guest User

Untitled

a guest
Jun 15th, 2014
893
1
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. import qualified IPPrint
  2. import qualified Language.Haskell.HsColour as HsColour
  3. import qualified Language.Haskell.HsColour.Colourise as HsColour
  4. import qualified Language.Haskell.HsColour.Output as HsColour
  5.  
  6. 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] }
  7.  
  8. let myPrint :: (Show a) => a -> IO (); myPrint = putStrLn . HsColour.hscolour (HsColour.TTYg HsColour.XTerm256Compatible) myColourPrefs False False "" False . IPPrint.pshow
  9.  
  10. :set -interactive-print=myPrint
  11. :set prompt "\ESC[33mλ > \ESC[m"
Advertisement
Add Comment
Please, Sign In to add comment