# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1699639247 18000
# Node ID b649bb0dda87fd7cef0e7eb623499dca34ce9df1
# Parent  91fbe5a6b16497f6c7a92020c0fa5ff9ce328072
More.

diff -r 91fbe5a6b164 -r b649bb0dda87 stumpwmrc
--- 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"))