TheAnachronism/docspell
1
0
Fork 0
mirror of https://github.com/TheAnachronism/docspell.git synced 2025-06-22 10:28:27 +00:00
Code Issues Packages Projects Releases Wiki Activity

Change attachments position via drag-and-drop

Browse Source
This commit is contained in:
Eike Kettner
2020-05-24 17:29:45 +02:00
parent 3cb738568f
commit 90e039ceb3
3 changed files with 53 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -14,6 +14,7 @@ import Api.Model.EquipmentList exposing (EquipmentList)
import Api.Model.IdName exposing (IdName)
import Api.Model.ItemDetail exposing (ItemDetail)
import Api.Model.ItemProposals exposing (ItemProposals)
import Api.Model.MoveAttachment exposing (MoveAttachment)
import Api.Model.OptionalDate exposing (OptionalDate)
import Api.Model.OptionalId exposing (OptionalId)
import Api.Model.OptionalText exposing (OptionalText)
@ -39,6 +40,7 @@ import File exposing (File)
import Html exposing (..)
import Html.Attributes exposing (..)
import Html.Events exposing (onCheck, onClick, onInput)
import Html5.DragDrop as DD
import Http
import Markdown
import Page exposing (Page(..))
@ -88,6 +90,7 @@ type alias Model =
, completed : Set String
, errored : Set String
, loading : Set String
, attachDD : DD.Model String String
}
@ -182,6 +185,7 @@ emptyModel =
, completed = Set.empty
, errored = Set.empty
, loading = Set.empty
, attachDD = DD.init
}
@ -244,6 +248,7 @@ type Msg
| AddFilesUploadResp String (Result Http.Error BasicResult)
| AddFilesProgress String Http.Progress
| AddFilesReset
| AttachDDMsg (DD.Msg String String)
@ -1174,6 +1179,28 @@ update key flags next msg model =
in
noSub ( model, updateBars )
AttachDDMsg lm ->
let
( model_, result ) =
DD.update lm model.attachDD
cmd =
case result of
Just ( src, trg, _ ) ->
if src /= trg then
Api.moveAttachmentBefore flags
model.item.id
(MoveAttachment src trg)
SaveResp
else
Cmd.none
Nothing ->
Cmd.none
in
noSub ( { model | attachDD = model_ }, cmd )
-- view
@ -1425,14 +1452,17 @@ renderAttachmentsTabMenu model =
(\pos ->
\el ->
a
[ classList
([ classList
[ ( "item", True )
, ( "active", attachmentVisible model pos )
]
, title (Maybe.withDefault "No Name" el.name)
, href ""
, onClick (SetActiveAttachment pos)
]
, title (Maybe.withDefault "No Name" el.name)
, href ""
, onClick (SetActiveAttachment pos)
]
++ DD.draggable AttachDDMsg el.id
++ DD.droppable AttachDDMsg el.id
)
[ Maybe.map (Util.String.ellipsis 20) el.name
|> Maybe.withDefault "No Name"
|> text