[STUMP] patch: Get interactive commands in fdump.lisp working

[Istvan Marko]

The following should fix the dump-group, dump-screen and dump-desktop
commands. Also, PRIN1 instead of PRINC should be used to make the dump
file suitable for READ.


diff --git a/fdump.lisp b/fdump.lisp
index 6b16041..019eb06 100644
--- a/fdump.lisp
+++ b/fdump.lisp
@@ -77,7 +77,7 @@
     (with-standard-io-syntax
       (let ((*package* (find-package :stumpwm))
             (*print-pretty* t))
-        (princ foo fp)))))
+        (prin1 foo fp)))))
 
 (define-stumpwm-command "dump-group" ((file :rest "Dump To File: "))
   "Dumps the frames of the current group of the current screen to the named 
file."
@@ -86,12 +86,12 @@
 
 (define-stumpwm-command "dump-screen" ((file :rest "Dump To File: "))
   "Dumps the frames of all groups of the current screen to the named file"
-  (dump-to-file (dump-all-groups-in-screen (current-screen)) file)
+  (dump-to-file (dump-screen (current-screen)) file)
   (message "Screen dumped"))
 
 (define-stumpwm-command "dump-desktop" ((file :rest "Dump To File: "))
   "Dumps the frames of all groups of all screens to the named file"
-  (dump-to-file (dump-all-screens) file)
+  (dump-to-file (dump-desktop) file)
   (message "Desktop dumped"))
 
 
@@ -165,7 +165,7 @@
 
 (defun restore-desktop (ddump)
   "Restore all frames, all groups, and all screens."
-  (dolist (sdump (ddump-screens))
+  (dolist (sdump (ddump-screens ddump))
     (let ((screen (find (sdump-number sdump) *screen-list* 
                        :key 'screen-id :test '=)))
       (when screen


-- 
        Istvan