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))