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
io.files.info io.files.info.unix io.files.trash io.files.types
io.pathnames kernel math math.parser sequences system unix.stat
unix.users ;
unix.users xdg ;
IN: io.files.trash.unix
@ -31,9 +31,7 @@ IN: io.files.trash.unix
} 1&& [ "invalid trash path" throw ] unless ;
: trash-home ( -- path )
"XDG_DATA_HOME" os-env
home ".local/share" append-path or
"Trash" append-path dup check-trash-path ;
xdg-data-home "Trash" append-path dup check-trash-path ;
: trash-1 ( root -- path )
".Trash" append-path dup check-trash-path