Commit 3de1cb33 authored by Robert Strandh's avatar Robert Strandh

Minor fixes

parent eecf6625
......@@ -112,6 +112,8 @@
(defclass word (html-element) ())
(defclass delimiter (html-element) ())
(defclass html-lexer (incremental-lexer) ())
(defmethod next-lexeme ((lexer html-lexer) scan)
(flet ((fo () (forward-object scan)))
(let ((object (object-after scan)))
......@@ -127,8 +129,6 @@
(t
(fo) (make-instance 'delimiter))))))))
(defclass html-lexer (incremental-lexer) ())
(define-syntax html-syntax ("HTML" (basic-syntax))
((lexer :reader lexer)
(valid-parse :initform 1)
......
......@@ -105,6 +105,7 @@
#:parse-stack-next #:parse-stack-symbol
#:parse-stack-parse-trees #:map-over-parse-trees
#:syntax-line-indentation
#:redisplay-pane-with-syntax
#:beginning-of-paragraph #:end-of-paragraph))
(defpackage :climacs-cl-syntax
......@@ -141,7 +142,6 @@
#:query-replace-state #:string1 #:string2
#:query-replace-mode
#:with-undo
#:redisplay-pane-with-syntax
#:url))
(defpackage :climacs-html-syntax
......
......@@ -477,8 +477,6 @@
(+ cursor-x 2) (+ cursor-y (* 0.8 height))
:ink cursor-ink)))))
(defgeneric redisplay-pane-with-syntax (pane syntax current-p))
(defmethod redisplay-pane-with-syntax ((pane climacs-pane) (syntax basic-syntax) current-p)
(display-cache pane (if current-p +red+ +blue+)))
......
......@@ -456,3 +456,10 @@ internal state of the parser. Do not alter it!"
(return-from map-over-parse-trees nil))
(incomplete-items state))
(funcall function (state-contains-target-p state))))))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;
;;; Display
(defgeneric redisplay-pane-with-syntax (pane syntax current-p))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment