changeset 591:aa342352f0d2

Counting of completed and uncompleted tasks in 'list' of nun task room.
author Matti Hamalainen <ccr@tnsp.org>
date Thu, 28 Dec 2006 02:51:48 +0000
parents 86e7360e8b22
children 5936f8ac3863
files ggrtf-nun.tf
diffstat 1 files changed, 18 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/ggrtf-nun.tf	Wed Dec 27 22:27:51 2006 +0000
+++ b/ggrtf-nun.tf	Thu Dec 28 02:51:48 2006 +0000
@@ -108,11 +108,26 @@
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; Got purity
 /def -i -F -p9999 -msimple -t"You feel more pure and closer to Las." gnun_purity =\
-	 /mse feels more pure and closer to Las.
+	 /mse gains purity! All hail Las!
 
 ;; Lite 'list' at taskmaster
-/def -i -F -p9999 -mregexp -t"\| \[ :([()]) \]" gnun_lite1 =\
-	/if ({P1}=~"(") /let _tc=red%;/else /let _tc=green%;/endif%;\
+/def -i -p9999 -msimple -t"  | Task name                                    | Stats               |" gnun_list1 =\
+	/set nun_list_st=1%;\
+	/set nun_list_comp=0%;\
+	/set nun_list_notcomp=0
+
+/def -i -Enun_list_st==1 -p9999 -msimple -t"  |          [ :) ] / [ :( ] = Completed / Not Completed               |" gnun_list2 =\
+	/set nun_list_st=0%;\
+	/test substitute("  |               @{Cgreen}Completed@{n}: @{BCgreen}$[pad(nun_list_comp,-3)]@{n}    /    @{Cred}Not Completed@{n}: @{BCred}$[pad(nun_list_notcomp)]@{n}              |","",1)
+
+/def -i -Enun_list_st==1 -p9999 -mregexp -t"\| \[ :([()]) \]" gnun_list3 =\
+	/if ({P1}=~"(")\
+		/set nun_list_notcomp=$[nun_list_notcomp+1]%;\
+		/let _tc=red%;\
+	/else \
+		/set nun_list_comp=$[nun_list_comp+1]%;\
+		/let _tc=green%;\
+	/endif%;\
 	/substitute -p @{n}%{PL}| [ @{C%{_tc}}:%{P1}@{n} ]%{PR}