# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1532442540 0
# Node ID 5b0dc8a1103fa03af471d86046989212fc9610a2
# Parent  269a03071afd37fa10932df326c9168a8b659a46
Clean up

diff -r 269a03071afd -r 5b0dc8a1103f bash_profile
--- a/bash_profile	Tue Jul 24 04:26:04 2018 +0000
+++ b/bash_profile	Tue Jul 24 14:29:00 2018 +0000
@@ -15,7 +15,7 @@
     fi
 }
 
-export PATH=~/bin:~/src/dotfiles/bin:~/src/dotfiles/roswell:/usr/local/share/python:/usr/local/bin/:$PATH
+export PATH=~/bin:~/src/dotfiles/bin:~/src/dotfiles/lisp/binaries:/usr/local/share/python:/usr/local/bin/:$PATH
 
 alias h='hg'
 alias g='git'
diff -r 269a03071afd -r 5b0dc8a1103f stumpwmrc
--- a/stumpwmrc	Tue Jul 24 04:26:04 2018 +0000
+++ b/stumpwmrc	Tue Jul 24 14:29:00 2018 +0000
@@ -3,6 +3,7 @@
 (ql:quickload '(:losh :split-sequence :alexandria) :silent t)
 (use-package :losh)
 
+
 ;;;; Config -------------------------------------------------------------------
 (set-prefix-key (kbd "C-space"))
 
@@ -80,8 +81,7 @@
 
 ;;;; Regroup ------------------------------------------------------------------
 (defparameter *class-groups*
-  '(("zoom" . "zoom")
-    ("jetbrains-idea-ce" . "ij"))
+  '(("jetbrains-idea-ce" . "ij"))
   "An alist of window classes to be regrouped and their targets")
 
 (defun regroup (win)
@@ -293,6 +293,10 @@
      ;; interest of not having a random collection of bookmarks grow over time,
      ;; I'll just add a mapping to compensate for my stupid brain.
      ("C-d" . "C-w")
+     ;; todo debug why this breaks a really fast C-a-k roll
+     ;; ("C-a" . "Home")
+     ;; ("C-e" . "End")
+     ("s-a" . "C-a")
      ("s-t" . "C-t")
      ("s-w" . "C-w")
      ("s-z" . "C-z")
@@ -318,18 +322,24 @@
     "%a %b %e %H:%M"
 
     *screen-mode-line-format*
-    (append (list
-              "[^B%n^b] %W^>"
-              ;; "(V "
-              ;; ;; '(:eval (volume))
-              ;; ")"
-              " ")
-            (hostcase
-              (:bitdumpster '("(B "
-                              (:eval (battery))
-                              ")")))
-            (list
-              " %d %T")))
+    (append
+      (list "[^B%n^b] %W^>")
+
+      #+todo-some-day (list ;; "(V "
+                            ;; ;; '(:eval (volume))
+                            ;; ")"
+                            " ")
+
+      (hostcase
+        (:bitdumpster '("(B "
+                        (:eval (princ-to-string (battery)))
+                        ")"
+                        " (BR "
+                        (:eval (princ-to-string (brightness)))
+                        "%)")))
+
+      ;; time and tray
+      (list " %d %T")))
 
   (setf *mode-line-timeout* 10)
   (setf *mode-line-background-color* "#111111")