262 lines
9.6 KiB
Elm
262 lines
9.6 KiB
Elm
module View.Draft exposing (draftView)
|
|
|
|
import Autocomplete
|
|
import Dict
|
|
import Html exposing (..)
|
|
import Html.Attributes exposing (..)
|
|
import Html.Events exposing (..)
|
|
import Html.Lazy as Lazy
|
|
import Json.Encode as Encode
|
|
import Json.Decode as Decode
|
|
import Mastodon.Model exposing (..)
|
|
import Model
|
|
import Types exposing (..)
|
|
import View.Common as Common
|
|
import View.Events exposing (..)
|
|
import View.Formatter exposing (formatContent)
|
|
import View.Status exposing (statusView)
|
|
|
|
|
|
type alias CurrentUser =
|
|
Account
|
|
|
|
|
|
visibilities : Dict.Dict String String
|
|
visibilities =
|
|
Dict.fromList
|
|
[ ( "public", "post to public timelines" )
|
|
, ( "unlisted", "do not show in public timelines" )
|
|
, ( "private", "post to followers only" )
|
|
, ( "direct", "post to mentioned users only" )
|
|
]
|
|
|
|
|
|
viewAutocompleteMenu : Draft -> Html Msg
|
|
viewAutocompleteMenu draft =
|
|
div [ class "autocomplete-menu" ]
|
|
[ Html.map (DraftEvent << SetAutoState)
|
|
(Autocomplete.view viewConfig
|
|
draft.autoMaxResults
|
|
draft.autoState
|
|
(Model.acceptableAccounts draft.autoQuery draft.autoAccounts)
|
|
)
|
|
]
|
|
|
|
|
|
viewConfig : Autocomplete.ViewConfig Mastodon.Model.Account
|
|
viewConfig =
|
|
let
|
|
customizedLi keySelected mouseSelected account =
|
|
{ attributes =
|
|
[ classList
|
|
[ ( "list-group-item autocomplete-item", True )
|
|
, ( "active", keySelected || mouseSelected )
|
|
]
|
|
]
|
|
, children =
|
|
[ img [ src account.avatar ] []
|
|
, strong []
|
|
[ text <|
|
|
if account.display_name /= "" then
|
|
account.display_name
|
|
else
|
|
account.acct
|
|
]
|
|
, span [] [ text <| " @" ++ account.acct ]
|
|
]
|
|
}
|
|
in
|
|
Autocomplete.viewConfig
|
|
{ toId = .id >> toString
|
|
, ul = [ class "list-group autocomplete-list" ]
|
|
, li = customizedLi
|
|
}
|
|
|
|
|
|
currentUserView : Maybe CurrentUser -> Html Msg
|
|
currentUserView currentUser =
|
|
case currentUser of
|
|
Just currentUser ->
|
|
div [ class "current-user" ]
|
|
[ Common.accountAvatarLink currentUser
|
|
, div [ class "username" ] [ Common.accountLink currentUser ]
|
|
, p [ class "status-text" ] <| formatContent currentUser.note []
|
|
]
|
|
|
|
Nothing ->
|
|
text ""
|
|
|
|
|
|
draftReplyToView : Draft -> Html Msg
|
|
draftReplyToView draft =
|
|
case draft.inReplyTo of
|
|
Just status ->
|
|
div [ class "in-reply-to" ]
|
|
[ p []
|
|
[ strong []
|
|
[ text "In reply to this toot ("
|
|
, a
|
|
[ href ""
|
|
, onClickWithPreventAndStop <| DraftEvent ClearDraft
|
|
]
|
|
[ Common.icon "remove" ]
|
|
, text ")"
|
|
]
|
|
]
|
|
, div [ class "well" ] [ Lazy.lazy2 statusView "draft" status ]
|
|
]
|
|
|
|
Nothing ->
|
|
text ""
|
|
|
|
|
|
draftView : Model -> Html Msg
|
|
draftView ({ draft, currentUser } as model) =
|
|
let
|
|
hasSpoiler =
|
|
draft.spoilerText /= Nothing
|
|
|
|
visibilityOptionView ( visibility, description ) =
|
|
option [ value visibility ]
|
|
[ text <| visibility ++ ": " ++ description ]
|
|
|
|
autoMenu =
|
|
if draft.showAutoMenu then
|
|
viewAutocompleteMenu model.draft
|
|
else
|
|
text ""
|
|
in
|
|
div [ class "panel panel-default" ]
|
|
[ div [ class "panel-heading" ]
|
|
[ Common.icon "envelope"
|
|
, text <|
|
|
if draft.inReplyTo /= Nothing then
|
|
"Post a reply"
|
|
else
|
|
"Post a message"
|
|
]
|
|
, div [ class "panel-body" ]
|
|
[ currentUserView currentUser
|
|
, draftReplyToView draft
|
|
, Html.form [ class "form", onSubmit SubmitDraft ]
|
|
[ div [ class "form-group checkbox" ]
|
|
[ label []
|
|
[ input
|
|
[ type_ "checkbox"
|
|
, onCheck <| DraftEvent << ToggleSpoiler
|
|
, checked hasSpoiler
|
|
]
|
|
[]
|
|
, text " Add a spoiler"
|
|
]
|
|
]
|
|
, if hasSpoiler then
|
|
div [ class "form-group" ]
|
|
[ label [ for "spoiler" ] [ text "Visible part" ]
|
|
, textarea
|
|
[ id "spoiler"
|
|
, class "form-control"
|
|
, rows 5
|
|
, placeholder "This text will always be visible."
|
|
, onInput <| DraftEvent << UpdateSpoiler
|
|
, required True
|
|
, value <| Maybe.withDefault "" draft.spoilerText
|
|
]
|
|
[]
|
|
]
|
|
else
|
|
text ""
|
|
, div [ class "form-group" ]
|
|
[ label [ for "status" ]
|
|
[ text <|
|
|
if hasSpoiler then
|
|
"Hidden part"
|
|
else
|
|
"Status"
|
|
]
|
|
, let
|
|
dec =
|
|
(Decode.map
|
|
(\code ->
|
|
if code == 38 || code == 40 then
|
|
Ok NoOp
|
|
else
|
|
Err "not handling that key"
|
|
)
|
|
keyCode
|
|
)
|
|
|> Decode.andThen fromResult
|
|
|
|
options =
|
|
{ preventDefault = draft.showAutoMenu
|
|
, stopPropagation = False
|
|
}
|
|
|
|
fromResult : Result String a -> Decode.Decoder a
|
|
fromResult result =
|
|
case result of
|
|
Ok val ->
|
|
Decode.succeed val
|
|
|
|
Err reason ->
|
|
Decode.fail reason
|
|
in
|
|
textarea
|
|
[ id "status"
|
|
, class "form-control"
|
|
, rows 8
|
|
, placeholder <|
|
|
if hasSpoiler then
|
|
"This text will be hidden by default, as you have enabled a spoiler."
|
|
else
|
|
"Once upon a time..."
|
|
, required True
|
|
, onInputInformation <| DraftEvent << UpdateInputInformation
|
|
, onClickInformation <| DraftEvent << UpdateInputInformation
|
|
, property "defaultValue" (Encode.string draft.status)
|
|
, onWithOptions "keydown" options dec
|
|
]
|
|
[]
|
|
, autoMenu
|
|
]
|
|
, div [ class "form-group" ]
|
|
[ label [ for "visibility" ] [ text "Visibility" ]
|
|
, select
|
|
[ id "visibility"
|
|
, class "form-control"
|
|
, onInput <| DraftEvent << UpdateVisibility
|
|
, required True
|
|
, value draft.visibility
|
|
]
|
|
<|
|
|
List.map visibilityOptionView <|
|
|
Dict.toList visibilities
|
|
]
|
|
, div [ class "form-group checkbox" ]
|
|
[ label []
|
|
[ input
|
|
[ type_ "checkbox"
|
|
, onCheck <| DraftEvent << UpdateSensitive
|
|
, checked draft.sensitive
|
|
]
|
|
[]
|
|
, text " This post is NSFW"
|
|
]
|
|
]
|
|
, Common.justifiedButtonGroup
|
|
[ button
|
|
[ type_ "button"
|
|
, class "btn btn-default"
|
|
, onClick (DraftEvent ClearDraft)
|
|
]
|
|
[ text "Clear" ]
|
|
, button
|
|
[ type_ "submit"
|
|
, class "btn btn-primary"
|
|
]
|
|
[ text "Toot!" ]
|
|
]
|
|
]
|
|
]
|
|
]
|