Changeset main,49 for main

Timestamp:

11/15/2007 07:41:10 PM (19 years ago)

Author:

David Owen <dsowen@…>

branch-nick:

tui

revision id:

dsowen@fugue88.ws-20071115194110-c83px6jrpevoz3vo

Message:

Allow access to RENDERLEN.

File:

• main/display-string.lisp (modified) (2 diffs)

main/display-string.lisp

@@ -1 +1 @@
 (defpackage #:tui-display-string
   (:use #:cl #:cl-ppcre #:dso-lex #:tui-cursor #:tui-output #:tui-window)
-  (:export #:enquote #:dequote #:render))
+  (:export #:enquote #:dequote #:render #:renderlen))
 
 (in-package #:tui-display-string)
@@ -38 +38 @@
       (escape 0))))
 
-(defun renderlen (parts)
-  (let ((lens (mapcar 'renderlen-part parts)))
+(defun renderlen (dstr)
+  (let* ((parts (scan-dstring dstr))
+         (lens (mapcar 'renderlen-part parts)))
     (reduce '+ lens)))