[Linedit-cvs] CVS update: src/matcher.lisp src/linedit.asd src/smart-terminal.lisp src/utility-functions.lisp src/version.lisp-expr

[Nikodemus Siivola]

Update of /project/linedit/cvsroot/src
In directory common-lisp.net:/tmp/cvs-serv29810

Modified Files:
	linedit.asd smart-terminal.lisp utility-functions.lisp 
	version.lisp-expr 
Added Files:
	matcher.lisp 
Log Message:
Preliminary support for paren-matching.
Date: Sun Nov  9 07:28:03 2003
Author: nsiivola



Index: src/linedit.asd
diff -u src/linedit.asd:1.21 src/linedit.asd:1.22
--- src/linedit.asd:1.21	Thu Oct 23 11:07:08 2003
+++ src/linedit.asd	Sun Nov  9 07:28:03 2003
@@ -55,13 +55,14 @@
    (:file "packages")
    (:file "utility-macros" :depends-on ("packages"))
    (:file "utility-functions" :depends-on ("packages"))
+   (:file "matcher" :depends-on ("packages"))
 
    ;; Backend
    (:file "backend" :depends-on ("utility-macros"))
    (:c-source-file "terminal_glue")
    (:file "terminal-translations" :depends-on ("packages"))
    (:file "terminal" :depends-on ("terminal-translations" "backend" "terminal_glue"))
-   (:file "smart-terminal" :depends-on ("terminal"))
+   (:file "smart-terminal" :depends-on ("terminal" "matcher"))
    (:file "dumb-terminal" :depends-on ("terminal"))
 
    ;; Editor


Index: src/smart-terminal.lisp
diff -u src/smart-terminal.lisp:1.7 src/smart-terminal.lisp:1.8
--- src/smart-terminal.lisp:1.7	Thu Nov  6 09:33:39 2003
+++ src/smart-terminal.lisp	Sun Nov  9 07:28:03 2003
@@ -39,7 +39,10 @@
 
 (defmethod display ((backend smart-terminal) prompt line point)
   (let ((*terminal-io* *standard-output*)
-	(columns (backend-columns backend)))
+	(columns (backend-columns backend))
+	(line (dwim-mark-parens line point 
+				:pre-mark ti:enter-bold-mode
+				:post-mark ti:exit-attribute-mode)))
     (flet ((find-row (n)
 	     ;; 1+ includes point in row calculations
 	     (ceiling (1+ n) columns))


Index: src/utility-functions.lisp
diff -u src/utility-functions.lisp:1.3 src/utility-functions.lisp:1.4
--- src/utility-functions.lisp:1.3	Thu Oct 23 11:07:08 2003
+++ src/utility-functions.lisp	Sun Nov  9 07:28:03 2003
@@ -37,4 +37,3 @@
 
 (defun make-whitespace (n)
   (make-string n :initial-element #\space))
-


Index: src/version.lisp-expr
diff -u src/version.lisp-expr:1.3 src/version.lisp-expr:1.4
--- src/version.lisp-expr:1.3	Thu Nov  6 09:33:39 2003
+++ src/version.lisp-expr	Sun Nov  9 07:28:03 2003
@@ -1 +1 @@
-0.14.8
+0.15.0