- 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
- 50
- 51
- 52
- 53
- 54
- 55
- 56
- 57
- 58
- 59
- 60
- 61
- 62
- 63
- 64
- 65
- 66
- 67
- 68
- 69
- 70
- 71
- 72
- 73
- 74
- 75
- 76
- 77
- 78
- 79
- 80
- 81
- 82
- 83
- 84
- 85
- 86
- 87
- 88
- 89
- 90
- 91
- 92
- 93
- 94
- 95
- 96
- 97
- 98
- 99
- 100
- 101
- 102
- 103
- 104
- 105
-- 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
| Profile
| TaperTo
| BuckleHoleOffset
| BuckleHoleCount
| BuckleHoleInterval
| BuckleHoleDiameter
| LongPieceLength
| LoopStyle
| HasFixedLoop
| FixedLoopWidth
| FixedLoopLength
| HasFreeLoop
| FreeLoopWidth
| FreeLoopLength
| FreeLoopOverlap
| ShortPieceLength
| CanvasMargin
| LineWidth
| ColorSchema
| QRCode
| Version
toString : Key -> String
toString key =
case key of
Version ->
"version"
Profile ->
"profile"
TaperTo ->
"taper-to"
LugWidth ->
"lug-width"
BuckleHoleOffset ->
"buckle-hole-offset"
BuckleHoleCount ->
"buckle-hole-count"
BuckleHoleDiameter ->
"buckle-hole-diameter"
BuckleHoleInterval ->
"buckle-hole-interval"
LongPieceLength ->
"long-piece-length"
LoopStyle ->
"loop-style"
HasFixedLoop ->
"has-fixed-loop"
FixedLoopWidth ->
"fixed-loop-width"
FixedLoopLength ->
"fixed-loop-length"
HasFreeLoop ->
"has-free-loop"
FreeLoopWidth ->
"free-loop-width"
FreeLoopLength ->
"free-loop-length"
FreeLoopOverlap ->
"free-loop-overlap"
ShortPieceLength ->
"short-piece-length"
CanvasMargin ->
"canvas-margin"
LineWidth ->
"line-width"
ColorSchema ->
"color-schema"
QRCode ->
"qrcode"