]> git.vanrenterghem.biz Git - git.ikiwiki.info.git/blobdiff - doc/todo/Bestdir_along_with_bestlink_in_IkiWiki.pm.mdwn
Merge commit 'upstream/master' into prv/po
[git.ikiwiki.info.git] / doc / todo / Bestdir_along_with_bestlink_in_IkiWiki.pm.mdwn
index b2f67ebc0c8e85e9abdb5a8f25cc389ed433695c..95c38f794a281760dc90fcb87af8d0774fcc20eb 100644 (file)
@@ -2,45 +2,47 @@ 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]]
\ No newline at end of file
+-[[users/arpitjain]]
+
+[[!tag patch]]