From 299a0236dca5b9c1f405a607b171a8b33c45a052 Mon Sep 17 00:00:00 2001
From: Nicolas Perriault <nperriault@gmail.com>
Date: Tue, 25 Apr 2017 18:45:11 +0200
Subject: [PATCH] Fix #57: Reply preserving initial status properties. (#62)

Preserve visibility, sensitivity and spoiler text in replies.
---
 src/Model.elm | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/src/Model.elm b/src/Model.elm
index 9316056..a4cb52a 100644
--- a/src/Model.elm
+++ b/src/Model.elm
@@ -324,6 +324,13 @@ updateDraft draftMsg draft =
                             draft.status
                         else
                             mention ++ " " ++ draft.status
+                    , sensitive = Maybe.withDefault False status.sensitive
+                    , spoiler_text =
+                        if status.spoiler_text == "" then
+                            Nothing
+                        else
+                            Just status.spoiler_text
+                    , visibility = status.visibility
                 }
                     ! [ Dom.focus "status" |> Task.attempt (always NoOp) ]