# rvm_substr v0.3
# Cut XHTML 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:
# ......................................................................

YTo5OntzOjQ6Im5hbWUiO3M6MTA6InJ2bV9zdWJzdHIiO3M6NzoidmVyc2lvbiI7czozOiIw
LjMiO3M6NjoiYXV0aG9yIjtzOjE1OiJSdXVkIHZhbiBNZWxpY2siO3M6MTA6ImF1dGhvcl91
cmkiO3M6MjE6Imh0dHA6Ly92YW5tZWxpY2suY29tLyI7czoxMToiZGVzY3JpcHRpb24iO3M6
NDA6IkN1dCBYSFRNTCBhdCBhIHNwZWNpZmllZCBjaGFyYWN0ZXIgbGltaXQiO3M6NDoidHlw
ZSI7aTowO3M6NDoiaGVscCI7czo3NjU6Igk8cD5UaGlzIHBsdWdpbiBhbGxvd3MgeW91IHRv
IGN1dCBzdHJpbmcgb2YgdmFsaWQgPHNwYW4gY2xhc3M9ImNhcHMiPlhUSE1MPC9zcGFuPiBh
dCBhIHNwZWNpZmllZCBjaGFyYWN0ZXIgbGltaXQgKDxzcGFuIGNsYXNzPSJjYXBzIj5VVEY8
L3NwYW4+LTggYW5kIDxzcGFuIGNsYXNzPSJjYXBzIj5IVE1MPC9zcGFuPi1lc2NhcGUtY29k
ZSBhd2FyZSkgYW5kIHRoZW4gYWRkIGEgdHJhaWxpbmcgZWxsaXBzaXMuIFRoZSBlbmQgcmVz
dWx0IGlzIHN0aWxsIHZhbGlkIDxzcGFuIGNsYXNzPSJjYXBzIj5YSFRNTDwvc3Bhbj4uPC9w
PgoKCTxwPjxzdHJvbmc+RXhhbXBsZTo8L3N0cm9uZz48L3A+Cgo8cHJlPjxjb2RlPiZsdDt0
eHA6cnZtX3N1YnN0ciBsZW5ndGg9JnF1b3Q7OCZxdW90OyZndDsmbHQ7dHhwOmJvZHkgLyZn
dDsmbHQ7L3R4cDpydm1fc3Vic3RyJmd0Owo8L2NvZGU+PC9wcmU+CgoJPHA+d2lsbCBvdXRw
dXQgJiM4MjIwO2xvbmcgc3RyJiM4MjMwOyYjODIyMTssIGFzc3VtaW5nIHRoZSBib2R5IGNv
bnRhaW5zICYjODIxNjtsb25nIHN0cmluZyYjODIxNzsuPC9wPgoKCTxwPjxzdHJvbmc+QXR0
cmlidXRlczo8L3N0cm9uZz48L3A+CgoJPHVsPgoJCTxsaT5sZW5ndGg9JiM4MjIwO2ludGVn
ZXImIzgyMjE7PGJyIC8+ClRoZSBsZW5ndGggb2YgdGhlIHN0cmluZyB5b3Ugd2FudCByZXR1
cm5lZCwgbm90IGNvdW50aW5nIHRoZSBsZW5ndGggb2YgdGhlIHRyYWlsaW5nIHRleHQgYW5k
IHRhZ3MuIERlZmF1bHRzIHRvIDEwLjwvbGk+Cgk8L3VsPiI7czo0OiJjb2RlIjtzOjEzOTg6
IgpmdW5jdGlvbiBydm1fc3Vic3RyKCRhdHRzLCAkdGhpbmcpCnsKICBleHRyYWN0KGxBdHRz
KGFycmF5KAogICAgJ2xlbmd0aCcgPT4gMTAsCiAgKSwgJGF0dHMpKTsKCiAgYXNzZXJ0X2lu
dCgkbGVuZ3RoKTsKCiAgJHRoaW5nICAgID0gcGFyc2UoJHRoaW5nKTsKICAkcGFyc2VkICAg
PSBwcmVnX3NwbGl0KCcvKDxbXj5dKj4pLycsICR0aGluZywgLTEsIFBSRUdfU1BMSVRfREVM
SU1fQ0FQVFVSRSk7CgogICRlbGxpcHNpcyA9IEZBTFNFOwogICRpc3RhZyAgICA9IEZBTFNF
OwogICR0YWdzICAgICA9IGFycmF5KCk7CiAgJHRvdGFsICAgID0gMDsKICAkb3V0ICAgICAg
PSAnJzsKCiAgZm9yZWFjaCAoJHBhcnNlZCBhcyAkY2h1bmspCiAgewogICAgaWYgKCR0b3Rh
bCA9PT0gJGxlbmd0aCkKICAgIHsKICAgICAgJGVsbGlwc2lzID0gVFJVRTsKICAgICAgYnJl
YWs7CiAgICB9CgogICAgaWYgKCRpc3RhZykKICAgIHsKICAgICAgaWYgKHN1YnN0cigkY2h1
bmssIDEsIDEpID09PSAnLycpCiAgICAgIHsKICAgICAgICBhcnJheV9wb3AoJHRhZ3MpOwog
ICAgICB9CiAgICAgIGVsc2VpZiAoc3Vic3RyKCRjaHVuaywgLTIsIDEpICE9PSAnLycpCiAg
ICAgIHsKICAgICAgICBhcnJheV9wdXNoKCR0YWdzLCAkY2h1bmspOwogICAgICB9CgogICAg
ICAkb3V0IC49ICRjaHVuazsKICAgIH0KICAgIGVsc2UKICAgIHsKICAgICAgaWYgKHRyaW0o
JGNodW5rKSAhPT0gJycpCiAgICAgIHsKICAgICAgICAkbGVuID0gcHJlZ19tYXRjaF9hbGwo
Jy8oPzpbXiZdfCZbXjtdKzspL3VzJywgJGNodW5rLCAkZHVtbXkpOwoKICAgICAgICBpZiAo
JHRvdGFsICsgJGxlbiA8PSAkbGVuZ3RoKQogICAgICAgIHsKICAgICAgICAgICRvdXQgICAu
PSAkY2h1bms7CiAgICAgICAgICAkdG90YWwgKz0gJGxlbjsKICAgICAgICB9CiAgICAgICAg
ZWxzZQogICAgICAgIHsKICAgICAgICAgIHByZWdfbWF0Y2goJy9eKD86W14mXXwmW147XSs7
KXsnLigkbGVuZ3RoLSR0b3RhbCkuJ30vdXMnLCAkY2h1bmssICRtYXRjaCk7CiAgICAgICAg
ICAkb3V0ICAuPSAkbWF0Y2hbMF07CiAgICAgICAgICAkdG90YWwgPSAkbGVuZ3RoOwogICAg
ICAgICAgJGVsbGlwc2lzID0gVFJVRTsKICAgICAgICB9CiAgICAgIH0KICAgICAgZWxzZQog
ICAgICB7CiAgICAgICAgJG91dCAuPSAkY2h1bms7CiAgICAgIH0KICAgIH0KCiAgICAkaXN0
YWcgPSAhJGlzdGFnOwogIH0KCiAgJG91dCA9IHJ0cmltKCRvdXQpIC4gKCRlbGxpcHNpcyA/
ICfigKYnIDogJycpOwoKICBmb3JlYWNoKGFycmF5X3JldmVyc2UoJHRhZ3MpIGFzICR0YWcp
CiAgewogICAgcHJlZ19tYXRjaCgnL148KFx3KykvcycsICR0YWcsICRtYXRjaCk7CiAgICAk
b3V0IC49ICc8LycuJG1hdGNoWzFdLic+JzsKICB9CgogIHJldHVybiAkb3V0Owp9CiI7czoz
OiJtZDUiO3M6MzI6Ijk4NjMyY2QwYjk4MzMwZjRjOGE0ZjFiMjEwNzVjOWVkIjt9