mirror of
https://github.com/NoRedInk/noredink-ui.git
synced 2024-09-11 07:05:38 +03:00
90 lines
2.0 KiB
Elm
90 lines
2.0 KiB
Elm
module MessageV1 exposing (..)
|
|
|
|
{-| NOTE: requires elm-refactor alpha-220-g24db2f5 or later.
|
|
-}
|
|
|
|
import Nri.Ui.Message.V1 as Message
|
|
|
|
|
|
|
|
--
|
|
-- Nri.Ui.Alert.V4
|
|
--
|
|
|
|
|
|
upgrade_Nri_Ui_Alert_V4_error content =
|
|
Message.tiny Message.Error (Message.Markdown content)
|
|
|
|
|
|
upgrade_Nri_Ui_Alert_V4_warning content =
|
|
Message.tiny Message.Alert (Message.Markdown content)
|
|
|
|
|
|
upgrade_Nri_Ui_Alert_V4_tip content =
|
|
Message.tiny Message.Tip (Message.Markdown content)
|
|
|
|
|
|
upgrade_Nri_Ui_Alert_V4_success content =
|
|
Message.tiny Message.Success (Message.Markdown content)
|
|
|
|
|
|
upgrade_Nri_Ui_Alert_V4_somethingWentWrong errorMessageForEngineers =
|
|
Message.somethingWentWrong errorMessageForEngineers
|
|
|
|
|
|
|
|
--
|
|
-- Nri.Ui.BannerAlert.V6
|
|
--
|
|
|
|
|
|
upgrade_Nri_Ui_BannerAlert_V6_alert content maybeOnDismiss =
|
|
Message.banner Message.Alert
|
|
(Message.Html content)
|
|
(List.filterMap identity
|
|
[ Maybe.map Message.onDismiss maybeOnDismiss
|
|
]
|
|
)
|
|
|
|
|
|
upgrade_Nri_Ui_BannerAlert_V6_error content maybeOnDismiss =
|
|
Message.banner Message.Error
|
|
(Message.Html content)
|
|
(List.filterMap identity
|
|
[ Maybe.map Message.onDismiss maybeOnDismiss
|
|
]
|
|
)
|
|
|
|
|
|
upgrade_Nri_Ui_BannerAlert_V6_neutral content maybeOnDismiss =
|
|
Message.banner Message.Tip
|
|
(Message.Html content)
|
|
(List.filterMap identity
|
|
[ Maybe.map Message.onDismiss maybeOnDismiss
|
|
]
|
|
)
|
|
|
|
|
|
upgrade_Nri_Ui_BannerAlert_V6_success content maybeOnDismiss =
|
|
Message.banner Message.Success
|
|
(Message.Html content)
|
|
(List.filterMap identity
|
|
[ Maybe.map Message.onDismiss maybeOnDismiss
|
|
]
|
|
)
|
|
|
|
|
|
upgrade_Nri_Ui_BannerAlert_V6_custom config =
|
|
Message.banner
|
|
(Message.Custom
|
|
{ color = config.color
|
|
, backgroundColor = config.backgroundColor
|
|
, icon = config.icon
|
|
}
|
|
)
|
|
(Message.Html config.content)
|
|
(List.filterMap identity
|
|
[ Maybe.map Message.onDismiss config.dismiss
|
|
]
|
|
)
|