CSS.hs

{-# LANGUAGE NoImplicitPrelude #-}
{-# LANGUAGE OverloadedStrings #-}

module IHaskell.CSS (ihaskellCSS) where

import           Data.Text as T

ihaskellCSS :: Text
ihaskellCSS =
  T.unlines
    [
    hoogleCSS
    , basicCSS
    , highlightCSS
    , hlintCSS
    ]

hoogleCSS :: Text
hoogleCSS =
  T.unlines
    [
    -- Custom IHaskell CSS
    "/* Styles used for the Hoogle display in the pager */"
    , ".hoogle-doc {"
    , "display: block;"
    , "padding-bottom: 1.3em;"
    , "padding-left: 0.4em;"
    , "}"
    , ".hoogle-code {"
    , "display: block;"
    , "font-family: monospace;"
    , "white-space: pre;"
    , "}"
    , ".hoogle-text {"
    , "display: block;"
    , "}"
    , ".hoogle-name {"
    , "color: green;"
    , "font-weight: bold;"
    , "}"
    , ".hoogle-head {"
    , "font-weight: bold;"
    , "}"
    , ".hoogle-sub {"
    , "display: block;"
    , "margin-left: 0.4em;"
    , "}"
    , ".hoogle-package {"
    , "font-weight: bold;"
    , "font-style: italic;"
    , "}"
    , ".hoogle-module {"
    , "font-weight: bold;"
    , "}"
    , ".hoogle-class {"
    , "font-weight: bold;"
    , "}"
    ]


basicCSS :: Text
basicCSS =
  T.unlines
    [
    -- Styles used for basic displays
    ".get-type {"
    , "color: green;"
    , "font-weight: bold;"
    , "font-family: monospace;"
    , "display: block;"
    , "white-space: pre-wrap;"
    , "}"
    , ".show-type {"
    , "color: green;"
    , "font-weight: bold;"
    , "font-family: monospace;"
    , "margin-left: 1em;"
    , "}"
    , ".mono {"
    , "font-family: monospace;"
    , "display: block;"
    , "}"
    , ".err-msg {"
    , "color: red;"
    , "font-style: italic;"
    , "font-family: monospace;"
    , "white-space: pre;"
    , "display: block;"
    , "}"
    , "#unshowable {"
    , "color: red;"
    , "font-weight: bold;"
    , "}"
    , ".err-msg.in.collapse {"
    , "padding-top: 0.7em;"
    , "}"
    ]

highlightCSS :: Text
highlightCSS =
  T.unlines
    [
    -- Code that will get highlighted before it is highlighted
    ".highlight-code {"
    , "white-space: pre;"
    , "font-family: monospace;"
    , "}"
    ]

hlintCSS :: Text
hlintCSS =
  T.unlines
    [
    ".suggestion-warning { "
    , "font-weight: bold;"
    , "color: rgb(200, 130, 0);"
    , "}"
    , ".suggestion-error { "
    , "font-weight: bold;"
    , "color: red;"
    , "}"
    , ".suggestion-name {"
    , "font-weight: bold;"
    , "}"
    ]