Remap keys before I lose my god damned mind
author |
Steve Losh <steve@stevelosh.com> |
date |
Sat, 07 Jul 2018 20:27:19 +0000 |
parents |
069ed14df8ff
|
children |
c27fb01fc92f
|
branches/tags |
(none) |
files |
stumpwmrc |
Changes
--- a/stumpwmrc Wed Jul 04 22:09:02 2018 +0000
+++ b/stumpwmrc Sat Jul 07 20:27:19 2018 +0000
@@ -6,10 +6,12 @@
;;;; Config -------------------------------------------------------------------
(set-prefix-key (kbd "C-space"))
+;; (redirect-all-output (data-dir-file "debug" "text"))
(setf *mouse-focus-policy* :click
*message-window-gravity* :center
*input-window-gravity* :center
+ *debug-level* 0
*shell-program* "/bin/bash")
@@ -250,11 +252,30 @@
(define-top-keys ;; stump
("H-F9" "exec systemctl suspend")
("H-F10" "exec keysettings")
- ("Pause" "exec keysettings") ; hack
+ ("Pause" "exec st") ; jesus christ
("H-F11" "toggle-current-mode-line")
("H-F12" "restart-hard"))
+(stumpwm::unbind-remapped-keys)
+(define-remapped-keys
+ '(("st-256color"
+ ("s-c" . "C-C")
+ ("s-v" . "C-V"))
+ ("Firefox"
+ ("s-1" . "C-S-Tab")
+ ("s-2" . "C-Tab")
+ ("s-z" . "C-z")
+ ("s-x" . "C-x")
+ ("s-c" . "C-c")
+ ("s-v" . "C-v"))
+ (""
+ ("s-z" . "C-z")
+ ("s-x" . "C-x")
+ ("s-c" . "C-c")
+ ("s-v" . "C-v"))))
+
+
;;;; Modeline -----------------------------------------------------------------
(defun configure-modeline ()
(setf