Sfoglia il codice sorgente

use the current time as the reference date

finally! and we're using signals now...
Lucas Stadler 11 anni fa
parent
commit
e2018edc14
1 ha cambiato i file con 7 aggiunte e 2 eliminazioni
  1. 7 2
      elm/Stream.elm

+ 7 - 2
elm/Stream.elm

4
import Html (..)
4
import Html (..)
5
import List
5
import List
6
import String
6
import String
7
import Time
8
import Signal
7
9
8
import Post
10
import Post
9
import Post (Post)
11
import Post (Post)
21
         {title = "Ancient history", content = "Teenage angst!!!!", created = date "2009-06-07T02:54:29"}
23
         {title = "Ancient history", content = "Teenage angst!!!!", created = date "2009-06-07T02:54:29"}
22
        ]
24
        ]
23
25
24
referenceDate = date "2015-03-01T15:20"
26
currentDate = Signal.map Date.fromTime <| Time.every Time.minute
25
27
26
main = div [] (List.map (Post.view referenceDate) (List.sortWith Post.compareByDateReverse posts))
28
view referenceDate =
29
    div [] (List.map (Post.view referenceDate) (List.sortWith Post.compareByDateReverse posts))
30
31
main = Signal.map view currentDate