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

Shorten attachment filenames in tab view

Browse Source
This commit is contained in:
Eike Kettner 2020-01-12 11:56:31 +01:00
parent 8058bdd398
commit d057d4de7c
1 changed files with 47 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -7,6 +7,7 @@ module Comp.ItemDetail exposing
)
import Api
import Api.Model.Attachment exposing (Attachment)
import Api.Model.BasicResult exposing (BasicResult)
import Api.Model.DirectionValue exposing (DirectionValue)
import Api.Model.EquipmentList exposing (EquipmentList)
@ -984,10 +985,9 @@ renderAttachmentsTabMenu model =
]
, onClick (SetActiveAttachment pos)
]
[ a.name |> Maybe.withDefault "No Name" |> text
, text " ("
, text (Util.Size.bytesReadable Util.Size.B (toFloat a.size))
, text ")"
[ Maybe.map (Util.String.ellipsis 20) a.name
|> Maybe.withDefault "No Name"
|> text
]
)
model.item.attachments
@ -995,6 +995,47 @@ renderAttachmentsTabMenu model =
)
renderAttachmentView : Model -> Int -> Attachment -> Html Msg
renderAttachmentView model pos attach =
let
fileUrl =
"/api/v1/sec/attachment/" ++ attach.id
attachName =
Maybe.withDefault "No name" attach.name
in
div
[ classList
[ ( "ui attached tab segment", True )
, ( "active", pos == model.visibleAttach )
]
]
[ div [ class "ui small secondary menu" ]
[ div [ class "horizontally fitted item" ]
[ i [ class "file outline icon" ] []
, text attachName
, text " ("
, text (Util.Size.bytesReadable Util.Size.B (toFloat attach.size))
, text ")"
]
, div [ class "right menu" ]
[ a
[ class "item"
, title "Download to disk"
, download attachName
, href fileUrl
]
[ i [ class "download icon" ] []
]
]
]
, div [ class "ui 4:3 embed doc-embed" ]
[ embed [ src fileUrl, type_ attach.contentType ]
[]
]
]
renderAttachmentsTabBody : Model -> List (Html Msg)
renderAttachmentsTabBody model =
let
@ -1016,22 +1057,7 @@ renderAttachmentsTabBody model =
]
]
in
List.indexedMap
(\pos ->
\a ->
div
[ classList
[ ( "ui attached tab segment", True )
, ( "active", pos == model.visibleAttach )
]
]
[ div [ class "ui 4:3 embed doc-embed" ]
[ embed [ src ("/api/v1/sec/attachment/" ++ a.id), type_ a.contentType ]
[]
]
]
)
model.item.attachments
List.indexedMap (renderAttachmentView model) model.item.attachments
++ mailTab
@ -1166,7 +1192,7 @@ renderEditButtons model =
, text "Unconfirm"
]
, button [ class "ui negative button", onClick RequestDelete ]
[ i [ class "delete icon" ] []
[ i [ class "trash icon" ] []
, text "Delete"
]
]