b3887bda7531

Remap keys before I lose my god damned mind
[view raw] [browse files]
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