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