tag
[ikiwiki.git] / doc / todo / using_meta_titles_for_parentlinks.html
1 It is possible to set a Page-Title in the meta-plugin, but that one isn't
2 reused in parentlinks. This [[patch]] may fix it.
3
4 <ul>
5 <li> I give pagetitle the full path to a page.
6 <li> I redefine the 'pagetitle'-sub to deal with it.
7 <li> to maintain compatibility for IkiWikis without the meta-plugin, i added a 'basename' to the Original-pagetitle.
8 </ul>
9
10 <pre>
11 diff -c /usr/share/perl5/IkiWiki/Render.pm.distrib /usr/share/perl5/IkiWiki/Render.pm
12 *** /usr/share/perl5/IkiWiki/Render.pm.distrib  Wed Aug  6 07:34:55 2008
13 --- /usr/share/perl5/IkiWiki/Render.pm  Tue Aug 26 23:29:32 2008
14 ***************
15 *** 102,108 ****
16         $template->param(
17                 title => $page eq 'index' 
18                         ? $config{wikiname} 
19 !                       : pagetitle(basename($page)),
20                 wikiname => $config{wikiname},
21                 content => $content,
22                 backlinks => $backlinks,
23 --- 102,108 ----
24         $template->param(
25                 title => $page eq 'index' 
26                         ? $config{wikiname} 
27 !                       : pagetitle($page),
28                 wikiname => $config{wikiname},
29                 content => $content,
30                 backlinks => $backlinks,
31
32 diff -c /usr/share/perl5/IkiWiki/Plugin/parentlinks.pm.distrib /usr/share/perl5/IkiWiki/Plugin/parentlinks.pm
33 *** /usr/share/perl5/IkiWiki/Plugin/parentlinks.pm.distrib      Wed Aug  6 07:34:55 2008
34 --- /usr/share/perl5/IkiWiki/Plugin/parentlinks.pm      Tue Aug 26 23:19:43 2008
35 ***************
36 *** 44,50 ****
37                         "height_$height" => 1,
38                 };
39                 $path.="/".$dir;
40 !               $title=IkiWiki::pagetitle($dir);
41                 $i++;
42         }
43         return @ret;
44 --- 44,50 ----
45                         "height_$height" => 1,
46                 };
47                 $path.="/".$dir;
48 !               $title=IkiWiki::pagetitle($path);
49                 $i++;
50         }
51         return @ret;
52
53 diff -c /usr/share/perl5/IkiWiki.pm.distrib /usr/share/perl5/IkiWiki.pm
54 *** /usr/share/perl5/IkiWiki.pm.distrib Wed Aug  6 07:48:34 2008
55 --- /usr/share/perl5/IkiWiki.pm Tue Aug 26 23:47:30 2008
56 ***************
57 *** 792,797 ****
58 --- 792,799 ----
59         my $page=shift;
60         my $unescaped=shift;
61   
62 +       $page=basename($page);
63
64         if ($unescaped) {
65                 $page=~s/(__(\d+)__|_)/$1 eq '_' ? ' ' : chr($2)/eg;
66         }
67
68 diff -c /usr/share/perl5/IkiWiki/Plugin/meta.pm.distrib /usr/share/perl5/IkiWiki/Plugin/meta.pm
69 *** /usr/share/perl5/IkiWiki/Plugin/meta.pm.distrib     Wed Aug  6 07:34:55 2008
70 --- /usr/share/perl5/IkiWiki/Plugin/meta.pm     Tue Aug 26 23:30:58 2008
71 ***************
72 *** 3,8 ****
73 --- 3,9 ----
74   package IkiWiki::Plugin::meta;
75   
76   use warnings;
77 + no warnings 'redefine';
78   use strict;
79   use IkiWiki 2.00;
80   
81 ***************
82 *** 289,294 ****
83 --- 290,319 ----
84         }
85   } #}}}
86   
87 + sub IkiWiki::pagetitle ($;$) { #{{{
88 +       my $page=shift;
89 +       my $unescaped=shift;
90
91 +       if ($page =~ m#/#) {
92 +               $page =~ s#^/##;
93 +               $page =~ s#/index$##;
94 +               if ($pagestate{"$page/index"}{meta}{title}) {
95 +                       $page = $pagestate{"$page/index"}{meta}{title};
96 +               } else {
97 +                       $page = IkiWiki::basename($page);
98 +               }
99 +       }
100
101 +       if ($unescaped) {
102 +               $page=~s/(__(\d+)__|_)/$1 eq '_' ? ' ' : chr($2)/eg;
103 +       }
104 +       else {
105 +               $page=~s/(__(\d+)__|_)/$1 eq '_' ? ' ' : "&#$2;"/eg;
106 +       }
107
108 +       return $page;
109 + } #}}}
110
111   package IkiWiki::PageSpec;
112   
113   sub match_title ($$;@) { #{{{
114
115
116 </pre>