mirror of
https://github.com/TheAnachronism/docspell.git
synced 2025-06-23 10:58:26 +00:00
40 lines
596 B
Elm
40 lines
596 B
Elm
{-
|
|
Copyright 2020 Docspell Contributors
|
|
|
|
SPDX-License-Identifier: GPL-3.0-or-later
|
|
-}
|
|
|
|
|
|
module Data.ItemSelection exposing
|
|
( ItemSelection(..)
|
|
, isActive
|
|
, isSelected
|
|
)
|
|
|
|
import Set exposing (Set)
|
|
|
|
|
|
type ItemSelection
|
|
= Inactive
|
|
| Active (Set String)
|
|
|
|
|
|
isSelected : String -> ItemSelection -> Bool
|
|
isSelected id set =
|
|
case set of
|
|
Inactive ->
|
|
False
|
|
|
|
Active ids ->
|
|
Set.member id ids
|
|
|
|
|
|
isActive : ItemSelection -> Bool
|
|
isActive sel =
|
|
case sel of
|
|
Active _ ->
|
|
True
|
|
|
|
Inactive ->
|
|
False
|