elm-frontti/src/PostEditor.elm

module PostEditor exposing (..)

import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (..)
import Json.Decode as D
    

import Http

import Article_view
import Ajax_cmds exposing (..)
import Creator as C
import Page as P
import Message exposing (..)
import ImageSelector exposing (imageSelector)
import Button exposing (murja_button)
import Tab exposing (..)
import Dict exposing (Dict)

import File exposing (File)
import File.Select as Select

dropDecoder : D.Decoder Msg
dropDecoder =
  D.at ["dataTransfer","files"] (D.oneOrMore GotFiles File.decoder)


hijackOn : String -> D.Decoder msg -> Attribute msg
hijackOn event decoder =
  preventDefaultOn event (D.map hijack decoder)


hijack : msg -> (msg, Bool)
hijack msg =
  (msg, True)
      

optionize tag = option [value tag] [text tag]

tagView post selectedTag = div [class "tagview editor-grouper"]
                           [ select [ multiple True
                                    , class "tag-select"
                                    , id "tag-select"
                                    , onInput SelectTag
                                    , attribute "data-tags" (String.join "," post.tags)] (List.map optionize post.tags)
                           , murja_button [ onClick (PromptTag "New tag? ")
                                          , id "new-tag-btn"]
                                 [ text "Add tag"]
                           , murja_button [ onClick (DropTag selectedTag)
                                          , attribute "data-testid" "remove-tag"]
                               [text "Remove selected tag"]]

editor params =
    div [ class "editor-container" ]
        [ node "ace-editor"
             (  params
                    ++ [ attribute "theme" "ace/theme/monokai"
                       , attribute "mode" "ace/mode/html"])
              []]

filesDecoder : D.Decoder (List File)
filesDecoder =
  D.at ["target","files"] (D.list File.decoder)

previously_row p
    = li [] [ murja_button [ onClick (LoadPreviouslyPreview p) ] [ text p.title]
            , button [ onClick (DropPreviously p)] [ text "X"]]

previouslyButtons post loadedPosts previewingArticle article_settings =
    let { app_settings, loginState , tz} = article_settings
    in
    div [ class "previously-buttons" ]
        [ murja_button [ onClick ShowPreviousPostsModal ] [ text "Link previous posts"]
        , ul []
            ( post.previously
            |> List.map previously_row)
        , node "dialog" [ id "previewPreviouslyModal" ]
            (case previewingArticle of
                Just article ->
                    [ div [ class "dialog" ]
                          [ header [ class "previouslyHeader" ] [ button [ onClick ClosePreviousPostPreviewModal ] [ text "X"]]
                          , case loginState of
                                LoggedIn user ->
                                    Article_view.articleView app_settings loginState tz article
                                _ -> div [] [text "You're not logged in"]]]
                Nothing -> [])
        , node "dialog" [ id "previouslyModal" ]
            [ div [ class "dialog" ]
                  [ header [ class "previouslyHeader" ] [ button [ onClick ClosePreviousPostsModel ] [ text "X"]]
                  , select [ multiple True
                           , class "previouslyPostResult"]
                      (List.map (\prev_post ->
                                     option [ onClick (SelectPreviouslyPost prev_post) ] [ text prev_post.title ]) loadedPosts)
                  , input [ type_ "text"
                          , placeholder "Search for posts"
                          , onInput PreviouslySearchInput] []]]]
      
postEditor post tag showImageModal loadedImages draggingImages editorSettings app_settings tz loginState searchedPosts
    = [ div [ class "editor-top" ]
            [ div [ id "editor-buttons"
                  , class "editor-grouper"]
                  [ input [ name "title"
                          , id "editor-post-title"
                          , value post.title
                          , onInput ChangeTitle] []
                  , murja_button [ id "editor-post-save"
                                 , onClick (SavePost post) ] [text "Save version"]
                  , label [ for "file-pictures-input"
                          , class "murja-button"] [ text "Add pictures from device"]
                  , input [ type_ "file"
                          , multiple False
                          , style "display" "none"
                          , id "file-pictures-input"
                          , on "change" (D.map GotInputFiles filesDecoder)] []
                  , murja_button [ id "image-insert-btn"
                                 , onClick GetListOfImages]
                        [text "Insert image"]]
            , tagView post tag
            , previouslyButtons post searchedPosts editorSettings.previewing_previously
                { app_settings = app_settings
                , loginState = loginState
                , tz = tz }
            , div [ class "editor-grouper" ]
                [ label [ for "hidden"]
                      [ text "Hidden article"]
                , input [ type_ "checkbox"
                        , id "hidden"
                        , checked post.hidden
                        , onClick ToggleArticleHidden ] []
                , label [ for "unlisted"]
                    [ text "Unlisted article"]
                , input [ type_ "checkbox"
                        , id "unlisted"
                        , checked post.unlisted
                        , onClick ToggleArticleUnlisted] []]]
      , if showImageModal then imageSelector loadedImages else div [] []
      , case loginState of
            LoggedIn user ->
                tabs "posteditor-preview-tab" (if editorSettings.show_preview then
                                                   "PreviewArticle"
                                               else
                                                   "EditArticle") (Just user)
                    (Dict.fromList [ ("EditArticle"
                                     , TabEntry "Edit article"
                                         (editor [ id "editor-post-content"
                                                 , style "background-color" (if draggingImages then "#880088" else "")
                                                 , hijackOn "dragenter" (D.succeed EditorDragEnter)
                                                 , hijackOn "dragend" (D.succeed EditorDragLeave)
                                                 , hijackOn "dragover" (D.succeed EditorDragEnter)
                                                 , hijackOn "dragleave" (D.succeed EditorDragLeave)
                                                 , hijackOn "drop" dropDecoder
                                                 , hijackOn "ready" (D.succeed (RunAce post.content))])
                                             Nothing ["*"])
                                   , ("PreviewArticle"
                                     , TabEntry "Preview article"
                                         (Article_view.articleView app_settings loginState tz post)
                                         Nothing ["*"])])
            _ -> div [] [text "You're not logged in"]]