sfos/eql5
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

tiny revision of "editor.lisp"

Browse source
This commit is contained in:
polos 2018-08-07 18:30:35 +02:00
parent 36232f6d37
commit dbb1c6085e
1 changed files with 1 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
examples/9-simple-lisp-editor/editor.lisp
View file

@ -56,7 +56,6 @@
(defparameter *file-name* nil)
(defparameter *keep-extra-selections* nil)
(defparameter *latest-eval-position* nil)
(defparameter *try-read-error* nil)
(defconstant +max-shown-completions+ 10)
(defconstant +max-history+ 50)
@ -261,15 +260,10 @@
(! "showMessage" bar msg)))))
(defun read* (str &optional (start 0))
(setf *try-read-error* nil)
(let ((*package* #.(find-package :eql)))
(multiple-value-bind (exp x)
(ignore-errors (read-from-string (substitute +package-char-dummy+ #\: str)
nil nil :start start :preserve-whitespace t))
(unless exp
(setf *try-read-error* (typecase x
(end-of-file :end-of-file)
(t t))))
(values exp x))))
(defun end-position (expr)
@ -915,7 +909,7 @@
(! (if right "previous" "next") text-block ))
(text (! "text" text-block) (! "text" text-block)))
((or (if right (zerop n) (= n max))
(x:empty-string (string-trim '(" ") text))))
(x:empty-string (string-trim " " text))))
(write-line (if right (nreverse text) text) s)))))
(defun left-right-paren (right text-cursor curr-line &optional pos)