.ghci

-- Common extensions to load (for interactive input only, not loaded modules)

-- Syntax Extensions
:seti -XPackageImports
:seti -XTupleSections
:seti -XNumDecimals
:seti -XUnicodeSyntax
:seti -XBinaryLiterals
:seti -XPatternGuards
:seti -XViewPatterns
:seti -XTypeOperators
:seti -XLambdaCase
:seti -XQuasiQuotes

-- Type Extensions
:seti -XExistentialQuantification
:seti -XOverloadedStrings
:seti -XRankNTypes
:seti -XScopedTypeVariables

-- Common modules to Load

import "base" Data.List               -- List operations
import "base" Data.Monoid             -- Monoid operations
import "base" Control.Monad           -- Monad operations
import "base" Data.Ratio              -- Ratio and Rational operations
import "base" Text.Show.Functions     -- Function showing

-- GHCi Settings

:set editor "vim"

-- Using 256 colours
:set prompt "\ESC[38;5;150m»»\ESC[m \ESC[38;5;100m\ESC[1m%s\ESC[0m\n ☯ "
:set prompt-cont " | "

-- Macros

-- Show Language, Extensions, Flags and Imports
:def statusi (\_ -> return ":seti\n:show imports\n:show modules")

-- Pretty prints a showable expression or binding
:def pp (\s -> return (":cmd return $ \":! echo '\" ++ show " ++ s ++ " ++ \"' | ppsh\""))

-- Pretty prints a string expression or binding
:def pps (\s -> return (":cmd return $ \":! echo '\" ++ " ++ s ++ " ++ \"' | ppsh\""))

-- Timing and Type Output and Multiline Input
-- These must be last to prevent noise

:set +t
:set +s
:set +m