.stumpwmrc

;; -*- mode: Lisp -*-
;; The line above tells Emacs to use Lisp mode for this file.

;; This is the user configuration file for StumpVM.

;;
;; Swank
;;

;; Swank listening on port 4004
(require :swank)
(swank-loader:init)
(swank:create-server :port 4004
                     :style swank:*communication-style*
                     :dont-close t)
;;
;; Stump WM
;;
(in-package :stumpwm)

;; Show messages in the center of the screen.
(setf *message-window-gravity* :center)

;; Show input box in the center of the screen
(setf *input-window-gravity* :center)

;; Show messages for 10 seconds
(setf *timeout-wait* 10)

;; Quit stumpwm using the C-t q or C-t M-q key chord.
(define-key *root-map* (kbd "M-q") "quit")
(define-key *root-map* (kbd "q") "quit")

;; Disable startup message
(setq *startup-message* nil)

;; It would be good if we had some way of reloading the init file.
;; Kind of like eval-buffer in Emacs.

;;
;; Xorg
;;

;; Set the cursor for the root window to be the left pointer
(stumpwm:run-shell-command "xsetroot -cursor_name left_ptr")

;; Set CapsLock to act as Ctrl
;; setxkbmap -option "ctrl:nocaps"
(stumpwm:run-shell-command "setxkbmap -option ctrl:nocaps")

;; Set desktop background
(stumpwm:run-shell-command "feh --bg-scale ~/wallpapers/path_redwood_forest.jpg")

;;
;; Mode line
;;

;; Always show the mode line.
(unless (head-mode-line (current-head))
  (toggle-mode-line (current-screen) (current-head)))

;;
;; Applications
;;

;; Firefox
(defcommand firefox () ()
  (run-or-raise  "firefox" '(:class "Firefox")))

(define-key *root-map* (kbd "f") "firefox")

;; Google Chrome
(defcommand chrome () ()
  (run-or-raise "google-chrome" '(:class "Google-chrome")))

(define-key *root-map* (kbd "g") "chrome")

;; Terminal
(defcommand terminal () ()
  (run-or-raise "xterm" '(:class "XTerm")))

(define-key *root-map* (kbd "t") "terminal")

;;
;; Modules
;;

;; The following contains information about how to use modules.
;; https://stumpwm.github.io/git/stumpwm-git_15.html

;;
;; Keyboard
;;

(load-module "kbd-layouts")

(in-package :kbd-layouts)

;; Use US or Swedish keyboard layout.
;; To switch keyboard layout use the S-SPC key chord.
(keyboard-layout-list "us" "se")

;; Map the CapsLock key to Ctrl
(setf *caps-lock-behavior* :ctrl)

;;
;; Tray
;;

;; (load-module "stumptray")