34 lines
770 B
Common Lisp
34 lines
770 B
Common Lisp
#-quicklisp
|
|
(let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp"
|
|
(user-homedir-pathname))))
|
|
(when (probe-file quicklisp-init)
|
|
(load quicklisp-init)))
|
|
|
|
(in-package :stumpwm)
|
|
|
|
;; add ~/.stumpwm-contrib as effectively and additional *module-dir*
|
|
(mapcar #'add-to-load-path (build-load-path
|
|
(concat (getenv "HOME") "/.stumpwm-contrib")))
|
|
|
|
;;--- Log ---
|
|
|
|
;; log everything to ~/.stumpwm.d/stumpwm.log
|
|
(redirect-all-output (merge-pathnames *data-dir* "stumpwm.log"))
|
|
|
|
;;--------- Autostart --------
|
|
|
|
(load "~/.stumpwm.d/autostart.lisp")
|
|
|
|
;;----- Binds -----
|
|
|
|
(load "~/.stumpwm.d/binds.lisp")
|
|
|
|
;;----- Theme -----
|
|
|
|
(load "~/.stumpwm.d/Daybreak.lisp")
|
|
|
|
;;------ Groups ------
|
|
|
|
(load "~/.stumpwm.d/groups.lisp")
|
|
|