Skip to content

Instantly share code, notes, and snippets.

@osa1

osa1/gist:4185055

Created December 1, 2012 20:59
Show Gist options
  • Save osa1/4185055 to your computer and use it in GitHub Desktop.
Save osa1/4185055 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
import qualified IPPrint
import qualified Language.Haskell.Colorize as Colorize
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 = putStrLn . HsColour.hscolour (HsColour.TTYg HsColour.XTerm256Compatible) myColourPrefs False False "" False . IPPrint.pshow
:set -interactive-print=myPrint
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment