From bb16f1b86c32d13df7be7245a871c4f191b7e5d4 Mon Sep 17 00:00:00 2001 From: Camil Staps Date: Wed, 11 Jan 2017 19:16:39 +0100 Subject: Stowify repo --- haskell/.ghci | 20 ++++++++++++++++++++ haskell/ghci.symlink | 20 -------------------- 2 files changed, 20 insertions(+), 20 deletions(-) create mode 100644 haskell/.ghci delete mode 100644 haskell/ghci.symlink (limited to 'haskell') diff --git a/haskell/.ghci b/haskell/.ghci new file mode 100644 index 0000000..e5bf06f --- /dev/null +++ b/haskell/.ghci @@ -0,0 +1,20 @@ +:set -v0 +:set -XNoMonomorphismRestriction +:set -Wall -fno-warn-name-shadowing -fno-warn-type-defaults +:set editor vim + +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 = putStrLn . HsColour.hscolour (HsColour.TTYg HsColour.XTerm256Compatible) myColourPrefs False False "" False . IPPrint.pshow + +:set -interactive-print=myPrint +:set prompt "λ. " + +:def hoogle \str -> return $ ":! hoogle --count=15 \"" ++ str ++ "\"" + +:def pf \str -> return $ ":! pointfree \"" ++ str ++ "\"" diff --git a/haskell/ghci.symlink b/haskell/ghci.symlink deleted file mode 100644 index e5bf06f..0000000 --- a/haskell/ghci.symlink +++ /dev/null @@ -1,20 +0,0 @@ -:set -v0 -:set -XNoMonomorphismRestriction -:set -Wall -fno-warn-name-shadowing -fno-warn-type-defaults -:set editor vim - -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 = putStrLn . HsColour.hscolour (HsColour.TTYg HsColour.XTerm256Compatible) myColourPrefs False False "" False . IPPrint.pshow - -:set -interactive-print=myPrint -:set prompt "λ. " - -:def hoogle \str -> return $ ":! hoogle --count=15 \"" ++ str ++ "\"" - -:def pf \str -> return $ ":! pointfree \"" ++ str ++ "\"" -- cgit v1.2.3