Changeset 104

Timestamp:

07/07/05 01:58:04 (3 years ago)

Author:

ogawa

Message:

Add MTRelatedTags container and its document.
This will be released as version 0.24.

Files:

• tagwire/trunk/README.txt (modified) (3 diffs)
• tagwire/trunk/tagwire.pl (modified) (6 diffs)

tagwire/trunk/README.txt

@@ -151 +151 @@
----------------------
-
-
+n
-"entry context" which means "the inside of MTEntries" or Individual
-Archives.
@@ -189 +189 @@
-</MTEntries>
-
+-----------------------
+MTRelatedTags Container
+-----------------------
+
+A container tag for listing tags *related* to the current tag.  The
+relationship between tags is defined by how many common *entries*
+includes them.  This container can only be used in "tag context" which
+means the inside of MTTags or MTEntryTags.
+
+* Option(s):
+
+glue="glue"
+
+    Separates each of the tags with a string specified by "glue".
+    This is useful when you wish to separate the tag names with a
+    comma, for example.
+
+sort_by="tag|tag-case|count"
+
+    Chooses sorting method for tags. "tag" means case-insensitive
+    alphabetical sort, "tag-case" means case-sensitive alphabetical
+    sort, "count" means sort by tag's count. Default setting is "tag".
+
+sort_order="ascend|descend"
+
+    Chooses sorting order. The default sort_order is "ascend".
+
+lastn="N"
+
+    Shows only last N tags. By default, all tags are displayed.
+
+case_sensitive="0|1"
+
+    Chooses whether the plugin treats tags as the case-sensitive
+    manner or not.  The default is case_sensitive="1".
+
+* Available tags in this container:
+
+<$MTTag$>
+    Shows a tag.
+
+<$MTTagCount$>
+    Shows the appearance count of a tag.
+
+* Example:
+
+To list tags of the entries and their related tags, and to link all of them to Technorati:
+
+<MTEntries lastn="10">
+<h2><$MTEntryTitle$></h2>
+ 
+<ul>
+  <MTEntryTags>
+  <li><a href="http://www.technorati.com/tag/<$MTTag encode_url="1"$>"
+    rel="TAG" title="TAG:<$MTTag$>"><$MTTag$></a>
+    <ul>
+      <MTRelatedTags>
+      <li><a href="http://www.technorati.com/tag/<$MTTag encode_url="1"$>"
+        rel="TAG" title="TAG:<$MTTag$>"><$MTTag$></a></li>
+      </MTRelatedTags>
+    </ul>
+  </li>
+  </MTEntryTags>
+</ul>
+ 
+<$MTEntryBody$>
+</MTEntries>
+
----------------------------
-MTEntriesWithTags Container
@@ -282 +350 @@
-</MTEntries>
-
+-----------------------
+MTXSearchTags Container
+-----------------------
+
+A container tag for listing the query string of MT-XSearch as tags.
+It can only be used in "MT-XSearch" Template.
+
+* Option(s):
+
+glue="glue"
+
+    Separates each of the tags with a string specified by "glue".
+    This is useful when you wish to separate the tag names with a
+    comma, for example.
+
+* Available tags in this container:
+
+<$MTTag$>
+    Shows a tag.
+
+<$MTTagCount$>
+    Shows the appearance count of a tag.
+
+* Example:
+
+To list tags given by the query string of MT-XSearch and their related tags, and to link them to Technorati:
+
+<MTXSearchTags>
+<h2><$MTTag$></h2>
+ 
+<ul>
+  <MTRelatedTags>
+  <li><a href="http://www.technorati.com/tag/<$MTTag encode_url="1"$>"
+    rel="TAG" title="TAG:<$MTTag$>"><$MTTag$></a></li>
+  </MTRelatedTags>
+</ul>
+</MTXSearchTags>
+
----------------------
-encode_urlplus Filter

tagwire/trunk/tagwire.pl

