NoRedInk/noredink-ui
1
1
Fork 0
mirror of https://github.com/NoRedInk/noredink-ui.git synced 2024-09-21 12:19:03 +03:00
Code Issues Packages Projects Releases Wiki Activity

only show blank styles when relevant

Browse Source
This commit is contained in:
Tessa Kelly 2024-01-30 11:43:05 -07:00
parent 7b05321b52
commit 32f73d31b1
1 changed files with 31 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
component-catalog/src/Examples/Block.elm
View File

@ -665,7 +665,6 @@ initControl =
|> ControlExtra.listItems "Text or Blank"
(Control.list
|> ControlExtra.listItems "content" controlContent
|> ControlExtra.optionalListItem "blankStyle" blankStyleContent
)
|> ControlExtra.listItems "Label and Emphasis"
(Control.list
@ -724,38 +723,45 @@ controlContent =
|> Control.map List.singleton
)
, ( "with mixed content"
, Control.value
( Code.fromModule moduleName "content "
++ Code.withParens
((Code.fromModule moduleName "italic (" ++ Code.fromModule moduleName "phrase " ++ Code.string "to think about" ++ ")")
++ (" :: " ++ Code.fromModule moduleName "blank")
++ (" :: " ++ Code.fromModule moduleName "phrase " ++ Code.string " and so forth")
, Control.list
|> ControlExtra.listItem ""
(Control.value
( Code.fromModule moduleName "content "
++ Code.withParens
((Code.fromModule moduleName "italic (" ++ Code.fromModule moduleName "phrase " ++ Code.string "to think about" ++ ")")
++ (" :: " ++ Code.fromModule moduleName "blank")
++ (" :: " ++ Code.fromModule moduleName "phrase " ++ Code.string " and so forth")
)
, Block.content
(Block.italic (Block.phrase "to think about ")
:: Block.blank { widthInChars = 8 }
:: Block.phrase " and so forth"
)
)
, Block.content
(Block.italic (Block.phrase "to think about ")
:: Block.blank { widthInChars = 8 }
:: Block.phrase " and so forth"
)
)
|> Control.map List.singleton
|> ControlExtra.optionalListItem "blankStyle" blankStyleContent
)
, ( "blank"
, Control.record
(\widthInChars ->
( Code.fromModule moduleName "content "
++ Code.withParens
(Code.fromModule moduleName "blank"
++ " "
++ Code.record [ ( "widthInChars", String.fromInt widthInChars ) ]
, Control.list
|> ControlExtra.listItem "widthInChars"
(Control.map
(\widthInChars ->
( Code.fromModule moduleName "content "
++ Code.withParens
(Code.fromModule moduleName "blank"
++ " "
++ Code.record [ ( "widthInChars", String.fromInt widthInChars ) ]
)
, Block.content [ Block.blank { widthInChars = widthInChars } ]
)
, Block.content [ Block.blank { widthInChars = widthInChars } ]
)
(Control.int 8)
)
)
|> Control.field "widthInChars" (Control.int 8)
|> Control.map List.singleton
|> ControlExtra.optionalListItem "blankStyle" blankStyleContent
)
, ( "(none)"
, Control.value []
, Control.revealed "blankStyle" blankStyleContent
|> Control.map List.singleton
)
]