summaryrefslogtreecommitdiff
path: root/elm/Discussions/Reply.elm
diff options
context:
space:
mode:
authorYorhel <git@yorhel.nl>2019-12-30 15:35:46 +0100
committerYorhel <git@yorhel.nl>2019-12-30 15:35:46 +0100
commit8143e41a59efb8d7220da458e0a94b5b839179b2 (patch)
tree6eaa0eddf45541f2b121bf14d3aea20be16f56a1 /elm/Discussions/Reply.elm
parentd1bb5b82255c764edecc659c78d5b9f4e36555e8 (diff)
Discussions: Discourage necroing old and inactive threads
Diffstat (limited to 'elm/Discussions/Reply.elm')
-rw-r--r--elm/Discussions/Reply.elm32
1 files changed, 23 insertions, 9 deletions
diff --git a/elm/Discussions/Reply.elm b/elm/Discussions/Reply.elm
index 69d112cd..c6e48a8e 100644
--- a/elm/Discussions/Reply.elm
+++ b/elm/Discussions/Reply.elm
@@ -11,7 +11,7 @@ import Gen.Api as GApi
import Gen.DiscussionsReply as GDR
-main : Program Int Model Msg
+main : Program GDR.Recv Model Msg
main = Browser.element
{ init = \e -> (init e, Cmd.none)
, view = view
@@ -23,20 +23,23 @@ main = Browser.element
type alias Model =
{ state : Api.State
, tid : Int
+ , old : Bool
, msg : TP.Model
}
-init : Int -> Model
-init tid =
+init : GDR.Recv -> Model
+init e =
{ state = Api.Normal
- , tid = tid
+ , tid = e.tid
+ , old = e.old
, msg = TP.bbcode ""
}
type Msg
- = Content TP.Msg
+ = NotOldAnymore
+ | Content TP.Msg
| Submit
| Submitted GApi.Response
@@ -44,6 +47,7 @@ type Msg
update : Msg -> Model -> (Model, Cmd Msg)
update msg model =
case msg of
+ NotOldAnymore -> ({ model | old = False }, Cmd.none)
Content m -> let (nm,nc) = TP.update m model.msg in ({ model | msg = nm }, Cmd.map Content nc)
Submit ->
@@ -57,8 +61,19 @@ update msg model =
view : Model -> Html Msg
view model =
form_ Submit (model.state == Api.Loading)
- [ div [ class "mainbox" ]
- [ fieldset [ class "submit" ]
+ [ div [ class "mainbox" ] <| [
+ if model.old
+ then
+ p [ class "center" ]
+ [ text "This thread has not seen any activity for more than 6 months, but you may still "
+ , a [ href "#", onClickD NotOldAnymore ] [ text "reply" ]
+ , text " if you have something relevant to add."
+ , text " If your message is not directly relevant to this thread, perhaps it's better to "
+ , a [ href "/t/ge/new" ] [ text "create a new thread" ]
+ , text " instead."
+ ]
+ else
+ fieldset [ class "submit" ]
[ TP.view "msg" model.msg Content 600 ([rows 4, cols 50] ++ GDR.valMsg)
[ b [] [ text "Quick reply" ]
, b [ class "standout" ] [ text " (English please!) " ]
@@ -66,5 +81,4 @@ view model =
]
, submitButton "Submit" model.state True
]
- ]
- ]
+ ] ]