@@ -28 +28 @@
-        author_name => 'Hirotaka Ogawa',
-        author_link => 'http://profile.typekey.com/ogawa/',
-3
+4
-        });
-    MT->add_plugin($plugin);
@@ -90 +90 @@
-MT::Template::Context->add_container_tag('Tags' => \&tags);
-MT::Template::Context->add_container_tag('EntryTags' => \&entry_tags);
+MT::Template::Context->add_container_tag('RelatedTags' => \&related_tags);
-MT::Template::Context->add_tag('Tag' => \&tag);
-MT::Template::Context->add_tag('TagCount' => \&tag_count);
@@ -287 +288 @@
-        push @res, $out;
-    }
+    my $glue = $args->{glue} || '';
+    join $glue, @res;
+}
+
+sub related_tags {
+    my ($ctx, $args, $cond) = @_;
+    my $tag = $ctx->stash('Tagwire::tag') or return '';
+    my $tag_count = $ctx->stash('Tagwire::tag_count');
+
+    my $sort_by = $args->{sort_by} || 'tag';
+    # sort_order (ascend/descend, default = ascend)
+    my $sort_order = $args->{sort_order} || 'ascend';
+    # lastn (default = 0, no cutoff)
+    my $lastn = $args->{lastn} || 0;
+    # case_sensitive (0/1, default = 1)
+    my $case_sensitive = defined $args->{case_sensitive} ?
+        $args->{case_sensitive} : 1;
+
+    my $blog_id = $ctx->stash('blog_id');
+    my %tags = ();
+
+    my $data = get_pd_indexes($blog_id) || get_db_indexes($blog_id)
+        or return '';
+    my %tindex = %{$data->{tindex}};
+    my %eindex = %{$data->{eindex}};
+    if ($case_sensitive) {
+        foreach my $eid (@{$tindex{$tag}}) {
+            foreach my $mtag (@{$eindex{$eid}->{tags}}) {
+                $tags{$mtag} = exists $tags{$mtag} ? $tags{$mtag} + 1 : 1;
+            }
+        }
+        delete $tags{$tag};
+    } else {
+        $tag = lc $tag;
+        foreach my $nctag (grep { lc $_ eq $tag } keys %tindex) {
+            foreach my $eid (@{$tindex{$nctag}}) {
+                foreach $_ (@{$eindex{$eid}->{tags}}) {
+                    my $mtag = lc $_;
+                    $tags{$mtag} = exists $tags{$mtag} ? $tags{$mtag} + 1 : 1;
+                }
+            }
+        }
+        delete $tags{$tag};
+    }
+    my @list;
+    if ($sort_by eq 'tag' || $sort_by eq 'keyword' ) {
+        @list = $sort_order eq 'ascend' ?
+            sort { lc $a cmp lc $b } keys %tags :
+            sort { lc $b cmp lc $a } keys %tags;
+    } elsif ($sort_by eq 'tag-case' || $sort_by eq 'keyword-case') {
+        @list = $sort_order eq 'ascend' ?
+            sort keys %tags :
+            sort reverse keys %tags;
+    } else {
+        @list = $sort_order eq 'ascend' ?
+            sort { $tags{$a} <=> $tags{$b} } keys %tags :
+            sort { $tags{$b} <=> $tags{$a} } keys %tags;
+    }
+
+    my @res;
+    my $builder = $ctx->stash('builder');
+    my $tokens = $ctx->stash('tokens');
+    my $i = 0;
+    foreach (@list) {
+        last if $lastn && $i >= $lastn;
+        $ctx->stash('Tagwire::tag', $case_sensitive ? $_ : ucfirst $_);
+        $ctx->stash('Tagwire::tag_count', $tags{$_});
+        defined(my $out = $builder->build($ctx, $tokens))
+            or return $ctx->error($ctx->errstr);
+        push @res, $out;
+        $i++;
+    }
+    $ctx->stash('Tagwire::tag', $tag);
+    $ctx->stash('Tagwire::tag_count', $tag_count);
+
-    my $glue = $args->{glue} || '';
-    join $glue, @res;
@@ -352 +428 @@
-    my $count = scalar @patterns;
-    my @eids = grep { $match{$_} == $count } keys %match or return;
-    @eids = sort { $eindex{$b}->{created_on} <=> $eindex{$a}->{created_on} } @eids;
-    @eids = $sort_order eq 'descend' ?
-        sort { $eindex{$b}->{created_on} <=> $eindex{$a}->{created_on} } @eids :
@@ -477 +552 @@
-};
-
+MT::Template::Context->add_container_tag('XSearchTags' => \&xsearch_tags);
+sub xsearch_tags {
+    my ($ctx, $args, $cond) = @_;
+    my $r = MT::Request->instance;
+    return '' unless defined $r->cache('Tagwire::xsearch_tags');
+    my @tags = @{$r->cache('Tagwire::xsearch_tags')};
+    my @res;
+    my $builder = $ctx->stash('builder');
+    my $tokens = $ctx->stash('tokens');
+    foreach (@tags) {
+        $ctx->stash('Tagwire::tag', $_);
+        defined(my $out = $builder->build($ctx, $tokens))
+            or return $ctx->error($ctx->errstr);
+        push @res, $out;
+    }
+    my $glue = $args->{glue} || '';
+    join $glue, @res;
+}
+
-sub xsearch_on_stash {
-    $_[0]->stash('entry', $_[1]);
@@ -497 +591 @@
-        or return \@results;
-
+    my $r = MT::Request->instance;
+    $r->cache('Tagwire::xsearch_tags', \@patterns);
+
-    my $data = get_pd_indexes($blog_id) || get_db_indexes($blog_id)
-        or return \@results;