Changeset af94f3d in dotfiles for wm/.stumpwmrc

Timestamp:

Oct 16, 2022, 8:04:17 PM (2 years ago)

Author:

w96k <w96k@…>

Branches:

master

Children:

8217b6f

Parents:

15969f5

Message:

Edit stumpwm config

File:

• wm/.stumpwmrc (modified) (3 diffs)

wm/.stumpwmrc

@@ -3 +3 @@
 (in-package :stumpwm)
 
+(run-shell-command "xfce4-panel")
+
 (setq *startup-message* "Welcome to your lovely LISP-machine")
-(set-prefix-key (kbd "C-t"))
-
-;; (require "ttf-fonts")
-;; (setf xft:*font-dirs* '("/run/current-system/profile/share/fonts/"))
-;; (setf
-;;  clx-truetype:+font-cache-filename+
-;;  (concat (getenv "HOME") "/.fonts/font-cache.sexp"))
-;; (xft:cache-fonts)
-;; (set-font (make-instance 'xft:font :family "Fira Sans"
-;;                       :subfamily "Regular" :size 10.5))
-
-;; Not available in guix yet
-;;(require "battery-portable")
-
-(require "cpu")
-(require "mem")
-
-;; Most of this settings are stumpwm defaults
-(setf *mode-line-pad-x* 0
-      *mode-line-pad-y* 0
-      *mouse-focus-policy* :click
-      *window-border-style* :thin
-      *message-window-gravity* :center
-      *normal-border-width* 0
-      *mode-line-border-width* 0
-      
-      *transient-border-width* 0
-      *mode-line-position* :top
-      *time-modeline-string* "%d.%m.%y %k:%M"
-      *window-format* "%m%n%s%t "
-      *hidden-window-color* ""
-      *cpu-modeline-fmt* "%C"
-      *mode-line-background-color* "#f2f2f2"
-      *startup-mode-line* t
-
-      ;; Fix long windows names
-      *window-name-source* :class
-
-      ;; Delimiter in mode-line
-      *delim* " ^7|^0 "
-
-      ;; Mode-line customization
-      *screen-mode-line-format*
-      (list
-       ;; Windows
-       "^07%v^>^0"
-       ;; CPU
-       "%C" *delim*
-       ;; RAM
-       "%M" *delim*
-       ;; Battery
-       "%B" *delim*
-       ;; Date
-       "%d"
-       ))
+(set-prefix-key (kbd "C-TAB"))
 
 (set-normal-gravity :top)
-(set-win-bg-color "#f2f2f2")
 
 (defcommand icecat () ()
@@ -105 +52 @@
 
 ;; Gaps: useless concept to be honest
-;; (load-module "swm-gaps")
+(load-module "swm-gaps")
 ;; (setf swm-gaps:*inner-gaps-size* 0)
 ;; (setf swm-gaps:*outer-gaps-size* 2)
@@ -111 +58 @@
 
 ;; Show / Hide mode-line
-(define-key *root-map* (kbd "M") "mode-line")
+;; (define-key *root-map* (kbd "M") "mode-line")
 
 ;; Old fix for scrolling gtk issue