From dfbbcdf73c8619568d9eb973492c40bbbcc586e3 Mon Sep 17 00:00:00 2001
From: Eike Kettner <eike.kettner@posteo.de>
Date: Wed, 5 Aug 2020 23:11:21 +0200
Subject: [PATCH] Allow only one horizontal form being open

---
 .../src/main/elm/Comp/ItemDetail/Update.elm    | 18 +++++++++++++++++-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/modules/webapp/src/main/elm/Comp/ItemDetail/Update.elm b/modules/webapp/src/main/elm/Comp/ItemDetail/Update.elm
index 6dbd807f..9328b702 100644
--- a/modules/webapp/src/main/elm/Comp/ItemDetail/Update.elm
+++ b/modules/webapp/src/main/elm/Comp/ItemDetail/Update.elm
@@ -705,6 +705,13 @@ update key flags next msg model =
                 newOpen =
                     not model.mailOpen
 
+                filesOpen =
+                    if newOpen == True then
+                        False
+
+                    else
+                        model.addFilesOpen
+
                 sendResult =
                     if newOpen then
                         model.mailSendResult
@@ -715,6 +722,7 @@ update key flags next msg model =
             noSub
                 ( { model
                     | mailOpen = newOpen
+                    , addFilesOpen = filesOpen
                     , mailSendResult = sendResult
                   }
                 , Cmd.none
@@ -858,7 +866,15 @@ update key flags next msg model =
 
         AddFilesToggle ->
             noSub
-                ( { model | addFilesOpen = not model.addFilesOpen }
+                ( { model
+                    | addFilesOpen = not model.addFilesOpen
+                    , mailOpen =
+                        if model.addFilesOpen == False then
+                            False
+
+                        else
+                            model.mailOpen
+                  }
                 , Cmd.none
                 )