Changeset 2504

Timestamp:

01/08/22 09:16:57 (2 years ago)

Author:

nanardon

Message:

add --insert to la-cli/create command

Location:

trunk/LATMOS-Accounts/lib/LATMOS/Accounts

Files:

• Cli.pm (modified) (3 diffs)
• Utils.pm (modified) (2 diffs)

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

@@ -290 +290 @@
     open an epty file instead instead attribute list
 
+=item --insert
+
+    open vi in insert mode
+
 =item --ro
 
@@ -303 +307 @@
                 my ($otype, $objname) = $self->getoption(
                     {
-                        'i'   => \my $interactive,
-                        'f=s' => \my $inputfile,
-                        'ro'  => \my $with_ro,
-                        'e'   => \my $empty_file,
+                        'i'      => \my $interactive,
+                        'f=s'    => \my $inputfile,
+                        'ro'     => \my $with_ro,
+                        'e'      => \my $empty_file,
+                        'insert' => \my $insert,
                     }, @_
                 );
@@ -378 +383 @@
                                  return;
                              }
-                        }
+                        },
+                        insert => $insert,
                     );
                 }

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Utils.pm

@@ -171 +171 @@
 
 sub dump_read_temp_file {
-    my ($writecb, $readcb) = @_;
+    my ($writecb, $readcb, %options) = @_;
 
     my ($fh, $filename) = tempfile(CLEANUP => 0);
@@ -180 +180 @@
     my @stat = stat($filename);
     while (1) {
-        my $cmd = ($ENV{EDITOR} || 'vi') . " $filename";
+        my $cmd = ($ENV{EDITOR} || 'vi');
+        $cmd .= " -c startinsert " if( $options{insert} );
+        $cmd .= " $filename";
         warn "Running $cmd\n";
         if (system($cmd) == -1 ) {