Forums Feature Suggestions New Commad[Removing things]

alias rmdir {
  if ($1 == -r) {
    if (!$exists($iif("*" iswm $2-,$2-," $+ $2- $+ "))) { return }
    if ($input(are you sure you want to delete $2- and everything in it?,owd,warning) != $true) { return }
    .echo -q $findfile($iif("*" iswm $2-,$2-," $+ $2- $+ "),*.*,0,remove $+(",$1-,"))
    !rmdir $iif("*" iswm $2-,$2-," $+ $2- $+ ")
  }
  else {
    if (!$exists($iif("*" iswm $1-,$1-," $+ $1- $+ "))) { return }
    !rmdir $1-
  }
}

alias imlazy {
  var %dir = $1-
  var %a = $findfile(%dir, *.*,0,remove $shortfn($1-))
  var %b = $finddir(%dir,*,0,rmdir $shortfn($1-))
  rmdir $shortfn(%dir)
}