b649bb0dda87

More.
[view raw] [browse files]
author Steve Losh <steve@stevelosh.com>
date Fri, 10 Nov 2023 13:00:47 -0500
parents 91fbe5a6b164
children b09db0d33e13
branches/tags (none)
files stumpwmrc

Changes

--- a/stumpwmrc	Thu Nov 09 12:24:16 2023 -0500
+++ b/stumpwmrc	Fri Nov 10 13:00:47 2023 -0500
@@ -663,6 +663,13 @@
   (isk-u-Æ "M-H" "AE"))
 
 
+(defcommand thinkpad-ret () ()
+  (send-key (kbd "RET")))
+
+(defcommand thinkpad-bs () ()
+  (send-key (kbd "BackSpace")))
+
+
 ;;;; Key Mapping --------------------------------------------------------------
 ;;; Conventions:
 ;;;
@@ -779,6 +786,11 @@
   ("H-BackSpace" "remove")
   ("S-H-BackSpace" "kill-and-remove"))
 
+(define-top-keys ;; broken thinkpad keys
+  ("s-m" "thinkpad-ret")
+  ("s-Delete" "thinkpad-bs"))
+
+
 (define-top-keys ;; naming
   ("H-'" "title"))