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

Drag-drop items into folders in list view

Browse Source
This commit is contained in:
Eike Kettner 2020-08-08 14:03:36 +02:00
parent 9c50a85363
commit d6d16e39bd
7 changed files with 189 additions and 106 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

53
modules/webapp/src/main/elm/Comp/FolderSelect.elm
View File

@ -12,8 +12,8 @@ import Api.Model.FolderItem exposing (FolderItem)
import Html exposing (..) import Html exposing (..)
import Html.Attributes exposing (..) import Html.Attributes exposing (..)
import Html.Events exposing (onClick) import Html.Events exposing (onClick)
import Html5.DragDrop as DD
import Util.ExpandCollapse import Util.ExpandCollapse
import Util.ItemDragDrop as DD
import Util.List import Util.List
@ -39,7 +39,7 @@ init all =
type Msg type Msg
= Toggle FolderItem = Toggle FolderItem
| ToggleExpand | ToggleExpand
| FolderDDMsg (DD.Msg String String) | FolderDDMsg DD.Msg
update : Msg -> Model -> ( Model, Maybe FolderItem ) update : Msg -> Model -> ( Model, Maybe FolderItem )
@ -52,10 +52,10 @@ update msg model =
updateDrop : updateDrop :
DD.Model String String DD.Model
-> Msg -> Msg
-> Model -> Model
-> ( Model, Maybe FolderItem, DD.Model String String ) -> ( Model, Maybe FolderItem, DD.DragDropData )
updateDrop dropModel msg model = updateDrop dropModel msg model =
case msg of case msg of
Toggle item -> Toggle item ->
@ -70,35 +70,20 @@ updateDrop dropModel msg model =
model_ = model_ =
{ model | selected = selection } { model | selected = selection }
in in
( model_, selectedFolder model_, dropModel ) ( model_, selectedFolder model_, DD.DragDropData dropModel Nothing )
ToggleExpand -> ToggleExpand ->
( { model | expanded = not model.expanded } ( { model | expanded = not model.expanded }
, selectedFolder model , selectedFolder model
, dropModel , DD.DragDropData dropModel Nothing
) )
FolderDDMsg lm -> FolderDDMsg lm ->
let let
( dm_, result ) = ddd =
DD.update lm dropModel DD.update lm dropModel
_ =
case result of
Just ( item, folder, _ ) ->
let
_ =
Debug.log "item menu" item
_ =
Debug.log "folder menu" folder
in
Cmd.none
Nothing ->
Cmd.none
in in
( model, selectedFolder model, dm_ ) ( model, selectedFolder model, ddd )
selectedFolder : Model -> Maybe FolderItem selectedFolder : Model -> Maybe FolderItem
@ -119,13 +104,23 @@ view =
viewDrop DD.init viewDrop DD.init
viewDrop : DD.Model String String -> Int -> Model -> Html Msg viewDrop : DD.Model -> Int -> Model -> Html Msg
viewDrop dropModel constr model = viewDrop dropModel constr model =
let
highlightDrop =
DD.getDropId dropModel == Just DD.FolderRemove
in
div [ class "ui list" ] div [ class "ui list" ]
[ div [ class "item" ] [ div [ class "item" ]
[ i [ class "folder open icon" ] [] [ i [ class "folder open icon" ] []
, div [ class "content" ] , div [ class "content" ]
[ div [ class "header" ] [ div
(classList
[ ( "header", True )
, ( "current-drop-target", highlightDrop )
]
:: DD.droppable FolderDDMsg DD.FolderRemove
)
[ text "Folders" [ text "Folders"
] ]
, div [ class "ui relaxed list" ] , div [ class "ui relaxed list" ]
@ -135,7 +130,7 @@ viewDrop dropModel constr model =
] ]
renderItems : DD.Model String String -> Int -> Model -> List (Html Msg) renderItems : DD.Model -> Int -> Model -> List (Html Msg)
renderItems dropModel constr model = renderItems dropModel constr model =
if constr <= 0 then if constr <= 0 then
List.map (viewItem dropModel model) model.all List.map (viewItem dropModel model) model.all
@ -163,7 +158,7 @@ collapseToggle max model =
ToggleExpand ToggleExpand
viewItem : DD.Model String String -> Model -> FolderItem -> Html Msg viewItem : DD.Model -> Model -> FolderItem -> Html Msg
viewItem dropModel model item = viewItem dropModel model item =
let let
selected = selected =
@ -177,7 +172,7 @@ viewItem dropModel model item =
"folder outline icon" "folder outline icon"
highlightDrop = highlightDrop =
DD.getDropId dropModel == Just item.id DD.getDropId dropModel == Just (DD.Folder item.id)
in in
a a
([ classList ([ classList
@ -188,7 +183,7 @@ viewItem dropModel model item =
, href "#" , href "#"
, onClick (Toggle item) , onClick (Toggle item)
] ]
++ DD.droppable FolderDDMsg item.id ++ DD.droppable FolderDDMsg (DD.Folder item.id)
) )
[ i [ class icon ] [] [ i [ class icon ] []
, div [ class "content" ] , div [ class "content" ]

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

@ -21,8 +21,8 @@ import Data.UiSettings exposing (UiSettings)
import Html exposing (..) import Html exposing (..)
import Html.Attributes exposing (..) import Html.Attributes exposing (..)
import Html.Events exposing (onClick) import Html.Events exposing (onClick)
import Html5.DragDrop as DD
import Markdown import Markdown
import Util.ItemDragDrop as DD
import Util.List import Util.List
import Util.String import Util.String
import Util.Time import Util.Time
@ -37,7 +37,7 @@ type Msg
= SetResults ItemLightList = SetResults ItemLightList
| AddResults ItemLightList | AddResults ItemLightList
| SelectItem ItemLight | SelectItem ItemLight
| ItemDDMsg (DD.Msg String String) | ItemDDMsg DD.Msg
init : Model init : Model
@ -75,12 +75,12 @@ type alias UpdateResult =
{ model : Model { model : Model
, cmd : Cmd Msg , cmd : Cmd Msg
, selected : Maybe ItemLight , selected : Maybe ItemLight
, dragModel : DD.Model String String , dragModel : DD.Model
} }
updateDrag : updateDrag :
DD.Model String String DD.Model
-> Flags -> Flags
-> Msg -> Msg
-> Model -> Model
@ -110,25 +110,10 @@ updateDrag dm _ msg model =
ItemDDMsg lm -> ItemDDMsg lm ->
let let
( dm_, result ) = ddd =
DD.update lm dm DD.update lm dm
_ =
case result of
Just ( item, folder, _ ) ->
let
_ =
Debug.log "item card" item
_ =
Debug.log "folder card" folder
in
Cmd.none
Nothing ->
Cmd.none
in in
UpdateResult model Cmd.none Nothing dm_ UpdateResult model Cmd.none Nothing ddd.model

85
modules/webapp/src/main/elm/Comp/SearchMenu.elm
View File

@ -1,6 +1,5 @@
module Comp.SearchMenu exposing module Comp.SearchMenu exposing
( DragDropData ( Model
, Model
, Msg(..) , Msg(..)
, NextState , NextState
, getItemSearch , getItemSearch
@ -32,11 +31,10 @@ import DatePicker exposing (DatePicker)
import Html exposing (..) import Html exposing (..)
import Html.Attributes exposing (..) import Html.Attributes exposing (..)
import Html.Events exposing (onCheck, onClick, onInput) import Html.Events exposing (onCheck, onClick, onInput)
import Html5.DragDrop as DD
import Http import Http
import Util.Html exposing (KeyCode(..)) import Util.Html exposing (KeyCode(..))
import Util.ItemDragDrop as DD
import Util.Maybe import Util.Maybe
import Util.Update
@ -222,26 +220,21 @@ type Msg
| GetFolderResp (Result Http.Error FolderList) | GetFolderResp (Result Http.Error FolderList)
type alias DragDropData =
{ folderDrop : DD.Model String String
}
type alias NextState = type alias NextState =
{ model : Model { model : Model
, cmd : Cmd Msg , cmd : Cmd Msg
, stateChange : Bool , stateChange : Bool
, dragDrop : DragDropData , dragDrop : DD.DragDropData
} }
update : Flags -> UiSettings -> Msg -> Model -> NextState update : Flags -> UiSettings -> Msg -> Model -> NextState
update = update =
updateDrop (DragDropData DD.init) updateDrop DD.init
updateDrop : DragDropData -> Flags -> UiSettings -> Msg -> Model -> NextState updateDrop : DD.Model -> Flags -> UiSettings -> Msg -> Model -> NextState
updateDrop dd flags settings msg model = updateDrop ddm flags settings msg model =
case msg of case msg of
Init -> Init ->
let let
@ -279,7 +272,7 @@ updateDrop dd flags settings msg model =
, cdp , cdp
] ]
, stateChange = False , stateChange = False
, dragDrop = dd , dragDrop = DD.DragDropData ddm Nothing
} }
ResetForm -> ResetForm ->
@ -302,14 +295,14 @@ updateDrop dd flags settings msg model =
{ model = model_ { model = model_
, cmd = Cmd.none , cmd = Cmd.none
, stateChange = False , stateChange = False
, dragDrop = dd , dragDrop = DD.DragDropData ddm Nothing
} }
GetTagsResp (Err _) -> GetTagsResp (Err _) ->
{ model = model { model = model
, cmd = Cmd.none , cmd = Cmd.none
, stateChange = False , stateChange = False
, dragDrop = dd , dragDrop = DD.DragDropData ddm Nothing
} }
GetEquipResp (Ok equips) -> GetEquipResp (Ok equips) ->
@ -323,7 +316,7 @@ updateDrop dd flags settings msg model =
{ model = model { model = model
, cmd = Cmd.none , cmd = Cmd.none
, stateChange = False , stateChange = False
, dragDrop = dd , dragDrop = DD.DragDropData ddm Nothing
} }
GetOrgResp (Ok orgs) -> GetOrgResp (Ok orgs) ->
@ -337,7 +330,7 @@ updateDrop dd flags settings msg model =
{ model = model { model = model
, cmd = Cmd.none , cmd = Cmd.none
, stateChange = False , stateChange = False
, dragDrop = dd , dragDrop = DD.DragDropData ddm Nothing
} }
GetPersonResp (Ok ps) -> GetPersonResp (Ok ps) ->
@ -346,10 +339,10 @@ updateDrop dd flags settings msg model =
Comp.Dropdown.SetOptions ps.items Comp.Dropdown.SetOptions ps.items
next1 = next1 =
updateDrop dd flags settings (CorrPersonMsg opts) model updateDrop ddm flags settings (CorrPersonMsg opts) model
next2 = next2 =
updateDrop next1.dragDrop flags settings (ConcPersonMsg opts) next1.model updateDrop next1.dragDrop.model flags settings (ConcPersonMsg opts) next1.model
in in
next2 next2
@ -357,7 +350,7 @@ updateDrop dd flags settings msg model =
{ model = model { model = model
, cmd = Cmd.none , cmd = Cmd.none
, stateChange = False , stateChange = False
, dragDrop = dd , dragDrop = DD.DragDropData ddm Nothing
} }
TagSelectMsg m -> TagSelectMsg m ->
@ -372,7 +365,7 @@ updateDrop dd flags settings msg model =
} }
, cmd = Cmd.none , cmd = Cmd.none
, stateChange = sel /= model.tagSelection , stateChange = sel /= model.tagSelection
, dragDrop = dd , dragDrop = DD.DragDropData ddm Nothing
} }
DirectionMsg m -> DirectionMsg m ->
@ -383,7 +376,7 @@ updateDrop dd flags settings msg model =
{ model = { model | directionModel = m2 } { model = { model | directionModel = m2 }
, cmd = Cmd.map DirectionMsg c2 , cmd = Cmd.map DirectionMsg c2
, stateChange = isDropdownChangeMsg m , stateChange = isDropdownChangeMsg m
, dragDrop = dd , dragDrop = DD.DragDropData ddm Nothing
} }
OrgMsg m -> OrgMsg m ->
@ -394,7 +387,7 @@ updateDrop dd flags settings msg model =
{ model = { model | orgModel = m2 } { model = { model | orgModel = m2 }
, cmd = Cmd.map OrgMsg c2 , cmd = Cmd.map OrgMsg c2
, stateChange = isDropdownChangeMsg m , stateChange = isDropdownChangeMsg m
, dragDrop = dd , dragDrop = DD.DragDropData ddm Nothing
} }
CorrPersonMsg m -> CorrPersonMsg m ->
@ -405,7 +398,7 @@ updateDrop dd flags settings msg model =
{ model = { model | corrPersonModel = m2 } { model = { model | corrPersonModel = m2 }
, cmd = Cmd.map CorrPersonMsg c2 , cmd = Cmd.map CorrPersonMsg c2
, stateChange = isDropdownChangeMsg m , stateChange = isDropdownChangeMsg m
, dragDrop = dd , dragDrop = DD.DragDropData ddm Nothing
} }
ConcPersonMsg m -> ConcPersonMsg m ->
@ -416,7 +409,7 @@ updateDrop dd flags settings msg model =
{ model = { model | concPersonModel = m2 } { model = { model | concPersonModel = m2 }
, cmd = Cmd.map ConcPersonMsg c2 , cmd = Cmd.map ConcPersonMsg c2
, stateChange = isDropdownChangeMsg m , stateChange = isDropdownChangeMsg m
, dragDrop = dd , dragDrop = DD.DragDropData ddm Nothing
} }
ConcEquipmentMsg m -> ConcEquipmentMsg m ->
@ -427,7 +420,7 @@ updateDrop dd flags settings msg model =
{ model = { model | concEquipmentModel = m2 } { model = { model | concEquipmentModel = m2 }
, cmd = Cmd.map ConcEquipmentMsg c2 , cmd = Cmd.map ConcEquipmentMsg c2
, stateChange = isDropdownChangeMsg m , stateChange = isDropdownChangeMsg m
, dragDrop = dd , dragDrop = DD.DragDropData ddm Nothing
} }
ToggleInbox -> ToggleInbox ->
@ -438,7 +431,7 @@ updateDrop dd flags settings msg model =
{ model = { model | inboxCheckbox = not current } { model = { model | inboxCheckbox = not current }
, cmd = Cmd.none , cmd = Cmd.none
, stateChange = True , stateChange = True
, dragDrop = dd , dragDrop = DD.DragDropData ddm Nothing
} }
FromDateMsg m -> FromDateMsg m ->
@ -457,7 +450,7 @@ updateDrop dd flags settings msg model =
{ model = { model | fromDateModel = dp, fromDate = nextDate } { model = { model | fromDateModel = dp, fromDate = nextDate }
, cmd = Cmd.none , cmd = Cmd.none
, stateChange = model.fromDate /= nextDate , stateChange = model.fromDate /= nextDate
, dragDrop = dd , dragDrop = DD.DragDropData ddm Nothing
} }
UntilDateMsg m -> UntilDateMsg m ->
@ -476,7 +469,7 @@ updateDrop dd flags settings msg model =
{ model = { model | untilDateModel = dp, untilDate = nextDate } { model = { model | untilDateModel = dp, untilDate = nextDate }
, cmd = Cmd.none , cmd = Cmd.none
, stateChange = model.untilDate /= nextDate , stateChange = model.untilDate /= nextDate
, dragDrop = dd , dragDrop = DD.DragDropData ddm Nothing
} }
FromDueDateMsg m -> FromDueDateMsg m ->
@ -495,7 +488,7 @@ updateDrop dd flags settings msg model =
{ model = { model | fromDueDateModel = dp, fromDueDate = nextDate } { model = { model | fromDueDateModel = dp, fromDueDate = nextDate }
, cmd = Cmd.none , cmd = Cmd.none
, stateChange = model.fromDueDate /= nextDate , stateChange = model.fromDueDate /= nextDate
, dragDrop = dd , dragDrop = DD.DragDropData ddm Nothing
} }
UntilDueDateMsg m -> UntilDueDateMsg m ->
@ -514,7 +507,7 @@ updateDrop dd flags settings msg model =
{ model = { model | untilDueDateModel = dp, untilDueDate = nextDate } { model = { model | untilDueDateModel = dp, untilDueDate = nextDate }
, cmd = Cmd.none , cmd = Cmd.none
, stateChange = model.untilDueDate /= nextDate , stateChange = model.untilDueDate /= nextDate
, dragDrop = dd , dragDrop = DD.DragDropData ddm Nothing
} }
SetName str -> SetName str ->
@ -525,7 +518,7 @@ updateDrop dd flags settings msg model =
{ model = { model | nameModel = next } { model = { model | nameModel = next }
, cmd = Cmd.none , cmd = Cmd.none
, stateChange = False , stateChange = False
, dragDrop = dd , dragDrop = DD.DragDropData ddm Nothing
} }
SetAllName str -> SetAllName str ->
@ -536,7 +529,7 @@ updateDrop dd flags settings msg model =
{ model = { model | allNameModel = next } { model = { model | allNameModel = next }
, cmd = Cmd.none , cmd = Cmd.none
, stateChange = False , stateChange = False
, dragDrop = dd , dragDrop = DD.DragDropData ddm Nothing
} }
SetFulltext str -> SetFulltext str ->
@ -547,28 +540,28 @@ updateDrop dd flags settings msg model =
{ model = { model | fulltextModel = next } { model = { model | fulltextModel = next }
, cmd = Cmd.none , cmd = Cmd.none
, stateChange = False , stateChange = False
, dragDrop = dd , dragDrop = DD.DragDropData ddm Nothing
} }
KeyUpMsg (Just Enter) -> KeyUpMsg (Just Enter) ->
{ model = model { model = model
, cmd = Cmd.none , cmd = Cmd.none
, stateChange = True , stateChange = True
, dragDrop = dd , dragDrop = DD.DragDropData ddm Nothing
} }
KeyUpMsg _ -> KeyUpMsg _ ->
{ model = model { model = model
, cmd = Cmd.none , cmd = Cmd.none
, stateChange = False , stateChange = False
, dragDrop = dd , dragDrop = DD.DragDropData ddm Nothing
} }
ToggleNameHelp -> ToggleNameHelp ->
{ model = { model | showNameHelp = not model.showNameHelp } { model = { model | showNameHelp = not model.showNameHelp }
, cmd = Cmd.none , cmd = Cmd.none
, stateChange = False , stateChange = False
, dragDrop = dd , dragDrop = DD.DragDropData ddm Nothing
} }
GetFolderResp (Ok fs) -> GetFolderResp (Ok fs) ->
@ -579,20 +572,20 @@ updateDrop dd flags settings msg model =
{ model = model_ { model = model_
, cmd = Cmd.none , cmd = Cmd.none
, stateChange = False , stateChange = False
, dragDrop = dd , dragDrop = DD.DragDropData ddm Nothing
} }
GetFolderResp (Err _) -> GetFolderResp (Err _) ->
{ model = model { model = model
, cmd = Cmd.none , cmd = Cmd.none
, stateChange = False , stateChange = False
, dragDrop = dd , dragDrop = DD.DragDropData ddm Nothing
} }
FolderSelectMsg lm -> FolderSelectMsg lm ->
let let
( fsm, sel, dd_ ) = ( fsm, sel, ddd ) =
Comp.FolderSelect.updateDrop dd.folderDrop lm model.folderList Comp.FolderSelect.updateDrop ddm lm model.folderList
in in
{ model = { model =
{ model { model
@ -601,7 +594,7 @@ updateDrop dd flags settings msg model =
} }
, cmd = Cmd.none , cmd = Cmd.none
, stateChange = model.selectedFolder /= sel , stateChange = model.selectedFolder /= sel
, dragDrop = { dd | folderDrop = dd_ } , dragDrop = ddd
} }
@ -611,10 +604,10 @@ updateDrop dd flags settings msg model =
view : Flags -> UiSettings -> Model -> Html Msg view : Flags -> UiSettings -> Model -> Html Msg
view = view =
viewDrop (DragDropData DD.init) viewDrop (DD.DragDropData DD.init Nothing)
viewDrop : DragDropData -> Flags -> UiSettings -> Model -> Html Msg viewDrop : DD.DragDropData -> Flags -> UiSettings -> Model -> Html Msg
viewDrop ddd flags settings model = viewDrop ddd flags settings model =
let let
formHeader icon headline = formHeader icon headline =
@ -648,7 +641,7 @@ viewDrop ddd flags settings model =
[ Html.map TagSelectMsg (Comp.TagSelect.viewTags settings model.tagSelectModel) [ Html.map TagSelectMsg (Comp.TagSelect.viewTags settings model.tagSelectModel)
, Html.map TagSelectMsg (Comp.TagSelect.viewCats settings model.tagSelectModel) , Html.map TagSelectMsg (Comp.TagSelect.viewCats settings model.tagSelectModel)
, Html.map FolderSelectMsg , Html.map FolderSelectMsg
(Comp.FolderSelect.viewDrop ddd.folderDrop settings.searchMenuFolderCount model.folderList) (Comp.FolderSelect.viewDrop ddd.model settings.searchMenuFolderCount model.folderList)
] ]
, div [ class segmentClass ] , div [ class segmentClass ]
[ formHeader (Icons.correspondentIcon "") [ formHeader (Icons.correspondentIcon "")

9
modules/webapp/src/main/elm/Page/Home/Data.elm
View File

@ -16,14 +16,14 @@ import Api.Model.ItemLightList exposing (ItemLightList)
import Api.Model.ItemSearch import Api.Model.ItemSearch
import Comp.FixedDropdown import Comp.FixedDropdown
import Comp.ItemCardList import Comp.ItemCardList
import Comp.SearchMenu exposing (DragDropData) import Comp.SearchMenu
import Data.Flags exposing (Flags) import Data.Flags exposing (Flags)
import Data.Items import Data.Items
import Data.UiSettings exposing (UiSettings) import Data.UiSettings exposing (UiSettings)
import Html5.DragDrop as DD
import Http import Http
import Throttle exposing (Throttle) import Throttle exposing (Throttle)
import Util.Html exposing (KeyCode(..)) import Util.Html exposing (KeyCode(..))
import Util.ItemDragDrop as DD
type alias Model = type alias Model =
@ -40,7 +40,7 @@ type alias Model =
, searchType : SearchType , searchType : SearchType
, searchTypeForm : SearchType , searchTypeForm : SearchType
, contentOnlySearch : Maybe String , contentOnlySearch : Maybe String
, dragDropData : DragDropData , dragDropData : DD.DragDropData
} }
@ -70,8 +70,7 @@ init flags =
, searchTypeForm = defaultSearchType flags , searchTypeForm = defaultSearchType flags
, contentOnlySearch = Nothing , contentOnlySearch = Nothing
, dragDropData = , dragDropData =
{ folderDrop = DD.init DD.DragDropData DD.init Nothing
}
} }

