x11 fixesmain

2 files changed, 17 insertions, 17 deletions

diff --git a/lib/wm/jao-exwm.el b/lib/wm/jao-exwm.el
index 7027df4..27ddeb0 100644
--- a/lib/wm/jao-exwm.el
+++ b/lib/wm/jao-exwm.el
@@ -211,17 +211,17 @@
       (switch-to-buffer b)
       (exwm-input--fake-key ?y)
       (exwm-input--fake-key ?y)
-      (prog1 (current-kill 1)
+      (prog1 (message "%s" (current-kill 1))
         (switch-to-buffer cb)))))
 
 (defun jao-exwm-firefox-search (query)
   (interactive "sQuery: ")
   (jao-exwm-firefox)
-  (sit-for 0.5)
+  (sit-for 0.2)
   (exwm-input--fake-key ?s)
   (dolist (k (string-to-list query))
     (exwm-input--fake-key k))
-  (sit-for 0.5)
+  (sit-for 0.2)
   (exwm-input--fake-key ?\r))
 
 (provide 'jao-exwm)
diff --git a/lib/wm/jao-x11.el b/lib/wm/jao-x11.el
index 16566d8..788bfe6 100644
--- a/lib/wm/jao-x11.el
+++ b/lib/wm/jao-x11.el
@@ -23,53 +23,53 @@
 (jao-shell-def-exec jao-bright-set-up "brightnessctl" "-q" "s" "5%+")
 (jao-shell-def-exec jao-bright-set-down "brightnessctl" "-q" "s" "5%-")
 
-(defun jao-brightness ()
+(defun jao-x11-brightness ()
   (string-trim (or (cadr (jao-shell-cmd-lines "brightnessctl")) "(Unknown)")))
 
 ;;;###autoload
-(defun jao-bright-show ()
+(defun jao-x11-bright-show ()
   (interactive)
-  (message "%s" (jao-brightness)))
+  (message "%s" (jao-x11-brightness)))
 
 ;;;###autoload
-(defun jao-bright-up ()
+(defun jao-x11-bright-up ()
   (interactive)
   (jao-shell-exec "brightnessctl -q s 5%%+" t)
-  (jao-bright-show))
+  (jao-x11-bright-show))
 
 ;;;###autoload
-(defun jao-bright-down ()
+(defun jao-x11-bright-down ()
   (interactive)
   (jao-shell-exec "brightnessctl -q s 5%%-" t)
-  (jao-bright-show))
+  (jao-x11-bright-show))
 
 ;;; Keyboard
 ;;;###autoload
-(defun jao-kb-layout ()
+(defun jao-x11-kb-layout ()
   (string-trim
    (shell-command-to-string
     "setxkbmap -query | grep 'layout:' | awk '{print $2}'")))
 
 ;;;###autoload
-(defun jao-kb-set (lyt &optional intl)
+(defun jao-x11-kb-set (lyt &optional intl)
   (interactive "sLayout: ")
   (let ((intl (if intl " -variant intl" "")))
     (shell-command-to-string (format "setxkbmap %s%s" lyt intl))))
 
 ;;;###autoload
-(defun jao-kb-toggled-p ()
+(defun jao-x11-kb-toggled-p ()
   (not (string-empty-p
         (shell-command-to-string "setxkbmap -query|grep variant"))))
 
 ;;;###autoload
-(defun jao-kb-toggle ()
+(defun jao-x11-kb-toggle ()
   (interactive)
-  (jao-kb-set (jao-kb-layout) (not (jao-kb-toggled-p))))
+  (jao-x11-kb-set (jao-x11-kb-layout) (not (jao-x11-kb-toggled-p))))
 
 ;;;###autoload
-(defun jao-kb-disable-laptop ()
+(defun jao-x11-kb-disable-laptop ()
   (interactive)
   (jao-shell-exec "xinput float 13"))
 
-(provide 'jao-x11-kbd)
+(provide 'jao-x11)
 ;;; jao-x11.el ends here