urosm
/
ikiwiki
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

web commit by arpitjain11

master
joey 2007-07-27 16:44:13 +00:00
parent d94bd350bd
commit a517b38a8f
1 changed files with 40 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

80
doc/todo/Bestdir_along_with_bestlink_in_IkiWiki.pm.mdwn
View File

@ -2,45 +2,45 @@ This patch adds function bestdir() which returns best directory from the directo
-------
Index: IkiWiki.pm
===================================================================
--- IkiWiki.pm (revision 9)
+++ IkiWiki.pm (working copy)
@@ -391,6 +391,35 @@
return "";
} #}}}
+sub bestdir ($$) { #{{{
+ my $page=shift;
+ my $link=shift;
+ my $cwd=$page;
+
+ if ($link=~s/^\/+//) {
+ $cwd="";
+ }
+
+ do {
+ my $l=$cwd;
+ $l.="/" if length $l;
+ $l.=$link;
+ if (-d "$config{srcdir}/$l") {
+ return $l;
+ }
+ } while $cwd=~s!/?[^/]+$!!;
+
+ if (length $config{userdir}) {
+ my $l = "$config{userdir}/".lc($link);
+
+ if (-d $l) {
+ return $l;
+ }
+ }
+
+ return "";
+} #}}}
+
sub isinlinableimage ($) { #{{{
my $file=shift;
Index: IkiWiki.pm
===================================================================
--- IkiWiki.pm (revision 9)
+++ IkiWiki.pm (working copy)
@@ -391,6 +391,35 @@
return "";
} #}}}
+sub bestdir ($$) { #{{{
+ my $page=shift;
+ my $link=shift;
+ my $cwd=$page;
+
+ if ($link=~s/^\/+//) {
+ $cwd="";
+ }
+
+ do {
+ my $l=$cwd;
+ $l.="/" if length $l;
+ $l.=$link;
+ if (-d "$config{srcdir}/$l") {
+ return $l;
+ }
+ } while $cwd=~s!/?[^/]+$!!;
+
+ if (length $config{userdir}) {
+ my $l = "$config{userdir}/".lc($link);
+
+ if (-d $l) {
+ return $l;
+ }
+ }
+
+ return "";
+} #}}}
+
sub isinlinableimage ($) { #{{{
my $file=shift;
----
-[[users/arpitjain]]