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

Check for existing bookmarks

Browse Source
This commit is contained in:
eikek
2022-01-08 22:42:30 +01:00
parent a50a0a9a1a
commit 04b258689f
4 changed files with 103 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -16,6 +16,7 @@ module Api exposing
, addTag
, addTagsMultiple
, attachmentPreviewURL
, bookmarkNameExists
, cancelJob
, changeFolderName
, changePassword
@ -2371,6 +2372,23 @@ addBookmark flags model receive =
Task.andThen add load |> Task.attempt receive
bookmarkNameExistsTask : Flags -> BookmarkLocation -> String -> Task.Task Http.Error Bool
bookmarkNameExistsTask flags loc name =
let
load =
getBookmarksTask flags loc
exists current =
Data.BookmarkedQuery.exists name current
in
Task.map exists load
bookmarkNameExists : Flags -> BookmarkLocation -> String -> (Result Http.Error Bool -> msg) -> Cmd msg
bookmarkNameExists flags loc name receive =
bookmarkNameExistsTask flags loc name |> Task.attempt receive
--- OTP