21
modules/webapp/src/main/elm/Page/Home/Update.elm
View File

@ -6,12 +6,12 @@ import Comp.ItemCardList
import Comp.SearchMenu import Comp.SearchMenu
import Data.Flags exposing (Flags) import Data.Flags exposing (Flags)
import Data.UiSettings exposing (UiSettings) import Data.UiSettings exposing (UiSettings)
import Html5.DragDrop as DD
import Page exposing (Page(..)) import Page exposing (Page(..))
import Page.Home.Data exposing (..) import Page.Home.Data exposing (..)
import Throttle import Throttle
import Time import Time
import Util.Html exposing (KeyCode(..)) import Util.Html exposing (KeyCode(..))
import Util.ItemDragDrop as DD
import Util.Maybe import Util.Maybe
import Util.String import Util.String
import Util.Update import Util.Update
@ -41,12 +41,24 @@ update key flags settings msg model =
let let
nextState = nextState =
Comp.SearchMenu.updateDrop Comp.SearchMenu.updateDrop
model.dragDropData model.dragDropData.model
flags flags
settings settings
m m
model.searchMenuModel model.searchMenuModel
dropCmd =
case nextState.dragDrop.dropped of
Just dropped ->
let
_ =
Debug.log "item/folder" dropped
in
DD.makeUpdateCmd flags (\_ -> DoSearch) nextState.dragDrop.dropped
Nothing ->
Cmd.none
newModel = newModel =
{ model { model
| searchMenuModel = nextState.model | searchMenuModel = nextState.model
@ -64,6 +76,7 @@ update key flags settings msg model =
, Cmd.batch , Cmd.batch
[ c2 [ c2
, Cmd.map SearchMenuMsg nextState.cmd , Cmd.map SearchMenuMsg nextState.cmd
, dropCmd
] ]
, s2 , s2
) )
@ -71,7 +84,7 @@ update key flags settings msg model =
ItemCardListMsg m -> ItemCardListMsg m ->
let let
result = result =
Comp.ItemCardList.updateDrag model.dragDropData.folderDrop Comp.ItemCardList.updateDrag model.dragDropData.model
flags flags
m m
model.itemListModel model.itemListModel
@ -87,7 +100,7 @@ update key flags settings msg model =
withSub withSub
( { model ( { model
| itemListModel = result.model | itemListModel = result.model
, dragDropData = { folderDrop = result.dragModel } , dragDropData = DD.DragDropData result.dragModel Nothing
} }
, Cmd.batch [ Cmd.map ItemCardListMsg result.cmd, cmd ] , Cmd.batch [ Cmd.map ItemCardListMsg result.cmd, cmd ]
) )

