Cleaned

StumpWM.org

@@ -1,10 +1,11 @@
 #+TITLE: StumpWM Configuration
-#+PROPERTY: header-args:lisp :tangle ~/Dotfiles/.config/stumpwm/config :mkdirp yes
+#+PROPERTY: :tangle ~/Dotfiles/.config/stumpwm/config :mkdirp yes
 
 In my quest to make my computer a Lisp machine in its own right, I am using StumpWM as my window manager.
 
 * Init
 #+begin_src lisp
+;;; -*-  mode: lisp; -*-
 (in-package :stumpwm)
 ;; (defvar *sbcl-path* "~/.guix-home/profile/share/common-lisp/sbcl/")
 
@@ -29,24 +30,30 @@ In my quest to make my computer a Lisp machine in its own right, I am using Stum
 
 ** Set Prefix
 #+begin_src lisp
-;; (set-prefix-key (kbd "s-d"))
+(set-prefix-key (kbd "s-ESC"))
 #+end_src
 
 ** Focus window with mouth
 #+begin_src lisp
-;; (setf *mouse-focus-policy* :click)
+(setf *mouse-focus-policy* :click)
 #+end_src
 
 ** Messages
 #+begin_src lisp
-(setq *message-window-gravity* :top)
-(setq *message-window-padding* 10)
-: (setq *message-window-y-padding 10)
+(setf *message-window-gravity* :center
+      *input-window-gravity* :center
+      *window-border-style* :thin
+      *message-window-padding* 3
+      *maxsize-border-width* 2
+      *normal-border-width* 2
+      *transient-border-width* 2
+      stumpwm::*float-window-border* 1
+      stumpwm::*float-window-title-height* 1)
 #+end_src
 
 ** Command Window
 #+begin_src lisp
-;; (setq *input-window-gravity* :center)
+(setq *input-window-gravity* :center)
 #+end_src
 * Keyboard
 ** Load Keyboard Layout Module
@@ -55,7 +62,7 @@ In my quest to make my computer a Lisp machine in its own right, I am using Stum
 #+end_src
 ** Remap Caps Lock
 #+begin_src lisp :tangle yes
-  ;; (setf kbd-layouts:*caps-lock-behavior* :esc)
+;; (setf kbd-layouts:*caps-lock-behavior* :esc)
 #+end_src
 ** Xmodmap
 #+begin_src lisp
@@ -80,7 +87,6 @@ In my quest to make my computer a Lisp machine in its own right, I am using Stum
 (define-key *top-map* (kbd "s-Q") "delete")
 (define-key *top-map* (kbd "s-SPC") "run-shell-command emacsclient -e \"(call-interactively #'app-launcher-run-app)\"")
 (define-key *top-map* (kbd "s-L") "run-shell-command slock")
-(define-key *top-map* (kbd "s-RET") "run-shell-command alacritty")
 (define-key *top-map* (kbd "s-E") "run-shell-command emacs")
 (define-key *top-map* (kbd "s-W") "run-shell-command firefox")
 
@@ -111,10 +117,21 @@ In my quest to make my computer a Lisp machine in its own right, I am using Stum
 ** Colors
 #+begin_src lisp
 ;; Set UI colors
-(set-border-color "#c792ea")
-(set-bg-color "#232635")
-(set-fg-color "#A6Accd")
-;; (set-msg-border-width 2)
+(setf *colors*
+      '("#000000"   ;black
+        "#BF6262"   ;red
+        "#a1bf78"   ;green
+        "#dbb774"   ;yellow
+        "#7D8FA3"   ;blue
+        "#ff99ff"   ;magenta
+        "#53cdbd"   ;cyan
+        "#b7bec9")) ;white
+
+(setf *default-bg-color* "#e699cc")
+
+(update-color-map (current-screen))
+
+(setf *window-format* "%m%s%50t")
 #+end_src
 ** Gaps
 #+begin_src lisp
@@ -135,16 +152,9 @@ In my quest to make my computer a Lisp machine in its own right, I am using Stum
 #+end_src
 ** Mode-Line
 #+begin_src lisp
-  ;; ;; Set mode line colors
-  ;; (setf *mode-line-background-color* "#232635")
-  ;; (setf *mode-line-foreground-color* "#A6Accd")
-
-  ;; ;; Set the mode line format
-  ;; (setf *screen-mode-line-format* "[^B%n^b] %W ^>%d")
-  ;; (run-commands "mode-line" "mode-line")
-
-  ;; ;; Start the mode line
-  ;; (run-commands "mode-line")
+(setf *mode-line-background-color* (car *colors*)
+      *mode-line-foreground-color* (car (last *colors*))
+      *mode-line-timeout* 1)
 #+end_src
 
 ** System tray
@@ -156,7 +166,7 @@ In my quest to make my computer a Lisp machine in its own right, I am using Stum
 
 * Applications
 #+begin_src lisp 
-(run-shell-command "feh --bg-scale ~/.dotfiles/backgrounds/samuel-ferrara-uOi3lg8fGl4-unsplash.jpg")
+;; (run-shell-command "feh --bg-scale ~/.dotfiles/backgrounds/samuel-ferrara-uOi3lg8fGl4-unsplash.jpg")
 ;; (run-shell-command "dunst")
 ;; (run-shell-command "nm-applet")
 ;; (run-shell-command "syncthing-gtk --minimized")
@@ -166,8 +176,8 @@ In my quest to make my computer a Lisp machine in its own right, I am using Stum
 
 * Repl Start
 #+begin_src lisp 
-(require :slynk)
-(slynk:create-server :dont-close t)
+;; (require :slynk)
+;; (slynk:create-server :dont-close t)
 #+end_src
 
 * Reference