(sb-ext:disable-debugger)
(setf asdf:*central-registry* (list (car asdf:*central-registry*)))

(asdf:operate 'asdf:load-op :clx)
(load "/opt/steeldump/src/eclipse/system.lisp")
(asdf:operate 'asdf:load-op :eclipse)
(defparameter eclipse:*eclipse-eclipsedir* nil)
(defparameter eclipse:*eclipse-initfile* ".eclipse")

(defmethod sb-heapdump:dump-system
    ((c (eql (asdf:find-system :eclipse))))
  (sb-heapdump:dump-packages
   '(;; "COOLCLEAN-ECLIPSE-THEME" "BRUSHED-METAL-ECLIPSE-THEME"
     ;; "STEP-ECLIPSE-THEME" "MICROGUI-ECLIPSE-THEME"
     "NO-DECORATION-ECLIPSE-THEME" "ECLIPSE-EXTENSIONS" "ECLIPSE-INTERNALS"
     "PROGRAMMED-TASKS" "KEYBOARD" "CLX-EXTENSIONS" "GNOME"
     "EXTENDED-WINDOW-MANAGER-HINTS" "MANAGER-COMMONS" "PPM" "SM-LIB"
     "ICE-LIB")
   "eclipse.heap"
   :initializer (lambda (foo)
		  (load "/opt/steeldump/src/eclipse/lib/clx-ext/clx-patch.fasl")
		  foo)
   :if-exists :rename-and-delete
   :systems '(:sm-lib :eclipse-lisp :clx-ext :eclipse-lib :eclipse :ice-lib)
   :system-packages '("ECLIPSE-SYSTEM" "SM-LIB-SYSTEM" "ICE-LIB-SYSTEM")))

(let ((*default-pathname-defaults*
       (truename (sb-ext:posix-getenv "SBCL_HOME"))))
  (sb-heapdump:dump-system :eclipse))

(eclipse-system:compile-themes
 "/opt/steeldump/src/eclipse/themes/microGUI/"
 "/opt/steeldump/src/eclipse/themes/Step/"
 "/opt/steeldump/src/eclipse/themes/brushed-metal/"
 "/opt/steeldump/src/eclipse/themes/CoolClean/")

(sb-ext:quit)