steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

io.files.trash.unix: use xdg vocab.

windows-high-dpi
John Benediktsson 2018-02-26 17:16:43 -08:00
parent ca2612b906
commit d32d06577d
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
extra/io/files/trash/unix/unix.factor
View File

@ -5,7 +5,7 @@ USING: accessors calendar combinators.short-circuit environment
formatting io io.directories io.encodings.utf8 io.files formatting io io.directories io.encodings.utf8 io.files
io.files.info io.files.info.unix io.files.trash io.files.types io.files.info io.files.info.unix io.files.trash io.files.types
io.pathnames kernel math math.parser sequences system unix.stat io.pathnames kernel math math.parser sequences system unix.stat
unix.users ; unix.users xdg ;
IN: io.files.trash.unix IN: io.files.trash.unix
@ -31,9 +31,7 @@ IN: io.files.trash.unix
} 1&& [ "invalid trash path" throw ] unless ; } 1&& [ "invalid trash path" throw ] unless ;
: trash-home ( -- path ) : trash-home ( -- path )
"XDG_DATA_HOME" os-env xdg-data-home "Trash" append-path dup check-trash-path ;
home ".local/share" append-path or
"Trash" append-path dup check-trash-path ;
: trash-1 ( root -- path ) : trash-1 ( root -- path )
".Trash" append-path dup check-trash-path ".Trash" append-path dup check-trash-path