summaryrefslogtreecommitdiffhomepage
path: root/lib/wm
diff options
context:
space:
mode:
Diffstat (limited to 'lib/wm')
-rw-r--r--lib/wm/jao-exwm.el6
-rw-r--r--lib/wm/jao-x11.el28
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