Port before_v0.60/stdlib_candidate (#850)

This PR is part of porting all old scripts #221 and includes the
`stdlib_candidate` scripts

## 7 changed files

- `flatter.nu`
- `get-column.nu`
- `get-row.nu`
- `get-latest-release-linux.nu`
- `logging.nu`
- `nu_style.nu`
- `print.nu`

before_v0.60/stdlib_candidate/flatter.nu → stdlib-candidate/std-rfc/flatter.nu

@@ -2,9 +2,10 @@
 # by @jturner 2/10/21
 # Example: sys | flatter 3
 def flatter [levels:int] {
+  let input = $in
   if $levels > 0 {
-    flatten | flatter ($levels - 1)
-  } {
-    each { echo $it }
+      $input | columns | reduce -f $input {|it acc| $acc | flatten $it } | flatter ($levels - 1)
+  } else {
+      $input
   }
-}
+}

before_v0.60/stdlib_candidate/get-column.nu → stdlib-candidate/std-rfc/get-column.nu

@@ -1,26 +1,23 @@
 # Documentation for get-col
 # Written on 2021-03-28 06:58:50 by andras_io on discord
+# Written for the new Nushell version on 03/31/2022 10:10 PM by denkspuren on discord
 def get-col [
      col_index:int # A 0 indexed col_index
     ] {
 
     # meant to be used like `ls | get-col 1`
-    # ls | select (ls | get | nth 2)
-
-    each {
-        echo $it | select (echo $it | get | nth $col_index)
-    }
+    let input = $in
+    let name = ($input | columns | select $col_index | get 0)
+    $input | select $name
 }
 
 # Documentation for get-col2
 # Written on 2021-03-28 07:00:24 by johng on discord
+# Written for the new Nushell version on 03/31/2022 10:10 PM by denkspuren on discord
 def get-column [
      col_index:int # A 0 indexed col_index
     ] {
 
     # meant to be used like `ls | get-column 1`
-    pivot | nth $col_index | pivot | get Column1 | skip
+    $in | transpose | select $col_index | transpose | select column1 | headers
 }
-
-# another working example is
-# ls | keep 2 | drop column 3

before_v0.60/stdlib_candidate/get-latest-release-linux.nu → stdlib-candidate/std-rfc/get-latest-release-linux.nu

@@ -2,22 +2,23 @@
 # requires nushell 0.36.0 or greater
 def get-latest-linux [] {
     # fetch the information about the latest release
-    let metadata = (fetch https://api.github.com/repos/nushell/nushell/releases/latest)
-    let release_name = ($metadata | get name | split row ' ' | nth 0)
+    let metadata = (http get https://api.github.com/repos/nushell/nushell/releases/latest)
+    let release_name = ($metadata | get name | split row ' ' | first)
     # get the body that shows information about this release
     let body = ($metadata | get body)
     # find the linux download
-    let asset_info = ($metadata | get assets | where name =~ 'linux.tar.gz')
+    let asset_info = ($metadata | get assets | where name =~ 'x86_64-linux-gnu-full.tar.gz' | first)
     # construct the url
     let download_url = ($asset_info | get browser_download_url)
+
     let file_name = ($asset_info | get name)
     # tell you what i'm doing
-    $"Release name is ($release_name)(char newline)(char newline)"
-    $"($body)(char newline)(char newline)Downloading and following redirects ..."
+    print $"Release name is ($release_name)(char newline)(char newline)"
+    print $"($body)(char newline)(char newline)Downloading and following redirects ..."
     # fetch follows redirects now
-    fetch $download_url | save $file_name
+    http get $download_url | save $file_name
     # tell you what i'm doing
-    $"(char newline)Extracting ($file_name) to /tmp(char newline)"
+    print $"(char newline)Extracting ($file_name) to /tmp(char newline)"
     # extract the tar file to the temp folder
     tar -xf ($file_name) -C /tmp
     # parse the $file_name to get the folder
@@ -27,17 +28,17 @@ def get-latest-linux [] {
     # there are two extensions .tar and .gz
     let root_file_name = ($file_name | path parse | get stem | path parse | get stem)
     # update our progress
-    $"Copying files from /tmp/($root_file_name)/*/* to ~/.cargo/bin(char newline)"
+    print $"Copying files from /tmp/($root_file_name)/*/* to ~/.cargo/bin(char newline)"
     # this is for testing so it doesn't overwrite my real nu. this should really
     # be a parameter
     mkdir release
     # construct the copy from and to paths
-    let cp_from_path = $"/tmp/($root_file_name)/*/*"
+    let cp_from_path = $"/tmp/($root_file_name)/**/*"
     let cp_to_path = "./release"
     # actually run the cp command
     # we may want to make this overwrite and not prompt
     cp ($cp_from_path) ($cp_to_path)
     # exec ~/.cargo/bin/nu
-    $"Starting nushell(char nl)"
+    print $"Starting nushell(char nl)"
     exec ./release/nu
-}
+}

before_v0.60/stdlib_candidate/get-row.nu → stdlib-candidate/std-rfc/get-row.nu

@@ -2,6 +2,5 @@
 def get-row [
     row_num:int # A 0 indexed row
     ] {
-
-    nth $row_num | table --index $row_num
-}
+    $in | get $row_num | table --index $row_num
+}

before_v0.60/stdlib_candidate/logging.nu → stdlib-candidate/std-rfc/logging.nu

@@ -1,6 +1,6 @@
 # This is a first attempt and some type of logging
 def log [message:any] {
-    let now = (date now | date format '%Y%m%d_%H%M%S.%f')
+    let now = (date now | format date '%Y%m%d_%H%M%S.%f')
     let mess = $"($now)|DBG|($message)(char nl)"
-    echo $mess | autoview
-}
+    $mess
+}

