format

Author: ta4ilka69

src/Markdown.hs

@@ -13,6 +13,52 @@ markdownToHtml input = T.concat $ map renderElement $ Parser.parseMarkdown $ T.l
 
 renderElement :: MDElement -> Text
 renderElement element = case element of
+  LabReport info ->
+    T.concat
+      [ T.pack "<div align=\"center\">\n",
+        T.pack "<h3>",
+        escapeHtml (university info),
+        T.pack "</h3>\n",
+        T.pack "<div style=\"margin-top: 50px;\">\n",
+        T.pack "<h2><b>",
+        escapeHtml (labName info),
+        T.pack "</b></h2>\n",
+        T.pack "</div>\n",
+        T.pack "<h3>по дисциплине\n\"",
+        escapeHtml (discipline info),
+        T.pack "\"\n</h3>\n",
+        T.pack "</div>\n\n",
+        T.pack "<div align=\"right\" style=\"margin-top: 50px;\">\n",
+        T.pack "    <b>Выполнили студенты группы ",
+        escapeHtml (groupName info),
+        T.pack ":</b>\n",
+        T.pack "    <ul style=\"list-style-type: none; padding-left: 0; margin: 0;\">\n",
+        renderStudentsList (students info),
+        T.pack "    </ul>\n",
+        T.pack "    <div style=\"margin-top: 20px;\">\n",
+        T.pack "    <b>Преподаватель:</b>\n",
+        T.pack "    ",
+        escapeHtml (teacher info),
+        T.pack "\n",
+        T.pack "    </div>\n",
+        T.pack "</div>\n\n",
+        T.pack "<div align=\"center\" style=\"margin-top: 200px; text: center\">\n",
+        T.pack "г. ",
+        escapeHtml (city info),
+        T.pack "\n\n",
+        escapeHtml (year info),
+        T.pack " г.\n",
+        T.pack "</div>\n\n",
+        T.pack "<div style=\"page-break-after: always;\"></div>\n"
+      ]
+    where
+      renderStudentsList :: [Text] -> Text
+      renderStudentsList =
+        T.concat
+          . map
+            ( \student ->
+                T.concat [T.pack "        <li>", escapeHtml student, T.pack "</li>\n"]
+            )
   Image alt url title ->
     let titleAttr =
           if T.null title

src/Parser.hs

@@ -1,5 +1,6 @@
 module Parser (parseMarkdown, isTableLine) where
 
+import Control.Monad (guard)
 import Crypto.Hash (Digest, MD5, hash)
 import Data.Char (isAlpha, isAlphaNum, isDigit, isSpace)
 import Data.List (groupBy)
@@ -8,11 +9,10 @@ import Data.Text (Text, break)
 import qualified Data.Text as T
 import Data.Text.Encoding (encodeUtf8)
 import Types
-  ( MDElement (..),
+  ( LabReportInfo (..),
+    MDElement (..),
     TableAlignment (..),
-    LabReportInfo (..),
   )
-import Control.Monad (guard)
 
 data ListContext = ListContext
   { indentLevel :: Int,
@@ -129,7 +129,7 @@ parseLines acc (line : lines)
   | isLabReportLine line =
       case parseLabReport line of
         Just labReport -> processBlock (reverse acc) ++ [labReport] ++ parseLines [] lines
-        Nothing -> parseLines (line:acc) lines
+        Nothing -> parseLines (line : acc) lines
   | isListLine line =
       let (listItems, rest) = extractListItems (line : lines)
           parsedLists = parseNestedLists listItems
@@ -566,13 +566,15 @@ parseLabReport line = do
     Just studentsStr -> Just $ map T.strip $ T.splitOn (T.pack ";") studentsStr
     Nothing -> Nothing
 
-  return $ LabReport LabReportInfo
-    { university = head parts
-    , labName = parts !! 1
-    , discipline = parts !! 2
-    , groupName = parts !! 3
-    , students = students
-    , teacher = parts !! 5
-    , city = parts !! 6
-    , year = parts !! 7
-    }
+  return $
+    LabReport
+      LabReportInfo
+        { university = head parts,
+          labName = parts !! 1,
+          discipline = parts !! 2,
+          groupName = parts !! 3,
+          students = students,
+          teacher = parts !! 5,
+          city = parts !! 6,
+          year = parts !! 7
+        }

src/Types.hs

@@ -1,22 +1,23 @@
 module Types
   ( MDElement (..),
     TableAlignment (..),
-    LabReportInfo(..),
+    LabReportInfo (..),
   )
 where
 
 import Data.Text (Text)
 
 data LabReportInfo = LabReportInfo
-  { university :: Text
-  , labName :: Text
-  , discipline :: Text
-  , groupName :: Text
-  , students :: [Text]
-  , teacher :: Text
-  , city :: Text
-  , year :: Text
-  } deriving (Show, Eq)
+  { university :: Text,
+    labName :: Text,
+    discipline :: Text,
+    groupName :: Text,
+    students :: [Text],
+    teacher :: Text,
+    city :: Text,
+    year :: Text
+  }
+  deriving (Show, Eq)
 
 data TableAlignment
   = AlignLeft