From e1c95b07b6f9774d457dfd00b73c323a3482cffb Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Jens=20Axel=20S=C3=B8gaard?= Date: Mon, 4 Mar 2024 23:12:26 +0100 Subject: [PATCH] Use phantom{-} in (up a b), where only one of a and b have a minus sign and the lengths are similar --- racket-cas/format.rkt | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/racket-cas/format.rkt b/racket-cas/format.rkt index 6a1ed95..a8c794f 100644 --- a/racket-cas/format.rkt +++ b/racket-cas/format.rkt @@ -107,11 +107,16 @@ (parameterize ([output-wrapper values]) (define x (verbose~ u)) (define y (verbose~ v)) + (when (and (= (string-length x) (+ (string-length y) 1)) + (eqv? (string-ref x 0) #\-)) + (set! y (~a "\\phantom{-}" y))) + (when (and (= (string-length y) (+ (string-length x) 1)) + (eqv? (string-ref y 0) #\-)) + (set! x (~a "\\phantom{-}" x))) (if (output-brackets-for-up?) (~a "\\begin{bmatrix} " x "\\\\" y "\\end{bmatrix}") (~a "\\begin{pmatrix} " x "\\\\" y "\\end{pmatrix}")))) - ;;; Intervals (define (default-output-interval u) (define v~ verbose~)