[climacs-cvs] CVS update: climacs/text-syntax.lisp climacs/climacs.asd climacs/gui.lisp climacs/packages.lisp

[Robert Strandh]

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

Modified Files:
	climacs.asd gui.lisp packages.lisp 
Added Files:
	text-syntax.lisp 
Log Message:
First attempt at a syntax for ordinary text.


Date: Fri Jan 14 14:07:40 2005
Author: rstrandh



Index: climacs/climacs.asd
diff -u climacs/climacs.asd:1.9 climacs/climacs.asd:1.10
--- climacs/climacs.asd:1.9	Tue Jan  4 00:55:16 2005
+++ climacs/climacs.asd	Fri Jan 14 14:07:39 2005
@@ -56,6 +56,7 @@
    "io"
    "abbrev"
    "syntax"
+   "text-syntax"
    "kill-ring"
    "gui")
 


Index: climacs/gui.lisp
diff -u climacs/gui.lisp:1.66 climacs/gui.lisp:1.67
--- climacs/gui.lisp:1.66	Thu Jan 13 20:36:28 2005
+++ climacs/gui.lisp	Fri Jan 14 14:07:39 2005
@@ -600,9 +600,13 @@
 	    (offset point) (offset mark))))
 
 (define-named-command com-set-syntax ()
-  (setf (syntax (win *application-frame*))
-	(make-instance (accept 'syntax :prompt "Set Syntax")
-	   :pane (win *application-frame*))))
+  (let* ((pane (win *application-frame*))
+	 (buffer (buffer pane)))
+    (setf (syntax (win *application-frame*))
+	  (make-instance (accept 'syntax :prompt "Set Syntax")
+	     :pane pane))
+    (setf (offset (low-mark buffer)) 0
+	  (offset (high-mark buffer)) (size buffer))))
 
 ;;;;;;;;;;;;;;;;;;;;
 ;; Kill ring commands


Index: climacs/packages.lisp
diff -u climacs/packages.lisp:1.29 climacs/packages.lisp:1.30
--- climacs/packages.lisp:1.29	Thu Jan 13 17:52:14 2005
+++ climacs/packages.lisp	Fri Jan 14 14:07:39 2005
@@ -68,7 +68,8 @@
 
 (defpackage :climacs-syntax
   (:use :clim-lisp :clim :climacs-buffer :climacs-base :flexichain)
-  (:export #:syntax #:basic-syntax #:texinfo-syntax
+  (:export #:syntax #:define-syntax
+	   #:basic-syntax #:texinfo-syntax
 	   #:redisplay-pane #:redisplay-with-syntax #:full-redisplay
 	   #:page-down #:page-up
 	   #:url))