[climacs-cvs] CVS update: climacs/base.lisp climacs/gui.lisp climacs/packages.lisp

[Matthieu Villeneuve]

Update of /project/climacs/cvsroot/climacs
In directory common-lisp.net:/tmp/cvs-serv17711

Modified Files:
	base.lisp gui.lisp packages.lisp 
Log Message:
Added delete-indentation
Date: Sun Jan 16 21:05:00 2005
Author: mvilleneuve

Index: climacs/base.lisp
diff -u climacs/base.lisp:1.17 climacs/base.lisp:1.18
--- climacs/base.lisp:1.17	Sat Jan 15 18:39:23 2005
+++ climacs/base.lisp	Sun Jan 16 21:04:59 2005
@@ -348,6 +348,21 @@
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;; 
+;;; Delete indentation
+
+(defun delete-indentation (mark)
+  (beginning-of-line mark)
+  (unless (beginning-of-buffer-p mark)
+    (loop until (end-of-buffer-p mark)
+          until (constituentp (object-after mark))
+          do (delete-range mark 1))
+    (loop until (beginning-of-buffer-p mark)
+          until (constituentp (object-before mark))
+          do (delete-range mark -1))
+    (insert-object mark #\Space)))
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; 
 ;;; Named objects
 
 (defgeneric name (obj))


Index: climacs/gui.lisp
diff -u climacs/gui.lisp:1.71 climacs/gui.lisp:1.72
--- climacs/gui.lisp:1.71	Sat Jan 15 22:35:53 2005
+++ climacs/gui.lisp	Sun Jan 16 21:04:59 2005
@@ -407,6 +407,9 @@
     (multiple-value-bind (start end) (region-limits pane)
       (untabify-region start end (tab-space-count (stream-default-view pane))))))
 
+(define-named-command com-delete-indentation ()
+  (delete-indentation (point (win *application-frame*))))
+
 (define-named-command com-toggle-layout ()
   (setf (frame-current-layout *application-frame*)
 	(if (eq (frame-current-layout *application-frame*) 'default)


Index: climacs/packages.lisp
diff -u climacs/packages.lisp:1.33 climacs/packages.lisp:1.34
--- climacs/packages.lisp:1.33	Sat Jan 15 22:35:53 2005
+++ climacs/packages.lisp	Sun Jan 16 21:04:59 2005
@@ -56,6 +56,7 @@
            #:upcase-region #:downcase-region #:capitalize-region
            #:upcase-word #:downcase-word #:capitalize-word
            #:tabify-region #:untabify-region
+           #:delete-indentation
 	   #:input-from-stream #:output-to-stream
 	   #:name-mixin #:name
 	   #:buffer-lookin-at #:looking-at