Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
gendl
gendl
Commits
8c9a4231
Commit
8c9a4231
authored
Mar 03, 2016
by
Dave Cooper
Browse files
added tasty:*suppress-10163-messages?*, defaults to t
parent
7dc698bc
Changes
2
Show whitespace changes
Inline
Side-by-side
apps/tasty/source/inspector.lisp
View file @
8c9a4231
...
@@ -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
...
...
apps/tasty/source/package.lisp
View file @
8c9a4231
...
@@ -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?*
))
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment