From 200333b78791c82d7a08f143229ddf5e6edd1b0b Mon Sep 17 00:00:00 2001
From: Jeremy Penner <jeremy@sporktania.com>
Date: Tue, 15 Feb 2011 08:42:01 -0800
Subject: [PATCH] add link helper

---
 iffy.coffee | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/iffy.coffee b/iffy.coffee
index 0c506fa..42748d8 100644
--- a/iffy.coffee
+++ b/iffy.coffee
@@ -214,7 +214,12 @@ class Gst
 		stId = "__gen#{@igenID++}"
 		@mpstId_dgOnClick.push([stId, dgOnClick])
 		stId
-	
+
+	Link: (stText, dgOnClick, stExtra) ->
+		if not stExtra?
+			stExtra = ""
+		"<a href='javascript:void(0)' id='#{@RegOnClick(dgOnClick)}' #{stExtra}>#{stText}</a>"
+		
 	RgwstRun: () ->
 		wst = @rgwstInit[@rgwstInit.length - 1].WstNext(@SectionCurrent().NevByName("start"))
 		eniWst = Nevgen.EniWst(this, wst)
@@ -371,10 +376,7 @@ TemplateFromStNev = (st, wst) ->
 			
 		word = wst.gst.SectionCurrent().WordByName(wst.gst, stWord)
 		if word? and (rgverb = word.Rgverb(wst)).length > 0
-			dgOnClick = (ev) -> wst.gst.ShowMenu(ev, this, rgverb)
-			
-			stId = wst.gst.RegOnClick(dgOnClick)
-			JsStringLit("<a href='javascript:void(0)' id='#{stId}' class='iffy-word'>#{stDisplay}</a>")
+			JsStringLit(wst.gst.Link(stDisplay, ((ev) -> wst.gst.ShowMenu(ev, this, rgverb)), "class='iffy-word'"))
 		else
 			JsStringLit(stDisplay)
 	MatchInWord = MatchBracket(0, () -> PushText(true, StWord))
@@ -450,8 +452,7 @@ class ActorPlayer
 
 	StHtmlUi: (wst) ->
 		if (wst.nev.player_nevIDRespondedTo?)
-			stId = wst.gst.RegOnClick(() => @RemoveResponse(wst.nev); wst.gst.Display())
-			"<a href='javascript:void(0)' id='#{stId}' class='iffy-undo'>Undo</a>"
+			wst.gst.Link("Undo", (() => @RemoveResponse(wst.nev); wst.gst.Display()), "class='iffy-undo'")
 			
 class Story
 	constructor: (@jStory) ->