diff --git a/bin/xmonad.hs b/bin/xmonad.hs
index 6fe8244..42eb8cb 100644
--- a/bin/xmonad.hs
+++ b/bin/xmonad.hs
@@ -498,6 +498,7 @@ mkKeys ts c =
   -- M-<F1> reserved for showing the keymap
   , ("M-<F2>", "restart xmonad", runCleanup ts >> runRestart)
   , ("M-<F3>", "recompile xmonad", runRecompile)
+  , ("M-<F8>", "select autorandr profile", runAutorandrMenu)
   , ("M-<F9>", "toggle ethernet", runToggleEthernet)
   , ("M-<F10>", "toggle bluetooth", runToggleBluetooth)
   , ("M-<F11>", "toggle screensaver", runToggleDPMS)
diff --git a/lib/XMonad/Internal/Command/DMenu.hs b/lib/XMonad/Internal/Command/DMenu.hs
index a288ddc..3738e49 100644
--- a/lib/XMonad/Internal/Command/DMenu.hs
+++ b/lib/XMonad/Internal/Command/DMenu.hs
@@ -10,6 +10,7 @@ module XMonad.Internal.Command.DMenu
   , runDevMenu
   , runBwMenu
   , runShowKeys
+  , runAutorandrMenu
   ) where
 
 import           Control.Monad.Reader
@@ -84,3 +85,6 @@ runWinMenu = spawnDmenuCmd ["-show", "window"]
 
 runNetMenu :: X ()
 runNetMenu = spawnCmd "networkmanager_dmenu" $ themeArgs "#ff3333"
+
+runAutorandrMenu :: X ()
+runAutorandrMenu = spawnCmd "rofi-autorandr" $ themeArgs "#ff0066"