List widgets look deceptively like for-next loops in other languages, but
they don't work that way (or at least I don't think they do). At the moment
you click the button, there is essentially already a list of things -- a
snapshot -- that will be activated, and that list is not changed on the
fly. So you need to have a complete list of actions you will take before
you press the button. Or, another way to look at it, you can't change
things in tiddlers that will change the outcome of the filters. From time
to time I mention that javascript is easier. This is what I mean. In JS you
can run a loop that changes the conditions that terminate the loop. Oh
well.
Here's what I've come up with. It worked. Once. It first goes through and
makes a list of all the suffixes that will be created by your process. Then
it turns that list into a title list. Then it feeds the resulting list into
a filter that checks if there are more than one tiddlers (e.g. two
tiddlers) that will be impacted. If there are more than 1, than it does
nothing. Otherwise it does the changes. It probably needs to be cleaned up,
since there's bits I didn't end up using.
HTH
-- Mark
\define suffix-actions()
<$list filter="[tag[xx]suffix<sfx>]" variable="item">
<$action-setfield $tiddler=<<item>> title=<<sfx>> />
<$action-deletetiddler $tiddler=<<item>> />
</$list>
\end
\define makelink() [[$(newTitle)$]]
\define makeregexp() ^.{$(n)$}$(sfx)$$
\define generate-suffixes(myfilter, n:"0")
<$list filter="[<__n__>] -0" variable=null>
<$list filter=<<__myfilter__>> variable="item">
<$list filter="""[<item>split[]rest[$n$]join[]]""" variable="newTitle">
<$text text=<<makelink>>/>
</$list>
</$list>
</$list>
\end
\define deprefix-title(myfilter,num)
<$button>
Delete $num$ chars
<$vars n="$num$" >
<$wikify text="""<<generate-suffixes myfilter:"$myfilter$" n:"$num$">>"""
name="outputs" output="formattedtext" mode="block">
<$list filter="[subfilter<outputs>]" variable="sfx">
<$list filter="$myfilter$ +[suffix<sfx>limit[2]count[]regexp[2]]"
emptyMessage=<<suffix-actions>> variable="cnt">
</$list>
</$list>
</$wikify>
</$vars>
</$button>
\end
<<deprefix-title "[tag[xx]]" "1">>
--
You received this message because you are subscribed to the Google Groups
"TiddlyWiki" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
To post to this group, send email to [email protected].
Visit this group at https://groups.google.com/group/tiddlywiki.
To view this discussion on the web visit
https://groups.google.com/d/msgid/tiddlywiki/ee87d7ce-d910-4ad3-beaa-920cfb3c73c9%40googlegroups.com.
For more options, visit https://groups.google.com/d/optout.
