[hello-elm] CSSを適用してみる

nojima · nojima · commit fbaf93afc6f0 · 2020-02-21T01:03:43.000+09:00
diff --git a/hello-elm/index.html b/hello-elm/index.html
@@ -0,0 +1,15 @@
+<!DOCTYPE HTML>
+<html>
+  <head>
+    <meta charset="UTF-8">
+    <meta name="viewport" content="width=device-width, initial-scale=1, shrink-to-fit=no">
+
+    <title>Hello Elm!</title>
+
+    <link rel="stylesheet" href="https://stackpath.bootstrapcdn.com/bootstrap/4.4.1/css/bootstrap.min.css" integrity="sha384-Vkoo8x4CGsO3+Hhxv8T/Q5PaXtkKtu6ug5TOeNV6gBiFeWPGFN9MuhOf23Q9Ifjh" crossorigin="anonymous">
+    <script src="main.js"></script>
+  </head>
+  <body>
+    <script>var app = Elm.Main.init();</script>
+  </body>
+</html>
diff --git a/hello-elm/src/Main.elm b/hello-elm/src/Main.elm
@@ -81,9 +81,33 @@ view : Model -> Browser.Document Msg
 view model =
     { title = "URL Interceptor"
     , body =
-        [ text "The current URL is: "
-        , b [] [ text (Url.toString model.url) ]
-        , ul []
+        pageContainer
+            [ mainHeader model
+            , mainContents
+            ]
+    }
+
+
+pageContainer : List (Html Msg) -> List (Html Msg)
+pageContainer contents =
+    [ div [ class "container" ] contents ]
+
+
+mainHeader : Model -> Html Msg
+mainHeader model =
+    header []
+        [ h1 [] [ text "URL Interceptor" ]
+        , p []
+            [ text "The current URL is: "
+            , b [] [ text (Url.toString model.url) ]
+            ]
+        ]
+
+
+mainContents : Html Msg
+mainContents =
+    main_ []
+        [ ul []
             [ viewLink "/home"
             , viewLink "/profile"
             , viewLink "/reviews/the-century-of-the-self"
@@ -92,7 +116,6 @@ view model =
             , viewLink "https://example.com/"
             ]
         ]
-    }
 
 
 viewLink : String -> Html Msg
