From 73eebb8af4f74261ec587d14828e0ec507ba34b2 Mon Sep 17 00:00:00 2001
From: jao <jao@gnu.org>
Date: Fri, 12 Sep 2025 20:00:22 +0100
Subject: silly kb scripts

---
 init.el | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'init.el')

diff --git a/init.el b/init.el
index ca13ba3..05ce647 100644
--- a/init.el
+++ b/init.el
@@ -196,6 +196,14 @@
                                    "setxkbmap us"
                                  "setxkbmap us -variant intl"))))
 
+(defun jao-set-uk-kb (&optional lyt)
+  (interactive)
+  (jao-kb-toggle "setxkbmap gb"))
+
+(defun jao-kb-disable-laptop ()
+  (interactive)
+  (jao-shell-exec "xinput float 13"))
+
 (defun jao-kb-toggled-p ()
   (not (string-empty-p
         (shell-command-to-string "setxkbmap -query|grep variant"))))
-- 
cgit v1.2.3