sub add_underlay ($) { #{{{
my $dir=shift;
- if ($dir=~/^\//) {
- unshift @{$config{underlaydirs}}, $dir;
+ if ($dir !~ /^\//) {
+ $dir="$config{underlaydir}/../$dir";
}
- else {
- unshift @{$config{underlaydirs}}, "$config{underlaydir}/../$dir";
+
+ if (! grep { $_ eq $dir } @{$config{underlaydirs}}) {
+ unshift @{$config{underlaydirs}}, $dir;
}
return 1;
} #}}}
sub displaytime ($;$) { #{{{
+ # Plugins can override this function to mark up the time for
+ # display.
+ return formattime(@_);
+} #}}}
+
+sub formattime ($;$) { #{{{
my $time=shift;
my $format=shift;
if (! defined $format) {