My temporary StumpWM config until it becomes a literary config.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
This repo is archived. You can view files and clone it, but cannot push or open issues/pull-requests.
 

57 lines
1.2 KiB

#-quicklisp
(let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp"
(user-homedir-pathname))))
(when (probe-file quicklisp-init)
(load quicklisp-init)))
;;; init
(in-package :stumpwm)
(setf *default-package* :stumpwm)
;; (set-module-dir (concatenate 'string (getenv "HOME") "/.stumpwm.d/modules"))
(set-module-dir "/usr/share/stumpwm/contrib/util/")
;; startup
(setf *startup-message* nil)
(run-shell-command "autostart")
;;; load window placement rules
(load "~/.stumpwm.d/placement.lisp")
;;; load keybindings
(load "~/.stumpwm.d/keybindings.lisp")
;;; load theme
(load "~/.stumpwm.d/theme.lisp")
;; configs
(setf *mouse-focus-policy* :click
*float-window-modifier* :META)
;;; end session module
(load-module "end-session")
;;; global windows list module
(load-module "globalwindows")
;;; Modeline
(load "~/.stumpwm.d/modeline.lisp")
(when *initializing*
(mode-line))
(load-module "swm-ssh")
(setq swm-ssh:*swm-ssh-default-term* "kitty")
;;; alert module
(load-module "alert-me")
;;; menu for stumpwm
(load-module "app-menu")
(setq app-menu:*app-menu*
'("Emacs" "emacs"))
;;; globalwindow
(load-module "globalwindows")
(setf *startup-message* "StumpWM is ready!")