Commande TextMate HTML, pratique quand il manque UL

Il manque UL.tmCommand

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
<plist version="1.0">
<dict>
	<key>beforeRunningCommand</key>
	<string>nop</string>
	<key>bundleUUID</key>
	<string>4676FC6D-6227-11D9-BFB1-000D93589AF6</string>
	<key>command</key>
	<string>echo '&lt;ul&gt;'
perl -pe 's/[\$`\\]/\\$&amp;/g; s/([ \t]*)(.+)/$1\t&lt;\${1:li}&gt;$2&lt;\/\${1\/\\s.*\/\/}&gt;/'
echo
echo '&lt;/ul&gt;'</string>
	<key>fallbackInput</key>
	<string>line</string>
	<key>input</key>
	<string>selection</string>
	<key>keyEquivalent</key>
	<string>@u</string>
	<key>name</key>
	<string>Il manque UL</string>
	<key>output</key>
	<string>insertAsSnippet</string>
	<key>scope</key>
	<string>text.html</string>
	<key>uuid</key>
	<string>B250A0AD-70F4-4B0F-B426-C17549BE55F1</string>
</dict>
</plist>