bitlair/revbank
6
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

editor: only ask to save if anything's changed; print status

Browse source
This commit is contained in:
Juerd Waalboer 2022-08-30 20:57:41 +02:00
parent 43a1990974
commit 042db97ea8
1 changed files with 23 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

37
lib/RevBank/TextEditor.pm
View file

@ -87,7 +87,7 @@ sub _find($win) {
$win->delete('find'); $win->delete('find');
} }
sub _editor($title, $data) { sub _editor($title, $origdata) {
our $cui ||= Curses::UI->new; our $cui ||= Curses::UI->new;
my $win = $cui->add('main', 'Window'); my $win = $cui->add('main', 'Window');
$title = "[$title] Ctrl+X: exit Ctrl+F: find Ctrl+C/K/V: copy/cut/paste"; $title = "[$title] Ctrl+X: exit Ctrl+F: find Ctrl+C/K/V: copy/cut/paste";
@ -95,7 +95,7 @@ sub _editor($title, $data) {
my $editor = $win->add( my $editor = $win->add(
'editor', 'TextEditor', 'editor', 'TextEditor',
-title => $title, -title => $title,
-text => $data, -text => $origdata,
-border => 1, -border => 1,
-padbottom => 1, # ibm3151/screen lastline corner glitch workaround -padbottom => 1, # ibm3151/screen lastline corner glitch workaround
-wrapping => 0, -wrapping => 0,
@ -120,17 +120,21 @@ sub _editor($title, $data) {
[ "\cC" => sub { $editor->{-pastebuffer} = $editor->getline_at_ypos($editor->{-ypos}) } ], [ "\cC" => sub { $editor->{-pastebuffer} = $editor->getline_at_ypos($editor->{-ypos}) } ],
[ "\cF" => sub { _find($win) } ], [ "\cF" => sub { _find($win) } ],
[ "\cX" => sub { [ "\cX" => sub {
my $answer = $cui->dialog( if ($editor->get ne $origdata) {
-message => "Save changes?", my $answer = $cui->dialog(
-buttons => [ -message => "Save changes?",
{ -label => "[Save]", -value => 1 }, -buttons => [
{ -label => "[Discard]", -value => 0 }, { -label => "[Save]", -value => 1 },
{ -label => "[Cancel]", -value => -1 }, { -label => "[Discard]", -value => 0 },
], { -label => "[Cancel]", -value => -1 },
-values => [ 1, 0 ], ],
); -values => [ 1, 0 ],
$return = $editor->get if $answer == 1; );
$cui->mainloopExit if $answer >= 0; $return = $origdata if $answer == 1;
$cui->mainloopExit if $answer >= 0;
} else {
$cui->mainloopExit;
}
} ], } ],
); );
@ -159,7 +163,12 @@ sub edit($filename) {
or die "Someone else is alreading editing $filename.\n"; or die "Someone else is alreading editing $filename.\n";
my $save = _editor($filename, scalar slurp $filename); my $save = _editor($filename, scalar slurp $filename);
spurt $filename, $save if defined $save; if (defined $save) {
spurt $filename, $save;
print "$filename updated.\n";
} else {
print "$filename not changed.\n";
}
} }
1; 1;