TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-10-16 21:01:51 +00:00
Code Issues Packages Projects Releases Wiki Activity

Add info text to int field

Browse Source
This commit is contained in:
Eike Kettner
2020-04-23 21:46:10 +02:00
parent 84e0ebf1a2
commit 06d2c9ecba
2 changed files with 26 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

25
modules/webapp/src/main/elm/Comp/IntField.elm
View File

@@ -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 )