TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-03-25 16:45:05 +00:00
Code Issues Packages Projects Releases Wiki Activity

Make item detail header a link list

Browse Source
This commit is contained in:
Eike Kettner 2020-11-14 12:11:04 +01:00
parent e2545de347
commit cf578a88d3
3 changed files with 14 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
modules/webapp/src/main/elm/Comp/ItemDetail/Model.elm
View File

@ -26,6 +26,7 @@ import Comp.Dropdown
import Comp.Dropzone
import Comp.ItemMail
import Comp.KeyInput
import Comp.LinkTarget exposing (LinkTarget)
import Comp.MarkdownInput
import Comp.SentMails
import Comp.YesNoDimmer
@ -273,6 +274,7 @@ type Msg
| KeyInputMsg Comp.KeyInput.Msg
| ToggleAttachMenu
| UiSettingsUpdated
| SetLinkTarget LinkTarget
type SaveNameState

3
modules/webapp/src/main/elm/Comp/ItemDetail/Update.elm
View File

@ -1285,6 +1285,9 @@ update key flags inav settings msg model =
in
noSub ( model_, Cmd.none )
SetLinkTarget lt ->
noSub ( model, Cmd.none )
--- Helper

27
modules/webapp/src/main/elm/Comp/ItemDetail/View.elm
View File

@ -11,6 +11,7 @@ import Comp.ItemDetail.AttachmentTabMenu
import Comp.ItemDetail.Model exposing (Model, Msg(..), NotesField(..), SaveNameState(..))
import Comp.ItemMail
import Comp.KeyInput
import Comp.LinkTarget
import Comp.MarkdownInput
import Comp.SentMails
import Comp.YesNoDimmer
@ -519,13 +520,9 @@ renderItemInfo settings model =
[ class "item"
, title "Correspondent"
]
[ Icons.correspondentIcon ""
, List.filterMap identity [ model.item.corrOrg, model.item.corrPerson ]
|> List.map .name
|> String.join ", "
|> Util.String.withDefault "(None)"
|> text
]
(Icons.correspondentIcon ""
:: Comp.LinkTarget.makeCorrLink model.item SetLinkTarget
)
, Data.UiSettings.fieldVisible settings Data.Fields.CorrOrg
|| Data.UiSettings.fieldVisible settings Data.Fields.CorrPerson
)
@ -535,13 +532,9 @@ renderItemInfo settings model =
[ class "item"
, title "Concerning"
]
[ Icons.concernedIcon
, List.filterMap identity [ model.item.concPerson, model.item.concEquipment ]
|> List.map .name
|> String.join ", "
|> Util.String.withDefault "(None)"
|> text
]
(Icons.concernedIcon
:: Comp.LinkTarget.makeConcLink model.item SetLinkTarget
)
, Data.UiSettings.fieldVisible settings Data.Fields.ConcEquip
|| Data.UiSettings.fieldVisible settings Data.Fields.ConcPerson
)
@ -552,9 +545,7 @@ renderItemInfo settings model =
, title "Folder"
]
[ Icons.folderIcon ""
, Maybe.map .name model.item.folder
|> Maybe.withDefault "-"
|> text
, Comp.LinkTarget.makeFolderLink model.item SetLinkTarget
]
, Data.UiSettings.fieldVisible settings Data.Fields.Folder
)
@ -592,7 +583,7 @@ renderItemInfo settings model =
[ text "New!"
]
, div [ class "sub header" ]
[ div [ class "ui horizontal bulleted list" ]
[ div [ class "ui horizontal bulleted link list" ]
(List.filter Tuple.second
[ date
, corr