Recently Written · git

stumpwm-init

I use dwm now. Archived.

git clone https://github.com/equwal/stumpwm-init

Log | Files | Refs


commit 1db6602ff50dc42b1583c5668d38dc3934098911
Spenser Truex <web@spensertruex.com>
2020-03-07 16:24:19 -0800

To deskop

 config.lisp      | 2 ++
 finalize.lisp    | 3 +--
 keybindings.lisp | 2 +-
 3 files changed, 4 insertions(+), 3 deletions(-)
diff --git a/config.lisp b/config.lisp
index 07c3f90..30c667d 100644
--- a/config.lisp
+++ b/config.lisp
@@ -19,6 +19,8 @@
 (setf *mode-line-border-color* "#028090")
 (setf *mode-line-background-color* "#191919")
 (setf *mode-line-foreground-color* "#98BDFB")
+
+(setf battery-portable:*prefer-sysfs* t)
 (setf *screen-mode-line-format*
       (list "[^B%n^b] %W^>" "%B | %d"))
 (setf *window-format* "%m%n%s%c")
diff --git a/finalize.lisp b/finalize.lisp
index f0510c5..5e5152f 100644
--- a/finalize.lisp
+++ b/finalize.lisp
@@ -5,5 +5,4 @@
 ;; start the polling timer process
 (start-clipboard-manager)
 
-(toggle-mode-line (current-screen)
-                  (current-head))
+(toggle-mode-line (current-screen) (current-head))
diff --git a/keybindings.lisp b/keybindings.lisp
index 81ee16e..567220c 100644
--- a/keybindings.lisp
+++ b/keybindings.lisp
@@ -2,7 +2,7 @@
 
 (define-key *top-map* (kbd "M-`") "show-menu")
 
-(set-prefix-key (kbd "C-i"))
+(set-prefix-key (kbd "C-t"))
 (define-key *root-map* (kbd "c") "xterm")
 (define-key *root-map* (kbd "C-c") "xterm")
 (define-key *root-map* (kbd "E") "emacs")