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

Initial outline for managing spaces

Browse Source
This commit is contained in:
Eike Kettner
2020-07-05 00:37:27 +02:00
parent d43e17d9fb
commit 0e8c9b1819
9 changed files with 457 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
modules/webapp/src/main/elm/Api.elm
View File

@ -42,6 +42,7 @@ module Api exposing
, getScanMailbox
, getSentMails
, getSources
, getSpaces
, getTags
, getUsers
, itemDetail
@ -132,6 +133,7 @@ import Api.Model.SentMails exposing (SentMails)
import Api.Model.SimpleMail exposing (SimpleMail)
import Api.Model.Source exposing (Source)
import Api.Model.SourceList exposing (SourceList)
import Api.Model.SpaceList exposing (SpaceList)
import Api.Model.Tag exposing (Tag)
import Api.Model.TagList exposing (TagList)
import Api.Model.User exposing (User)
@ -150,6 +152,19 @@ import Util.Http as Http2
--- Spaces
getSpaces : Flags -> (Result Http.Error SpaceList -> msg) -> Cmd msg
getSpaces flags receive =
Http2.authGet
{ url = flags.config.baseUrl ++ "/api/v1/sec/space"
, account = getAccount flags
, expect = Http.expectJson receive Api.Model.SpaceList.decoder
}
--- Full-Text