Use printed parameter label as field title For consistency and less duplications.

Changes

1 changed files (+6/-33)

• src/Parameters/App.elm
  • @@ -298,7 +298,6 @@
    type alias NumberFieldProps msg = { key : Key - , title : List (Html.Html msg) , description : List (Html.Html msg) , unit : Maybe String , attrs : List (Html.Attribute msg)
  • @@ -307,7 +306,7 @@ }
    numberField : Model -> NumberFieldProps Msg -> Html.Html Msg - numberField model { key, title, description, attrs, unit, disabled } = + numberField model { key, description, attrs, unit, disabled } = node "x-field" [ if disabled then attribute "disabled" ""
  • @@ -315,7 +314,7 @@
    else class "" ] - [ label [ for (Key.toString key), slot "title" ] title + [ label [ for (Key.toString key), slot "title" ] [ text (Key.toLabel key) ] , p [ id (descriptionId key), slot "description" ] description
  • @@ -351,7 +350,6 @@
    type alias ChoiceFieldProps msg = { key : Key - , title : List (Html.Html msg) , description : List (Html.Html msg) , attrs : List (Html.Attribute msg) , disabled : Bool
  • @@ -365,7 +363,7 @@ }
    choiceField : Model -> ChoiceFieldProps Msg -> Html.Html Msg - choiceField model { key, title, disabled, description, attrs, choices } = + choiceField model { key, disabled, description, attrs, choices } = node "x-field" [ if disabled then attribute "disabled" ""
  • @@ -373,7 +371,7 @@
    else class "" ] - (span [ slot "title" ] title + (span [ slot "title" ] [ text (Key.toLabel key) ] :: p [ slot "description" ] description :: List.map (\choice ->
  • @@ -418,7 +416,6 @@
    type alias BoolFieldProps msg = { key : Key - , title : List (Html.Html msg) , description : List (Html.Html msg) , attrs : List (Html.Attribute msg) , disabled : Bool
  • @@ -428,7 +425,7 @@ }
    boolField : Model -> BoolFieldProps Msg -> Html.Html Msg - boolField model { key, title, disabled, description, attrs, true, false } = + boolField model { key, disabled, description, attrs, true, false } = let isTrue = hasKey key model.fields
  • @@ -455,7 +452,7 @@
    else class "" ] - [ span [ slot "title" ] title + [ span [ slot "title" ] [ text (Key.toLabel key) ] , p [ slot "description" ] description , node "x-radio-box" [ if isTrue then
  • @@ -532,7 +529,6 @@ [ group
    { title = [ text "General" ], description = Nothing, defaultOpen = True } [ numberField model { key = ShoulderWidth - , title = [ text "Shoulder Width" ] , description = [ text "Width of your strap. " , text "Should be same as or wider than your watch's lug width."
  • @@ -543,7 +539,6 @@ , attrs = step "1.0" :: lengthFieldAttrs constraints.shoulderWidth
    } , numberField model { key = PaddingOffset - , title = [ text "Padding Offset" ] , description = [ text "Offset of the padding pattern, from main pieces. " , text "Set to 0mm to disable paddings output."
  • @@ -554,7 +549,6 @@ , attrs = step "1.0" :: lengthFieldAttrs constraints.paddingOffset
    } , choiceField model { key = Profile - , title = [ text "Profile" ] , description = [ text "Shape of the straps." ] , disabled = False , attrs = []
  • @@ -571,7 +565,6 @@ ]
    } , numberField model { key = TaperTo - , title = [ text "Taper To" ] , description = [ text "Width of the tip and buckle-edge." ] , unit = Just "mm" , disabled = model.parameters.profile == Parameters.Straight
  • @@ -579,7 +572,6 @@ , attrs = step "1.0" :: lengthFieldAttrs constraints.taperTo
    } , choiceField model { key = TipStyle - , title = [ text "Tip Style" ] , description = [ text "Shape of the long piece's end." ] , disabled = False , attrs = []
  • @@ -596,7 +588,6 @@ ]
    } , numberField model { key = TipSharpness - , title = [ text "Tip Sharpness" ] , description = [ text "Sharpness of the pointed tip. Lower the softer tip, and higher the sharper tip." ] , unit = Nothing , disabled = model.parameters.longPiece.tip == Parameters.Round
  • @@ -604,7 +595,6 @@ , attrs = step "1" :: intFieldAttrs constraints.longPiece.tipSharpness
    } , numberField model { key = LongPieceLength - , title = [ text "Length (Tail Side)" ] , description = [ text "Length of the tail-side piece, which is usually the longer one." ]
  • @@ -614,7 +604,6 @@ , attrs = step "1" :: lengthFieldAttrs constraints.longPiece.length
    } , numberField model { key = ShortPieceLength - , title = [ text "Length (Buckle Side)" ] , description = [ text "Length of the buckle-side piece, which is usually the shorter one." ]
  • @@ -628,7 +617,6 @@ , group
    { title = [ text "Buckle / Clasp" ], description = Nothing, defaultOpen = False } [ numberField model { key = BuckleHoleDistance - , title = [ text "Center Hole Distance" ] , description = [ text "Distance between case-side strap end and the center hole." ] , unit = Just "mm"
  • @@ -638,7 +626,6 @@ step "1.0" :: lengthFieldAttrs constraints.longPiece.buckleHole.distance
    } , numberField model { key = BuckleHoleAdjustments - , title = [ text "Hole Adjustment Level" ] , description = [ text "Number of adjustment holes top and bottom of the center hole." ] , unit = Nothing , disabled = False
  • @@ -646,7 +633,6 @@ , attrs = step "1" :: intFieldAttrs constraints.longPiece.buckleHole.adjustments
    } , numberField model { key = BuckleHoleDiameter - , title = [ text "Hole Diameter" ] , description = [ text "Diameter of the buckle holes." ] , unit = Just "mm" , disabled = False
  • @@ -655,7 +641,6 @@ step "1.0" :: lengthFieldAttrs constraints.longPiece.buckleHole.diameter
    } , numberField model { key = BuckleHoleInterval - , title = [ text "Hole Interval" ] , description = [ text "Center-to-center interval between buckle holes." ] , unit = Just "mm"
  • @@ -669,7 +654,6 @@ , group
    { title = [ text "Loops" ], description = Nothing, defaultOpen = False } [ choiceField model { key = LoopStyle - , title = [ text "Loop Style" ] , description = [ text "Style of the fixed loop and the free loop." ] , disabled = not (hasKey HasFixedLoop model.fields)
  • @@ -688,7 +672,6 @@ ]
    } , boolField model { key = HasFixedLoop - , title = [ text "Fixed Loop" ] , description = [ text "Whether to draw fixed loop. Certain kind of deployant buckles don't require a fixed loop." ] , attrs = [] , disabled = False
  • @@ -703,7 +686,6 @@ }
    } , numberField model { key = FixedLoopWidth - , title = [ text "Fixed Loop Width" ] , description = [ text "Width of the fixed loop." ] , unit = Just "mm" , disabled = not (hasKey HasFixedLoop model.fields)
  • @@ -712,7 +694,6 @@ step "0.1" :: lengthFieldAttrs constraints.shortPiece.loops.fixed.width
    } , numberField model { key = FixedLoopLength - , title = [ text "Fixed Loop Length" ] , description = [ text "Length of the fixed loop. This should be at least double the strap width and thickness." ] , unit = Just "mm" , disabled = not (hasKey HasFixedLoop model.fields)
  • @@ -721,7 +702,6 @@ step "0.1" :: lengthFieldAttrs constraints.shortPiece.loops.fixed.length
    } , boolField model { key = HasFreeLoop - , title = [ text "Free Loop" ] , description = [ text "Whether to draw free loop. Certain kind of deployant buckles don't require a free loop." ] , attrs = [] , disabled = False
  • @@ -736,7 +716,6 @@ }
    } , numberField model { key = FreeLoopWidth - , title = [ text "Free Loop Width" ] , description = [ text "Width of the free loop." ] , unit = Just "mm" , disabled = not (hasKey HasFreeLoop model.fields)
  • @@ -745,7 +724,6 @@ step "0.1" :: lengthFieldAttrs constraints.shortPiece.loops.free.width
    } , numberField model { key = FreeLoopLength - , title = [ text "Free Loop Length" ] , description = [ text "Length of the free loop. This should be at least double the strap width and thickness." ] , unit = Just "mm" , disabled = not (hasKey HasFreeLoop model.fields)
  • @@ -754,7 +732,6 @@ step "0.1" :: lengthFieldAttrs constraints.shortPiece.loops.free.length
    } , numberField model { key = FreeLoopOverlap - , title = [ text "Free Loop Overlap" ] , description = [ text "Length of overlapping section of the free loop for gluing and/or stitching." ] , unit = Just "mm" , disabled = not (hasKey HasFreeLoop model.fields)
  • @@ -767,7 +744,6 @@ , group
    { title = [ text "Rendering" ], description = Nothing, defaultOpen = False } [ numberField model { key = CanvasMargin - , title = [ text "Print Margin" ] , description = [ text "Lower values can cause printing problems depending on your printer." ] , unit = Just "mm"
  • @@ -776,7 +752,6 @@ , attrs = step "1.0" :: lengthFieldAttrs constraints.rendering.margin
    } , numberField model { key = LineWidth - , title = [ text "Line Width" ] , description = [ text "Stroke width (thickness) of the cutting lines and seam lines." ] , unit = Just "mm"
  • @@ -785,7 +760,6 @@ , attrs = step "0.1" :: lengthFieldAttrs constraints.rendering.lineWidth
    } , choiceField model { key = ColorSchema - , title = [ text "Color Schema" ] , description = [ text "Color schema of the template." ] , attrs = [] , disabled = False
  • @@ -802,7 +776,6 @@ ]
    } , boolField model { key = QRCode - , title = [ text "QR code" ] , description = [ text "Add QR code points to this page's URL to the output. " , text "As the QR code generation is computationally heavy process, I recommend you to disable "