onRightClick :: msg -> Attribute msg
onRightClick message =
  onWithOptions
    Options { preventDefault = True, stopPropagation = True }
    "contextmenu"
    emptyDecoder
    (const message)