ellipsize

[procedure] ellipsize str (o limit 80)

(def ellipsize (str (o limit 80))
  (if (<= (len str) limit)
      str
      (+ (subseq str 0 limit) "...")))