| -- Copyright 2020 The Fuchsia Authors. All rights reserved. |
| -- Use of this source code is governed by a BSD-style license that can be |
| -- found in the LICENSE file. |
| |
| |
| module Settings exposing |
| ( Model |
| , Msg |
| , Scheme |
| , decode |
| , decodeScheme |
| , defaultScheme |
| , encode |
| , init |
| , initCmd |
| , themeClass |
| , update |
| , view |
| ) |
| |
| {-| This module defines a settings form. |
| -} |
| |
| import Dict exposing (Dict) |
| import Form exposing (Form) |
| import Html exposing (Html) |
| import Json.Decode as Decode |
| import Json.Encode as Encode |
| import Ports |
| import Set exposing (Set) |
| |
| |
| |
| ------------- MODEL ------------------------------------------------------------ |
| |
| |
| type alias Model = |
| { form : Form.Model |
| , preferredScheme : Scheme |
| } |
| |
| |
| type Scheme |
| = Light |
| | Dark |
| |
| |
| init : Scheme -> Model |
| init preferredScheme = |
| { form = |
| Form.empty |
| |> Form.insertStringValue "theme" (defaultTheme preferredScheme) |
| , preferredScheme = preferredScheme |
| } |
| |
| |
| initCmd : Model -> Cmd msg |
| initCmd model = |
| applySettings model |
| |
| |
| defaultScheme : Scheme |
| defaultScheme = |
| Light |
| |
| |
| defaultTheme : Scheme -> String |
| defaultTheme scheme = |
| case scheme of |
| Light -> |
| "textmate" |
| |
| Dark -> |
| "tomorrow_night" |
| |
| |
| getTheme : Model -> String |
| getTheme model = |
| Form.getStringValue form "theme" model.form |
| |
| |
| getScheme : String -> Scheme |
| getScheme theme = |
| if Set.member theme lightThemes then |
| Light |
| |
| else |
| Dark |
| |
| |
| themeClass : Model -> String |
| themeClass model = |
| case Dict.get (getTheme model) themeClassSuffixes of |
| Just class -> |
| "ace-" ++ class |
| |
| Nothing -> |
| "" |
| |
| |
| form : Form |
| form = |
| Form.define |
| [ Form.groupedSelect "theme" "Theme" themes "textmate" |
| , Form.select "keyboardHandler" "Keybindings" keybindings "ace" |
| , Form.number "refreshDelay" "Refresh delay (ms)" 500 (\n -> n > 0) |
| , Form.number "fontSize" "Font size" 14 (\n -> n > 0) |
| , Form.checkbox "wrap" "Wrap lines" False |
| , Form.checkbox "indentedSoftWrap" "Indent wrapped lines" False |
| , Form.number "tabSize" "Tab width" 4 (\n -> n > 0) |
| , Form.checkbox "useSoftTabs" "Soft tabs" True |
| , Form.checkbox "atomicSoftTabs" "Atomic soft tabs" True |
| , Form.checkbox "showGutter" "Show gutter" True |
| , Form.checkbox "showLineNumbers" "Line numbers" True |
| , Form.checkbox "relativeLineNumbers" "Relative line numbers" False |
| , Form.checkbox "highlightActiveLine" "Highlight active line" True |
| , Form.checkbox "scrollPastEnd" "Scroll past end" False |
| , Form.select "foldStyle" "Fold markers" foldStyles "markbegin" |
| , Form.checkbox "displayIndentGuides" "Show indent guides" True |
| , Form.checkbox "showInvisibles" "Show invisibles" False |
| , Form.checkbox "showPrintMargin" "Show margin" False |
| , Form.number "printMarginColumn" "Margin column" 80 (\n -> n >= 0) |
| ] |
| |
| |
| themes : List ( String, List ( Form.Identifier, String ) ) |
| themes = |
| [ ( "Light" |
| , [ ( "chrome", "Chrome" ) |
| , ( "clouds", "Clouds" ) |
| , ( "crimson_editor", "Crimson Editor" ) |
| , ( "dawn", "Dawn" ) |
| , ( "dreamweaver", "Dreamweaver" ) |
| , ( "eclipse", "Eclipse" ) |
| , ( "github", "GitHub" ) |
| , ( "iplastic", "iPlastic" ) |
| , ( "katzenmilch", "KatzenMilch" ) |
| , ( "kuroir", "Kuroir" ) |
| , ( "solarized_light", "Solarized Light" ) |
| , ( "sqlserver", "SQL Server" ) |
| , ( "textmate", "TextMate" ) |
| , ( "tomorrow", "Tomorrow" ) |
| , ( "xcode", "Xcode" ) |
| ] |
| ) |
| , ( "Dark" |
| , [ ( "ambiance", "Ambiance" ) |
| , ( "chaos", "Chaos" ) |
| , ( "clouds_midnight", "Clouds Midnight" ) |
| , ( "cobalt", "Cobalt" ) |
| , ( "dracula", "Dracula" ) |
| , ( "gob", "Gob" ) |
| , ( "gruvbox", "Gruvbox" ) |
| , ( "idle_fingers", "idleFingers" ) |
| , ( "kr_theme", "krTheme" ) |
| , ( "merbivore", "Merbivore" ) |
| , ( "merbivore_soft", "Merbivore Soft" ) |
| , ( "mono_industrial", "Mono Industrial" ) |
| , ( "monokai", "Monokai" ) |
| , ( "pastel_on_dark", "Pastel on Dark" ) |
| , ( "solarized_dark", "Solarized Dark" ) |
| , ( "terminal", "Terminal" ) |
| , ( "tomorrow_night", "Tomorrow Night" ) |
| , ( "tomorrow_night_blue", "Tomorrow Night Blue" ) |
| , ( "tomorrow_night_bright", "Tomorrow Night Bright" ) |
| , ( "tomorrow_night_eighties", "Tomorrow Night 80s" ) |
| , ( "twilight", "Twilight" ) |
| , ( "vibrant_ink", "Vibrant Ink" ) |
| ] |
| ) |
| ] |
| |
| |
| lightThemes : Set Form.Identifier |
| lightThemes = |
| Set.fromList |
| [ "chrome" |
| , "clouds" |
| , "crimson_editor" |
| , "dawn" |
| , "dreamweaver" |
| , "eclipse" |
| , "github" |
| , "iplastic" |
| , "katzenmilch" |
| , "kuroir" |
| , "solarized_light" |
| , "sqlserver" |
| , "textmate" |
| , "tomorrow" |
| , "xcode" |
| ] |
| |
| |
| themeClassSuffixes : Dict Form.Identifier String |
| themeClassSuffixes = |
| Dict.fromList |
| [ ( "ambiance", "ambiance" ) |
| , ( "chaos", "chaos" ) |
| , ( "chrome", "chrome" ) |
| , ( "clouds", "clouds" ) |
| , ( "clouds_midnight", "clouds-midnight" ) |
| , ( "cobalt", "cobalt" ) |
| , ( "crimson_editor", "crimson-editor" ) |
| , ( "dawn", "dawn" ) |
| , ( "dracula", "dracula" ) |
| , ( "dreamweaver", "dreamweaver" ) |
| , ( "eclipse", "eclipse" ) |
| , ( "github", "github" ) |
| , ( "gob", "gob" ) |
| , ( "gruvbox", "gruvbox" ) |
| , ( "idle_fingers", "idle-fingers" ) |
| , ( "iplastic", "iplastic" ) |
| , ( "katzenmilch", "katzenmilch" ) |
| , ( "kr_theme", "kr-theme" ) |
| , ( "kuroir", "kuroir" ) |
| , ( "merbivore", "merbivore" ) |
| , ( "merbivore_soft", "merbivore-soft" ) |
| , ( "mono_industrial", "mono-industrial" ) |
| , ( "monokai", "monokai" ) |
| , ( "pastel_on_dark", "pastel-on-dark" ) |
| , ( "solarized_dark", "solarized-dark" ) |
| , ( "solarized_light", "solarized-light" ) |
| , ( "sqlserver", "sqlserver" ) |
| , ( "terminal", "terminal-theme" ) |
| , ( "textmate", "tm" ) |
| , ( "tomorrow", "tomorrow" ) |
| , ( "tomorrow_night", "tomorrow-night" ) |
| , ( "tomorrow_night_blue", "tomorrow-night-blue" ) |
| , ( "tomorrow_night_bright", "tomorrow-night-bright" ) |
| , ( "tomorrow_night_eighties", "tomorrow-night-eighties" ) |
| , ( "twilight", "twilight" ) |
| , ( "vibrant_ink", "vibrant-ink" ) |
| , ( "xcode", "xcode" ) |
| ] |
| |
| |
| keybindings : List ( Form.Identifier, String ) |
| keybindings = |
| [ ( "ace", "Ace" ) |
| , ( "emacs", "Emacs" ) |
| , ( "sublime", "Sublime Text" ) |
| , ( "vim", "Vim" ) |
| , ( "vscode", "VS Code" ) |
| ] |
| |
| |
| foldStyles : List ( Form.Identifier, String ) |
| foldStyles = |
| [ ( "manual", "Off" ) |
| , ( "markbegin", "Begin" ) |
| , ( "markbeginend", "Begin and end" ) |
| ] |
| |
| |
| |
| ------------- UPDATE ----------------------------------------------------------- |
| |
| |
| type Msg |
| = FormMsg Form.Msg |
| | ResetForm |
| | ClearDataAndReload |
| |
| |
| update : Msg -> Model -> ( Model, Cmd msg ) |
| update msg model = |
| case msg of |
| FormMsg formMsg -> |
| let |
| newModel = |
| { model | form = Form.update formMsg model.form } |
| in |
| ( newModel |
| , applySettings newModel |
| ) |
| |
| ResetForm -> |
| let |
| newModel = |
| init model.preferredScheme |
| in |
| ( newModel |
| , applySettings newModel |
| ) |
| |
| ClearDataAndReload -> |
| ( model, Ports.clearDataAndReload ) |
| |
| |
| applySettings : Model -> Cmd msg |
| applySettings model = |
| let |
| scheme = |
| getScheme (getTheme model) |
| |
| augmentedModel = |
| Form.insertStringValue "scheme" |
| (schemeToString scheme) |
| model.form |
| in |
| Ports.applySettings (Form.encodeEffective form augmentedModel) |
| |
| |
| |
| ------------- VIEW ------------------------------------------------------------- |
| |
| |
| view : (Msg -> msg) -> Model -> Html msg |
| view toMsg model = |
| Form.view form (buttons toMsg) (toMsg << FormMsg) model.form |
| |
| |
| buttons : (Msg -> msg) -> List (Form.Button msg) |
| buttons toMsg = |
| [ ( "Use defaults", toMsg ResetForm ) |
| |
| -- Labelling it "Reset" instead of "Clear" because, while it does clear the |
| -- local storage items, they will immediately get set again to their default |
| -- values when the page reloads. |
| , ( "Reset all data", toMsg ClearDataAndReload ) |
| ] |
| |
| |
| |
| ------------- ENCODE / DECODE -------------------------------------------------- |
| |
| |
| encode : Model -> Encode.Value |
| encode model = |
| Form.encode model.form |
| |
| |
| decode : Decode.Decoder Model |
| decode = |
| Decode.map2 Model |
| Form.decode |
| (Decode.succeed defaultScheme) |
| |
| |
| schemeToString : Scheme -> String |
| schemeToString scheme = |
| case scheme of |
| Light -> |
| "light" |
| |
| Dark -> |
| "dark" |
| |
| |
| decodeScheme : Decode.Decoder Scheme |
| decodeScheme = |
| Decode.string |
| |> Decode.andThen |
| (\string -> |
| case schemeFromString string of |
| Just scheme -> |
| Decode.succeed scheme |
| |
| _ -> |
| Decode.fail ("Invalid scheme: " ++ string) |
| ) |
| |
| |
| schemeFromString : String -> Maybe Scheme |
| schemeFromString string = |
| case string of |
| "light" -> |
| Just Light |
| |
| "dark" -> |
| Just Dark |
| |
| _ -> |
| Nothing |
