Add Clipboard events. (#1121)

- [x] Adds `cut`, `copy` and `paste`.

Author: dmjio

src/Miso/Event/Types.hs

@@ -36,6 +36,7 @@ module Miso.Event.Types
   , dragEvents
   , pointerEvents
   , mediaEvents
+  , clipboardEvents
   ) where
 -----------------------------------------------------------------------------
 import           Data.Aeson (FromJSON(..), withText)
@@ -220,3 +221,11 @@ mediaEvents = M.fromList
   , ("waiting", True)
   ]
 -----------------------------------------------------------------------------
+-- | Clipboard events
+clipboardEvents :: Events
+clipboardEvents = M.fromList
+  [ ("cut", False)
+  , ("copy", False)
+  , ("paste", False)
+  ]
+-----------------------------------------------------------------------------