trash.sandpiper

//
//  trash.sandpiper
//  For moving something to the trash from the command line
//  (instead of rm'ing it)
//  in the Glorious Sandpiper Language.
//
//  Created by Violet Baddley on 2015-8-25.
//  Copyright © 2015 Violet Baddley. All rights reserved.
//  Provided under the 2-Clause BSD License.
//

trash-files => Process: arguments: map [ URL: file-url-with-path %0 ].

trash-files: each [ trash-file ->
    FileManager: trash-item-at-url trash-file !  <= new-loc</>error.
    ^^ error ? [
        Stdout puts “Couldn’t trash (trash-file relative-path): (error localized-description)”.
        ^nil.
    ].
    
] !