diff options
author | Jan Moringen <jmoringe@techfak.uni-bielefeld.de> | 2022-05-29 13:57:47 +0200 |
---|---|---|
committer | Jan Moringen <jmoringe@techfak.uni-bielefeld.de> | 2022-05-29 15:23:56 +0200 |
commit | 73bbf5ee7d555d4719d003abaef5c762a6e6079c (patch) | |
tree | 3ab801e473083e3c3abd6dfdab783cbbd92bb1ea /Apps | |
parent | 6e1db4c04c0e38d7ac032275fee815ed85f9f630 (diff) |
clouseau: for empty documentation, display note instead of confusing output
Diffstat (limited to 'Apps')
-rw-r--r-- | Apps/Clouseau/src/objects/documentation.lisp | 15 |
1 files changed, 11 insertions, 4 deletions
diff --git a/Apps/Clouseau/src/objects/documentation.lisp b/Apps/Clouseau/src/objects/documentation.lisp index c51d21f9..353b9e18 100644 --- a/Apps/Clouseau/src/objects/documentation.lisp +++ b/Apps/Clouseau/src/objects/documentation.lisp @@ -2,7 +2,7 @@ ;;; License: LGPL-2.1+ (See file 'Copyright' for details). ;;; --------------------------------------------------------------------------- ;;; -;;; (c) copyright 2018-2020 Jan Moringen <jmoringe@techfak.uni-bielefeld.de> +;;; (c) copyright 2018-2022 Jan Moringen <jmoringe@techfak.uni-bielefeld.de> ;;; ;;; --------------------------------------------------------------------------- ;;; @@ -85,7 +85,14 @@ (with-preserved-cursor-x (stream) (surrounding-output-with-border (stream :shape :rectangle :padding 2 - :background +beige+ - :outline-ink +light-goldenrod+ + :background (if (emptyp clean) + +pink+ + +beige+) + :outline-ink (if (emptyp clean) + +dark-red+ + +light-goldenrod+) :filled t) - (write-string clean stream)))))) + (if (emptyp clean) + (with-style (stream :note) + (write-string "Documentation is an empty string" stream)) + (write-string clean stream))))))) |