mirror of
https://github.com/TheAnachronism/docspell.git
synced 2024-11-13 02:31:10 +00:00
154 lines
2.3 KiB
Elm
154 lines
2.3 KiB
Elm
module Data.Fields exposing
|
|
( Field(..)
|
|
, all
|
|
, fromList
|
|
, fromString
|
|
, label
|
|
, sort
|
|
, toString
|
|
)
|
|
|
|
|
|
type Field
|
|
= Tag
|
|
| Folder
|
|
| CorrOrg
|
|
| CorrPerson
|
|
| ConcPerson
|
|
| ConcEquip
|
|
| Date
|
|
| DueDate
|
|
| Direction
|
|
| PreviewImage
|
|
|
|
|
|
all : List Field
|
|
all =
|
|
sort
|
|
[ Tag
|
|
, Folder
|
|
, CorrOrg
|
|
, CorrPerson
|
|
, ConcPerson
|
|
, ConcEquip
|
|
, Date
|
|
, DueDate
|
|
, Direction
|
|
, PreviewImage
|
|
]
|
|
|
|
|
|
sort : List Field -> List Field
|
|
sort fields =
|
|
List.sortBy toString fields
|
|
|
|
|
|
fromString : String -> Maybe Field
|
|
fromString str =
|
|
case String.toLower str of
|
|
"tag" ->
|
|
Just Tag
|
|
|
|
"folder" ->
|
|
Just Folder
|
|
|
|
"corrorg" ->
|
|
Just CorrOrg
|
|
|
|
"corrperson" ->
|
|
Just CorrPerson
|
|
|
|
"concperson" ->
|
|
Just ConcPerson
|
|
|
|
"concequip" ->
|
|
Just ConcEquip
|
|
|
|
"date" ->
|
|
Just Date
|
|
|
|
"duedate" ->
|
|
Just DueDate
|
|
|
|
"direction" ->
|
|
Just Direction
|
|
|
|
"preview" ->
|
|
Just PreviewImage
|
|
|
|
_ ->
|
|
Nothing
|
|
|
|
|
|
toString : Field -> String
|
|
toString field =
|
|
case field of
|
|
Tag ->
|
|
"tag"
|
|
|
|
Folder ->
|
|
"folder"
|
|
|
|
CorrOrg ->
|
|
"corrorg"
|
|
|
|
CorrPerson ->
|
|
"corrperson"
|
|
|
|
ConcPerson ->
|
|
"concperson"
|
|
|
|
ConcEquip ->
|
|
"concequip"
|
|
|
|
Date ->
|
|
"date"
|
|
|
|
DueDate ->
|
|
"duedate"
|
|
|
|
Direction ->
|
|
"direction"
|
|
|
|
PreviewImage ->
|
|
"preview"
|
|
|
|
|
|
label : Field -> String
|
|
label field =
|
|
case field of
|
|
Tag ->
|
|
"Tag"
|
|
|
|
Folder ->
|
|
"Folder"
|
|
|
|
CorrOrg ->
|
|
"Correspondent Organization"
|
|
|
|
CorrPerson ->
|
|
"Correspondent Person"
|
|
|
|
ConcPerson ->
|
|
"Concerning Person"
|
|
|
|
ConcEquip ->
|
|
"Concerned Equipment"
|
|
|
|
Date ->
|
|
"Date"
|
|
|
|
DueDate ->
|
|
"Due Date"
|
|
|
|
Direction ->
|
|
"Direction"
|
|
|
|
PreviewImage ->
|
|
"Preview Image"
|
|
|
|
|
|
fromList : List String -> List Field
|
|
fromList strings =
|
|
List.filterMap fromString strings
|