1 Instead of having files foo.html "in front of" foo/, I prefer to have
2 foo/index.html. This patch allows that. Specifically, foo/index.type
3 is translated to $links{'foo/'}, and bestlink looks for either "foo" or
4 "foo/" when linking to pages. There are other miscellaneous changes that
7 1. change the `cgi_editpage` `@page_locs` code so that creating foo from
8 a/b/c prefers a/b/foo and then a/b/c/foo, but if creating foo from a/b/c/,
9 then prefer a/b/c/foo. I'm not really sure why the original was doing what
10 it did (why trim terminal `/` if no pages end in `/`?), so this part might
12 2. tweak things so that index.rss and index.atom are generated if inlining
14 2. backlinks from "foo/bar" to "foo/" trim common prefixes as long as there
15 would be something left when the trimming is done (i.e. don't trim "foo/")
16 3. parentlinks for "foo/" are the same as for "foo", except one directory
18 4. rewrite parentlinks so that bestlink is called at each level
19 5. basename("foo/") => basename("foo")
20 6. links to "foo/" are translated to "foo/index.html" rather than "foo/.html".
21 (Links to "foo/" might be preferred, but that causes an infinite loop in
22 writefile, because apparently dirname("foo/") == "foo/" on my system for
23 reasons that aren't clear to me.)
24 7. pagetitle("foo/") => pagetitle("foo")
25 8. clip the final slash when matching a relative pagespec, even if there are
26 no characters after it (otherwise inlining "./a" from "foo/" gets
27 translated to "foo//a")
29 In case whitespace gets garbled, I'm also leaving a copy of the patch on
30 [my site](http://ikidev.betacantrips.com/patches/index.patch). It should apply
31 cleanly to a freshly unpacked ikiwiki-1.42. You can also see it in action
32 [here](http://ikidev.betacantrips.com/one/). --Ethan
34 diff -urX ignorepats ikiclean/IkiWiki/CGI.pm ikidev/IkiWiki/CGI.pm
35 --- ikiclean/IkiWiki/CGI.pm 2007-02-11 21:40:32.419641000 -0800
36 +++ ikidev/IkiWiki/CGI.pm 2007-02-11 21:54:36.252357000 -0800
38 @page_locs=$best_loc=$page;
46 if ((defined $form->field('subpage') && length $form->field('subpage')) ||
47 $page eq gettext('discussion')) {
51 push @page_locs, $dir.$page;
52 - push @page_locs, "$from/$page";
53 + if ($dir ne $from){ # i.e. $from not a directory
54 + push @page_locs, "$from/$page";
58 push @page_locs, $dir.$page;
59 diff -urX ignorepats ikiclean/IkiWiki/Plugin/inline.pm ikidev/IkiWiki/Plugin/inline.pm
60 --- ikiclean/IkiWiki/Plugin/inline.pm 2007-02-11 21:40:31.996007000 -0800
61 +++ ikidev/IkiWiki/Plugin/inline.pm 2007-02-11 21:54:36.008358000 -0800
64 add_depends($params{page}, $params{pages});
66 - my $rssurl=rsspage(basename($params{page}));
67 - my $atomurl=atompage(basename($params{page}));
68 + my $rssurl=basename(rsspage($params{page}));
69 + my $atomurl=basename(atompage($params{page}));
72 if (exists $params{rootpage} && $config{cgiurl}) {
75 sub rsspage ($) { #{{{
77 + $page = htmlpage($page);
78 + $page =~s/\.html$/.rss/;
80 - return $page.".rss";
84 sub atompage ($) { #{{{
86 + $page = htmlpage($page);
87 + $page =~s/\.html$/.atom/;
89 - return $page.".atom";
93 sub genfeed ($$$$@) { #{{{
94 diff -urX ignorepats ikiclean/IkiWiki/Render.pm ikidev/IkiWiki/Render.pm
95 --- ikiclean/IkiWiki/Render.pm 2007-02-11 21:40:32.413641000 -0800
96 +++ ikidev/IkiWiki/Render.pm 2007-02-11 21:54:36.246356000 -0800
99 1 while (($dir)=$page_trimmed=~m!^([^/]+/)!) &&
101 + $p_trimmed=~m/^\Q$dir\E(?:.)/ &&
102 $p_trimmed=~s/^\Q$dir\E// &&
103 $page_trimmed=~s/^\Q$dir\E//;
108 return if $page eq 'index'; # toplevel
109 - foreach my $dir (reverse split("/", $page)) {
110 + if ($page =~ m{/$}){
115 + while ($page =~ m!([^/]+)$!) {
117 + $page =~ s!/?[^/]+$!!;
120 - unshift @ret, { url => $path.htmlpage($dir), page => pagetitle($dir) };
121 + my $target = abs2rel(htmlpage(bestlink($page, $last)), $page);
122 + unshift @ret, { url => $path.$target, page => pagetitle($last) };
126 diff -urX ignorepats ikiclean/IkiWiki.pm ikidev/IkiWiki.pm
127 --- ikiclean/IkiWiki.pm 2007-02-11 21:40:35.118406000 -0800
128 +++ ikidev/IkiWiki.pm 2007-02-11 22:22:49.146071000 -0800
130 sub basename ($) { #{{{
137 @@ -214,12 +215,14 @@
138 my $type=pagetype($file);
140 $page=~s/\Q.$type\E*$// if defined $type;
141 + $page=~s#index$## if $page=~m{/index$};
145 sub htmlpage ($) { #{{{
148 + return $page."index.html" if $page=~m{/$};
149 return $page.".html";
158 if ($link=~s/^\/+//) {
161 if (exists $links{$l}) {
164 + if (exists $links{$l.'/'}){
167 elsif (exists $pagecase{lc $l}) {
168 return $pagecase{lc $l};
171 $page=~s/__(\d+)__/&#$1;/g;
181 if ($glob =~ m!^\./!) {
182 - $from=~s!/?[^/]+$!!;
183 + $from=~s!/?[^/]*$!!;
185 $glob="$from/$glob" if length $from;
188 I independently implemented a similar, but smaller patch.
189 (It's smaller because I only care about rendering; not CGI, for example.)
190 The key to this patch is that "A/B/C" is treated as equivalent
192 Here it is: --Per Bothner
194 --- IkiWiki/Render.pm~ 2007-01-11 15:01:51.000000000 -0800
195 +++ IkiWiki/Render.pm 2007-02-02 22:24:12.000000000 -0800
197 foreach my $dir (reverse split("/", $page)) {
200 - unshift @ret, { url => $path.htmlpage($dir), page => pagetitle($dir) };
201 + unshift @ret, { url => abs2rel(htmlpage(bestlink($page, $dir)), dirname($page)), page => pagetitle($dir) };
204 + elsif ($dir ne "index") {
209 --- IkiWiki.pm~ 2007-01-12 12:47:09.000000000 -0800
210 +++ IkiWiki.pm 2007-02-02 18:02:16.000000000 -0800
212 elsif (exists $pagecase{lc $l}) {
213 return $pagecase{lc $l};
216 + my $lindex = $l . "/index";
217 + if (exists $links{$lindex}) {
221 } while $cwd=~s!/?[^/]+$!!;
223 if (length $config{userdir} && exists $links{"$config{userdir}/".lc($link)}) {
225 Note I handle setting the url; slightly differently.
226 Also note that an initial "index" is ignored. I.e. a
227 page "A/B/index.html" is treated as "A/B".
229 > This is actually a pretty cool hack. I'll have to think about
230 > whether I like it better than my way though :) --Ethan
234 How about doing the index stuff only on the output side? (Or does the latter patch do it? I haven't tried them.) That is, render every `foo.type` for the rendered types (mdwn etc.) as `foo/index.html`, generating links to `foo/` instead of `foo.html`, but not earlier than the point where the .html as presently appended to the page name. Then you just flip a build time option on an existing wiki without any changes to that, and the pages appear elsewhere. The `index.type` files might be left out of this scheme, though (and the top-level one, of course, has to). --[[tuomov]]
236 > Well, get around to wasting time on it after all, and [here's the patch](http://iki.fi/tuomov/use_dirs.diff). The `-use_dirs` option will cause everything to be rendered inside directories. There may still be some problems with it, that need looking into (it doesn't e.g. check for conflicts between foo/index.mdwn and foo.mdwn), but seems to work well enough for me... The patch also improves, I think, the parentlinks code a little, as it uses generic routines to actually find the target location now. The only places where the `use_dirs` option is used is `htmlpage`, in fact, although other specific kludges needed to be removed from other points in the code.
238 >> FWIW, [use_dirs.diff](http://iki.fi/tuomov/use_dirs.diff) applies cleanly, and works well for me. Given that it makes this behaviour optional, how about merging it? I have some follow-up patches which I'm sitting on for now. ;-) -- Ben
240 >>> How do you apply a patch created by svn diff? I've been curious about this for a long time. The use_dirs patch looks OK but I'd like to play with it. --Ethan
242 >>>> Just do `svn co svn://ikiwiki.kitenet.net/ikiwiki/trunk ikiwiki` then `cd ikiwiki && patch -p0 <use_dirs.diff`. :-) Same would work with a tarball as well.
244 >>>>> Sorry, I'm dumb. I'm so used to doing -p1 that doing -p0 never occurred to me; I thought the patch format generated by svn diff was just "wrong". --Ethan
248 First pass over Tumov's patch -- which doesn't cleanly apply anymore, so
249 I'll attach an updated and slightly modified version below.
251 * `urlto()` is O(N) to the number of pages in the wiki, which leads to
252 O(N^2) behavior, which could be a scalability problem. This happens because
253 of the lookup for `$to` in `%renderedfiles`, which shouldn't be necessary
254 most of the time. Couldn't it just be required that `$to` be a html page
255 name on input? Or require it be a non-html page name and always run
258 > Perhaps it would be possible to require that, but it seems like a
259 > very artificial restriction. The renderedfiles search is just a
260 > copy-paste from htmllink, and I'm no perl (or ikiwiki internals)
261 > expert... maybe there would be a faster way to do the check whether
262 > name translation is needed? No more than O(log n) steps should be
263 > needed for a simple search, after all, and maybe there would be shortcuts
264 > for even constant-time (in n) checks. --[[tuomov]]
266 >> Ah, so much easier to critque other people's code than your own.
267 >> You're right, this is a general problem, and I can get it to log n
268 >> if I really want to. --[[Joey]]
270 * As we discussed in email, this will break handling of `foo/index.mdwn`
271 pages. Needs to be changed to generate `foo/index/index.html` for such
272 pages (though not for the toplevel `index`).
274 >> Can someone elaborate on this? What's broken about it? Will pages
275 >> foo/index/index.html include foo/index in their parentlinks? --Ethan
277 >>> Presently the patch does not move `foo/index.type` as `foo/index/index.html`, but renders
278 >>> it as `foo/index.html`, not because I particularly want that (except for the top-level one, of
279 >>> course), but because it could be done :). This, however, conflicts with a `foo.mdwn`
280 >>> rendered as `foo/index.html`. The easiest and cleanest way to fix this, is to simply
281 >>> not handle `index` in such a special manner -- except for the top-level one. --[[tuomov]]
283 >>>> Oh, I see, this patch doesn't address wanting to use foo/index.mdwn as
284 >>>> an input page. Hmm. --Ethan
286 * This does make the resulting wikis much less browsable directly on the
287 filesystem, since `dir` to `dir/index.html` conversion is only handled by web
288 servers and so you end up browsing to a directory index all the time.
289 Wouldn't it be better to make the links themselves include the index.html?
290 (Although that would mean that [[bugs/broken_parentlinks]] would not be
291 fixed en passant by this patch..)
293 > Yes, the sites are not that browsable on the FS (I blame the browsers
294 > for being stupid!), but linking to the directory produces so much
295 > cleaner URLs for the Web, that I specifically want it. This is,
296 > after all, an optional arrangement.
298 >> It's optional for *now* ... I suppose that I could make adding the
299 >> index.html yet another option. I'm not _that_ fond of optioons
300 >> however. --[[Joey]]
302 >>> It is worth noting, that with this patch, you _can_ render the local
303 >>> copy in the present manner, while rendering the Web copy under
304 >>> directories. So no extra options are really needed for local browsing,
305 >>> unless you also want to serve the same copy over the Web, which I
306 >>> doubt. --[[tuomov]]
308 * Some of the generated links are missing the trailing / , which is
309 innefficient since it leads to a http redirect when clicking on that
310 link. Seems to be limited to ".." links, and possibly only to
311 parentlinks. (Already fixed it for "." links.)
313 > The solution seems to be to add to `urlto` the following snippet,
314 > which might also help with the next point. (Sorry, no updated patch
315 > yet. Should be on my way out in the cold anyway...)
318 return baseurl($from);
322 * It calles abs2rel about 16% more often with the patch, which makes it
323 a bit slower, since abs2rel is not very efficient. (This omits abs2rel
324 calls that might be memoized away already.) This seems to be due to one
325 extra abs2rel for the toplevel wiki page due to the nicely cleaned up code
326 in `parentlinks` -- so I'm not really complaining.. Especially since the
327 patch adds a new nice memoizable `urlto`.
328 * The rss page name generation code seems unnecesarily roundabout, I'm sure
329 that can be cleaned up somehow, perhaps by making `htmlpage` more
332 > Something like `targetpage(basename, extension)`?
334 >> Yes exactly. It might also be possible to remove htmlpage from the
335 >> plugin interface entirely (in favour of urlto), which would be a
336 >> good time to make such a changes. Not required to accept this patch
339 * `aggregate.pm` uses htmlpage in a way that breaks with its new behavior.
340 It will need to be changed as follows:
344 ===================================================================
345 --- aggregate.pm (revision 2700)
346 +++ aggregate.pm (working copy)
348 # NB: This doesn't check for path length limits.
350 my $max=POSIX::pathconf($config{srcdir}, &POSIX::_PC_NAME_MAX);
351 - if (defined $max && length(htmlpage($page)) >= $max) {
352 + if (defined $max && length(htmlfn($page)) >= $max) {
354 $page=$feed->{dir}."/item";
355 while (exists $IkiWiki::pagecase{lc $page.$c} ||
357 if (ref $feed->{tags}) {
358 $template->param(tags => [map { tag => $_ }, @{$feed->{tags}}]);
360 - writefile(htmlpage($guid->{page}), $config{srcdir},
361 + writefile(htmlfn($guid->{page}), $config{srcdir},
364 # Set the mtime, this lets the build process get the right creation
366 return "$config{srcdir}/".htmlpage($page);
369 +sub htmlfn ($) { #{{{
370 + return shift().".html";
376 * `linkmap.pm` uses `htmlpage` to construct a link and should probably be
377 changed like this (untested):
381 ===================================================================
382 --- linkmap.pm (revision 2700)
383 +++ linkmap.pm (working copy)
385 foreach my $item (keys %links) {
386 if (pagespec_match($item, $params{pages}, $params{page})) {
387 my $link=htmlpage($item);
388 - $link=IkiWiki::abs2rel($link, IkiWiki::dirname($params{page}));
389 - $mapitems{$item}=$link;
390 + $mapitems{$item}=urlto($link, $params{destpage});
395 * `inline.pm` uses htmlpage and `abs2rel` to generate a link, and probably
396 needs to be changed to either use `urlto` or to call `beautify_url` like
397 htmllink does. This might work:
401 ===================================================================
402 --- inline.pm (revision 2700)
403 +++ inline.pm (working copy)
405 # Don't use htmllink because this way the
406 # title is separate and can be overridden by
408 - my $link=bestlink($params{page}, $page);
409 - $link=htmlpage($link) if defined $type;
410 - $link=abs2rel($link, dirname($params{destpage}));
411 - $template->param(pageurl => $link);
412 + $template->param(pageurl => urlto(bestlink($params{page}, $page), $params{destpage}));
413 $template->param(title => pagetitle(basename($page)));
414 $template->param(ctime => displaytime($pagectime{$page}));
417 * `img.pm` makes some assumptions about name of the page that will be
418 linking to the image, which are probably broken.
420 * The changes to htmlpage's behavior probably call for the plugin
421 interface version number to be changed.
425 Updated version of Tumov's patch follows:
428 Index: IkiWiki/Render.pm
429 ===================================================================
430 --- IkiWiki/Render.pm (revision 2700)
431 +++ IkiWiki/Render.pm (working copy)
434 return unless $backlinks{$page};
435 foreach my $p (keys %{$backlinks{$page}}) {
436 - my $href=abs2rel(htmlpage($p), dirname($page));
438 + my $href=urlto($p, $page);
440 # Trim common dir prefixes from both pages.
442 my $page_trimmed=$page;
448 + my $title=$config{wikiname};
450 return if $page eq 'index'; # toplevel
451 - foreach my $dir (reverse split("/", $page)) {
454 - unshift @ret, { url => $path.htmlpage($dir), page => pagetitle($dir) };
459 + foreach my $dir (split("/", $page)) {
460 + push @ret, { url => urlto($path, $page), page => $title };
462 + $title=pagetitle($dir);
464 - unshift @ret, { url => length $path ? $path : ".", page => $config{wikiname} };
468 Index: IkiWiki/Plugin/inline.pm
469 ===================================================================
470 --- IkiWiki/Plugin/inline.pm (revision 2700)
471 +++ IkiWiki/Plugin/inline.pm (working copy)
474 add_depends($params{page}, $params{pages});
476 - my $rssurl=rsspage(basename($params{page}));
477 - my $atomurl=atompage(basename($params{page}));
478 + my $rssurl=basename(rsspage($params{page}));
479 + my $atomurl=basename(atompage($params{page}));
482 if (exists $params{rootpage} && $config{cgiurl}) {
484 # title is separate and can be overridden by
486 my $link=bestlink($params{page}, $page);
487 - $link=htmlpage($link) if defined $type;
488 - $link=abs2rel($link, dirname($params{destpage}));
489 + $link=urlto($link, $params{destpage});
490 $template->param(pageurl => $link);
491 $template->param(title => pagetitle(basename($page)));
492 $template->param(ctime => displaytime($pagectime{$page}));
493 @@ -205,15 +204,17 @@
497 - will_render($params{page}, rsspage($params{page}));
498 - writefile(rsspage($params{page}), $config{destdir},
499 + my $rssp=rsspage($params{page});
500 + will_render($params{page}, $rssp);
501 + writefile($rssp, $config{destdir},
502 genfeed("rss", $rssurl, $desc, $params{page}, @list));
503 $toping{$params{page}}=1 unless $config{rebuild};
504 $feedlinks{$params{destpage}}=qq{<link rel="alternate" type="application/rss+xml" title="RSS" href="$rssurl" />};
507 - will_render($params{page}, atompage($params{page}));
508 - writefile(atompage($params{page}), $config{destdir},
509 + my $atomp=atompage($params{page});
510 + will_render($params{page}, $atomp);
511 + writefile($atomp, $config{destdir},
512 genfeed("atom", $atomurl, $desc, $params{page}, @list));
513 $toping{$params{page}}=1 unless $config{rebuild};
514 $feedlinks{$params{destpage}}=qq{<link rel="alternate" type="application/atom+xml" title="Atom" href="$atomurl" />};
515 @@ -288,16 +289,25 @@
519 +sub basepage ($) { #{{{
522 + $page=htmlpage($page);
523 + $page =~ s/\.html$//;
528 sub rsspage ($) { #{{{
531 - return $page.".rss";
532 + return basepage($page).".rss";
535 sub atompage ($) { #{{{
538 - return $page.".atom";
539 + return basepage($page).".atom";
542 sub genfeed ($$$$@) { #{{{
544 ===================================================================
545 --- ikiwiki.in (revision 2700)
546 +++ ikiwiki.in (working copy)
548 "sslcookie!" => \$config{sslcookie},
549 "httpauth!" => \$config{httpauth},
550 "userdir=s" => \$config{userdir},
551 + "usedirs!" => \$config{usedirs},
552 "exclude=s@" => sub {
553 push @{$config{wiki_file_prune_regexps}}, $_[1];
555 Index: doc/usage.mdwn
556 ===================================================================
557 --- doc/usage.mdwn (revision 2700)
558 +++ doc/usage.mdwn (working copy)
565 + Create output files named page/index.html instead of page.html.
567 * --w3mmode, --no-w3mmode
569 Enable [[w3mmode]], which allows w3m to use ikiwiki as a local CGI script,
570 Index: doc/plugins/write.mdwn
571 ===================================================================
572 --- doc/plugins/write.mdwn (revision 2700)
573 +++ doc/plugins/write.mdwn (working copy)
576 This is the standard gettext function, although slightly optimised.
580 +Construct a relative url to the first parameter from the second.
584 ikiwiki's support for revision control systems also uses pluggable perl
585 Index: doc/ikiwiki.setup
586 ===================================================================
587 --- doc/ikiwiki.setup (revision 2700)
588 +++ doc/ikiwiki.setup (working copy)
591 # To link to user pages in a subdirectory of the wiki.
593 + # To enable alternate output filenames.
596 # To add plugins, list them here.
597 #add_plugins => [qw{goodstuff openid search wikitext camelcase
599 ===================================================================
600 --- IkiWiki.pm (revision 2700)
601 +++ IkiWiki.pm (working copy)
603 use Exporter q{import};
604 our @EXPORT = qw(hook debug error template htmlpage add_depends pagespec_match
605 bestlink htmllink readfile writefile pagetype srcfile pagename
606 - displaytime will_render gettext
607 + displaytime will_render gettext urlto
608 %config %links %renderedfiles %pagesources);
609 our $VERSION = 1.02; # plugin interface version, next is ikiwiki version
610 our $version='unknown'; # VERSION_AUTOREPLACE done by Makefile, DNE
618 sub checkconfig () { #{{{
620 sub htmlpage ($) { #{{{
623 - return $page.".html";
624 + if (! $config{usedirs} || $page =~ /^index$/ || $page =~ /\/index$/) {
625 + return $page.".html";
627 + return $page."/index.html";
631 sub srcfile ($) { #{{{
634 return "$config{url}/" if ! defined $page;
636 + $page=htmlpage($page);
638 $page=~s/[^\/]+\//..\//g;
641 $config{timeformat}, localtime($time)));
644 +sub beautify_url ($) { #{{{
647 + $url =~ s!/index.html$!/!;
648 + $url =~ s!^$!./!; # Browsers don't like empty links...
653 +sub urlto ($$) { #{{{
658 + ! grep { $_ eq $to } map { @{$_} } values %renderedfiles) {
662 + my $link = abs2rel($to, dirname(htmlpage($from)));
664 + return beautify_url($link);
667 sub htmllink ($$$;@) { #{{{
668 my $lpage=shift; # the page doing the linking
669 my $page=shift; # the page that will contain the link (different for inline)
671 "\">?</a>$linktext</span>"
674 - $bestlink=abs2rel($bestlink, dirname($page));
675 + $bestlink=abs2rel($bestlink, dirname(htmlpage($page)));
676 + $bestlink=beautify_url($bestlink);
678 if (! $opts{noimageinline} && isinlinableimage($bestlink)) {
679 return "<img src=\"$bestlink\" alt=\"$linktext\" />";