123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657 |
- # Copyright (C) 2004 Alex Schroeder <alex@emacswiki.org>
- #
- # This program is free software; you can redistribute it and/or modify
- # it under the terms of the GNU General Public License as published by
- # the Free Software Foundation; either version 3 of the License, or
- # (at your option) any later version.
- #
- # This program is distributed in the hope that it will be useful,
- # but WITHOUT ANY WARRANTY; without even the implied warranty of
- # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
- # GNU General Public License for more details.
- #
- # You should have received a copy of the GNU General Public License
- # along with this program. If not, see <http://www.gnu.org/licenses/>.
- use strict;
- use v5.10;
- AddModuleDescription('paragraph-link.pl', 'Paragraph Link Extension');
- our ($bol, $OpenPageName, %RuleOrder, @MyRules, $FreeLinkPattern, %PermanentAnchors, %PagePermanentAnchors);
- push(@MyRules, \&ParagraphLinkRule);
- # The [...] rule conflicts with the [new] in portrait-support.pl
- $RuleOrder{\&ParagraphLinkRule} = 100;
- sub ParagraphLinkRule {
- if ($bol && m/\G(\[(-)?$FreeLinkPattern\])/cg) {
- Dirty($1);
- my $invisible = $2;
- my $orig = $3;
- my $id = FreeToNormal($orig);
- my $text = $id;
- $text =~ s/_/ /g;
- my $html = ScriptLink(UrlEncode($id), $invisible ? '' : $text, 'permalink', $id,
- Ts('Permalink to "%s"', $orig));
- my ($class, $resolved, $title, $exists) = ResolveId($id);
- if ($class eq 'alias' and $title ne $OpenPageName) {
- $html .= ' [' . Ts('anchor first defined here: %s',
- ScriptLink(UrlEncode($resolved), $text, 'alias')) . ']';
- } elsif ($PermanentAnchors{$id} ne $OpenPageName
- and RequestLockDir('permanentanchors')) { # not fatal
- $PermanentAnchors{$id} = $OpenPageName;
- WritePermanentAnchors();
- ReleaseLockDir('permanentanchors');
- }
- $PagePermanentAnchors{$id} = 1; # add to the list of anchors in page
- $html .= ' [' . Ts('the page %s also exists',
- ScriptLink("action=browse;anchor=0;id="
- . UrlEncode($id), $id, 'local')) . ']'
- if $exists;
- print $html;
- return '';
- }
- return;
- }
|