441fe3e32e
Now that I have a deployed an MVP of my app, I am tidying things up to support
the next phase of development.
TL;DR:
- Moved application Model-related code into State module
- Moved each View into its own module
- Deleted unused ChordInspector component
- Deleted unused Msg's, {Increase,Decrease}Tempo
- Deleted misc unused code
59 lines
1 KiB
Elm
59 lines
1 KiB
Elm
module Misc exposing (..)
|
|
|
|
import Array exposing (Array)
|
|
|
|
|
|
comesAfter : a -> List a -> Maybe a
|
|
comesAfter x xs =
|
|
case xs of
|
|
[] ->
|
|
Nothing
|
|
|
|
_ :: [] ->
|
|
Nothing
|
|
|
|
y :: z :: rest ->
|
|
if y == x then
|
|
Just z
|
|
|
|
else
|
|
comesAfter x (z :: rest)
|
|
|
|
|
|
comesBefore : a -> List a -> Maybe a
|
|
comesBefore x xs =
|
|
case xs of
|
|
[] ->
|
|
Nothing
|
|
|
|
_ :: [] ->
|
|
Nothing
|
|
|
|
y :: z :: rest ->
|
|
if z == x then
|
|
Just y
|
|
|
|
else
|
|
comesBefore x (z :: rest)
|
|
|
|
|
|
find : (a -> Bool) -> List a -> Maybe a
|
|
find pred xs =
|
|
case xs |> List.filter pred of
|
|
[] ->
|
|
Nothing
|
|
|
|
x :: _ ->
|
|
Just x
|
|
|
|
|
|
{-| Return the number of milliseconds that elapse during an interval in a
|
|
`target` bpm.
|
|
-}
|
|
bpmToMilliseconds : Int -> Int
|
|
bpmToMilliseconds target =
|
|
let
|
|
msPerMinute =
|
|
1000 * 60
|
|
in
|
|
round (toFloat msPerMinute / toFloat target)
|