trash-path ( path -- path' )

Vocabulary

io.files.trash.unix.private

Inputs

path

an object

Outputs

path'

an object

Definition

USING: io.files io.pathnames kernel ;

IN: io.files.trash.unix.private

: trash-path ( path -- path' )
    top-directory dup trash-home top-directory =
    [ drop trash-home ] [
        dup ".Trash" append-path file-exists?
        [ trash-1 ] [ trash-2 ] if [ make-user-directory ] keep
    ] if ;