grapefruit-ui-0.0.0.0: src/Graphics/UI/Grapefruit/Backend/Std.hs

{-|
    This module declares a subclass of 'UIBackend' with methods that every reasonable UI backend
    should implement.
-}
module Graphics.UI.Grapefruit.Backend.Std (

    -- * Interface
    StdUIBackend (..),

    -- * Utilities
    Orientation (Horizontal, Vertical),
    Caption (ColdCaption, HotCaption),

    -- * Field names
    Closure (Closure),
    Push (Push),
    Text (Text),
    Title (Title)

) where

    -- FRP.Grapefruit
    import FRP.Grapefruit.Signal             as Signal
    import FRP.Grapefruit.Signal.Discrete    as DSignal
    import FRP.Grapefruit.Signal.Segmented   as SSignal
    import FRP.Grapefruit.Record             as Record
    import FRP.Grapefruit.Record.Optionality as OptionalityRecord

    -- Graphics.UI.Grapefruit
    import Graphics.UI.Grapefruit.Backend as UIBackend
    import Graphics.UI.Grapefruit.Item    as UIItem
    import Graphics.UI.Grapefruit.Circuit as UICircuit

    -- * Interface
    -- |A subclass of 'UIBackend' which declares standard bricks and boxes.
    class (UIBackend uiBackend) => StdUIBackend uiBackend where

        -- |A widget showing one line of text.
        label :: Brick Widget uiBackend (X :& Req Text ::: SSignal `Of` String) X

        -- |A push button.
        pushButton :: Brick Widget uiBackend (X :& Req Text ::: SSignal `Of` String)
                                             (X :&     Push ::: DSignal `Of` ())

        -- |A widget which aggregates and arbitrary number of other widgets.
        box :: Orientation -> Box UICircuit Widget Widget uiBackend X X

        -- |An ordinary window.
        window :: Box UIItem Widget Window uiBackend (X :& Req Title   ::: SSignal `Of` String)
                                                     (X :&     Closure ::: DSignal `Of` ())

    -- * Utilities
    -- |An orientation of widgets in a box.
    data Orientation = Horizontal | Vertical

    {-|
        A caption of a widget with an optional hotkey marker.

        Currently, this type is not used.
    -}
    data Caption = ColdCaption String
                   -- ^a caption without a hotkey
                 | HotCaption String Char String
                   -- ^a caption consisting of a prefix string, a hotkey and a suffix string

    -- * Field names
    {-|
        A field name.

        Typical properties:

        [kind]
            output

        [type]
            @'DSignal' `'Of'` ()@

        [meaning]
            a “window was closed” event
    -}
    data Closure = Closure

    {-|
        A field name.

        Typical properties:

        [kind]
            output

        [type]
            @'DSignal' `'Of'` ()@

        [meaning]
            a stream of button push events
    -}
    data Push = Push

    {-|
        A field name.

        Typical properties:

        [kind]
            input (required)

        [type]
            @'SSignal' `'Of'` String@

        [meaning]
            the caption of a widget
    -}
    data Text = Text

    {-|
        A field name.

        Typical properties:

        [kind]
            input (required)

        [type]
            @'SSignal' `'Of'` String@

        [meaning]
            the title of a window
    -}
    data Title = Title