From ca72d74538ebafbb2ac53c0c4d05089a5cb591ce Mon Sep 17 00:00:00 2001
From: Amin Bandali <bandali@gnu.org>
Date: Tue, 27 Dec 2022 09:08:04 -0500
Subject: Run EXWM on langa too

---
 .config/langa.profile         | 11 -----------
 .emacs.d/init.el              |  2 +-
 .emacs.d/lisp/bandali-exwm.el |  4 ++--
 .local/bin/langa/startup      | 12 ++++++++++++
 4 files changed, 15 insertions(+), 14 deletions(-)
 create mode 100644 .local/bin/langa/startup

diff --git a/.config/langa.profile b/.config/langa.profile
index 632e2a8..43c6bb9 100644
--- a/.config/langa.profile
+++ b/.config/langa.profile
@@ -1,14 +1,3 @@
 # -*- mode: sh; sh-shell: sh -*-
 
 # export XDG_DATA_DIRS="/usr/share/mate:/usr/local/share/:/usr/share/"
-
-if [ $DISPLAY ]; then
-    if [ -x "$(command -v xinput)" ]; then
-        xinput set-prop 'TPPS/2 IBM TrackPoint' 'libinput Accel Speed' -0.4
-    fi
-    setxkbmap \
-        -layout us,ir \
-        -option ctrl:nocaps \
-        -option grp:shifts_toggle
-    xmodmap -e "keysym Menu = Super_R"
-fi
diff --git a/.emacs.d/init.el b/.emacs.d/init.el
index 7f6ef96..310dfde 100644
--- a/.emacs.d/init.el
+++ b/.emacs.d/init.el
@@ -496,7 +496,7 @@ for all frames."
      (display-graphic-p)
      ;; we're not running in another WM/DE
      (not (getenv "XDG_CURRENT_DESKTOP"))
-     (member (system-name) '("chaman")))
+     (member (system-name) '("chaman" "langa")))
   (require 'bandali-exwm)
   (global-set-key (kbd "C-x b") #'exwm-workspace-switch-to-buffer))
 
diff --git a/.emacs.d/lisp/bandali-exwm.el b/.emacs.d/lisp/bandali-exwm.el
index dca5d70..463ebbf 100644
--- a/.emacs.d/lisp/bandali-exwm.el
+++ b/.emacs.d/lisp/bandali-exwm.el
@@ -228,8 +228,8 @@ around if needed."
       (start-process "" nil "light" "-A" "5")))
    ([XF86ScreenSaver] .
     (lambda ()
-	  (interactive)
-	  (start-process "" nil "dm-tool" "lock")))
+      (interactive)
+      (start-process "" nil "dm-tool" "lock")))
    ([\s-XF86Back] . previous-buffer)
    ([\s-XF86Forward] . next-buffer)))
 
diff --git a/.local/bin/langa/startup b/.local/bin/langa/startup
new file mode 100644
index 0000000..376bd64
--- /dev/null
+++ b/.local/bin/langa/startup
@@ -0,0 +1,12 @@
+# -*- mode: sh; sh-shell: sh -*-
+
+if [ $DISPLAY ]; then
+    if [ -x "$(command -v xinput)" ]; then
+        xinput set-prop 'TPPS/2 IBM TrackPoint' 'libinput Accel Speed' -0.4
+    fi
+    setxkbmap \
+        -layout us,ir \
+        -option ctrl:nocaps \
+        -option grp:shifts_toggle
+    xmodmap -e "keysym Menu = Super_R"
+fi
-- 
cgit v1.2.3-60-g2f50