Use quicklisp to load stumptray

This commit is contained in:
Tom Willemse 2015-04-20 00:51:20 +02:00
parent b771f25f65
commit 1b74abb05c

View file

@ -310,9 +310,10 @@ Run `*lock-screen-hook*' before locking it and run
(concatenate 'string (sb-ext:posix-getenv "HOME")
"/.stumpwm.d/desktop.lisp"))
(ignore-errors (load-module "stumptray"))
(load "~/.local/share/quicklisp/local-projects/stumpwm/contrib/util/stumptray/stumptray.lisp")
(stumptray::stumptray)
;; (ignore-errors (load-module "stumptray"))
;; (load "~/.local/share/quicklisp/local-projects/stumpwm/contrib/util/stumptray/stumptray.lisp")
(ql:quickload "stumptray")
(stumptray:stumptray)
(ql:quickload "swank")
(swank:create-server :dont-close t)