#alias:new rename perl-rename
fn rename [@_args]{
  e:perl-rename -n $@_args
  use github.com/zzamboni/elvish-modules/util
  if (util:y-or-n &style=bright-yellow 'Renommer? ') {
    e:perl-rename -v $@args
    echo (styled 'Succès' bold green)
  } else {
    echo (styled 'Abandon' bold red)
  }
}