silly kb scripts

1 files changed, 8 insertions, 0 deletions

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"))))