1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
|
module Lib.TextPreview exposing (..)
import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (..)
import Json.Encode as JE
import Lib.Html exposing (..)
import Lib.Ffi as Ffi
import Lib.Api as Api
import Gen.Api as GApi
type alias Model =
{ state : Api.State
, data : String -- contents of the textarea
, preview : String -- Rendered HTML, "" if not in sync with data
, display : Bool -- False = textarea is displayed, True = preview is displayed
, apiUrl : String
, class : String
}
bbcode : String -> Model
bbcode data =
{ state = Api.Normal
, data = data
, preview = ""
, display = False
, apiUrl = "/js/bbcode.json"
, class = "preview bbcode"
}
markdown : String -> Model
markdown data =
{ state = Api.Normal
, data = data
, preview = ""
, display = False
, apiUrl = "/js/markdown.json"
, class = "preview docs"
}
type Msg
= Edit String
| TextArea
| Preview
| HandlePreview GApi.Response
update : Msg -> Model -> (Model, Cmd Msg)
update msg model =
case msg of
Edit s -> ({ model | preview = "", data = s, display = False, state = Api.Normal }, Cmd.none)
TextArea -> ({ model | display = False }, Cmd.none)
Preview ->
if model.preview /= ""
then ( { model | display = True }, Cmd.none)
else ( { model | display = True, state = Api.Loading }
, Api.post model.apiUrl (JE.object [("content", JE.string model.data)]) HandlePreview
)
HandlePreview (GApi.Content s) -> ({ model | state = Api.Normal, preview = s }, Cmd.none)
HandlePreview r -> ({ model | state = Api.Error r }, Cmd.none)
view : String -> Model -> (Msg -> m) -> Int -> List (Attribute m) -> List (Html m) -> Html m
view name model cmdmap width attr header =
let
display = model.display && model.preview /= ""
in
div [ class "textpreview", style "width" (String.fromInt width ++ "px") ]
[ span []
[ p [] header
, p [ class "right", classList [("invisible", model.data == "")] ]
[ case model.state of
Api.Loading -> span [ class "spinner" ] []
Api.Error _ -> b [ class "grayedout" ] [ text "Error loading preview. " ]
Api.Normal -> text ""
, if display
then a [ onClickN (cmdmap TextArea) ] [ text "Edit" ]
else i [] [text "Edit"]
, if display
then i [] [text "Preview"]
else a [ onClickN (cmdmap Preview) ] [ text "Preview" ]
]
]
, inputTextArea name model.data (cmdmap << Edit) (class (if display then "hidden" else "") :: attr)
, if not display then text ""
else div [ class model.class, Ffi.innerHtml model.preview ] []
]
|