98
modules/webapp/src/main/elm/Util/ItemDragDrop.elm Normal file
View File

@ -0,0 +1,98 @@
module Util.ItemDragDrop exposing
( DragDropData
, Dropped
, ItemDrop(..)
, Model
, Msg
, draggable
, droppable
, getDropId
, init
, makeUpdateCmd
, update
)
import Api
import Api.Model.BasicResult exposing (BasicResult)
import Api.Model.OptionalId exposing (OptionalId)
import Data.Flags exposing (Flags)
import Html exposing (Attribute)
import Html5.DragDrop as DD
import Http
type ItemDrop
= Tag String
| Folder String
| FolderRemove
type alias Model =
DD.Model String ItemDrop
type alias Msg =
DD.Msg String ItemDrop
type alias Dropped =
{ itemId : String
, target : ItemDrop
}
type alias DragDropData =
{ model : Model
, dropped : Maybe Dropped
}
init : Model
init =
DD.init
update : Msg -> Model -> DragDropData
update msg model =
let
( m, res ) =
DD.update msg model
in
DragDropData m (Maybe.map (\( id, t, _ ) -> Dropped id t) res)
makeUpdateCmd :
Flags
-> (Result Http.Error BasicResult -> msg)
-> Maybe Dropped
-> Cmd msg
makeUpdateCmd flags receive droppedMaybe =
case droppedMaybe of
Just dropped ->
case dropped.target of
Folder fid ->
Api.setFolder flags dropped.itemId (OptionalId (Just fid)) receive
FolderRemove ->
Api.setFolder flags dropped.itemId (OptionalId Nothing) receive
Tag _ ->
Cmd.none
Nothing ->
Cmd.none
droppable : (Msg -> msg) -> ItemDrop -> List (Attribute msg)
droppable tagger dropId =
DD.droppable tagger dropId
draggable : (Msg -> msg) -> String -> List (Attribute msg)
draggable tagger itemId =
DD.draggable tagger itemId
getDropId : Model -> Maybe ItemDrop
getDropId model =
DD.getDropId model

2
modules/webapp/src/main/webjar/docspell.css
View File

@ -166,7 +166,7 @@ textarea.markdown-editor {
background: rgba(240,248,255,0.4); background: rgba(240,248,255,0.4);
} }
.default-layout .ui.menu .item.current-drop-target, a.item.current-drop-target { .default-layout .ui.menu .item.current-drop-target, .header.current-drop-target, .item.current-drop-target {
background: rgba(0,0,0,0.2); background: rgba(0,0,0,0.2);
} }