added battery announce, updated sbcl, etc

milomouse · Jun 23, 2011 · 8e65e85 · 8e65e85
1 parent cff04d4
commit 8e65e85
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 3 deletions.
diff --git a/.stumpwmrc b/.stumpwmrc
@@ -2,13 +2,13 @@
 ;; ${XDG_CONFIG_DIR:-/howl/conf}/.stumpwmrc                                 ;;
 ;;--------------------------------------------------------------------------;;
 ;; author: milomouse <vincent[at]fea.st>                                    ;;
-;; update: 2011-06-02 11:53:19                                              ;;
+;; update: 2011-06-21 23:01:09                                              ;;
 ;;--------------------------------------------------------------------------;;
 ;; versions used atoc:                                                      ;;
-;; |  sbcl              -> 1.0.46-1                                         ;;
+;; |  sbcl              -> 1.0.49-1                                         ;;
 ;; |  clx               -> 0.7.4-1                                          ;;
 ;; |  cl-ppcre          -> 2.0.3-1                                          ;;
-;; |  stumpwm-git       -> 20110308-1                                       ;;
+;; |  stumpwm-git       -> 20110617-1                                       ;;
 ;;-TODO/CHANGELOG:----------------------------------------------------------;;
 ;; >>>-: create a 'dedicate' and 'catchall' window-rule (remember * *)      ;;
 ;; >>--: create a 'dedicate' and 'catchall' hook for changing focus color   ;;

diff --git a/stumpwm/commands.lisp b/stumpwm/commands.lisp
@@ -357,6 +357,7 @@ current frame into 2 frames, one on top of the other." (remember-group) (split-f
 (defcommand echo-wlan () () "" (echo-string (current-screen) (run-shell-command "iwconfig wlan0" t)))
 (defcommand echo-free-hdd () () "" (echo-string (current-screen) (run-shell-command "di -x debugfs,tmpfs -d h -Af SMTufI" t)))
 (defcommand echo-free-mem () () "" (echo-string (current-screen) (run-shell-command "print '^B^6/free^1* used^5* base^n';free -m|awk 'NR==2 {print $4,$3,$2}'" t)))
+(defcommand echo-battery () () "" (echo-string (current-screen) (run-shell-command "acpi -tf;repeat 36; do printf '='; done;print;ibam --percentbattery" t)))
 (defcommand echo-loadavg () () "" (echo-string (current-screen) (run-shell-command "print ${$(</proc/loadavg)[1,3]}" t)))
 (defcommand echo-colors-brief () () "Output a brief list of currently defined colors." (echo-string (current-screen) (eval "
 BOLD ^B^0*black ^1*red ^2*green ^3*yellow ^4*blue ^5*magenta ^6*cyan ^7*white ^8*user ^9*user^n

diff --git a/stumpwm/key-maps.lisp b/stumpwm/key-maps.lisp
@@ -64,6 +64,7 @@
 (defvar *echo-map*
   (let ((m (make-sparse-keymap)))
     (labels ((dk (m k c) (define-key m k c)))
+    (dk m (kbd "b")   "echo-battery")
     (dk m (kbd "c")   "echo-colors-brief")
     (dk m (kbd "d")   "echo-date")
     (dk m (kbd "f")   "echo-free-mem")