(in-package :cl-user)

(eval-when (:compile-toplevel :load-toplevel :execute)
  (load "~/quicklisp/setup.lisp"))

(eval-when (:compile-toplevel :load-toplevel :execute)
 (defun library-translation (input dd)
   (declare (ignore dd))
   (merge-pathnames
     (make-pathname :directory
                    (list* :relative
                           "lisp-dylibs"
                           (cdr
                             (pathname-directory
                               (parse-namestring
                                 input))))
                    :defaults input)
     (user-homedir-pathname)))

 (defun is-library ()
   (make-pathname :directory (list :absolute :wild-inferiors)
                  :name :wild
                  :type "so"
                  :version :wild))

 (asdf:initialize-output-translations
   `(:output-translations
      :inherit-configuration
      (,(is-library) (:function library-translation)))))

(eval-when (:compile-toplevel :load-toplevel :execute)
  (ql:quickload :xembed)
  (ql:quickload :stumpwm)
  (ql:quickload :serapeum)
  (ql:quickload :clim-debugger)
  (ql:quickload :mpd-remote)
  (ql:quickload :ubiquitous) 
  (ql:quickload :swank)
  (let ((*features* (cons :devtime *features*)))
    (compile-file "commands")  
    (load "commands")  
    (compile-file "~/.stumpwmrc")  
    (load "~/.stumpwmrc"))

  (gc :full t))

(defun toplevel ()
  (let ((*debugger-hook* #'clim-debugger:debugger))
    (stumpwm:stumpwm)))

(save-lisp-and-die (truename "~/bin/stumpwm")
                   :executable t
                   :toplevel #'toplevel
                   :root-structures '(stumpwm:stumpwm)
                   :compression t)