module Data.Aviation.Casr.Logbook.Name (
  Name(..)
) where

import Data.Aviation.Casr.Logbook.Printer.Markdown
import Data.Aviation.Casr.Logbook.Printer.Html
import Data.String

newtype Name =
  Name
    String
  deriving (Eq, Ord, Show)

instance IsString Name where
  fromString =
    Name

instance Markdown Name where
  markdown (Name s) =
    "### " ++ markdown s ++ "\n"

instance Html Name where
  html (Name s) =
    "<span class=\"heading nameheading\">Name: </span><span class=\"nameinfo\">" ++ html s ++ "</span>"