Changeset 107 in bookmarks

Timestamp:

11/09/15 20:21:41 (8 years ago)

Author:

peter

Message:

Added a /tags resource that provides a drilldown inteface to the tags and bookmarks. URI pattern is /tags/{tag1}/{tag2}/{tag3...}

Location:

trunk/lib

Files:

• Bookmarks/Controller.pm (modified) (1 diff)
• BookmarksApp.pm (modified) (2 diffs)

trunk/lib/Bookmarks/Controller.pm

@@ -222 +222 @@
 }
 
+sub tag_tree {
+    my $self = shift;
+    my $tags = shift || [];
+
+    my $list = Bookmarks::List->new({
+        bookmarks => $self->bookmarks,
+        search    => $self->bookmarks->search({
+            tags   => $tags,
+        }),
+    });
+
+    my @tags = map {
+        {
+            path => join('/', @$tags[0 .. $_ - 1]),
+            tag  => $tags->[$_ - 1],
+        }
+    } 1 .. scalar(@{ $tags });
+
+    require Template;
+    require File::Basename;
+    my @cotags = $self->bookmarks->get_cotags({ search => $list->search });
+
+    #TODO: get the actual request URI and makre sure it ends with a /
+    my $base_url = join '/', ($self->base_uri . 'tags'), @$tags;
+    $base_url .= '/';
+    my $template = Template->new({ INCLUDE_PATH => File::Basename::dirname($INC{'Bookmarks/Controller.pm'}) });
+
+    $template->process(
+        'tagtree.html',
+        {
+            base_url => $self->base_uri,
+            request_url => $base_url,
+            tags      => \@tags,
+            cotags    => \@cotags,
+            bookmarks => $list->results,
+        },
+        \my $output,
+    );
+
+
+    return [200, ['Content-Type' => 'text/html; charset=UTF-8'], [$output]];
+}
+
 1;

trunk/lib/BookmarksApp.pm

@@ -82 +82 @@
         };
 
+        resource '/tags' => sub {
+            GET {
+                my ($env, $params) = @_;
+                return $self->_controller->tag_tree;
+            };
+        };
+        resource '/tags/*' => sub {
+            GET {
+                my ($env, $params) = @_;
+                my $tag_path = (@{ $params->{splat} })[0];
+                return $self->_controller->tag_tree([ split m{/}, $tag_path ]);
+            };
+        };
+
         resource '/{id}' => sub {
             GET {
@@ -99 +113 @@
             };
         };
+
     };