elm-frontti/src/Article_view.elm

module Article_view exposing (..)

import DateFormat as Df
import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (onInput, onClick)
import User
import Message exposing (..)
import Settings
import Time
import Article


formatDateTime formatString zone posixTime =
    Df.format formatString zone posixTime

articleView settings loginstate zone the_actual_post =
    let versions = Maybe.withDefault [] the_actual_post.versions
    in
    div [class "post"] [ case the_actual_post.id of
                             Just post_id -> a [href ("/blog/post/" ++ String.fromInt post_id)] [ text the_actual_post.title ]
                             Nothing -> span [] [ text the_actual_post.title ]
                       , div [class "meta"] (List.append [ User.user_avatar the_actual_post.creator
                                                         , p [] [text ("By " ++ the_actual_post.creator.nickname)]
                                                         , case the_actual_post.created_at of
                                                               Just writing_time ->
                                                                   p [] [text ("Written at " ++ (formatDateTime settings.time_format zone writing_time))]
                                                               Nothing ->
                                                                   p [] [text ("No idea when it's written")]]
                                                 (case the_actual_post.id of
                                                     Just post_id ->
                                                         (List.map (\version -> a [ href ("/blog/post/" ++ String.fromInt post_id ++ "/version/" ++ String.fromInt version) ] [ text ((String.fromInt version) ++ ", ")]) versions)
                                                     Nothing -> []))
                             
                       , (case the_actual_post.id of
                              Just post_id ->
                                  case loginstate of
                                      LoggedIn _ -> a [ href ("/blog/post/edit/" ++ String.fromInt post_id)
                                                      , attribute "data-testid" "edit-post-btn"
                                                      , onClick (OpenPostEditor post_id)] [text "Edit this post"]
                                      _ -> div [] []
                              _ -> div [] [])
                                                    
                       , article [ class "content"
                                 , dangerouslySetInnerHTML the_actual_post.content] []
                       , div [] ( the_actual_post.tags
                                |> List.filter ((/=) "")
                                |> List.map ( \tag -> span [] [ a [ href ("/blog/tags/" ++ tag)
                                                                  , class "tag" ] [text tag]
                                                              , text ", "]))]