hellow world

FondationSTaBLFoundation · Sep 25, 2024 · bb93f2f · bb93f2f
1 parent 80b81b1
commit bb93f2f
Show file tree

Hide file tree

Showing 10 changed files with 191 additions and 1 deletion.
diff --git a/Main.hs b/Main.hs
@@ -6,9 +6,13 @@ import qualified IHP.Server
 import IHP.RouterSupport
 import IHP.FrameworkConfig
 import IHP.Job.Types
+import Web.FrontController
+import Web.Types
 
 instance FrontController RootApplication where
-    controllers = []
+    controllers = [
+            mountFrontController WebApplication
+        ]
 
 instance Worker RootApplication where
     workers _ = []

diff --git a/Web/Controller/Prelude.hs b/Web/Controller/Prelude.hs
@@ -0,0 +1,13 @@
+module Web.Controller.Prelude
+( module Web.Types
+, module Application.Helper.Controller
+, module IHP.ControllerPrelude
+, module Generated.Types
+)
+where
+
+import Web.Types
+import Application.Helper.Controller
+import IHP.ControllerPrelude
+import Generated.Types
+import Web.Routes
diff --git a/Web/Controller/Static.hs b/Web/Controller/Static.hs
@@ -0,0 +1,6 @@
+module Web.Controller.Static where
+import Web.Controller.Prelude
+import Web.View.Static.Welcome
+
+instance Controller StaticController where
+    action WelcomeAction = render WelcomeView
diff --git a/Web/FrontController.hs b/Web/FrontController.hs
@@ -0,0 +1,19 @@
+module Web.FrontController where
+
+import IHP.RouterPrelude
+import Web.Controller.Prelude
+import Web.View.Layout (defaultLayout)
+
+-- Controller Imports
+import Web.Controller.Static
+
+instance FrontController WebApplication where
+    controllers = 
+        [ startPage WelcomeAction
+        -- Generator Marker
+        ]
+
+instance InitControllerContext WebApplication where
+    initContext = do
+        setLayout defaultLayout
+        initAutoRefresh
diff --git a/Web/Routes.hs b/Web/Routes.hs
@@ -0,0 +1,7 @@
+module Web.Routes where
+import IHP.RouterPrelude
+import Generated.Types
+import Web.Types
+
+-- Generator Marker
+instance AutoRoute StaticController
diff --git a/Web/Types.hs b/Web/Types.hs
@@ -0,0 +1,10 @@
+module Web.Types where
+
+import IHP.Prelude
+import IHP.ModelSupport
+import Generated.Types
+
+data WebApplication = WebApplication deriving (Eq, Show)
+
+
+data StaticController = WelcomeAction deriving (Eq, Show, Data)
diff --git a/Web/View/Layout.hs b/Web/View/Layout.hs
@@ -0,0 +1,74 @@
+module Web.View.Layout (defaultLayout, Html) where
+
+import IHP.ViewPrelude
+import IHP.Environment
+import Generated.Types
+import IHP.Controller.RequestContext
+import Web.Types
+import Web.Routes
+import Application.Helper.View
+
+defaultLayout :: Html -> Html
+defaultLayout inner = [hsx|
+<!DOCTYPE html>
+<html lang="en">
+    <head>
+        {metaTags}
+
+        {stylesheets}
+        {scripts}
+
+        <title>{pageTitleOrDefault "App"}</title>
+    </head>
+    <body>
+        <div class="container mt-4">
+            {renderFlashMessages}
+            {inner}
+        </div>
+    </body>
+</html>
+|]
+
+-- The 'assetPath' function used below appends a `?v=SOME_VERSION` to the static assets in production
+-- This is useful to avoid users having old CSS and JS files in their browser cache once a new version is deployed
+-- See https://ihp.digitallyinduced.com/Guide/assets.html for more details
+
+stylesheets :: Html
+stylesheets = [hsx|
+        <link rel="stylesheet" href={assetPath "/vendor/bootstrap-5.2.1/bootstrap.min.css"}/>
+        <link rel="stylesheet" href={assetPath "/vendor/flatpickr.min.css"}/>
+        <link rel="stylesheet" href={assetPath "/app.css"}/>
+    |]
+
+scripts :: Html
+scripts = [hsx|
+        {when isDevelopment devScripts}
+        <script src={assetPath "/vendor/jquery-3.6.0.slim.min.js"}></script>
+        <script src={assetPath "/vendor/timeago.js"}></script>
+        <script src={assetPath "/vendor/popper-2.11.6.min.js"}></script>
+        <script src={assetPath "/vendor/bootstrap-5.2.1/bootstrap.min.js"}></script>
+        <script src={assetPath "/vendor/flatpickr.js"}></script>
+        <script src={assetPath "/vendor/morphdom-umd.min.js"}></script>
+        <script src={assetPath "/vendor/turbolinks.js"}></script>
+        <script src={assetPath "/vendor/turbolinksInstantClick.js"}></script>
+        <script src={assetPath "/vendor/turbolinksMorphdom.js"}></script>
+        <script src={assetPath "/helpers.js"}></script>
+        <script src={assetPath "/ihp-auto-refresh.js"}></script>
+        <script src={assetPath "/app.js"}></script>
+    |]
+
+devScripts :: Html
+devScripts = [hsx|
+        <script id="livereload-script" src={assetPath "/livereload.js"} data-ws={liveReloadWebsocketUrl}></script>
+    |]
+
+metaTags :: Html
+metaTags = [hsx|
+    <meta charset="utf-8"/>
+    <meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no"/>
+    <meta property="og:title" content="App"/>
+    <meta property="og:type" content="website"/>
+    <meta property="og:url" content="TODO"/>
+    <meta property="og:description" content="TODO"/>
+    {autoRefreshMeta}
+|]
diff --git a/Web/View/Prelude.hs b/Web/View/Prelude.hs
@@ -0,0 +1,14 @@
+module Web.View.Prelude
+( module IHP.ViewPrelude
+, module Web.View.Layout
+, module Generated.Types
+, module Web.Types
+, module Application.Helper.View
+) where
+
+import IHP.ViewPrelude
+import Web.View.Layout
+import Generated.Types
+import Web.Types
+import Web.Routes ()
+import Application.Helper.View
diff --git a/Web/View/Static/Welcome.hs b/Web/View/Static/Welcome.hs
@@ -0,0 +1,42 @@
+module Web.View.Static.Welcome where
+import Web.View.Prelude
+
+data WelcomeView = WelcomeView
+
+instance View WelcomeView where
+    html WelcomeView = [hsx|
+         <div style="background-color: #657b83; padding: 2rem; color:hsla(196, 13%, 96%, 1); border-radius: 4px">
+              <div style="max-width: 800px; margin-left: auto; margin-right: auto">
+                  <h1 style="margin-bottom: 2rem; font-size: 2rem; font-weight: 300; border-bottom: 1px solid white; padding-bottom: 0.25rem; border-color: hsla(196, 13%, 60%, 1)">
+                      IHP
+                  </h1>
+
+                  <h2 style="margin-top: 0; margin-bottom: 0rem; font-weight: 900; font-size: 3rem">
+                      It's working! Hello World!
+                  </h2>
+
+                  <p style="margin-top: 1rem; font-size: 1.75rem; font-weight: 600; color:hsla(196, 13%, 80%, 1)">
+                     Your new application is up and running.
+                  </p>
+
+                  <p>
+                      <a
+                          href="https://ihp.digitallyinduced.com/Slack"
+                          style="margin-top: 2rem; background-color: #268bd2; padding: 1rem; border-radius: 3px; color: hsla(205, 69%, 98%, 1); text-decoration: none; font-weight: bold; display: inline-block; box-shadow: 0 4px 6px hsla(205, 69%, 0%, 0.08); transition: box-shadow 0.2s; transition: transform 0.2s;"
+                          target="_blank"
+                      >Join our community on Slack!</a>
+                  </p>
+
+                  <a href="https://ihp.digitallyinduced.com/Guide/your-first-project.html" style="margin-top: 2rem; background-color: #268bd2; padding: 1rem; border-radius: 3px; color: hsla(205, 69%, 98%, 1); text-decoration: none; font-weight: bold; display: inline-block; box-shadow: 0 4px 6px hsla(205, 69%, 0%, 0.08);  transition: box-shadow 0.2s; transition: transform 0.2s;" target="_blank">
+                     Learn the Next Steps in the Documentation
+                  </a>
+              </div>
+         </div>
+
+         <div style="max-width: 800px; margin-left: auto; margin-right: auto; margin-top: 4rem">
+              <img src="/ihp-welcome-icon.svg" alt="/ihp-welcome-icon" style="width:100%;">
+              <p style="color: hsla(196, 13%, 50%, 1); margin-top: 4rem">
+                 You can modify this start page by making changes to "./Web/View/Static/Welcome.hs".
+              </p>
+         </div> 
+|]
diff --git a/blog b/blog