matlab-mark

Author: ingun37

.gitignore

@@ -1,3 +1,4 @@
 /dist-newstyle
 /test/dst
+/test/matlab-dst
 /cabal.project.freeze

answers-script.cabal

@@ -58,7 +58,7 @@ library
     import:           warnings
 
     -- Modules exported by the library.
-    exposed-modules:  MyLib, MyGit, MyMark
+    exposed-modules:  MyLib, MyGit, MyMark, MatlabMark
 
     -- Modules included in this library but not exported.
     -- other-modules: MyGit
@@ -85,7 +85,9 @@ library
         tagged,
         transformers,
         monad-loops,
-        aeson
+        aeson,
+        attoparsec,
+        cmark-lens
 
     -- Directories containing source files.
     hs-source-dirs:   src
@@ -151,4 +153,8 @@ test-suite answers-script-test
         QuickCheck,
         text,
         bytestring,
-        lens
+        lens,
+        attoparsec,
+        cmark,
+        cmark-lens,
+        directory

app/Main.hs

@@ -1,17 +1,18 @@
 module Main where
 
 import MyLib (someFunc)
+import MatlabMark qualified
 import Options.Applicative
 
-data BuildAssetArgs = BuildAssetArgs
+data GenerateArgs = GenerateArgs
   { prefix :: String,
     src :: String,
     dst :: String
   }
 
-buildAssetParser :: Parser BuildAssetArgs
-buildAssetParser =
-  BuildAssetArgs
+generateParser :: Parser GenerateArgs
+generateParser =
+  GenerateArgs
     <$> strOption
       ( long "prefix"
           <> value ""
@@ -26,55 +27,55 @@ buildAssetParser =
           <> help "path to static directory"
       )
 
-buildAssetCommand :: ParserInfo BuildAssetArgs
-buildAssetCommand =
+generateCommand :: ParserInfo GenerateArgs
+generateCommand =
   info
-    (buildAssetParser <**> helper)
+    (generateParser <**> helper)
     ( fullDesc
         <> progDesc "Import answers-db into answers static asset"
         <> header "Import answers-db into answers static asset"
     )
 
-data SplitMatlabMarkdownArgs = SplitMatlabMarkdownArgs FilePath FilePath
+data MatlabMarkdownArgs = MatlabMarkdownArgs FilePath FilePath
 
-splitMatlabMarkdownParser :: Parser SplitMatlabMarkdownArgs
-splitMatlabMarkdownParser =
-  SplitMatlabMarkdownArgs
+matlabMarkdownParser :: Parser MatlabMarkdownArgs
+matlabMarkdownParser =
+  MatlabMarkdownArgs
     <$> strOption
       ( long "src"
           <> help "path to the markdown file that is exported from MATLAB"
       )
     <*> strOption
       ( long "dst"
-          <> help "path to a directory"
+          <> help "path to a directory in answers-db"
       )
 
-splitMatlabMarkdownCommand :: ParserInfo SplitMatlabMarkdownArgs
-splitMatlabMarkdownCommand =
+matlabMarkdownCommand :: ParserInfo MatlabMarkdownArgs
+matlabMarkdownCommand =
   info
-    (splitMatlabMarkdownParser <**> helper)
+    (matlabMarkdownParser <**> helper)
     ( fullDesc
         <> progDesc "Build assets from a markdown file exported from MATLAB"
         <> header "Build assets from a markdown file exported from MATLAB"
     )
 
-data Args = BuildAssets BuildAssetArgs | SplitMatlabMarkdown SplitMatlabMarkdownArgs
+data Args = Generate GenerateArgs | MatlabMarkdown MatlabMarkdownArgs
 
 -- data Args = Args { commandArgs :: CommandArgs }
 
 argsParser :: Parser Args
 argsParser =
   hsubparser
