extra/io/files/trash/trash.factor

   1 ! Copyright (C) 2010 John Benediktsson
   2 ! See http://factorcode.org/license.txt for BSD license
   3
   4 USING: combinators system vocabs.loader ;
   5
   6 IN: io.files.trash
   7
   8 HOOK: send-to-trash os ( path -- )
   9
  10 {
  11     { [ os macosx? ] [ "io.files.trash.macosx"  ] }
  12     { [ os unix?   ] [ "io.files.trash.unix"    ] }
  13     { [ os winnt?  ] [ "io.files.trash.windows" ] }
  14 } cond require
  15