mirrors/clog
1
Fork 0
mirror of https://github.com/rabbibotton/clog.git synced 2025-12-06 02:30:42 -08:00
Code Issues Projects Releases Wiki Activity

handle searches of symbols with regex conflicts

Browse source
This commit is contained in:
David Botton 2024-07-08 21:02:07 -04:00
parent e189b51c87
commit 17774657b6
1 changed files with 23 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

36
tools/clog-builder-ace.lisp
View file

@ -184,7 +184,17 @@
(lambda (obj data)
(declare (ignore obj))
(when (current-editor-is-lisp app)
(setf data (ppcre:regex-replace-all "\\" data "\\\\"))
(setf data (ppcre:regex-replace-all "\\*" data "\\*"))
(setf data (ppcre:regex-replace-all "\\(" data "\\("))
(setf data (ppcre:regex-replace-all "\\)" data "\\)"))
(setf data (ppcre:regex-replace-all "\\[" data "\\["))
(setf data (ppcre:regex-replace-all "\\]" data "\\]"))
(setf data (ppcre:regex-replace-all "\\^" data "\\^"))
(setf data (ppcre:regex-replace-all "\\$" data "\\$"))
(setf data (ppcre:regex-replace-all "\\%" data "\\%"))
(on-file-search editor :search data))))
;; system browse symbol
(js-execute editor
(format nil
"~A.commands.addCommand({
@ -200,7 +210,6 @@
(jquery editor)))
(set-on-event-with-data editor "clog-eval-form"
(lambda (obj data)
(declare (ignore obj))
(let ((p (parse-integer data :junk-allowed t))
(tv (text-value editor))
(pk "CLOG-USER")
@ -307,21 +316,22 @@ var endRange = ~:*~A.session.doc.indexToPosition(endIndex);
(unless (equal s "")
(with-input-from-string (i s)
(ignore-errors
(let* ((pac (if (or (eq (current-editor-is-lisp app) t)
(eq (current-editor-is-lisp app) nil))
"CLOG-USER"
(string-upcase (current-editor-is-lisp app))))
(let* (;(pac (if (or (eq (current-editor-is-lisp app) t)
; (eq (current-editor-is-lisp app) nil))
; "CLOG-USER"
(pac (string-upcase (or (current-editor-is-lisp app)
package)))
(m (read i))
(*PACKAGE* (find-package pac))
(SWANK::*buffer-package* (find-package pac))
(SWANK::*buffer-readtable* *readtable*)
;(*PACKAGE* (find-package pac))
;(SWANK::*buffer-package* (find-package pac))
;(SWANK::*buffer-readtable* *readtable*)
(ms (format nil "~A" m))
r)
(ignore-errors
(setf r (swank::autodoc `(,ms swank::%CURSOR-MARKER%))))
(if r
(setf r (car r))
(setf r (swank:operator-arglist ms package)))
;(ignore-errors
;(setf r (swank::autodoc `(,ms swank::%CURSOR-MARKER%))))
;(if r
;(setf r (car r))
(setf r (swank:operator-arglist ms pac)) ;)
(when status
(setf (advisory-title status) (documentation (find-symbol ms) 'function)))
(when r