basic website complete

- ported posts from Efiens
- add CV
- add MachO obfuscation whitepaper

app/Route/Osx/Slug_.elm

@@ -0,0 +1,141 @@
+module Route.Osx.Slug_ exposing (ActionData, Data, Model, Msg, route)
+
+import Article
+import BackendTask exposing (BackendTask)
+import Date exposing (Date)
+import FatalError exposing (FatalError)
+import Head
+import Head.Seo as Seo
+import Html.Styled exposing (..)
+import Json.Decode as Decode exposing (Decoder)
+import Json.Decode.Extra
+import Pages.Url
+import PagesMsg exposing (PagesMsg)
+import RouteBuilder exposing (App, StatelessRoute)
+import Shared
+import View exposing (View)
+
+
+import Markdown.Block
+import Markdown.Renderer
+import MarkdownCodec
+import TailwindMarkdownRenderer
+import Tailwind.Utilities as Tw
+
+
+type alias Model =
+    {}
+
+
+type alias Msg =
+    ()
+
+
+type alias RouteParams =
+    { slug : String }
+
+
+route : StatelessRoute RouteParams Data ActionData
+route =
+    RouteBuilder.preRender
+        { head = head
+        , pages = pages
+        , data = data
+        }
+        |> RouteBuilder.buildNoState { view = view }
+
+
+pages : BackendTask FatalError (List RouteParams)
+pages =
+    Article.osxPostsGlob
+        |> BackendTask.map
+            (List.map
+                (\globData ->
+                    { slug = globData.slug }
+                )
+            )
+
+
+type alias Data =
+    { metadata : ArticleMetadata
+    , body : List Markdown.Block.Block
+    }
+
+type alias ActionData =
+    {}
+
+
+data : RouteParams -> BackendTask FatalError Data
+data routeParams =
+    MarkdownCodec.withFrontmatter Data
+        frontmatterDecoder
+        TailwindMarkdownRenderer.renderer
+        ("content/osx/" ++ routeParams.slug ++ ".md")
+
+
+type alias ArticleMetadata =
+    { title : String
+    , description : String
+    , published : Date
+    -- , image : Pages.Url.Url
+    , draft : Bool
+    }
+
+
+frontmatterDecoder : Decoder ArticleMetadata
+frontmatterDecoder =
+    Decode.map4 ArticleMetadata
+        (Decode.field "title" Decode.string)
+        (Decode.field "summary" Decode.string)
+        (Decode.field "published"
+            (Decode.string
+                |> Decode.andThen
+                    (\isoString ->
+                        Date.fromIsoString isoString
+                            |> Json.Decode.Extra.fromResult
+                    )
+            )
+        )
+        -- (Decode.oneOf
+        --     [ Decode.field "image" imageDecoder
+        --     , Decode.field "unsplash" UnsplashImage.decoder |> Decode.map UnsplashImage.imagePath
+        --     ]
+        -- )
+        (Decode.field "draft" Decode.bool
+            |> Decode.maybe
+            |> Decode.map (Maybe.withDefault False)
+        )
+
+head :
+    App Data ActionData RouteParams
+    -> List Head.Tag
+head app =
+    Seo.summary
+        { canonicalUrlOverride = Nothing
+        , siteName = "elm-pages"
+        , image =
+            { url = Pages.Url.external "TODO"
+            , alt = "elm-pages logo"
+            , dimensions = Nothing
+            , mimeType = Nothing
+            }
+        , description = "TODO"
+        , locale = Nothing
+        , title = "TODO title" -- metadata.title -- TODO
+        }
+        |> Seo.website
+
+
+view :
+    App Data ActionData RouteParams
+    -> Shared.Model
+    -> View (PagesMsg Msg)
+view app shared =
+    { title = "title"
+    , body =
+        (app.data.body
+            |> Markdown.Renderer.render TailwindMarkdownRenderer.renderer
+            |> Result.withDefault []
+        )
+    }
+