-
1
-
2
-
3
-
4
-
5
-
6
-
7
-
8
-
9
-
10
-
11
-
12
-
13
-
14
-
15
-
16
-
17
-
18
-
19
-
20
-
21
-
22
-
23
-
24
-
25
-
26
-
27
-
28
-
29
-
30
-
31
-
32
-
33
-
34
-
35
-
36
-
37
-
38
-
39
-
40
-
41
-
42
-
43
-
44
-
45
-
46
-
47
-
48
-
49
-- Copyright 2026 Shota FUJI
--
-- This Source Code Form is subject to the terms of the Mozilla Public
-- License, v. 2.0. If a copy of the MPL was not distributed with this
-- file, You can obtain one at https://mozilla.org/MPL/2.0/.
--
-- SPDX-License-Identifier: MPL-2.0
module Parameters.Key exposing (Key(..), toString)
type Key
= LugWidth
| SurfaceThickness
| LiningThickness
| BuckleHoleCount
| BuckleHoleDiameter
| CanvasMargin
| LineWidth
| ColorSchema
toString : Key -> String
toString key =
case key of
LugWidth ->
"lug-width"
SurfaceThickness ->
"thickness"
LiningThickness ->
"lining-thickness"
BuckleHoleCount ->
"buckle-hole-count"
BuckleHoleDiameter ->
"buckle-hole-diameter"
CanvasMargin ->
"canvas-margin"
LineWidth ->
"line-width"
ColorSchema ->
"color-schema"