Haskell icon in xmobar is now clickable, runs dmenu script 'dm-run'.

This commit is contained in:
Derek Taylor
2022-03-08 13:17:59 -06:00
parent 9f47e0da5e
commit 14b939606f
12 changed files with 18 additions and 12 deletions

View File

@@ -143,6 +143,9 @@ myEditor :: String
myEditor = "emacsclient -c -a 'emacs' " -- Sets emacs as editor
-- myEditor = myTerminal ++ " -e vim " -- Sets vim as editor
myRunCommand :: String
myRunCommand = "dmenu_run -l 20 -g 3 -X 0 -Y 0 -W 680 -p 'Run: '"
myBorderWidth :: Dimension
myBorderWidth = 2 -- Sets border width for windows
@@ -484,7 +487,7 @@ myKeys =
, ("M-/", spawn "dtos-help") -- DTOS help/tutorial videos
-- KB_GROUP Run Prompt
, ("M-S-<Return>", spawn "dmenu_run -i -p \"Run: \"") -- Dmenu
, ("M-S-<Return>", spawn "dm-run") -- Dmenu
-- KB_GROUP Other Dmenu Prompts
-- In Xmonad and many tiling window managers, M-p is the default keybinding to

View File

@@ -99,6 +99,9 @@ myEditor :: String
myEditor = "emacsclient -c -a 'emacs' " -- Sets emacs as editor
-- myEditor = myTerminal ++ " -e vim " -- Sets vim as editor
myRunCommand :: String
myRunCommand = "dmenu_run -l 20 -g 3 -X 0 -Y 0 -W 680 -p 'Run: '"
myBorderWidth :: Dimension
myBorderWidth = 2 -- Sets border width for windows
@@ -368,7 +371,7 @@ myKeys =
, ("M-/", spawn "dtos-help") -- DTOS help/tutorial videos
-- KB_GROUP Run Prompt
, ("M-S-<Return>", spawn "dmenu_run -i -p \"Run: \"") -- Dmenu
, ("M-S-<Return>", spawn "dm-run") -- Dmenu
-- KB_GROUP Other Dmenu Prompts
-- In Xmonad and many tiling window managers, M-p is the default keybinding to