a tiny post thingie with elm

elm is fun, but you'll likely have to write quite a few libraries
yourself.

elm/.gitignore

@@ -0,0 +1,2 @@
elm.js
elm-stuff

elm/Stream.elm

@@ -0,0 +1,38 @@
module Stream where
import Date
import Date (Date)
import FormatDate (formatDate)
import Html (..)
import Html.Attributes as Attr
import List
import String
type alias Post = { title:String, content:String, created:Date }
date s = case (Date.fromString s) of
    Ok  d -> d
    Err e -> Date.fromTime 0
posts : List Post
posts = [{title = "Something else", content = "Well, I can say more than \"Hello\", I guess!", created = date "2015-03-01T14:03"},
         {title = "Hello, Other Things?", content = "There are other things?", created = date "2015-03-01T12:53:21"},
         {title = "Hello, World!", content = "This is my very first post!", created = date "2015-03-01T12:27:00"},
         {title = "Blog setup", content = "I guess I should post something now?", created = date "2014-12-24T10:57:03"},
         {title = "Ancient history", content = "Teenage angst!!!!", created = date "2009-06-07T02:54:29"}
        ]
referenceDate = date "2015-03-01T14:09"
viewDate : Date -> Html
viewDate d = let isoDate = formatDate "%Y-%m-%dT%H:%M:%SZ" d
             in time [Attr.title isoDate, Attr.datetime isoDate] [(text isoDate)]
viewPost : Post -> Html
viewPost post = div [] [
                 h3 [] [text post.title],
                 p [] [text post.content],
                 span [] [text "Written ", viewDate post.created]
                ]
main = div [] (List.map viewPost posts)

elm/elm-package.json

@@ -0,0 +1,15 @@
{
    "version": "0.1.0",
    "summary": "Playing around with Elm",
    "repository": "https://github.com/heyLu/lp.git",
    "license": "MIT",
    "source-directories": [
        "."
    ],
    "exposed-modules": [],
    "dependencies": {
        "elm-lang/core": "1.1.1 <= v < 2.0.0",
        "evancz/elm-html": "2.0.0 <= v < 3.0.0",
        "heyLu/elm-format-date": "1.0.0 <= v < 2.0.0"
    }
}