TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-06-02 13:32:51 +00:00
Code Issues Packages Projects Releases Wiki Activity

Remove hidden fields from list view

Browse Source
This commit is contained in:
Eike Kettner 2020-09-21 14:08:13 +02:00
parent 57ab050cf7
commit 9958d228bd
1 changed files with 49 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

66
modules/webapp/src/main/elm/Comp/ItemCardList.elm
View File

@ -14,6 +14,7 @@ import Api.Model.ItemLight exposing (ItemLight)
import Api.Model.ItemLightGroup exposing (ItemLightGroup) import Api.Model.ItemLightGroup exposing (ItemLightGroup)
import Api.Model.ItemLightList exposing (ItemLightList) import Api.Model.ItemLightList exposing (ItemLightList)
import Data.Direction import Data.Direction
import Data.Fields
import Data.Flags exposing (Flags) import Data.Flags exposing (Flags)
import Data.Icons as Icons import Data.Icons as Icons
import Data.Items import Data.Items
@ -169,6 +170,9 @@ viewItem current settings item =
newColor = newColor =
"blue" "blue"
fieldHidden f =
Data.UiSettings.fieldHidden settings f
in in
a a
([ classList ([ classList
@ -183,15 +187,21 @@ viewItem current settings item =
++ DD.draggable ItemDDMsg item.id ++ DD.draggable ItemDDMsg item.id
) )
[ div [ class "content" ] [ div [ class "content" ]
[ div [ if fieldHidden Data.Fields.Direction then
[ class "header" div [ class "header" ]
, Data.Direction.labelFromMaybe item.direction [ Util.String.underscoreToSpace item.name |> text
|> title ]
]
[ dirIcon else
, Util.String.underscoreToSpace item.name div
|> text [ class "header"
] , Data.Direction.labelFromMaybe item.direction
|> title
]
[ dirIcon
, Util.String.underscoreToSpace item.name
|> text
]
, div , div
[ classList [ classList
[ ( "ui right corner label", True ) [ ( "ui right corner label", True )
@ -202,16 +212,19 @@ viewItem current settings item =
] ]
[ i [ class "exclamation icon" ] [] [ i [ class "exclamation icon" ] []
] ]
, div [ class "meta" ] , div
[ span [] [ classList
[ Util.Time.formatDate item.date |> text [ ( "meta", True )
, ( "invisible hidden", fieldHidden Data.Fields.Date )
] ]
] ]
[ Util.Time.formatDate item.date |> text
]
, div [ class "meta description" ] , div [ class "meta description" ]
[ div [ div
[ classList [ classList
[ ( "ui right floated tiny labels", True ) [ ( "ui right floated tiny labels", True )
, ( "invisible hidden", item.tags == [] ) , ( "invisible hidden", item.tags == [] || fieldHidden Data.Fields.Tag )
] ]
] ]
(List.map (List.map
@ -247,7 +260,13 @@ viewItem current settings item =
, div [ class "content" ] , div [ class "content" ]
[ div [ class "ui horizontal list" ] [ div [ class "ui horizontal list" ]
[ div [ div
[ class "item" [ classList
[ ( "item", True )
, ( "invisible hidden"
, fieldHidden Data.Fields.CorrOrg
&& fieldHidden Data.Fields.CorrPerson
)
]
, title "Correspondent" , title "Correspondent"
] ]
[ Icons.correspondentIcon "" [ Icons.correspondentIcon ""
@ -255,7 +274,13 @@ viewItem current settings item =
, Util.String.withDefault "-" corr |> text , Util.String.withDefault "-" corr |> text
] ]
, div , div
[ class "item" [ classList
[ ( "item", True )
, ( "invisible hidden"
, fieldHidden Data.Fields.ConcPerson
&& fieldHidden Data.Fields.ConcEquip
)
]
, title "Concerning" , title "Concerning"
] ]
[ Icons.concernedIcon [ Icons.concernedIcon
@ -263,7 +288,10 @@ viewItem current settings item =
, Util.String.withDefault "-" conc |> text , Util.String.withDefault "-" conc |> text
] ]
, div , div
[ class "item" [ classList
[ ( "item", True )
, ( "invisible hidden", fieldHidden Data.Fields.Folder )
]
, title "Folder" , title "Folder"
] ]
[ Icons.folderIcon "" [ Icons.folderIcon ""
@ -282,7 +310,11 @@ viewItem current settings item =
, div , div
[ classList [ classList
[ ( "item", True ) [ ( "item", True )
, ( "invisible hidden", item.dueDate == Nothing ) , ( "invisible hidden"
, item.dueDate
== Nothing
|| fieldHidden Data.Fields.DueDate
)
] ]
, title ("Due on " ++ dueDate) , title ("Due on " ++ dueDate)
] ]