diff options
| -rw-r--r-- | .tmuxinator.yml | 1 | ||||
| -rw-r--r-- | public/main.css | 12 | ||||
| -rw-r--r-- | src/Food.purs | 12 | ||||
| -rw-r--r-- | src/Indicator.purs | 19 | ||||
| -rw-r--r-- | src/Page.purs | 12 |
5 files changed, 46 insertions, 10 deletions
diff --git a/.tmuxinator.yml b/.tmuxinator.yml index 914bf4f..6dec166 100644 --- a/.tmuxinator.yml +++ b/.tmuxinator.yml @@ -6,5 +6,6 @@ windows: panes: - # Empty - build: + - fuser -k 9000/tcp - webfsd -r public -f index.html -p 9000 - npm install && bower install && ./watch diff --git a/public/main.css b/public/main.css index 86455a6..0f092cf 100644 --- a/public/main.css +++ b/public/main.css @@ -23,6 +23,18 @@ ul.aliments > li > div { padding: 15px; } +ul.aliments > li > .Good { + color: green; +} + +ul.aliments > li > .Medium { + color: orange; +} + +ul.aliments > li > .Bad { + color: red; +} + ul.aliments > li > .number { text-align: right; } diff --git a/src/Food.purs b/src/Food.purs index b1e3d29..19b667c 100644 --- a/src/Food.purs +++ b/src/Food.purs @@ -18,8 +18,12 @@ glycemicLoad aliment = toNumber aliment.glycemicIndex * toNumber aliment.carbohy all :: Array Aliment all = - [ { name: "oignon", glycemicIndex: 15, carbohydrates: 9 } - , { name: "olive", glycemicIndex: 15, carbohydrates: 6 } - , { name: "haricot rouge", glycemicIndex: 35, carbohydrates: 24 } - , { name: "haricot blanc", glycemicIndex: 35, carbohydrates: 13 } + [ { name: "oignons", glycemicIndex: 15, carbohydrates: 9 } + , { name: "olives", glycemicIndex: 15, carbohydrates: 6 } + , { name: "haricots rouges", glycemicIndex: 35, carbohydrates: 24 } + , { name: "haricots blancs", glycemicIndex: 35, carbohydrates: 13 } + , { name: "pommes de terres (cuites avec leur peau)", glycemicIndex: 70, carbohydrates: 37 } + , { name: "lentilles vertes", glycemicIndex: 30, carbohydrates: 30 } + , { name: "lentilles corail", glycemicIndex: 21, carbohydrates: 48 } + , { name: "riz basmatti", glycemicIndex: 58, carbohydrates: 25 } ] diff --git a/src/Indicator.purs b/src/Indicator.purs new file mode 100644 index 0000000..536133d --- /dev/null +++ b/src/Indicator.purs @@ -0,0 +1,19 @@ +module Indicator + ( Indicator(..) + , fromGlycemicIndex + ) where + +import Prelude + +data Indicator = Good | Medium | Bad + +instance showIndicator :: Show Indicator where + show Good = "Good" + show Medium = "Medium" + show Bad = "Bad" + +fromGlycemicIndex :: Int -> Indicator +fromGlycemicIndex n + | n < 40 = Good + | n < 55 = Medium + | otherwise = Bad diff --git a/src/Page.purs b/src/Page.purs index 76cdf8d..07372d2 100644 --- a/src/Page.purs +++ b/src/Page.purs @@ -1,5 +1,6 @@ module Page where +import Data.Array ((:), sortBy) import Data.Maybe (Maybe(..)) import Halogen as H import Halogen.HTML as HH @@ -9,12 +10,11 @@ import Prelude import Food (Aliment) import Food as Food import Format as Format - -type State = Unit +import Indicator as Indicator data Query a = NoOp a - -data Message = Toggled Boolean +type State = Unit +type Message = Unit component :: forall m . H.Component HH.HTML Query State Message m component = @@ -32,7 +32,7 @@ component = [ HH.h1 [] [ HH.text "Glycémie" ] , HH.ul [ HP.class_ $ HH.ClassName "aliments" ] - ([renderTitle] <> (map renderAliment Food.all)) + (renderTitle : (map renderAliment <<< sortBy (\a b -> compare a.name b.name) $ Food.all)) ] eval :: Query ~> H.ComponentDSL State Query Message m @@ -65,7 +65,7 @@ renderAliment aliment = [] [ HH.text aliment.name ] , HH.div - [ HP.class_ $ HH.ClassName "number" ] + [ HP.class_ $ HH.ClassName ("number " <> (show $ Indicator.fromGlycemicIndex aliment.glycemicIndex)) ] [ HH.text (show aliment.glycemicIndex) ] , HH.div [ HP.class_ $ HH.ClassName "number" ] |