Skip to content

Holmusk/elmoji

Folders and files

NameName
Last commit message
Last commit date

Latest commit

 

History

46 Commits
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 

Repository files navigation

Elmoji

Check out the demo!

This module provides a general-purpose emoji picker written in Elm. In order to integrate this with your application, there are a few things that need to be implemented (check the examples directory for a sample).

  1. Include a field in your Model to hold the picker's submodel:

    import EmojiPicker exposing (Model, PickerConfig, Msg(..), view, update, init)
    
    type alias Model =
        { text       : String
        , emojiModel : EmojiPicker.Model
        }
  2. Initialize the picker's submodel with a PickerConfig:

    pickerConfig : PickerConfig
    pickerConfig =
        { offsetX       = -271  -- horizontal offset
        , offsetY       = -410  -- vertical offset
        , closeOnSelect = True  -- close after clicking an emoji
        }
    
    initialModel : Model
    initialModel =
        { text       = ""
        , emojiModel = EmojiPicker.init pickerConfig
        }
  3. Include a constructor in your Msg to catch the picker's submessages:

    type Msg
        = NoOp
        ...
        | EmojiMsg EmojiPicker.Msg
        ...
  4. Catch the Select submessage in your update function (let the rest of the messages be handled by the internal update function):

    update : Msg -> Model -> (Model, Cmd Msg)
    update msg model =
        case msg of
            ...
            EmojiMsg subMsg ->
                case subMsg of
                    EmojiPicker.Select s ->
                        -- "s" is the emoji, add this to your input field
                        ...
            ...
  5. Include a way to toggle the picker's visibility by sending its internal Toggle message:

    view : Model -> Html Msg
    view model =
    ...
        button [ onClick <| EmojiMsg EmojiPicker.Toggle ] []
    ...
  6. Include the picker in your view function (along with a button or something that sends the ToggleEmojiPicker message onClick). The picker is styled with the elm-css module, which uses an internal replacement for the standard elm/html module, so you'll need to Html.map it first:

    view : Model -> Html Msg
    view model =
        let
            picker = Html.map EmojiMsg <| EmojiPicker.view model.emojiModel
        in
            -- use `picker` somewhere
            ...

And that's it! If you'd like to change any of the default styles in this module, you can clone the repo and edit the Styles.elm file.

Acknowledgements

The category icons were taken from the emoji-mart repo by Missive, and rewritten in Elm. The emojis themselves were obtained by parsing the emoji.json file on the emoji-data repo.