suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

allow +,-,(,) in code subscripts and superscripts

Browse Source
This commit is contained in:
Sam Tobin-Hochstadt 2010-10-04 11:38:38 -04:00
parent a45ce954d7
commit da80d6c034
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/texpict/code.rkt
View File

@ -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))))]