[movitz-cvs] CVS movitz/ide

[ffjeld]

Update of /project/movitz/cvsroot/movitz/ide
In directory clnet:/tmp/cvs-serv20281

Modified Files:
	movitz-slime.el 
Log Message:
Some more tweaks. Do movitz-auto-mode-setup by default.


--- /project/movitz/cvsroot/movitz/ide/movitz-slime.el	2007/03/03 18:34:58	1.3
+++ /project/movitz/cvsroot/movitz/ide/movitz-slime.el	2007/03/07 20:53:12	1.4
@@ -72,6 +72,8 @@
               (when (string-match ".*/movitz/losp/.*\\.lisp$" (buffer-file-name))
                 (movitz-mode 1)))))
 
+(movitz-auto-mode-setup)
+
 
 ;;;; Commands
 
@@ -85,9 +87,11 @@
     (when (and buffer (buffer-modified-p buffer))
       (when (y-or-n-p (format "Save file %s? " filename))
         (with-current-buffer buffer (save-buffer)))))
-  (message "Compiling..")
-  (slime-eval-async `(movitz.ide:compile-movitz-file ,filename)
-                    (lambda (_) (message "Compilation finished."))))
+  (lexical-let ((filename filename))
+    (message "Movitz compiling '%s'.." filename)
+    (slime-eval-async `(movitz.ide:compile-movitz-file ,filename)
+                      (lambda (_)
+                        (message "Movitz compiling '%s'..done." filename)))))
 
 (defun movitz-compile-defun ()
   "Compile the defun at point as Movitz code."
@@ -205,6 +209,7 @@
                         (message "Dumping '%s'..done, starting quemu." filename)
                         (call-process "c:/progra~1/qemu/qemu"
                                       nil 0 nil
+                                      "-s"
                                       "-L" "c:/progra~1/qemu"
                                       "-fda" filename
                                       "-boot" "a")))))