length-string-unit-part | ||
---|---|---|
Prev | Next |
(length-string-unit-part lenstr)
Given a length as a string, return the units part.
"100pt" returns "pt". "30" returns "". "in" returns "in".
Norman Walsh, <ndw@nwalsh.com>
(define (length-string-unit-part lenstr) ;; Returns the unit part of a length string (let ((number-part (length-string-number-part lenstr)) (strlen (string-length lenstr))) (if (equal? (string-length number-part) strlen) "" (substring lenstr (string-length number-part) strlen))))
Prev | Home | Next |
length-string-number-part | Up | list->string |