diff options
Diffstat (limited to 'emacs/inits/00-exwm.el')
| -rw-r--r-- | emacs/inits/00-exwm.el | 54 |
1 files changed, 30 insertions, 24 deletions
diff --git a/emacs/inits/00-exwm.el b/emacs/inits/00-exwm.el index 2b19e6a..c05c2dd 100644 --- a/emacs/inits/00-exwm.el +++ b/emacs/inits/00-exwm.el @@ -1,4 +1,4 @@ -;; Time-stamp: <2019-11-02 20:29:06 (tslil@basingstoke)> +;; Time-stamp: <2020-03-24 10:11:51 (tslil@bison)> (defun adjust-volume (mixer adjust) (let ((tail " | tail -n 1") @@ -16,7 +16,7 @@ (defun banish-rat () (interactive) - (shell-command "xdotool mousemove 1366 768") + (shell-command "xdotool mousemove 1280 800") (message "Rat banished.")) (use-package exwm @@ -50,6 +50,22 @@ ;;([?\C-k] . [S-end delete]) )) + ;; IME + (defvar exwm-workman-intl t) + (defun exwm-toggle-intl-ime () + (interactive) + (let ((result (call-process-shell-command + (concat "setxkbmap -layout us -variant workman" + (if exwm-workman-intl "-intl" "") + " -option terminate:ctrl_alt_bksp -option ctrl:nocaps")))) + (if (not (= 0 result)) + (message "Unable to switch keyboard layouts.") + (message (concat (if exwm-workman-intl "INTERNATIONAL" "STANDARD") " layout selected.")) + (setq exwm-workman-intl (not exwm-workman-intl))))) + + (exwm-input-set-key (kbd "s-i") 'exwm-toggle-intl-ime) + + ;; reset (exwm-input-set-key (kbd "s-r") 'exwm-reset) @@ -80,7 +96,6 @@ (exwm-input-set-key (kbd "s-o") 'exwm-last-buffer) (exwm-input-set-key (kbd "s-\\") 'exwm-last-workspace) - (exwm-input-set-key (kbd "s-b") 'banish-rat) ;; run command @@ -89,54 +104,45 @@ (start-process "" nil "st"))) (exwm-input-set-key (kbd "s-q") (lambda () (interactive) - (start-process "" nil "firefox-esr"))) + (start-process "" nil "iceweasel"))) (exwm-input-set-key (kbd "s-<f2>") (lambda () (interactive) (start-process "" nil "lock"))) (exwm-input-set-key (kbd "s-p") (lambda (command) (interactive (list (read-shell-command "$ "))) (start-process-shell-command command nil command))) + ;; Volume - (exwm-input-set-key (kbd "s-<f10>") + (exwm-input-set-key (kbd "<XF86AudioRaiseVolume>") (lambda () (interactive) - (adjust-volume "Speaker" "+"))) + (adjust-volume "Master" "+"))) - (exwm-input-set-key (kbd "s-<f9>") + (exwm-input-set-key (kbd "<XF86AudioLowerVolume>") (lambda () (interactive) - (adjust-volume "Speaker" "-"))) + (adjust-volume "Master" "-"))) - (exwm-input-set-key (kbd "s-<f8>") + (exwm-input-set-key (kbd "<XF86Launch1>") (lambda () (interactive) - (adjust-volume "Speaker" "toggle"))) + (adjust-volume "Master" "toggle"))) - (exwm-input-set-key (kbd "C-s-<f10>") + (exwm-input-set-key (kbd "S-<XF86AudioRaiseVolume>") (lambda () (interactive) (adjust-volume "Headphone" "+"))) - (exwm-input-set-key (kbd "C-s-<f9>") + (exwm-input-set-key (kbd "S-<XF86AudioLowerVolume>") (lambda () (interactive) (adjust-volume "Headphone" "-"))) - (exwm-input-set-key (kbd "C-s-<f8>") + (exwm-input-set-key (kbd "S-<XF86Launch1>") (lambda () (interactive) (adjust-volume "Headphone" "toggle"))) - (exwm-input-set-key (kbd "s-<f7>") (lambda () - (interactive) - (shell-command "$HOME/bin/backlight_up.sh") - (message "Backlight up."))) - - (exwm-input-set-key (kbd "s-<f6>") (lambda () - (interactive) - (shell-command "$HOME/bin/backlight_down.sh") - (message "Backlight down."))) - ;; ------------------------------------------------------------------- ;; RandR @@ -144,7 +150,7 @@ (exwm-randr-enable) (setq exwm-randr-workspace-monitor-plist - '(1 "HDMI-1" 0 "eDP-1")) + '(1 "LVDS1" 0 "VGA1")) (exwm-enable)) |