TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-06-23 19:08:26 +00:00
Code Issues Packages Projects Releases Wiki Activity

Use a template for rendering title and subtitle of the item card

Browse Source 
Introduces `ItemTemplate` to conveniently create strings given an
item.
This commit is contained in:
Eike Kettner
2020-11-29 20:15:00 +01:00
parent 2aecf08706
commit 81a136d915
3 changed files with 414 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
modules/webapp/src/main/elm/Comp/ItemCard.elm
View File

@ -11,13 +11,13 @@ module Comp.ItemCard exposing
import Api
import Api.Model.AttachmentLight exposing (AttachmentLight)
import Api.Model.HighlightEntry exposing (HighlightEntry)
import Api.Model.IdName exposing (IdName)
import Api.Model.ItemLight exposing (ItemLight)
import Comp.LinkTarget exposing (LinkTarget(..))
import Data.Direction
import Data.Fields
import Data.Icons as Icons
import Data.ItemSelection exposing (ItemSelection)
import Data.ItemTemplate as IT
import Data.UiSettings exposing (UiSettings)
import Html exposing (..)
import Html.Attributes exposing (..)
@ -30,7 +30,6 @@ import Util.ItemDragDrop as DD
import Util.List
import Util.Maybe
import Util.String
import Util.Time
type alias Model =
@ -220,8 +219,7 @@ metaDataContent settings item =
Data.UiSettings.fieldHidden settings f
dueDate =
Maybe.map Util.Time.formatDateShort item.dueDate
|> Maybe.withDefault ""
IT.render IT.dueDateShort item
in
div [ class "content" ]
[ div [ class "ui horizontal link list" ]
@ -268,7 +266,7 @@ metaDataContent settings item =
[ class "item"
, title "Source"
]
[ text item.source
[ IT.render IT.source item |> text
]
, div
[ classList
@ -321,6 +319,12 @@ mainContent cardAction cardColor isConfirmed settings _ item =
fieldHidden f =
Data.UiSettings.fieldHidden settings f
titlePattern =
IT.name
subtitlePattern =
IT.dateLong
in
a
[ class "content"
@ -329,18 +333,16 @@ mainContent cardAction cardColor isConfirmed settings _ item =
]
[ if fieldHidden Data.Fields.Direction then
div [ class "header" ]
[ Util.String.underscoreToSpace item.name |> text
[ IT.render titlePattern item |> text
]
else
div
[ class "header"
, Data.Direction.labelFromMaybe item.direction
|> title
, IT.render IT.direction item |> title
]
[ dirIcon
, Util.String.underscoreToSpace item.name
|> text
, IT.render titlePattern item |> text
]
, div
[ classList
@ -358,7 +360,7 @@ mainContent cardAction cardColor isConfirmed settings _ item =
, ( "invisible hidden", fieldHidden Data.Fields.Date )
]
]
[ Util.Time.formatDate item.date |> text
[ IT.render subtitlePattern item |> text
]
, div [ class "meta description" ]
[ mainTagsAndFields settings item