:set -XOverloadedStrings

-- import Turtle

-- 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 prompt "\ESC[1;34m%s\n\ESC[0;34mλ> \ESC[m"

-- hoogle search

let ghciEscapeShellArg arg = "'" ++ concatMap (\x -> if x == '\'' then "'\"'\"'" else [x]) arg ++ "'"

:def! search return . (":! hoogle --color --count=20 " ++) . ghciEscapeShellArg

:def! doc return . (":! hoogle --info " ++) . ghciEscapeShellArg