Finish trashing files

package.lisp

@@ -1,19 +1,31 @@
 (defpackage :cl-xdg-trash/url-encode
   (:documentation "URL encoding and decoding functions.")
-  (:use :cl)
+  (:use #:cl)
   (:export #:url-encode
            #:url-decode
            #:url-decode-error
            #:url-decode-error-string
            #:url-decode-error-index))
 
+(defpackage :cl-xdg-trash/mountpoints
+  (:documentation
+   "Utility function for discovering mount points.")
+  (:use #:cl)
+  (:export #:list-mountpoints
+           #:find-filesystem-root
+           #:ensure-nonwild-pathname
+           #:file-or-dir-namestring))
+
 (defpackage :cl-xdg-trash/trashinfo
   (:documentation
    "Parser and utility functions for dealing with .trashinfo files.")
-  (:use :cl)
+  (:use #:cl)
   (:import-from #:cl-xdg-trash/url-encode
                 #:url-encode
                 #:url-decode)
+  (:import-from #:cl-xdg-trash/mountpoints
+                #:file-or-dir-namestring
+                #:ensure-nonwild-pathname)
   (:export #:trashinfo-format-error
            #:trashinfo-format-error-message
            #:trashinfo-format-error-line-numer
@@ -27,4 +39,12 @@
            #:trashinfo-trashed-file
            #:parse-trashinfo-from-stream
            #:parse-trashinfo-file
-           #:format-trashinfo))
+           #:format-trashinfo
+           #:make-trashinfo-for))
+
+(defpackage :cl-xdg-trash
+  (:documentation
+   "Common Lisp interface to the XDG trash specification.")
+  (:use #:cl #:cl-xdg-trash/trashinfo #:cl-xdg-trash/url-encode
+        #:cl-xdg-trash/mountpoints)
+  (:export))