Changeset 2424 for trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Cli/Context.pm

Timestamp:

06/26/20 10:04:24 (4 years ago)

Author:

nanardon

Message:

Add setting command to la-cli

By the way this patch add a limit to history.

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Cli/Context.pm (modified) (3 diffs)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Cli/Context.pm

@@ -61 +61 @@
     my $OUT = \*STDOUT;
 
-    $term->ReadHistory( _historyFile() );
-
     return $class->$orig( Out => $OUT, Term => $term, @_ );
 
@@ -87 +85 @@
         $self->Preferences( YAML::LoadFile( _preferenceFile() ) );
     }
+    
+    $self->ApplySetting();
 }
 
@@ -93 +93 @@
 
     YAML::DumpFile( _preferenceFile(), $self->Preferences() );
+}
+
+sub DefaultSetting {
+    my ( $self, $setting ) = @_;
+
+    my $defaults = {
+        'historysize' => 1000,
+    };
+    if ($setting) {
+        return $defaults->{ $setting };
+    } else {
+        return sort keys %{ $defaults };
+    }
+}
+
+sub ApplySetting {
+    my ( $self ) = @_;
+
+    $self->Term->StifleHistory( $self->Setting('historysize') );
+}
+
+sub Setting {
+    my ( $self, $setting, $value ) = @_;
+
+    my $oldvalue = defined($self->Preferences->{settings}{ $setting })
+        ? $self->Preferences->{settings}{ $setting } : $self->DefaultSetting( $setting );
+
+    if (defined($value)) {
+        if ($value eq 'default') {
+            delete($self->Preferences->{settings}{ $setting });
+        } else {
+            $self->Preferences->{settings}{ $setting } = $value;
+        }
+
+        $self->ApplySetting();
+    }
+
+    return ($oldvalue);
 }