Ryan Fox
da97f690b1
The input doesn't actually work right now, but it's a step in the right direction.
63 lines
2.0 KiB
Elm
63 lines
2.0 KiB
Elm
module View.Viewer exposing (viewerView)
|
||
|
||
import Html exposing (..)
|
||
import Html.Attributes exposing (..)
|
||
import Types exposing (..)
|
||
import Update.Viewer exposing (getPrevNext)
|
||
import View.Events exposing (..)
|
||
|
||
|
||
viewerView : Viewer -> Html Msg
|
||
viewerView ({ attachments, attachment } as viewer) =
|
||
let
|
||
( prev, next ) =
|
||
getPrevNext viewer
|
||
|
||
navLink label className target event =
|
||
case target of
|
||
Nothing ->
|
||
text ""
|
||
|
||
Just target ->
|
||
a
|
||
[ href ""
|
||
, class className
|
||
, onClickWithPreventAndStop event
|
||
]
|
||
[ text label ]
|
||
|
||
altText = Maybe.withDefault "No description. 😢" attachment.description
|
||
in
|
||
div
|
||
[ class "viewer"
|
||
, tabindex -1
|
||
, onClickWithPreventAndStop <| ViewerEvent CloseViewer
|
||
]
|
||
[ span [ class "close" ] [ text "×" ]
|
||
, navLink "❮" "prev" prev <| ViewerEvent NextAttachment
|
||
, case attachment.type_ of
|
||
"image" ->
|
||
div [ class "viewer-content" ] [
|
||
img [ src attachment.url, alt altText, title altText ] [],
|
||
span [ class "alt-text" ] [ text altText ]
|
||
]
|
||
|
||
"audio" ->
|
||
audio
|
||
[ class "viewer-content"
|
||
, controls True
|
||
]
|
||
[ source [ src attachment.url ] [] ]
|
||
|
||
_ ->
|
||
video
|
||
[ class "viewer-content"
|
||
, preload "auto"
|
||
, autoplay True
|
||
, loop True
|
||
, controls True
|
||
]
|
||
[ source [ src attachment.url ] [] ]
|
||
, navLink "❯" "next" next <| ViewerEvent NextAttachment
|
||
]
|