# sab_substr v0.3
# Cut plain text at a specified character limit
#
# License: GNU GPLv2 or later
#
# Ruud van Melick
# http://vanmelick.com/

# ......................................................................
# This is a plugin for Textpattern - http://textpattern.com/
# To install: textpattern > admin > plugins
# Paste the following text into the 'Install plugin' box:
# ......................................................................

YTo5OntzOjQ6Im5hbWUiO3M6MTA6InNhYl9zdWJzdHIiO3M6NzoidmVyc2lvbiI7czozOiIw
LjMiO3M6NjoiYXV0aG9yIjtzOjE1OiJSdXVkIHZhbiBNZWxpY2siO3M6MTA6ImF1dGhvcl91
cmkiO3M6MjE6Imh0dHA6Ly92YW5tZWxpY2suY29tLyI7czoxMToiZGVzY3JpcHRpb24iO3M6
NDU6IkN1dCBwbGFpbiB0ZXh0IGF0IGEgc3BlY2lmaWVkIGNoYXJhY3RlciBsaW1pdCI7czo0
OiJ0eXBlIjtpOjA7czo0OiJoZWxwIjtzOjEzODg6Igk8cD5UaGlzIGlzIGEgc2ltcGxlIHBs
dWdpbiB0byBjdXQgYSBzdHJpbmcgb2YgcGxhaW4gdGV4dCAobm90IChYKUhUTUwhKSBhdCBh
IHNwZWNpZmllZCBjaGFyYWN0ZXIgbGltaXQgKFVURi04IGF3YXJlKSBhbmQgdGhlbiBhZGQg
YSB0cmFpbGluZyBzdHJpbmcgKGkuZS4gZWxsaXBzaXMpLjwvcD4KCgk8cD5Zb3UgY2FuIHVz
ZSBpdCB0byB0YWtlIGFuIGFydGljbGUgdGl0bGUgKG9yIGFueSBvdGhlciBub24taHRtbCBl
c2NhcGVkIHRleHQpIGFuZCB0cmltIGl0IGRvd24gdG8gYSBzcGVjaWZpZWQgY2hhcmFjdGVy
IGxpbWl0IHRoZW4gYWRkIGFuIGVsbGlwc2VzLiBQb3NzaWJseSB1c2VkIGZvciBhcnRpY2xl
IG5hdmlnYXRpb24gKHByZXYvbmV4dCkgb3IgYW4gYXJ0aWNsZSBsaXN0IHdoZXJlIHlvdSB3
YW50IHRvIGtlZXAgdGhlIHRpdGxlcyBzaG9ydC48L3A+CgoJPHA+PHN0cm9uZz5FeGFtcGxl
Ojwvc3Ryb25nPjwvcD4KCjxwcmU+PGNvZGU+JiM2MDt0eHA6c2FiX3N1YnN0ciBsaW1pdD0m
IzM0OzEwJiMzNDsgdHJhaWw9JiMzNDsuLi4mIzM0OyYjNjI7JiM2MDt0eHA6dGl0bGUgLyYj
NjI7JiM2MDsvdHhwOnNhYl9zdWJzdHImIzYyOwo8L2NvZGU+PC9wcmU+CgoJPHA+d2lsbCBv
dXRwdXQgJiM4MjIwO2xvbmcgc3RyaW5nJiM4MjMwOyYjODIyMTssIGFzc3VtaW5nIHRoZSB0
aXRsZSBpcyAmIzgyMTY7bG9uZyBzdHJpbmcgdGl0bGUmIzgyMTc7LjwvcD4KCgk8cD48c3Ry
b25nPkF0dHJpYnV0ZXM6PC9zdHJvbmc+PC9wPgoKCTx1bD4KCQk8bGk+dHJhaWw9JiM4MjIw
O2h0bWwgdGV4dCYjODIyMTs8YnIgLz4KVGhlIHN0cmluZyB5b3Ugd2FudCBhcHBlbmRlZCB0
byB0aGUgcmVzdWx0LiBJdCB3aWxsIDxzcGFuIGNsYXNzPSJjYXBzIj48c3BhbiBjbGFzcz0i
Y2FwcyI+Tk9UPC9zcGFuPjwvc3Bhbj4gYmUgYXBwZW5kZWQgPHNwYW4gY2xhc3M9ImNhcHMi
PjxzcGFuIGNsYXNzPSJjYXBzIj5VTkxFU1M8L3NwYW4+PC9zcGFuPiB0aGUgY29udGVudCB3
YXMgdHJpbW1lZC4gRGVmYXVsdHMgdG8gJiM4MjE2OyYjODIzMDsmIzgyMTc7IChlbGxpcHNp
cykuPC9saT4KCQk8bGk+bGltaXQ9JiM4MjIwO2ludGVnZXImIzgyMjE7PGJyIC8+ClRoZSBs
ZW5ndGggb2YgdGhlIHN0cmluZyB5b3Ugd2FudCByZXR1cm5lZCwgbm90IGNvdW50aW5nIHRo
ZSBsZW5ndGggb2YgdGhlIHRyYWlsaW5nIHRleHQuIERlZmF1bHRzIHRvIDEwLjwvbGk+Cgk8
L3VsPgoKCTxwPlBTLiBUaGlzIHBsdWdpbiB3YXMgb3JpZ2luYWxseSByZWxlYXNlZCBieSBT
dGV2ZSBmcm9tIGJsdWVjYW1lbC5vcmcsIGJ1dCB3aGVuIGl0IHdhcyBubyBsb25nZXIgYXZh
aWxhYmxlLCBJIHdyb3RlIGl0IGFuZXcgZnJvbSBzY3JhdGNoIHRvIGJlIGEgZHJvcC1pbiBy
ZXBsYWNlbWVudC48L3A+IjtzOjQ6ImNvZGUiO3M6Mzg2OiIKZnVuY3Rpb24gc2FiX3N1YnN0
cigkYXR0cywgJHRoaW5nKQp7CiAgZXh0cmFjdChsQXR0cyhhcnJheSgKICAgICdsaW1pdCcg
PT4gMTAsCiAgICAndHJhaWwnID0+ICcmIzgyMzA7JwogICksICRhdHRzKSk7CgogIGFzc2Vy
dF9pbnQoJGxpbWl0KTsKCiAgJHRoaW5nID0gcGFyc2UoJHRoaW5nKTsKCiAgaWYgKHN0cmxl
bih1dGY4X2RlY29kZSgkdGhpbmcpKSA+ICRsaW1pdCkKICB7CiAgICAgJHRoaW5nID0gcHJl
Z19yZXBsYWNlKCcvXigueycuJGxpbWl0Lid9KS4qJC91cycsICckMScsICR0aGluZyk7CiAg
ICAgcmV0dXJuIGVzY2FwZV9vdXRwdXQoJHRoaW5nKS4kdHJhaWw7CiAgfQoKICBlbHNlCiAg
ewogICAgIHJldHVybiBlc2NhcGVfb3V0cHV0KCR0aGluZyk7CiAgfQp9CiI7czozOiJtZDUi
O3M6MzI6IjA4NzZkODMyODE0OTIyYzVkM2UyNmUzY2U4MDlkYWE0Ijt9