From 06d2c9ecba117ad46c9014043f5722aea5f52cef Mon Sep 17 00:00:00 2001
From: Eike Kettner <eike.kettner@posteo.de>
Date: Thu, 23 Apr 2020 21:46:10 +0200
Subject: [PATCH] Add info text to int field

---
 modules/webapp/src/main/elm/Comp/IntField.elm | 25 +++++++++++++++++--
 .../src/main/elm/Comp/NotificationForm.elm    |  4 ++-
 2 files changed, 26 insertions(+), 3 deletions(-)

diff --git a/modules/webapp/src/main/elm/Comp/IntField.elm b/modules/webapp/src/main/elm/Comp/IntField.elm
index 498a8ec8..65233db7 100644
--- a/modules/webapp/src/main/elm/Comp/IntField.elm
+++ b/modules/webapp/src/main/elm/Comp/IntField.elm
@@ -1,8 +1,16 @@
-module Comp.IntField exposing (Model, Msg, init, update, view)
+module Comp.IntField exposing
+    ( Model
+    , Msg
+    , init
+    , update
+    , view
+    , viewWithInfo
+    )
 
 import Html exposing (..)
 import Html.Attributes exposing (..)
 import Html.Events exposing (onInput)
+import Markdown
 
 
 type alias Model =
@@ -87,7 +95,12 @@ update msg model =
 
 
 view : Maybe Int -> String -> Model -> Html Msg
-view nval classes model =
+view =
+    viewWithInfo ""
+
+
+viewWithInfo : String -> Maybe Int -> String -> Model -> Html Msg
+viewWithInfo info nval classes model =
     div
         [ classList
             [ ( classes, True )
@@ -103,6 +116,14 @@ view nval classes model =
             , onInput SetValue
             ]
             []
+        , span
+            [ classList
+                [ ( "small-info", True )
+                , ( "hidden invisible", info == "" )
+                ]
+            ]
+            [ Markdown.toHtml [] info
+            ]
         , div
             [ classList
                 [ ( "ui pointing red basic label", True )
diff --git a/modules/webapp/src/main/elm/Comp/NotificationForm.elm b/modules/webapp/src/main/elm/Comp/NotificationForm.elm
index bf9d62a4..214f0e71 100644
--- a/modules/webapp/src/main/elm/Comp/NotificationForm.elm
+++ b/modules/webapp/src/main/elm/Comp/NotificationForm.elm
@@ -481,7 +481,9 @@ view extraClasses model =
                 ]
             ]
         , Html.map RemindDaysMsg
-            (Comp.IntField.view model.remindDays
+            (Comp.IntField.viewWithInfo
+                "Select items with a due date *lower than* `today+remindDays`"
+                model.remindDays
                 "required field"
                 model.remindDaysModel
             )