From da80d6c03438e072648f0617ed09fcc041353ec8 Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Mon, 4 Oct 2010 11:38:38 -0400 Subject: [PATCH] allow +,-,(,) in code subscripts and superscripts --- collects/texpict/code.rkt | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/collects/texpict/code.rkt b/collects/texpict/code.rkt index b35ee072db..3db6931c05 100644 --- a/collects/texpict/code.rkt +++ b/collects/texpict/code.rkt @@ -309,26 +309,26 @@ mode 'id (text (substring str 1) `(italic . ,(current-code-font)) (current-font-size)))] [(and (code-scripts-enabled) - (regexp-match #rx"^(.+)_([0-9a-z]+)\\^([0-9a-z]+)$" str)) + (regexp-match #rx"^(.+)_([0-9a-z()+-]+)\\^([0-9a-z()+-]+)$" str)) => (lambda (m) (hbl-append (colorize-id (cadr m) mode) (cc-superimpose (text (caddr m) `(subscript . ,(current-code-font)) (current-font-size)) (text (cadddr m) `(superscript . ,(current-code-font)) (current-font-size)))))] [(and (code-scripts-enabled) - (regexp-match #rx"^(.+)\\^([0-9a-z]+)_([0-9a-z]+)$" str)) + (regexp-match #rx"^(.+)\\^([0-9a-z()+-]+)_([0-9a-z()+-]+)$" str)) => (lambda (m) (hbl-append (colorize-id (cadr m) mode) (cc-superimpose (text (cadddr m) `(subscript . ,(current-code-font)) (current-font-size)) (text (caddr m) `(superscript . ,(current-code-font)) (current-font-size)))))] [(and (code-scripts-enabled) - (regexp-match #rx"^(.+)\\^([0-9a-z]+)$" str)) + (regexp-match #rx"^(.+)\\^([0-9a-z()+-]+)$" str)) => (lambda (m) (hbl-append (colorize-id (cadr m) mode) (text (caddr m) `(superscript . ,(current-code-font)) (current-font-size))))] [(and (code-scripts-enabled) - (regexp-match #rx"^(.+)_([0-9a-z]+)$" str)) + (regexp-match #rx"^(.+)_([0-9a-z()+-]+)$" str)) => (lambda (m) (hbl-append (colorize-id (cadr m) mode) (text (caddr m) `(subscript . ,(current-code-font)) (current-font-size))))]