Nicer glue API for common widget libraries

[upsiflu]

elm-ui

link :

 List (Attribute msg)
 -> { url : String
    , label : Element msg
    }
 -> Element msg

also: newTabLink, download, downloadAs

elm-widgets-alpha

viewLink :

List (Attribute msg)
-> { label : List (Html msg)
   , href : String
   }
-> Html msg

Same interface in the modules Tag, Menu, and Button

Pagination.viewLinks :

List (Attribute msg)
-> { total : Int
   , active : Int
   , href : Int -> String
   }
-> Html msg

elm-w3

a :

List
    (GlobalAttributes
        { href : SupportedAttribute
        , target : SupportedAttribute
        , download : SupportedAttribute
        , ping : SupportedAttribute
        , rel : SupportedAttribute
        , hreflang : SupportedAttribute
        , type_mime : SupportedAttribute
        , referrerpolicy : SupportedAttribute
        }
        msg
    )
-> List Node FlowContent msg
-> Node { compatible | a : Supported } msg

[upsiflu]

I made Ui.toggle, Ui. bounce, Ui.goTo follow this path.