Add alternate patch
[ikiwiki.git] / doc / todo / inline:_numerical_ordering_by_title.mdwn
1 Could you please add numerical ordering by title to [[inline|plugins/inline]]
2 plugin? Now I can do only alphabetical order by title, but sometime it's not enough.
3
4 BTW, it seems that ordering by title is rather ordering by filename of page.
5 For me "title" means title of page I can set using `title` parameter
6 of [[meta|plugins/meta]] plugin :)
7
8 Why do I need that feature? I've just been migrating an info site of our university
9 [mail system](http://poczta.uw.edu.pl/) to Ikiwiki from very static, console handling
10 Makefile+[WML](http://thewml.org/)+XML+XSL=HTML solution. I have many news files
11 (`1.mdwn`, `2.mdwn`, etc.) and unfortunately I did very stupid thing. I've commited
12 all of them in the same revision of our Subversion repo...
13
14 Now I have a problem with sorting these files using inline plugin. I can't do
15 sorting by age, because both old and young news files have the same age. I can't
16 sort by title too. For example, when I sort them by title, then `9.mdwn` page is
17 between `90.mdwn` and `89.mdwn` pages... It sucks, of course. Sorting by mtime
18 also is not a solution for me, because it means that I can't touch/fix old news
19 anymore.
20
21 Do you have any idea how to workaround that issue? --[[Paweł|ptecza]]
22
23 > Maybe you can rename `9.mdwn` to `09.mdwn`? See `rename(1)`, it renames multiple files
24 > in one go. --[[buo]]
25
26 >> Thanks for your suggestion! But what about if number of my news files grows to 100+?
27
28 >>     $ ls
29 >>     09.mdwn  100.mdwn  101.mdwn  102.mdwn  89.mdwn  90.mdwn
30
31 >> I don't want to rename all previous files to add `0` prefix. --[[Paweł|ptecza]]
32
33 >>> Rather than adding 0's or or a 'sorttype' parameter, I'd just fix the sort order.
34 >>> Both MacOS and Windows use a smarter sort order than just lexical in their
35 >>> file browsers (e.g. <http://support.microsoft.com/default.aspx?kbid=319827>,
36 >>> <http://docs.info.apple.com/article.html?artnum=300989>).
37 >>>
38 >>> The [Unicode Collation algorithm](http://en.wikipedia.org/wiki/Unicode_collation_algorithm)
39 >>> would seem to be a reasonable sort order.  (See also <http://www.unicode.org/unicode/reports/tr10/>.)
40 >>> Unfortunately the standard perl implementation, [Unicode::Collate](http://perldoc.perl.org/Unicode/Collate.html)
41 >>> doesn't handle the optional [numbers](http://www.unicode.org/unicode/reports/tr10/#Customization)
42 >>> extension which is what you want.  --[[Will]]
43
44 ---
45
46 Below is my simple patch. Feel free to use it or comment!
47
48 I have also 2 considerations for inline sorting:
49
50 1. Maybe changing name of `sort` parameter to `sortby` or `sortkey` will
51    be good idea?
52 1. Maybe you should use `title` sort key for title from meta plugin and `name`, 
53    `filename`, `page` or `pagename` for page names? In the future you can also
54    sort by meta author, license or another key.
55
56 --[[Paweł|ptecza]]
57
58     --- inline.pm-orig  2008-09-02 09:53:20.000000000 +0200
59     +++ inline.pm       2008-09-02 10:09:02.000000000 +0200
60     @@ -186,7 +186,15 @@
61         }
62
63         if (exists $params{sort} && $params{sort} eq 'title') {
64     -           @list=sort { pagetitle(basename($a)) cmp pagetitle(basename($b)) } @list;
65     +           if (! $params{sorttype} || $params{sorttype} eq 'lexical') {
66     +                   @list=sort { pagetitle(basename($a)) cmp pagetitle(basename($b)) } @list;
67     +           }
68     +           elsif ($params{sorttype} eq 'numeric') {
69     +                   @list=sort { pagetitle(basename($a)) <=> pagetitle(basename($b)) } @list;
70     +           }
71     +           else {
72     +                   return sprintf(gettext("unknown sort type %s"), $params{sorttype});
73     +           }
74         }
75         elsif (exists $params{sort} && $params{sort} eq 'mtime') {
76                 @list=sort { $pagemtime{$b} <=> $pagemtime{$a} } @list;
77     @@ -195,7 +203,7 @@
78                 @list=sort { $pagectime{$b} <=> $pagectime{$a} } @list;
79         }
80         else {
81     -           return sprintf(gettext("unknown sort type %s"), $params{sort});
82     +           return sprintf(gettext("unknown sort key %s"), $params{sort});
83         }
84
85         if (yesno($params{reverse})) {
86
87 ---
88
89 Joey, have you forgotten about that request? ;) --[[Paweł|ptecza]]
90
91 > Okie.  Here is a different [[patch]] based on my comment above.  It doesn't introduce
92 > a new key, but rather changes the title sorting order. Two caveats:
93
94  * I've only tested this in `inline`, not the other places I changed the sort order.
95  * I'm unsure if the regexp used in the split should be `/(-?\d+)/` instead of `/(\d+)/`.
96     As written, '-' is interpreted as a hyphen rather than a minus sign.
97
98 > --[[Will]]
99
100 ----
101
102     diff --git a/IkiWiki.pm b/IkiWiki.pm
103     index c0f5dea..d001f8d 100644
104     --- a/IkiWiki.pm
105     +++ b/IkiWiki.pm
106     @@ -20,7 +20,7 @@ use Exporter q{import};
107      our @EXPORT = qw(hook debug error template htmlpage add_depends pagespec_match
108                       bestlink htmllink readfile writefile pagetype srcfile pagename
109                       displaytime will_render gettext urlto targetpage
110     -            add_underlay
111     +            add_underlay titlecmp
112                       %config %links %pagestate %renderedfiles
113                       %pagesources %destsources);
114      our $VERSION = 2.00; # plugin interface version, next is ikiwiki version
115     @@ -835,6 +835,42 @@ sub titlepage ($) { #{{{
116         return $title;
117      } #}}}
118      
119     +sub titlecmp ($$) { #{{{
120     +   my $titleA=shift;
121     +   my $titleB=shift;
122     +   
123     +   my @listA=split(/(\d+)/,$titleA);
124     +   my @listB=split(/(\d+)/,$titleB);
125     +   
126     +   while (@listA && @listB) {
127     +           # compare bits of text
128     +           my $a = shift @listA;
129     +           my $b = shift @listB;
130     +           my $c = ($a cmp $b);
131     +           return $c if ($c);
132     +
133     +           if (@listA && @listB) {
134     +                   # compare numbers
135     +                   $a = shift @listA;
136     +                   $b = shift @listB;
137     +                   $c = $a <=> $b;
138     +                   return $c if ($c);
139     +                   
140     +                   # 01 is different to 1
141     +                   $c = (length($a) <=> length($b));
142     +                   return $c if ($c);
143     +
144     +                   $c = ($a cmp $b);
145     +                   return $c if ($c);
146     +           }
147     +   }
148     +   
149     +   return 1 if (@listA);
150     +   return -1 if (@listB);
151     +   
152     +   return 0;
153     +} #}}}
154     +
155      sub linkpage ($) { #{{{
156         my $link=shift;
157         my $chars = defined $config{wiki_file_chars} ? $config{wiki_file_chars} : "-[:alnum:]+/.:_";
158     diff --git a/IkiWiki/Plugin/brokenlinks.pm b/IkiWiki/Plugin/brokenlinks.pm
159     index 37752dd..ccaa399 100644
160     --- a/IkiWiki/Plugin/brokenlinks.pm
161     +++ b/IkiWiki/Plugin/brokenlinks.pm
162     @@ -59,7 +59,7 @@ sub preprocess (@) { #{{{
163                         map {
164                                 "<li>$_</li>"
165                         }
166     -                   sort @broken)
167     +                   sort titlecmp @broken)
168                 ."</ul>\n";
169      } # }}}
170      
171     diff --git a/IkiWiki/Plugin/inline.pm b/IkiWiki/Plugin/inline.pm
172     index 8efef3f..263e7a6 100644
173     --- a/IkiWiki/Plugin/inline.pm
174     +++ b/IkiWiki/Plugin/inline.pm
175     @@ -192,7 +192,7 @@ sub preprocess_inline (@) { #{{{
176         }
177      
178         if (exists $params{sort} && $params{sort} eq 'title') {
179     -           @list=sort { pagetitle(basename($a)) cmp pagetitle(basename($b)) } @list;
180     +           @list=sort { titlecmp(pagetitle(basename($a)),pagetitle(basename($b))) } @list;
181         }
182         elsif (exists $params{sort} && $params{sort} eq 'mtime') {
183                 @list=sort { $pagemtime{$b} <=> $pagemtime{$a} } @list;
184     diff --git a/IkiWiki/Plugin/orphans.pm b/IkiWiki/Plugin/orphans.pm
185     index b910758..10a1d87 100644
186     --- a/IkiWiki/Plugin/orphans.pm
187     +++ b/IkiWiki/Plugin/orphans.pm
188     @@ -56,7 +56,7 @@ sub preprocess (@) { #{{{
189                                 htmllink($params{page}, $params{destpage}, $_,
190                                          noimageinline => 1).
191                                 "</li>"
192     -                   } sort @orphans).
193     +                   } sort titlecmp @orphans).
194                 "</ul>\n";
195      } # }}}
196      
197     diff --git a/IkiWiki/Render.pm b/IkiWiki/Render.pm
198     index ceb7c84..00798e1 100644
199     --- a/IkiWiki/Render.pm
200     +++ b/IkiWiki/Render.pm
201     @@ -89,7 +89,7 @@ sub genpage ($$) { #{{{
202                 $template->param(have_actions => 1);
203         }
204      
205     -   my @backlinks=sort { $a->{page} cmp $b->{page} } backlinks($page);
206     +   my @backlinks=sort { titlecmp($a->{page}, $b->{page}) } backlinks($page);
207         my ($backlinks, $more_backlinks);
208         if (@backlinks <= $config{numbacklinks} || ! $config{numbacklinks}) {
209                 $backlinks=\@backlinks;