module Data.Aviation.Casr.Logbook.FlightLog ( FlightLog(..) ) where import Data.Aviation.Casr.Logbook.ARN import Data.Aviation.Casr.Logbook.DOB import Data.Aviation.Casr.Logbook.FlightLogEntries import Data.Aviation.Casr.Logbook.Name import Data.Aviation.Casr.Logbook.Printer.Markdown import Data.Aviation.Casr.Logbook.Printer.Html import Data.Aviation.Casr.Logbook.Totals data FlightLog = FlightLog Name DOB ARN FlightLogEntries deriving (Eq, Ord, Show) instance Markdown FlightLog where markdown (FlightLog (Name name') dob arn entries) = concat [ "# Pilot Personal Log Book\n" , "### Civil Aviation Safety Regulation 1998 (61.345) [*austlii.edu.au*](http://www.austlii.edu.au/au/legis/cth/consol_reg/casr1998333/s61.345.html)\n\n" , "* " , markdown name' , "\n" , markdown dob , markdown arn , "\n----\n\n" , markdown (totals entries) , "\n----\n\n" , markdown entries ] instance Html FlightLog where html (FlightLog name@(Name name') dob arn@(ARN arn') entries) = concat [ "<!DOCTYPE HTML>" , "<html lang=\"en\">" , "<head>" , "<meta http-equiv=\"Content-Type\" content=\"text/html; charset=UTF-8\">" , "<title>Pilot Personal Log Book — " , html name' , " (" , html arn' , ")" , "</title>" , "<link href=\"https://fonts.googleapis.com/css?family=Inconsolata:400,700\" rel=\"stylesheet\" type=\"text/css\">" , "<link rel=\"stylesheet\" type=\"text/css\" href=\"casr-logbook.css\">" , "<link rel=\"alternate\" type=\"application/atom+xml\" href=\"/atom.xml\" title=\"Atom feed\">" , "<script type=\"text/javascript\" src=\"http://cdn.mathjax.org/mathjax/latest/MathJax.js?config=TeX-AMS-MML_HTMLorMML\"></script>" , "<script type=\"text/javascript\" src=\"https://raw.github.com/Mathapedia/LaTeX2HTML5/master/latex2html5.min.js\"></script>" , "</head>" , "<body class=\"casr-logbook\">" , "<div id=\"title\" class=\"title\">" , "<h1>Pilot Personal Log Book</h1>" , "</div>" , "<div id=\"subtitle\" class=\"subtitle\">" , "<h2>Civil Aviation Safety Regulation 1998 (61.345) <span class=\"austlii\"><a href=\"http://www.austlii.edu.au/au/legis/cth/consol_reg/casr1998333/s61.345.html\">austlii.edu.au</a></span></h2>" , "</div>" , "<div id=\"personal\" class=\"personal\">" , "<ul>" , "<li id=\"name\">" , html name , "</li>" , "<li id=\"dob\">" , html dob , "</li>" , "<li id=\"arn\">" , html arn , "</li>" , "</ul>" , "</div>" , "<hr>" , html (totals entries) , "<hr>" , "<div id=\"flightlogentries\" class=\"flightlogentries\">" , html entries , "</div> " , "</body>" , "</html>" ]