{-# LANGUAGE OverloadedStrings #-}

-- | This modules exposes the overall "Brivla" course.
module Study.Courses.English.Vocabulary.Brivla.Course (course) where

import Core
import Study.Courses.English.Vocabulary.Brivla.Lessons
import Language.Lojban.Dictionaries (englishDictionary)

-- | Course style.
style :: CourseStyle
style :: CourseStyle
style = Maybe String -> Maybe String -> CourseStyle
CourseStyle Maybe String
color1 Maybe String
iconUrl where
    color1 :: Maybe String
color1 = String -> Maybe String
forall a. a -> Maybe a
Just
        String
"hsl(85, 89%, 30%)"
    -- Icon url
    iconUrl :: Maybe String
iconUrl = String -> Maybe String
forall a. a -> Maybe a
Just
        -- Source: https://www.flaticon.com/premium-icon/swear_774512#term=word&page=1&position=64
        String
"https://www.flaticon.com/premium-icon/icons/svg/774/774512.svg"

-- | Course: Brivla.
course :: Course
course :: Course
course = Text
-> Text
-> Text
-> Maybe Pandoc
-> Maybe Pandoc
-> CourseStyle
-> Dictionary
-> [Lesson]
-> Course
Course Text
"brivla_eng" Text
title Text
shortDescription Maybe Pandoc
forall {a}. Maybe a
longDescription Maybe Pandoc
forall {a}. Maybe a
credits CourseStyle
style Dictionary
englishDictionary [Lesson]
lessons where
    title :: Text
title = Text
"Common brivla"
    shortDescription :: Text
shortDescription = Text
"Learn the most commonly used brivla, while also developing your comprehension skills."
    longDescription :: Maybe a
longDescription = Maybe a
forall {a}. Maybe a
Nothing
    credits :: Maybe a
credits = Maybe a
forall {a}. Maybe a
Nothing
    lessons :: [Lesson]
lessons = [Lesson
lesson01, Lesson
lesson02, Lesson
lesson03, Lesson
lesson04, Lesson
lesson05]