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

Streamline form and input field

Browse Source
This commit is contained in:
Eike Kettner
2020-04-20 20:24:52 +02:00
parent c8683743d0
commit 5a2e28415a
4 changed files with 47 additions and 63 deletions
Download Patch File Download Diff File Expand all files Collapse all files

72
modules/webapp/src/main/elm/Comp/CalEventInput.elm
View File

@ -1,8 +1,8 @@
module Comp.CalEventInput exposing
( Model
, Msg
, from
, init
, initialSchedule
, update
, view
)
@ -42,49 +42,26 @@ type Msg
| CheckInputMsg (Result Http.Error CalEventCheckResult)
init : Model
init =
{ year = "*"
, month = "*"
, day = "1"
, hour = "0"
, minute = "0"
, weekday = Nothing
, event = Nothing
, checkResult = Nothing
}
initialSchedule : String
initialSchedule =
"*-*-01 00:00"
from : String -> Maybe Model
from event =
case String.split " " event of
date :: time :: [] ->
let
dateParts =
String.split "-" date
timeParts =
String.split ":" time
allParts =
dateParts ++ timeParts
in
case allParts of
y :: m :: d :: h :: min :: [] ->
Just
{ init
| year = y
, month = m
, day = d
, hour = h
, minute = min
}
_ ->
Nothing
_ ->
Nothing
init : Flags -> ( Model, Cmd Msg )
init flags =
let
model =
{ year = "*"
, month = "*"
, day = "1"
, hour = "0"
, minute = "0"
, weekday = Nothing
, event = Nothing
, checkResult = Nothing
}
in
( model, checkInput flags model )
toEvent : Model -> String
@ -315,11 +292,12 @@ view extraClasses model =
[ text "Next: "
]
, dd []
[ Maybe.andThen .next model.checkResult
|> Maybe.map Util.Time.formatDateTime
|> Maybe.withDefault ""
|> text
]
(Maybe.map .next model.checkResult
|> Maybe.withDefault []
|> List.map Util.Time.formatDateTime
|> List.map text
|> List.intersperse (br [] [])
)
]
]
]