Skip to content

Navigation Menu

Sign in
Appearance settings

Search code, repositories, users, issues, pull requests...

Provide feedback

We read every piece of feedback, and take your input very seriously.

Saved searches

Use saved searches to filter your results more quickly
Sign up
Appearance settings

Commit 1b017b1

Browse files
piq9117Gitea
piq9117
authored and
Gitea
committed
Generate Component (#5)
- generate comonent directory - generate Comonent src/Component/Title.purs
1 parent 5216804 commit 1b017b1

File tree

3 files changed

+35
-1
lines changed

3 files changed

+35
-1
lines changed

‎src/UmuReactBasic/Capability/ManageCommand.hs

Lines changed: 14 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -26,6 +26,8 @@ generateProj mLoc = do
2626
writeHtmlDir mLoc
2727
writeIndexHtml mLoc
2828
writeSrcMainFile mLoc
29+
writeComponentDir mLoc
30+
writeTitleComponentFile mLoc
2931

3032
writeSrcDir :: MonadIO m => Maybe Text -> m ()
3133
writeSrcDir mLoc = do
@@ -40,11 +42,22 @@ writeHtmlDir mLoc = do
4042
writeIndexHtml :: MonadIO m => Maybe Text -> m ()
4143
writeIndexHtml mLoc = do
4244
liftIO $ TP.writeTextFile
43-
( Turtle.fromText $ mkPathName mLoc "/html/index.html" ) indexHtmlFile
45+
( Turtle.fromText $ mkPathName mLoc "html/index.html" ) indexHtmlFile
4446
mkMessage "Generating html/index.html..."
4547

4648
writeSrcMainFile :: MonadIO m => Maybe Text -> m ()
4749
writeSrcMainFile mLoc = do
4850
liftIO $ TP.writeTextFile
4951
( Turtle.fromText $ mkPathName mLoc "/src/Main.purs" ) srcMainFile
5052
mkMessage "Generating src/Main.purs..."
53+
54+
writeComponentDir :: MonadIO m => Maybe Text -> m ()
55+
writeComponentDir mLoc = do
56+
liftIO $ TP.mkdir ( Turtle.fromText $ mkPathName mLoc "src/Component" )
57+
mkMessage "Generating Component..."
58+
59+
writeTitleComponentFile :: MonadIO m => Maybe Text -> m ()
60+
writeTitleComponentFile mLoc = do
61+
liftIO $ TP.writeTextFile
62+
( Turtle.fromText $ mkPathName mLoc "src/Component/Title.purs" ) titleComponentFile
63+
mkMessage "Generating src/Component/Title.purs..."

‎src/UmuReactBasic/Templates.hs

Lines changed: 4 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -2,6 +2,7 @@
22
module UmuReactBasic.Templates
33
( indexHtmlFile
44
, srcMainFile
5+
, titleComponentFile
56
) where
67

78
import Import
@@ -12,3 +13,6 @@ indexHtmlFile = $(embedFileUtf8 "templates/index.html")
1213

1314
srcMainFile :: Text
1415
srcMainFile = $(embedFileUtf8 "templates/SrcMain.purs")
16+
17+
titleComponentFile :: Text
18+
titleComponentFile = $(embedFileUtf8 "templates/TitleComponent.purs")

‎templates/TitleComponent.purs

Lines changed: 17 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -0,0 +1,17 @@
1+
module Component.Title
2+
( mkTitle
3+
) where
4+
5+
import Prelude ( ($), pure )
6+
import React.Basic.DOM as R
7+
import React.Basic.Hooks ( ReactComponent, component )
8+
import Effect ( Effect )
9+
10+
type Props = { text :: String }
11+
12+
mkTitle :: Effect ( ReactComponent Props )
13+
mkTitle = do
14+
component "Title" $ \props -> React.do
15+
pure $
16+
R.h1_
17+
[ R.text props.text ]

0 commit comments

Comments
(0)

AltStyle によって変換されたページ (->オリジナル) /