Add back this piece of code otherwise StumpWM won’t work it seems

This commit is contained in:
Lucien Cartier-Tilet 2021-07-29 22:39:05 +02:00
parent 3e3da97ba5
commit ac85f3a3cf
Signed by: phundrak
GPG Key ID: BD7789E705CB8DCA
2 changed files with 6 additions and 1 deletions

View File

@ -1,3 +1,9 @@
#-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)

View File

@ -106,7 +106,6 @@
(define-key *top-map* (kbd "s-a") '*my-applications-keymap*)
(define-key *root-map* (kbd "SPC") "exec kitty")
(define-key *root-map* (kbd "b") "exec firefox")
(define-key *root-map* (kbd "l") "exec plock")
(define-key *root-map* (kbd "r") "reload")
(define-key *root-map* (kbd "w") '*my-frames-management-keymap*)