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

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

parent 7dc698bc
...@@ -40,7 +40,9 @@ ...@@ -40,7 +40,9 @@
(defun one-line (string) (defun one-line (string)
(glisp:replace-regexp (glisp:replace-regexp string (format nil "~%") " ") "'" "\\'" )) (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 ;; FLAG -- replace with abstract associative map
...@@ -95,16 +97,19 @@ ...@@ -95,16 +97,19 @@
(remove-if (remove-if
#'(lambda (keyword) #'(lambda (keyword)
(or (member keyword *internal-keywords*) (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?* (and *suppress-%%-messages?*
(let ((string (string keyword))) (let ((string (string keyword)))
(and (and
(> (length string) 2) (> (length string) 2)
(or (string-equal (subseq string 0 2) "$$") (and (eql (aref string 0) #\%)
(and (eql (aref string 0) #\%) (or (eql (aref string 1) #\%)
(or (eql (aref string 1) #\%) (eql
(eql (aref string (1- (length string)))
(aref string (1- (length string))) #\%))))))))
#\%)))))))))
(set-difference (the :node (:message-list)) (set-difference (the :node (:message-list))
(append (the (append (the
:node :node
......
...@@ -24,5 +24,6 @@ ...@@ -24,5 +24,6 @@
(gwl:define-package :tasty (gwl:define-package :tasty
(:documentation #.(glisp:system-description :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