32 lines
501 B
Elm
32 lines
501 B
Elm
|
-- this is a list of common styled elements
|
||
|
|
||
|
|
||
|
module CommonElements exposing (..)
|
||
|
|
||
|
import Element exposing (..)
|
||
|
import Element.Font as Font
|
||
|
|
||
|
|
||
|
bolded : String -> Element msg
|
||
|
bolded content =
|
||
|
el
|
||
|
[ Font.bold ]
|
||
|
(text content)
|
||
|
|
||
|
|
||
|
namedLink : String -> String -> Element msg
|
||
|
namedLink path name =
|
||
|
link []
|
||
|
{ url = "/#" ++ path
|
||
|
, label = text name
|
||
|
}
|
||
|
|
||
|
|
||
|
debugLog : a -> a
|
||
|
debugLog value =
|
||
|
let
|
||
|
_ =
|
||
|
Debug.log "value: " value
|
||
|
in
|
||
|
value
|