TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-10-08 12:07:14 +00:00
Code Issues Packages Projects Releases Wiki Activity

Remove code from old ui

Browse Source
This commit is contained in:
Eike Kettner
2021-04-17 10:24:25 +02:00
parent b3c3c783dc
commit c9b54e80b7
3 changed files with 2 additions and 59 deletions
Download Patch File Download Diff File Expand all files Collapse all files

39
modules/webapp/src/main/elm/Util/CustomField.elm
View File

@@ -1,7 +1,6 @@
module Util.CustomField exposing
( nameOrLabel
, renderValue
, renderValue1
, renderValue2
)
@@ -20,43 +19,7 @@ nameOrLabel fv =
renderValue : String -> ItemFieldValue -> Html msg
renderValue classes cv =
renderValue1 [ ( classes, True ) ] Nothing cv
renderValue1 : List ( String, Bool ) -> Maybe msg -> ItemFieldValue -> Html msg
renderValue1 classes tagger cv =
let
renderBool =
if cv.value == "true" then
i [ class "check icon" ] []
else
i [ class "minus icon" ] []
el : List (Html msg) -> Html msg
el =
case tagger of
Just t ->
a
[ classList classes
, onClick t
, href "#"
]
Nothing ->
div [ classList classes ]
in
el
[ Icons.customFieldTypeIconString "" cv.ftype
, nameOrLabel cv |> text
, div [ class "detail" ]
[ if Data.CustomFieldType.fromString cv.ftype == Just Data.CustomFieldType.Boolean then
renderBool
else
text cv.value
]
]
renderValue2 [ ( classes, True ) ] Nothing cv
renderValue2 : List ( String, Bool ) -> Maybe msg -> ItemFieldValue -> Html msg