Commit 8c9a4231 authored by Dave Cooper's avatar Dave Cooper

added tasty:*suppress-10163-messages?*, defaults to t

parent 7dc698bc
......@@ -40,7 +40,9 @@
(defun one-line (string)
(glisp:replace-regexp (glisp:replace-regexp string (format nil "~%") " ") "'" "\\'" ))
(defparameter *suppress-%%-messages?* t)
(defparameter *suppress-%%-messages?* t "Boolean. Set to nil if you want to see messages starting and ending with %% in tasty inspector. Defaults to t.")
(defparameter *suppress-$$-messages?* t "Boolean. Set to nil if you want to see messages starting with $$ in tasty inspector. Defaults to t.")
;;
;; FLAG -- replace with abstract associative map
......@@ -95,16 +97,19 @@
(remove-if
#'(lambda (keyword)
(or (member keyword *internal-keywords*)
(and *suppress-$$-messages?*
(let ((string (string keyword)))
(and
(> (length string) 2) (string-equal (subseq string 0 2) "$$"))))
(and *suppress-%%-messages?*
(let ((string (string keyword)))
(and
(> (length string) 2)
(or (string-equal (subseq string 0 2) "$$")
(and (eql (aref string 0) #\%)
(or (eql (aref string 1) #\%)
(eql
(aref string (1- (length string)))
#\%)))))))))
(and (eql (aref string 0) #\%)
(or (eql (aref string 1) #\%)
(eql
(aref string (1- (length string)))
#\%))))))))
(set-difference (the :node (:message-list))
(append (the
:node
......
......@@ -24,5 +24,6 @@
(gwl:define-package :tasty
(:documentation #.(glisp:system-description :tasty))
(:export #:assembly #:viewport #:inspector #:status-object #:menu-section #:*use-bsplines-for-vrml?*))
(:export #:assembly #:viewport #:inspector #:status-object #:menu-section #:*use-bsplines-for-vrml?*
#:*suppress-%%-messages?* #:*suppress-$$-messages?*))
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