diff options
Diffstat (limited to 'setup.lisp')
-rw-r--r-- | setup.lisp | 18 |
1 files changed, 4 insertions, 14 deletions
@@ -1,33 +1,23 @@ (in-package :stumpwm) +(setf *module-dir* "~/.stumpwm.d/modules/") +(init-load-path *module-dir*) + #-quicklisp (let ((quicklisp-init (merge-pathnames "quicklisp/setup.lisp" (user-homedir-pathname)))) (when (probe-file quicklisp-init) (load quicklisp-init))) -(ql:quickload :alexandria) (ql:quickload :bordeaux-threads) (ql:quickload :str) (ql:quickload :clx-truetype) -(ql:quickload :stumpwm-prescient) (ql:quickload :xembed) (ql:quickload :slynk) -(defun install-from-git (repo &key (forge "https://github.com")) - (declare (type string repo)) - (let* ((qldir "~/quicklisp/local-projects") - (target-dir - (format nil "~a/~a" - qldir - (second (str:split #\/ repo))))) - (unless (uiop:directory-exists-p target-dir) - (uiop:chdir qldir) - (uiop:run-program (format nil "git clone ~a/~a" (string-trim "/" forge) repo))))) - -(install-from-git "landakram/stumpwm-prescient") (load-module "app-menu") (load-module "end-session") (load-module "pass") (load-module "stump-volume-control") (load-module "ttf-fonts") +(load-module "stumptray") |