Merge pull request kmonad#666 from zombiegh0st/master

Added support for KeyDictation, KeySpotlight on mac
brttbndr · Jan 2, 2023 · 995e735 · 995e735
2 parents 596ed91 + 3c761b2
commit 995e735
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/src/KMonad/Keyboard/IO/Mac/Types.hs b/src/KMonad/Keyboard/IO/Mac/Types.hs
@@ -292,11 +292,13 @@ kcMap = M.fromList $
  , ((0xC,0xB5), KeyNextSong)
  , ((0xC,0xB6), KeyPreviousSong)
  , ((0xC,0xCD), KeyPlayPause)
+ , ((0xC,0xCF), KeyDictation)
  , ((0xFF,0x3), KeyFn)
  , ((0xFF,0x4), KeyBrightnessUp)
  , ((0xFF,0x5), KeyBrightnessDown)
  , ((0xFF,0x8), KeyKbdIllumUp)
  , ((0xFF,0x9), KeyKbdIllumDown)
+ , ((0xFF01,0x1), KeySpotlight)
  , ((0xFF01,0x4), KeyLaunchpad)
  , ((0xFF01,0x10), KeyMissionCtrl)
  ]
diff --git a/src/KMonad/Keyboard/Keycode.hs b/src/KMonad/Keyboard/Keycode.hs
@@ -305,6 +305,8 @@ data Keycode
  | KeyFn
  | KeyLaunchpad
  | KeyMissionCtrl
+ | KeySpotlight
+ | KeyDictation
 #endif
  deriving (Eq, Show, Bounded, Enum, Ord, Generic, Hashable)
 
@@ -409,5 +411,7 @@ aliases = Q.mkMultiMap
 #ifdef darwin_HOST_OS
  , (KeyLaunchpad, ["lp"])
  , (KeyMissionCtrl, ["mctl"])
+ , (KeySpotlight, ["spot"])
+ , (KeyDictation, ["dict"])
 #endif
  ]