From 131eae8d53e8bf41023e11da7382294f187ea41d Mon Sep 17 00:00:00 2001
From: tslil clingman <>
Date: Tue, 24 Mar 2020 10:19:15 -0700
Subject: Changes from bison

---
 emacs/inits/00-exwm.el | 54 ++++++++++++++++++++++++++++----------------------
 1 file changed, 30 insertions(+), 24 deletions(-)

(limited to 'emacs/inits/00-exwm.el')

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))
 
-- 
cgit v1.2.3