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
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
|
port module UList.Opt exposing (main)
import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (..)
import Task
import Process
import Browser
import Lib.Util exposing (..)
import Lib.Html exposing (..)
import Lib.Api as Api
import Gen.Types as T
import Gen.Api as GApi
import Gen.UListVNOpt as GVO
import Gen.UListVNNotes as GVN
import Gen.UListDel as GDE
main : Program GVO.Recv Model Msg
main = Browser.element
{ init = \f -> (init f, Cmd.none)
, subscriptions = always Sub.none
, view = view
, update = update
}
port ulistVNDeleted : Bool -> Cmd msg
port ulistNotesChanged : String -> Cmd msg
type alias Model =
{ flags : GVO.Recv
, del : Bool
, delState : Api.State
, notes : String
, notesRev : Int
, notesState : Api.State
}
init : GVO.Recv -> Model
init f =
{ flags = f
, del = False
, delState = Api.Normal
, notes = f.notes
, notesRev = 0
, notesState = Api.Normal
}
type Msg
= Del Bool
| Delete
| Deleted GApi.Response
| Notes String
| NotesSave Int
| NotesSaved Int GApi.Response
update : Msg -> Model -> (Model, Cmd Msg)
update msg model =
case msg of
Del b -> ({ model | del = b }, Cmd.none)
Delete -> ({ model | delState = Api.Loading }, Api.post "/u/ulist/del.json" (GDE.encode { uid = model.flags.uid, vid = model.flags.vid }) Deleted)
Deleted GApi.Success -> (model, ulistVNDeleted True)
Deleted e -> ({ model | delState = Api.Error e }, Cmd.none)
Notes s -> ({ model | notes = s, notesRev = model.notesRev + 1 }, Task.perform (\_ -> NotesSave (model.notesRev+1)) <| Process.sleep 1000)
NotesSave rev ->
if rev /= model.notesRev || model.notes == model.flags.notes
then (model, Cmd.none)
else ({ model | notesState = Api.Loading }, Api.post "/u/ulist/setnote.json" (GVN.encode { uid = model.flags.uid, vid = model.flags.vid, notes = model.notes }) (NotesSaved rev))
NotesSaved rev GApi.Success ->
let f = model.flags
nf = { f | notes = model.notes }
in if model.notesRev /= rev
then (model, Cmd.none)
else ({model | flags = nf, notesState = Api.Normal }, ulistNotesChanged model.notes)
NotesSaved _ e -> ({ model | notesState = Api.Error e }, Cmd.none)
view : Model -> Html Msg
view model =
let
opt =
[ tr []
[ td [ colspan 5 ]
[ textarea ([ placeholder "Notes", rows 2, cols 80, onInput Notes, onBlur (NotesSave model.notesRev) ] ++ GVN.valNotes) [ text model.notes ]
, div [ ]
[ div [ class "spinner", classList [("invisible", model.notesState /= Api.Loading)] ] []
, br [] []
, case model.notesState of
Api.Error e -> b [ class "standout" ] [ text <| Api.showResponse e ]
_ -> text ""
, br [] []
, a [ href "#", onClickD (Del True) ] [ text "Remove VN" ]
]
]
]
, tfoot []
[ tr []
[ td [ colspan 5 ] [ a [ href "#" ] [ text "Add release" ] ] ]
]
]
rel i r =
tr []
[ if model.flags.own
then td [ class "tco1" ] [ a [ href "#" ] [ text "remove" ] ]
else text ""
, td [ class "tco2" ] [ text <| Maybe.withDefault "status" <| lookup r.status T.rlistStatus ]
, td [ class "tco3" ] [ text "2018-11-10" ]
, td [ class "tco4" ] <| List.map langIcon r.lang ++ [ releaseTypeIcon r.rtype ]
, td [ class "tco5" ] [ a [ href ("/r"++String.fromInt r.id), title r.original ] [ text r.title ] ]
]
confirm =
div []
[ text "Are you sure you want to remove this visual novel from your list? "
, a [ onClickD Delete ] [ text "Yes" ]
, text " | "
, a [ onClickD (Del False) ] [ text "Cancel" ]
]
in case (model.del, model.delState) of
(False, _) -> table [] <| (if model.flags.own then opt else []) ++ List.indexedMap rel model.flags.rels
(_, Api.Normal) -> confirm
(_, Api.Loading) -> div [ class "spinner" ] []
(_, Api.Error e) -> b [ class "standout" ] [ text <| "Error removing item: " ++ Api.showResponse e ]
|
