59 lines
1.3 KiB
Common Lisp
59 lines
1.3 KiB
Common Lisp
#-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 "xsetroot -cursor_name left_ptr")
|
|
(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")
|
|
(load-module "beckon")
|
|
|
|
(setf *startup-message* "StumpWM is ready!")
|