-
Notifications
You must be signed in to change notification settings - Fork 13
/
git-another.pl
75 lines (64 loc) · 2.19 KB
/
git-another.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
# Copyright (C) 2014 Alex-Daniel Jakimenko <alex.jakimenko@gmail.com>
# Copyright (C) 2011 Alex Schroeder <alex@gnu.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('git-another.pl', 'Another Git Extension');
use Cwd;
use Capture::Tiny ':all';
our (%Page, $DataDir, $FootnoteNumber);
our ($GitBinary, $GitMail);
$GitBinary = 'git';
$GitMail = 'unknown@oddmuse.org';
sub GitCommit {
my ($message, $author) = @_;
my $oldDir = cwd;
ChangeDir("$DataDir/page");
capture {
system($GitBinary, qw(add -A));
system($GitBinary, qw(commit -q -m), $message, "--author=$author <$GitMail>");
};
ChangeDir($oldDir);
}
sub GitInitRepository {
return if IsDir("$DataDir/page/.git");
capture {
system($GitBinary, qw(init -q --), encode_utf8("$DataDir/page"));
};
GitCommit('Initial import', 'Oddmuse');
}
sub RenderHtmlCacheWithoutPrinting { # requires an open page
$FootnoteNumber = 0;
my ($blocks, $flags);
capture {
($blocks, $flags) = ApplyRules(QuoteHtml($Page{text}), 1, 1, $Page{revision}, 'p');
};
if ($Page{blocks} ne $blocks and $Page{flags} ne $flags) {
$Page{blocks} = $blocks;
$Page{flags} = $flags;
SavePage();
}
}
*GitOldSave = \&Save;
*Save = \&GitNewSave;
sub GitNewSave {
GitInitRepository();
GitCommit('No description available', 'Oddmuse'); # commit any changes before this edit
GitOldSave(@_);
RenderHtmlCacheWithoutPrinting();
my $message = $Page{summary};
$message =~ s/^\s+$//;
$message ||= T('No summary provided');
my $author = $Page{username} || T('Anonymous');
GitCommit($message, $author); # commit this edit
}