From 898e7ed11ab0958fcdaf65b99b33f7b04787630a Mon Sep 17 00:00:00 2001
From: Joris
Date: Sun, 24 Sep 2017 22:14:48 +0200
Subject: Bootstrap with GHCJS and reflex:

- setup login and logout,
- first draft of payment view.
---
 src/client/Model/PaymentCategory.elm | 61 ------------------------------------
 1 file changed, 61 deletions(-)
 delete mode 100644 src/client/Model/PaymentCategory.elm

(limited to 'src/client/Model/PaymentCategory.elm')

diff --git a/src/client/Model/PaymentCategory.elm b/src/client/Model/PaymentCategory.elm
deleted file mode 100644
index a4fceb1..0000000
--- a/src/client/Model/PaymentCategory.elm
+++ /dev/null
@@ -1,61 +0,0 @@
-module Model.PaymentCategory exposing
-  ( PaymentCategories
-  , paymentCategoriesDecoder
-  , search
-  , groupPaymentsByCategory
-  , isCategoryUnused
-  , save
-  )
-
-import Dict exposing (Dict)
-import Json.Decode as Decode exposing (Decoder)
-import List.Extra as List
-import Maybe.Extra as Maybe
-
-import Model.Category exposing (CategoryId, categoryIdDecoder)
-import Model.Payment exposing (Payments)
-import Utils.Json as Json
-import Utils.List as List
-import Utils.Search as Search
-
-type alias PaymentCategories = List PaymentCategory
-
-type alias PaymentCategory =
-  { name : String
-  , category : CategoryId
-  }
-
-paymentCategoriesDecoder : Decoder PaymentCategories
-paymentCategoriesDecoder =
-  Decode.list <| Decode.map2 PaymentCategory
-    (Decode.field "name" Decode.string)
-    (Decode.field "category" categoryIdDecoder)
-
-groupPaymentsByCategory : PaymentCategories -> Payments -> List (CategoryId, Payments)
-groupPaymentsByCategory paymentCategories payments =
-  payments
-    |> List.groupBy (\payment ->
-         search payment.name paymentCategories
-           |> Maybe.withDefault -1
-       )
-    |> List.filterMap (\(category, payments) ->
-         case category of
-           -1 -> Nothing
-           _ -> Just (category, payments)
-       )
-
-search : String -> PaymentCategories -> Maybe CategoryId
-search paymentName paymentCategories =
-  paymentCategories
-    |> List.find (\pc -> Search.format pc.name == Search.format paymentName)
-    |> Maybe.map .category
-
-isCategoryUnused : CategoryId -> PaymentCategories -> Bool
-isCategoryUnused category paymentCategories =
-  paymentCategories
-    |> List.find ((==) category << .category)
-    |> Maybe.isNothing
-
-save : String -> CategoryId -> PaymentCategories -> PaymentCategories
-save name category paymentCategories =
-  { name = name, category = category } :: List.filter (\pc -> not <| Search.format pc.name == Search.format name) paymentCategories
-- 
cgit v1.2.3