Here's yet another version that combines the $set and $list parsing into 
one:

\define annoTitle() $(currentTiddler)$ Annotation
\define annoTags() [[$(currentTiddler)$]] Annotation

<$button>
   <$list filter=
"[{!!bibtex-annote}split[M)]butfirst[]split[{\textbar}]butlast[]]" variable=
"this-annote">
      <$action-sendmessage $message="tm-new-tiddler" $param=<<annoTitle>> 
tags=<<annoTags>> text=<<this-annote>>/>
   </$list>
   Pull annotations
</$button>

notes:
* the filter first splits on "M)" and then discards the leading content 
using the butfirst[] operator
* the rest of the content is then split on "{\textbar}" as before

enjoy,
-e

-- 
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 tiddlywiki+unsubscr...@googlegroups.com.
To view this discussion on the web visit 
https://groups.google.com/d/msgid/tiddlywiki/1bac4fa7-3fed-48c1-ad8c-cb0a78684bc4o%40googlegroups.com.

Reply via email to