before_v0.60/stdlib_candidate/nu_style.nu → stdlib-candidate/std-rfc/nu_style.nu

@@ -59,7 +59,7 @@ def fg_from_rgb [
     green:int # green component 0-255
     blue:int # blue component 0-255
     ] {
-        echo [(ansi -e '38;2;') $red ';' $green ';' $blue 'm'] | str collect
+        echo [(ansi -e '38;2;') $red ';' $green ';' $blue 'm'] | str join
     }
 
 alias bg_black = ansi -e '40m'
@@ -107,4 +107,4 @@ def bg_from_index [
     idx:int # index value 0-255
 ] {
     $"(ansi -e '48;5;')($idx)m"
-}
+}

before_v0.60/stdlib_candidate/print.nu → stdlib-candidate/std-rfc/print.nu

@@ -1,22 +1,22 @@
 # A print command that concatenates arguments together with an optional separator
 #    By default there will be no newline
-def print [
+def print1 [
     --separator(-s):any     # Optional separator (not yet flagged as optional?)
     ...rest                 # All of the parameters
     ] {
-    let is_empty = ($separator | empty?)
+    let is_empty = ($separator | is-empty)
     let num_of_rest = ($rest | length)
-    $rest | each --numbered { |param|
+    $rest | enumerate | each { |param|
         if $is_empty {
             $param.item
-        } {
+        } else {
             if $num_of_rest > ($param.index + 1) {
                 $"($param.item)($separator)"
-            } {
+            } else {
                 $param.item
             }
         }
-    } | into string | str collect
+    } | into string | str join
 }
 
 # > print 1 2 3 "four" -s '--'
@@ -32,17 +32,15 @@ def print2 [
     --separator(-s):any     # Optional separator (not yet flagged as optional?)
     ...rest                 # All of the parameters
     ] {
-    let is_empty = ($separator | empty?)
+    let is_empty = ($separator | is-empty)
     let num_of_rest = ($rest | length)
     if $is_empty {
-        $rest | into string | str collect
-    } {
-        $rest | into string | str collect $separator
+        $rest | into string | str join
+    } else {
+        $rest | into string | str join $separator
+    }
     }
-}
 
-# Bring in the logging command
-#source logging.nu
 
 # A print command that concatenates arguments together with an optional separator.
 # This print command will also concatenate tables like [1 2 3] as well as most other primitives
@@ -52,36 +50,33 @@ def print3 [
     --flat(-f)              # If tables are found, flatten them
     ...rest                 # All of the parameters
     ] {
-    let sep_empty = ($separator | empty?)
+    let sep_empty = ($separator | is-empty)
     let num_of_rest = ($rest | length)
-    let flat = ($flat | empty?)
-    $rest | each --numbered { |param|
+    let flat = ($flat | is-empty)
+    $rest | enumerate | each { |param|
         if $sep_empty {
-            #log 'sep is empty'
-            if (echo $param.item | length) > 1 and $flat {
-                #log 'flatten please'
-                let flatter = ($param.item | flatten | into string | str collect)
+            if ((echo $param.item | str length) > 1) and $flat {
+                let flatter = ($param.item | flatten | into string | str join)
                 $flatter
-            } {
-                #log 'no flat'
+            } else {
                 $param.item
             }
-        } {
+        } else {
             if $num_of_rest > ($param.index + 1) {
                 if ($param.item | length) > 1 and $flat {
-                    let flatter = ($param.item | flatten | into string | str collect $separator)
+                    let flatter = ($param.item | flatten | into string | str join $separator)
                     $"($flatter)($separator)"
-                } {
+                } else {
                     $"($param.item)($separator)"
                 }
-            } {
+            } else {
                 if ($param.item | length) > 1 and $flat {
-                    let flatter = ($param.item | flatten | into string | str collect $separator)
+                    let flatter = ($param.item | flatten | into string | str join $separator)
                     $flatter
-                } {
+                } else {
                     $param.item
                 }
             }
         }
-    } | str collect
+    } | str join
 }