Commit 5216804

piq9117Gitea

piq9117

authored and

Gitea

committed

Generate Main (#4)

- generate src directory - generate src/Main.purs

1 parent 8ebc744 commit 5216804Copy full SHA for 5216804

File tree

+46

-0

lines changed

+46

-0

lines changed

Lines changed: 7 additions & 0 deletions

Original file line number	Diff line number	Diff line change
`@@ -25,6 +25,7 @@ generateProj mLoc = do`
`25`	`25`	`writeSrcDir mLoc`
`26`	`26`	`writeHtmlDir mLoc`
`27`	`27`	`writeIndexHtml mLoc`
	`28`	`+ writeSrcMainFile mLoc`
`28`	`29`
`29`	`30`	`writeSrcDir :: MonadIO m => Maybe Text -> m ()`
`30`	`31`	`writeSrcDir mLoc = do`
`@@ -41,3 +42,9 @@ writeIndexHtml mLoc = do`
`41`	`42`	`liftIO $ TP.writeTextFile`
`42`	`43`	`( Turtle.fromText $ mkPathName mLoc "/html/index.html" ) indexHtmlFile`
`43`	`44`	`mkMessage "Generating html/index.html..."`
	`45`	`+`
	`46`	`+writeSrcMainFile :: MonadIO m => Maybe Text -> m ()`
	`47`	`+writeSrcMainFile mLoc = do`
	`48`	`+ liftIO $ TP.writeTextFile`
	`49`	`+ ( Turtle.fromText $ mkPathName mLoc "/src/Main.purs" ) srcMainFile`
	`50`	`+ mkMessage "Generating src/Main.purs..."`

Lines changed: 4 additions & 0 deletions

Original file line number	Diff line number	Diff line change
`@@ -1,10 +1,14 @@`
`1`	`1`	`{-# LANGUAGE TemplateHaskell #-}`
`2`	`2`	`module UmuReactBasic.Templates`
`3`	`3`	`( indexHtmlFile`
	`4`	`+ , srcMainFile`
`4`	`5`	`) where`
`5`	`6`
`6`	`7`	`import Import`
`7`	`8`	`import UmuReactBasic.TH`
`8`	`9`
`9`	`10`	`indexHtmlFile :: Text`
`10`	`11`	`indexHtmlFile = $(embedFileUtf8 "templates/index.html")`
	`12`	`+`
	`13`	`+srcMainFile :: Text`
	`14`	`+srcMainFile = $(embedFileUtf8 "templates/SrcMain.purs")`

Lines changed: 35 additions & 0 deletions

Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,35 @@`
	`1`	`+module Main where`
	`2`	`+`
	`3`	`+import Prelude ( Unit, bind, map, ($), (=<<), const, pure )`
	`4`	`+import Data.Maybe ( Maybe(..) )`
	`5`	`+-- Internal Component`
	`6`	`+import Component.Title`
	`7`	`+-- Web`
	`8`	`+import Web.DOM.NonElementParentNode ( getElementById )`
	`9`	`+import Web.HTML.HTMLDocument ( toNonElementParentNode )`
	`10`	`+import Web.HTML.Window ( document )`
	`11`	`+import Web.HTML ( window )`
	`12`	`+-- Effect`
	`13`	`+import Effect ( Effect )`
	`14`	`+import Effect.Exception ( throw )`
	`15`	`+-- React`
	`16`	`+import React.Basic.Hooks ( element, ReactComponent, component )`
	`17`	`+import React.Basic.DOM as R`
	`18`	`+`
	`19`	`+mkMainComponent :: Effect ( ReactComponent {} )`
	`20`	`+mkMainComponent = do`
	`21`	`+ title <- mkTitle`
	`22`	`+ component "Main" $ const React.do`
	`23`	`+ pure $`
	`24`	`+ R.div_`
	`25`	`+ [ element title { text: "Hello, World" }`
	`26`	`+ ]`
	`27`	`+`
	`28`	`+main :: Effect Unit`
	`29`	`+main = do`
	`30`	`+ mApp <- getElementById "app" =<< ( map toNonElementParentNode $ document =<< window )`
	`31`	`+ case mApp of`
	`32`	`+ Nothing -> throw "App element not found."`
	`33`	`+ Just app -> do`
	`34`	`+ mainComponent <- mkMainComponent`
	`35`	`+ R.render ( element mainComponent {} ) app`

Comments

(0)