-    ( command "build-assets" (BuildAssets <$> buildAssetCommand)
-        <> command "split-matlab-markdown" (SplitMatlabMarkdown <$> splitMatlabMarkdownCommand)
+    ( command "generate" (Generate <$> generateCommand)
+        <> command "matlab-markdown" (MatlabMarkdown <$> matlabMarkdownCommand)
     )
 
 greet :: Args -> IO ()
-greet (BuildAssets (BuildAssetArgs prefix src dst)) = do
+greet (Generate (GenerateArgs prefix src dst)) = do
   _ <- someFunc prefix src dst
   return ()
-greet (SplitMatlabMarkdown (SplitMatlabMarkdownArgs src dst)) = do
-  return ()
+greet (MatlabMarkdown (MatlabMarkdownArgs src dst)) = do
+  MatlabMark.generateMatlabAnswersDB dst =<< MatlabMark.readMatlabMD src
 
 main :: IO ()
 main =

cabal.project

@@ -19,4 +19,9 @@ source-repository-package
     location: https://github.com/jwiegley/gitlib.git
     subdir: hlibgit2
     tag: bf256617179d853bdbc12e9283b3f570ebb9d9d7
-    --sha256: 13k3aymqwzpcijnjjka820nv6rkgakzbvh13glw98p1c4yhqwcbf
+    --sha256: 13k3aymqwzpcijnjjka820nv6rkgakzbvh13glw98p1c4yhqwcbf
+
+source-repository-package
+    type: git
+    location: https://github.com/ingun37/cmark-lens.git
+    tag: 4456f10deccb61419ce28811db448c266931190f

src/MatlabMark.hs

@@ -0,0 +1,47 @@
+{-# LANGUAGE OverloadedStrings #-}
+{-# LANGUAGE TemplateHaskell #-}
+
+module MatlabMark (generateMatlabAnswersDB, readMatlabMD) where
+
+import CMark
+import CMark.Lens
+import Control.Lens
+import Data.Attoparsec.Text qualified as A
+import Data.Text qualified as T
+import Data.Text.IO qualified as TIO
+import System.FilePath qualified as File
+
+changeMatlabMarkdownDelimeters :: T.Text -> T.Text
+changeMatlabMarkdownDelimeters = T.replace "\n  $$ " "\n```math\n" . T.replace " $$ \n" "\n``` \n" . T.replace "\n $" "\n $`" . T.replace "$\n" "`$\n"
+
+theRecurse :: [Node] -> ([Node], [(String, [Node])])
+theRecurse [] = ([], [])
+theRecurse (x : xs) =
+  let (nodes, pairs) = theRecurse xs
+      problemNumber = A.parseOnly parseVersion (x ^. _nodesLens . ix 0 . _nodeType . _TEXT)
+   in case problemNumber of
+        Left _ -> (x : nodes, pairs)
+        Right v -> ([], (v, nodes) : pairs)
+
+groupByProblems :: Node -> ([Node], [(String, [Node])])
+groupByProblems (Node _ DOCUMENT nodes) = theRecurse nodes
+groupByProblems _ = undefined
+
+parseVersion :: A.Parser String
+parseVersion = do
+  major <- A.many1 A.digit
+  _ <- A.char '.'
+  minor <- A.many1 A.digit
+  return $ major <> "." <> minor
+
+generateMatlabAnswersDB :: FilePath -> Node -> IO ()
+generateMatlabAnswersDB outputDirPath node =
+  let (intro, groups) = groupByProblems node
+      toDoc = Node Nothing DOCUMENT
+      writeMD name nodes = TIO.writeFile (outputDirPath File.</> (name <> ".md")) (CMark.nodeToCommonmark [] Nothing (toDoc nodes))
+   in do
+        writeMD "cover" intro
+        mapM_ (uncurry writeMD) groups
+
+readMatlabMD :: FilePath -> IO Node
+readMatlabMD mdFilePath = CMark.commonmarkToNode [] . changeMatlabMarkdownDelimeters <$> TIO.readFile mdFilePath

test/Main.hs

@@ -1,42 +1,39 @@
+{-# LANGUAGE OverloadedStrings #-}
 module Main (main) where
 
-import Control.Exception
-import Control.Exception (evaluate)
 import Control.Monad
 import Data.ByteString qualified as B
 import Data.Either qualified as E
-import Data.Map
 import Data.Text qualified as T
-import Data.Text.Encoding qualified as Encoding
 import Data.Text.IO qualified as TIO
+import Data.Text.Encoding qualified as Encoding
 import MyLib qualified
+import MatlabMark qualified
 import System.Directory.Tree qualified as DT
+import System.Directory qualified as D
 import System.FilePath qualified as F
 import Test.Hspec
-import Test.QuickCheck
 import Control.Lens
+import CMark qualified
+import CMark.Lens
+import Data.Attoparsec.Text qualified as A
 
 main :: IO ()
 main = hspec $ do
-  describe "Prelude.head" $ do
-    it "returns the first element of a list" $ do
+  describe "changeMatlabMarkdownDelimeters" $ do
+    it "matlab answers markdown test" $ do
+      matlab
+  describe "MyLib.someFunc" $ do
+    it "asset build test" $ do
       testCase
 
-src :: FilePath
-src = "test" F.</> "answers-db"
-
-dst :: FilePath
-dst = "test" F.</> "dst"
-
-expect :: FilePath
-expect = "test" F.</> "expect"
-
-prefix :: String
-prefix = "prefix"
-
+testCase :: IO ()
 testCase =
   do
-    _ <- MyLib.someFunc prefix src dst
+    let expect = "test" F.</> "expect"
+    let dst = "test" F.</> "dst"
+    let src = "test" F.</> "answers-db"
+    _ <- MyLib.someFunc "prefix" src dst
     let reader x = do
           b <- B.readFile x
           return $ E.fromRight (T.pack $ F.takeBaseName x ++ ": " ++ show (B.length b)) $ Encoding.decodeUtf8' b
@@ -46,4 +43,19 @@ testCase =
     b <- DT.readDirectoryWith reader expect
     let b' = b ^.DT._dirTree
     let b'' = DT.flattenDir (set DT._name "" b')
+    zipWithM_ shouldBe a'' b''
+
+matlab :: IO ()
+matlab =
+  do
+    node <- MatlabMark.readMatlabMD $ "test" F.</> "matlab-short.md"
+    let dst = "test" F.</> "matlab-dst"
+    D.createDirectoryIfMissing True dst
+    MatlabMark.generateMatlabAnswersDB dst node
+    a <- DT.readDirectoryWith TIO.readFile dst
+    let a' = a ^.DT._dirTree
+    let a'' = DT.flattenDir (set DT._name "" a')
+    b <- DT.readDirectoryWith TIO.readFile ("test" F.</> "matlab-expect")
+    let b' = b ^.DT._dirTree
+    let b'' = DT.flattenDir (set DT._name "" b')
     zipWithM_ shouldBe a'' b''

test/matlab-expect/11.1.md

@@ -0,0 +1,7 @@
+``` matlab
+code
+```
+
+``` matlabTextOutput
+out
+```

test/matlab-expect/11.27.md

@@ -0,0 +1,9 @@
+``` matlab
+code
+```
+
+solution =
+
+``` math
+\displaystyle \left(\begin{array}{c} -\frac{\sqrt{7}\,\sqrt{156250}}{312500\,\sqrt{\pi }}\newline \frac{\sqrt{7}\,\sqrt{156250}}{312500\,\sqrt{\pi }} \end{array}\right)
+```

test/matlab-expect/11.31.md

@@ -0,0 +1,6 @@
+``` matlab
+code
+```
+
+in\_pascal =
+$`\displaystyle 205000000`$

test/matlab-expect/11.9.md

@@ -0,0 +1,13 @@
+``` matlab
+code
+```
+
+(a)
+
+``` matlab
+code
+```
+
+``` matlabTextOutput
+out
+```