Apply linter

Author: John Doe

elm.json

@@ -3,7 +3,7 @@
     "source-directories": [
         "src"
     ],
-    "elm-version": "0.19.0",
+    "elm-version": "0.19.1",
     "dependencies": {
         "direct": {
             "abadi199/elm-input-extra": "5.2.2",

src/Calendar/Calendar.elm

@@ -5,10 +5,8 @@ import Calendar.Event exposing (Event)
 import Calendar.JourFerie exposing (getAllJourFerie)
 import Calendar.Msg exposing (InternalState, Msg(..), TimeSpan(..))
 import Calendar.Week as Week
-import Html exposing (..)
+import Html exposing (Html, div)
 import Html.Attributes exposing (class)
-import Html.Events exposing (keyCode, on)
-import Json.Decode as Json
 import MyTime
 import Time exposing (Posix)
 import Time.Extra as TimeExtra
@@ -57,7 +55,7 @@ update msg state =
         EventMouseEnter eventId pos ->
             { state | hover = Just eventId, position = Just pos }
 
-        EventMouseLeave eventId ->
+        EventMouseLeave _ ->
             { state | hover = Nothing, selected = Nothing }
 
 

src/Calendar/Day.elm

@@ -4,9 +4,8 @@ import Calendar.Event exposing (Event, eventSegment, rangeDescription)
 import Calendar.Helpers as Helpers
 import Calendar.JourFerie exposing (jourFerie)
 import Calendar.Msg exposing (InternalState, Msg(..))
-import Dict exposing (Dict)
-import Html exposing (..)
-import Html.Attributes exposing (..)
+import Html exposing (Html, div, button, text, span)
+import Html.Attributes exposing (class)
 import Html.Events exposing (onClick)
 import MyTime
 import Time exposing (Posix)
@@ -115,7 +114,7 @@ viewDaySlot : InternalState -> Int -> List Event -> Html Msg
 viewDaySlot state columns events =
     Helpers.hours
         |> List.map viewDaySlotGroup
-        |> (\b a -> (++) a b) (viewDayEvents state columns events state.viewing)
+        |> (\b a -> a ++ b) (viewDayEvents state columns events state.viewing)
         |> div [ class "calendar--day-slot" ]
 
 
@@ -128,7 +127,7 @@ viewDaySlotGroup date =
 
 
 viewTimeSlot : String -> Html Msg
-viewTimeSlot date =
+viewTimeSlot _ =
     div
         [ class "calendar--time-slot" ]
         []
@@ -169,7 +168,7 @@ viewAllDayCell days =
         viewAllDayText =
             div [ class "calendar--all-day-text" ] [ text "All day" ]
 
-        viewAllDay day =
+        viewAllDay _ =
             div [ class "calendar--all-day" ]
                 []
     in

src/Calendar/Event.elm

@@ -2,12 +2,10 @@ module Calendar.Event exposing (Event, PositionMode(..), Style, cellWidth, event
 
 -- import String.Extra
 
-import Calendar.Helpers as Helpers
-import Calendar.Msg exposing (InternalState, Msg(..), TimeSpan(..), onClick, onMouseEnter)
-import Html exposing (..)
+import Calendar.Msg exposing (Msg(..), TimeSpan(..), onClick, onMouseEnter)
+import Html exposing (Html, div, text)
 import Html.Attributes exposing (attribute, class, classList, style)
 import Html.Events exposing (onMouseLeave)
-import Iso8601
 import MyTime
 import String
 import Time exposing (Posix, Weekday(..))
@@ -96,7 +94,7 @@ eventStyling columns event customClasses =
                 ++ styleColorDayEvent eventTitle colorFg colorBg
                 ++ extraStyle
     in
-    [ classList (( classes, True ) :: customClasses) ] ++ styles
+    classList (( classes, True ) :: customClasses) :: styles
 
 
 fractionalDay : Posix -> Float
@@ -207,11 +205,6 @@ eventSegment columns event =
         ]
 
 
-makeTitle : String -> Html Msg
-makeTitle title =
-    text title
-
-
 viewSub : String -> Html Msg
 viewSub val =
     div [ class "calendar--event-sub" ] [ text val ]

src/Calendar/Helpers.elm

@@ -148,7 +148,5 @@ noBright color =
             else
                 hsl.lightness
 
-        newSaturation =
-            hsl.saturation * 0.85
     in
     Vendor.Color.hsl hsl.hue hsl.saturation newLightness

src/Calendar/Week.elm

@@ -1,12 +1,11 @@
 module Calendar.Week exposing (view, viewAll, viewWeekContent, viewWeekDay)
 
-import Calendar.Day exposing (viewAllDayCell, viewDayEvents, viewDaySlotGroup, viewTimeGutter, viewTimeGutterHeader)
+import Calendar.Day exposing (viewDayEvents, viewDaySlotGroup, viewTimeGutter)
 import Calendar.Event exposing (Event)
 import Calendar.Helpers as Helpers
 import Calendar.Msg exposing (InternalState, Msg(..))
-import Dict exposing (Dict)
-import Html exposing (..)
-import Html.Attributes exposing (..)
+import Html exposing (Html, div, span, text)
+import Html.Attributes exposing (class)
 import Time exposing (Posix)
 
 

src/Config.elm

@@ -1,8 +1,18 @@
-module Config exposing (allGroups, apiUrl, firstGroup, minWeekWidth)
+module Config exposing (allGroups, apiUrl, firstGroup, minWeekWidth, enableEasterEgg, enablePersonnelCal)
 
 import Cyberplanning.Types exposing (Collection(..), Group)
 
 
+enableEasterEgg : Bool
+enableEasterEgg =
+    False
+
+
+enablePersonnelCal : Bool
+enablePersonnelCal =
+    False
+
+
 apiUrl : String
 apiUrl =
     -- "http://localhost:3001/graphql/"

src/Cyberplanning/Cyberplanning.elm

@@ -1,10 +1,9 @@
 module Cyberplanning.Cyberplanning exposing (Msg, State, initState, request, restoreState, storeState, update, view)
 
-import Calendar.Event as CalEvent
-import Config exposing (allGroups, firstGroup)
+import Config exposing (allGroups)
 import Cyberplanning.PlanningRequest exposing (maybeCreatePlanningRequest)
 import Cyberplanning.Storage exposing (decodeState, encodeState)
-import Cyberplanning.Types exposing (CustomEvent(..), Event, FetchStatus(..), Group, InternalMsg(..), InternalState, Query, RequestAction(..), Settings, defaultState)
+import Cyberplanning.Types exposing (CustomEvent(..), FetchStatus(..), InternalMsg(..), InternalState, RequestAction(..), defaultState)
 import Cyberplanning.Utils exposing (toCalEvents, toCalEventsWithSource)
 import Html exposing (Html, text)
 import Http exposing (Error)
@@ -113,7 +112,7 @@ update msg state =
 
 
 view : State -> Html Msg
-view state =
+view _ =
     text ""
 
 

src/Cyberplanning/PlanningRequest.elm

@@ -3,7 +3,6 @@ module Cyberplanning.PlanningRequest exposing (createPlanningRequest, maybeCreat
 import Cyberplanning.Query exposing (Params, sendRequest)
 import Cyberplanning.Types exposing (Collection(..), Group, InternalMsg, Settings)
 import Cyberplanning.Utils exposing (toDatetime)
-import Http exposing (Error)
 import MyTime
 import Time exposing (Posix)
 import Time.Extra as TimeExtra

src/Cyberplanning/Query.elm

@@ -1,9 +1,9 @@
 module Cyberplanning.Query exposing (Params, eventsApiQuery, sendRequest)
 
 import Config
-import Cyberplanning.Types exposing (Event, InternalMsg(..), Planning, Query, Settings)
+import Cyberplanning.Types exposing (Event, InternalMsg(..), Planning, Query)
 import Http exposing (Body, Error, Header, Request)
-import Json.Decode as Decode exposing (Decoder, field, int, maybe, string)
+import Json.Decode as Decode exposing (Decoder, field, maybe, string)
 import Json.Encode as Encode
 
 
@@ -58,9 +58,9 @@ post url headers body =
         }
 
 
-authorizationHeader : String -> Header
-authorizationHeader =
-    Http.header "Authorization"
+-- authorizationHeader : String -> Header
+-- authorizationHeader =
+--     Http.header "Authorization"
 
 
 requestAPI : (Result Error Query -> InternalMsg) -> Request Query -> Cmd InternalMsg

src/Cyberplanning/Utils.elm

@@ -45,12 +45,6 @@ toCalEvent selectedGroups event =
         description =
             List.map (String.join ", ") [ classes, teachers, groups ]
 
-        search1 =
-            List.foldl (\a b -> b && String.contains "1" a) True affiliations
-
-        search2 =
-            List.foldl (\a b -> b && String.contains "2" a) True affiliations
-
         selectedLen =
             List.length selectedGroups
 

src/Model.elm

@@ -2,7 +2,6 @@ module Model exposing (Model, WindowSize)
 
 import Calendar.Calendar as Calendar
 import Cyberplanning.Cyberplanning as Cyberplanning
-import Http exposing (Error)
 import Personnel.Personnel as Personnel
 import Secret.Secret
 import Time exposing (Posix)

src/Msg.elm

@@ -3,7 +3,6 @@ module Msg exposing (Msg(..))
 import Browser.Dom exposing (Viewport)
 import Calendar.Msg as Calendar
 import Cyberplanning.Cyberplanning as Cyberplanning
-import Http exposing (Error)
 import Personnel.Personnel as Personnel
 import Time exposing (Posix)
 import Vendor.Swipe

src/Personnel/Ical.elm

@@ -3,7 +3,6 @@ module Personnel.Ical exposing (VCalendar, VEvent, processIcal, emptyVCalendar,
 import Array
 import Time exposing (Posix)
 import Personnel.Timeparser exposing (toTime)
-import Http
 
 
 type alias VCalendar =
@@ -33,13 +32,15 @@ processIcal data =
         |> .events
 
 
+emptyVCalendar : VCalendar
 emptyVCalendar =
     { events = []
     , working = False
     , parsing = emptyVEvent
     }
 
 
+emptyVEvent : VEvent
 emptyVEvent =
     { summary = ""
     , dtstart = epoch
@@ -107,7 +108,7 @@ parseCalDatetime value =
         Ok time ->
             time
 
-        Err errors ->
+        Err _ ->
             -- let
             --     a =
             --         Debug.log "Parsing errors" errors

src/Personnel/Personnel.elm

@@ -3,7 +3,7 @@ module Personnel.Personnel exposing (Msg, State, getEvents, initState, restoreSt
 import Calendar.Event as CalEvent
 import File exposing (File)
 import File.Select as Select
-import Html exposing (Html, button, div, input, label, span, text)
+import Html exposing (Html, button, div, input, label, text)
 import Html.Attributes exposing (checked, class, for, id, title, type_)
 import Html.Events exposing (onCheck, onClick)
 import MyTime
@@ -31,8 +31,7 @@ initState =
 
 
 type Msg
-    = FileRequested
-    | FileSelected File
+    = FileSelected File
     | FileLoaded String
     | CheckActive Bool
     | RemoveFile
@@ -41,11 +40,6 @@ type Msg
 update : Msg -> State -> ( State, Cmd Msg )
 update msg state =
     case msg of
-        FileRequested ->
-            ( state
-            , Select.file [ "text/calendar" ] FileSelected
-            )
-
         FileSelected file ->
             ( { state | file = Just (extractFileInfos file) }
             , Task.perform FileLoaded (File.toString file)

src/Personnel/Timeparser.elm

@@ -5,8 +5,7 @@ module Personnel.Timeparser exposing (toTime, decoder, toUtcString)
 -}
 
 import Json.Decode as Decode exposing (Decoder)
-import Json.Encode as Encode
-import Parser exposing ((|.), (|=), Parser, andThen, end, int, map, oneOf, succeed, symbol)
+import Parser exposing ((|.), (|=), Parser, andThen, end, map, oneOf, succeed, symbol)
 import Time exposing (Month(..), utc)
 
 
@@ -333,7 +332,6 @@ leapYearsBefore y1 =
 -}
 iso8601 : Parser Time.Posix
 iso8601 =
-    -- TODO account for format variations, including those with UTC offsets
     monthYearDayInMs
         -- YYYY-MM-DD
         |> andThen

src/Secret/Secret.elm

@@ -1,7 +1,6 @@
 module Secret.Secret exposing (StateList, classStyle, createStates, isHelpActivated, update, view)
 
 import Array exposing (Array)
-import Calendar.Event as Cal
 import Dict exposing (Dict)
 import Html exposing (Html, iframe)
 import Html.Attributes exposing (attribute, class, height, src, style, width)
@@ -155,13 +154,6 @@ activated state =
     Array.length state.code == state.index
 
 
-toState : YTState -> State
-toState state =
-    { code = state.code
-    , index = state.index
-    }
-
-
 isHelpActivated : StateList -> Bool
 isHelpActivated { help } =
     Array.length help.code == help.index