# HG changeset patch
# User Matti Hamalainen <ccr@tnsp.org>
# Date 1185394878 0
# Node ID 643e93f4b941035488d384abd8166b4208e376dc
# Parent  daa42c69dc35681a1830b8ade8e2dcf6296d685f
Added prsubstr() utility function.

diff -r daa42c69dc35 -r 643e93f4b941 ggrtf.tf
--- a/ggrtf.tf	Wed Jul 25 20:14:21 2007 +0000
+++ b/ggrtf.tf	Wed Jul 25 20:21:18 2007 +0000
@@ -206,6 +206,14 @@
 	/return strcat({1},_tmps)
 
 
+;; If string is longer than specified max, cut and pad with ellipsis (...)
+/def -i prsubstr =\
+	/if (strlen({1})>{2})\
+		/return "$[substr({1},0,{2}-3)]..."%;\
+	/else \
+		/return {1}%;\
+	/endif
+
 ;; Return string describing time elapsed from given timestamp parameter
 /def -i prgetstime =\
 	/let _tmps=$[prgettime(time()-{1})]%;\