Title : My Stumpwm config on OpenBSD
Author: Solène
Date  : 06 June 2016
Tags  : window-manager lisp

I want to talk about _stumpwm_, a window manager written in Common
LISP. I think one must at least like emacs to like stumpwm. Stumpwm is
a tiling window manager one which you create "panes" on the screen
like windows on Emacs. A single pane takes 100% of the screen, then
you can split it into 2 panes vertically or horizontally and resize
it, and you can split again and again. **There is no "automatic"
tiling**. By default, if you have ONE pane, you will only have ONE
window displayed, this is a bit different that others tiling wm I had
tried. Also, virtual desktops are named groups, nothing special here,
you can create/delete groups and rename it. Finally, stumpwm **is not

To install it, you need to get the sources of stumpwm, install a
common lisp interpreter (sbcl, clisp, ecl etc...), install quicklisp
(which is not in packages), install the quicklisp packages cl-ppcre
and clx and then you can compile stumpwm, that will produce a huge
binary which embedded a common lisp interpreter (that's a way to share
common lisp executables, the interpreter can create an executable from
itself and include the files you want to execute). I would like to
make a package for OpenBSD but packaging quicklisp and its packages
seems too difficult for me at the moment.

Here is my config file in ~/.stumpwmrc.

**Updated: 23th january 2018**

    (defun chomp(text) (subseq text 0 (- (length text) 1)))
    (defmacro cmd(command) `(progn `(:eval (chomp (stumpwm:run-shell-command ,,command t)))))
    (defun get-latence()
      (let ((now (get-universal-time)))
        (when (> (- now *latence-last-update* ) 30)
          (setf *latence-last-update* now)
          (when (probe-file "/tmp/latenceresult")
            (with-open-file (x "/tmp/latenceresult"
                               :direction :input)
              (setf *latence* (read-line x))))))
    (defvar *latence-last-update* (get-universal-time))
    (defvar *latence* "nil")
    (set-module-dir "~/dev/stumpwm-contrib/")
    (stumpwm:run-shell-command "setxkbmap fr")
    (stumpwm:run-shell-command "feh --bg-fill red_damask-wallpaper-1920x1080.jpg")
    (defvar color1 "#886666")
    (defvar color2 "#222222")
     stumpwm:*mode-line-background-color* color2 
     stumpwm:*mode-line-foreground-color* color1
     stumpwm:*mode-line-border-color* "#555555"
     stumpwm:*screen-mode-line-format* (list "%g | %v ^>^7 %B | " '(:eval (get-latence)) "ms %d    ")
     stumpwm:*mode-line-border-width* 1
     stumpwm:*mode-line-pad-x* 6
     stumpwm:*mode-line-pad-y* 1
     stumpwm:*mode-line-timeout* 5
     stumpwm:*mouse-focus-policy* :click
     ;;stumpwm:*group-format* "%n·%t
     stumpwm:*group-format* "%n"
     stumpwm:*time-modeline-string* "%H:%M"
     stumpwm:*window-format* "^b^(:fg \"#7799AA\")<%25t>"
     stumpwm:*window-border-style* :tight
     stumpwm:*normal-border-width* 1
    (stumpwm:set-focus-color "#7799CC")
    (stumpwm:grename "Alpha")
    (stumpwm:gnewbg "Beta")
    (stumpwm:gnewbg "Tau")
    (stumpwm:gnewbg "Pi")
    (stumpwm:gnewbg "Zeta")
    (stumpwm:gnewbg "Teta")
    (stumpwm:gnewbg "Phi")
    (stumpwm:gnewbg "Rho")
    (stumpwm:toggle-mode-line (stumpwm:current-screen) (stumpwm:current-head))
    (set-prefix-key (kbd "M-a"))
    (define-key *root-map* (kbd "c")            "exec urxvtc")
    (define-key *root-map* (kbd "RET")          "move-window down")
    (define-key *root-map* (kbd "z")            "fullscreen")
    (define-key *top-map* (kbd "M-&")           "gselect 1")
    (define-key *top-map* (kbd "M-eacute")      "gselect 2")
    (define-key *top-map* (kbd "M-\"")          "gselect 3")
    (define-key *top-map* (kbd "M-quoteright")  "gselect 4")
    (define-key *top-map* (kbd "M-(")           "gselect 5")
    (define-key *top-map* (kbd "M--")           "gselect 6")
    (define-key *top-map* (kbd "M-egrave")      "gselect 7")
    (define-key *top-map* (kbd "M-underscore")  "gselect 8")
    (define-key *top-map* (kbd "s-l")           "exec slock")
    (define-key *top-map* (kbd "s-t")           "exec urxvtc")
    (define-key *top-map* (kbd "M-S-RET")       "exec urxvtc")
    (define-key *top-map* (kbd "M-C")           "exec urxvtc")
    (define-key *top-map* (kbd "s-s")           "exec /home/solene/dev/screen_up.sh")
    (define-key *top-map* (kbd "s-Left")        "gprev")
    (define-key *top-map* (kbd "s-Right")       "gnext")
    (define-key *top-map* (kbd "M-ISO_Left_Tab")"other")
    (define-key *top-map* (kbd "M-TAB")         "fnext")
    (define-key *top-map* (kbd "M-twosuperior") "next-in-frame")
    (load-module "battery-portable")
    (load-module "stumptray")

I use a function to get latency from a script that is started every 20
seconds to display the network latency or nil if I don't have internet

I use rxvt-unicode daemon (urxvtd) as a terminal emulator, so the
terminal command is urxvtc (for client), it's lighter and faster to

I also use a weird "alt+tab" combination:

- Alt+tab switch between panes 
- Alt+² (the key above tab) circles windows in the current pane 
- Alt+Shift+Tab switch to the previous windows selected 

[StumpWM website](https://stumpwm.github.io/)