-sub tagcloud { shift->do_cached(\&_tagcloud) }
-
-sub _tagcloud {
- my $cloud = HTML::TagCloud->new();
- my $base = Memories->config->uri_base."tag/view/";
- for my $tagging (Memories::Tagging->search_summary) {
- my $name = $tagging->tag->name;
- $cloud->add($name,
- $base.uri_escape($name),
- $tagging->{count}
- )
- }
- $cloud
-}
-
-sub calendar {
- # shift->do_cached(\&_calendar, shift ) }
-#sub _calendar {
- my $self = shift;
- my $arg = shift;
- my ($y, $m) = split /-/, ($arg || Time::Piece->new->ymd);
- my @m = Calendar::Simple::calendar($m, $y);
- my @month;
- foreach my $week (@m) {
- my @weekdays;
- foreach my $day (@$week) {
- my $d = { day => $day };
- if ($day) {
- my $tag = "date:$y-$m-".sprintf("%02d", $day);
- my ($x) = Memories::SystemTag->search(name => $tag);
- if ($x) { $d->{tag} = "/system_tag/view/$tag" }
- }
- push(@weekdays, $d);
- }
- push(@month, \@weekdays);
- }
- return \@month;
-}
-
-# THIS IS A HACK
-
-use Time::Seconds;
-sub Time::Piece::next_month {
- my $tp = shift;
- my $month = $tp + ONE_MONTH;
- return if $month > Time::Piece->new;
- return $month
-}
-sub Time::Piece::prev_month {
- my $tp = shift;
- my $month = $tp - ONE_MONTH;
- return $month
-}
-
-