Re: How to have default "Filenames Pattern" in Search Files in IDE
;; ----------------------------------------------------------
(defvar *remembered-filenames*
(make-hash-table))
(defun remember-filename (key fname)
(setf (gethash key *remembered-filenames*) fname))
(defun remembered-filename (key)
(gethash key *remembered-filenames*))
(defun do-with-remembered-filename (key init prompter fn)
(um:when-let (fname (or init (funcall prompter (remembered-filename key))))
(remember-filename key fname)
(funcall fn fname)))
(defmacro with-remembered-filename ((fname key &optional init) form &body body)
`(do-with-remembered-filename ,key ,init
(lambda (,fname)
(declare (ignorable ,fname))
,form)
(lambda (,fname)
(declare (ignorable ,fname))
,@body)))
#+:LISPWORKS
(editor:setup-indent "with-remembered-filename" 2)
When I open Search Files in the LWW6 IDE, I'd like "Filenames Pattern"
to default to something - either the last path and filter I used or one
that I can specify in a preference.
It looks like there is something related in Preferences..Search
Files..Search Parameters..Pattern, but after entering, for example,
"*.lisp" there, I still have a blank input box in Search Files.
Mitch
_______________________________________________
Lisp Hug - the mailing list for LispWorks users
lisp-hug@lispworks.com
http://www.lispworks.com/support/lisp-hug.html