victor-almanzar

def str-cols [] {
  let head = $in
  $head | columns | where {|c| ($head | get $c | describe) == 'string' }
}

def pad-strings [] {
  let t = $in
  $t | first | str-cols | reduce -f $t {|c, acc|
    let w = ($acc | get $c | each {|s| $s | str length} | math max)
    $acc | update $c {|| $in | fill --width $w }