[slime-cvs] CVS slime/contrib

[CVS User sboukarev]

Update of /project/slime/cvsroot/slime/contrib
In directory cl-net:/tmp/cvs-serv18174/contrib

Modified Files:
	ChangeLog slime-asdf.el swank-asdf.lisp 
Log Message:
* contrib/slime-asdf.el (slime-open-system): Open files in another window.
* contrib/swank-asdf.lisp (asdf-system-files): Put file with the same name as
a system at the first place.


--- /project/slime/cvsroot/slime/contrib/ChangeLog	2009/10/21 14:32:57	1.260
+++ /project/slime/cvsroot/slime/contrib/ChangeLog	2009/10/21 19:38:49	1.261
@@ -2,6 +2,10 @@
 
 	* slime-asdf.el (slime-browse-system): Open the parent directory of
 	an .asd file, not just files defined in it.
+	(slime-open-system): Open files in another window.
+
+	* swank-asdf.lisp (asdf-system-files): Put file with the same name as
+	a system at the first place.
 
 2009-10-21  Stas Boukarev  <stassats at gmail.com>
 
--- /project/slime/cvsroot/slime/contrib/slime-asdf.el	2009/10/21 14:32:57	1.11
+++ /project/slime/cvsroot/slime/contrib/slime-asdf.el	2009/10/21 19:38:49	1.12
@@ -78,7 +78,11 @@
     (slime-load-system name))
   (slime-eval-async
    `(swank:asdf-system-files ,name)
-   (lambda (files) (mapc 'find-file files))))
+   (lambda (files)
+     (when files
+       (let ((files (nreverse files)))
+         (find-file-other-window (car files))
+         (mapc 'find-file (cdr files)))))))
 
 (defun slime-browse-system (name)
   "Browse files in an ASDF system using Dired."
--- /project/slime/cvsroot/slime/contrib/swank-asdf.lisp	2009/10/21 13:26:36	1.9
+++ /project/slime/cvsroot/slime/contrib/swank-asdf.lisp	2009/10/21 19:38:49	1.10
@@ -74,8 +74,14 @@
           (asdf:module-components module)))
 
 (defslimefun asdf-system-files (system)
-  (mapcar #'namestring
-          (asdf-module-files (asdf:find-system system))))
+  (let* ((files (mapcar #'namestring
+                        (asdf-module-files (asdf:find-system system))))
+         (main-file (find system files
+                          :test #'string-equal
+                          :key #'pathname-name)))
+    (if main-file
+        (cons main-file (remove main-file files :test #'equalp))
+        files)))
 
 (defslimefun asdf-system-loaded-p (system)
   (gethash 'asdf:load-op