Prevent reading directorysizes so much

clash/clash.lisp

@@ -11,6 +11,9 @@
   (:import-from #:cl-xdg-trash/mountpoints
                 #:file-or-dir-namestring
                 #:ensure-nonwild-pathname)
+  (:import-from #:cl-xdg-trash/directorysizes
+                #:read-directorysizes-for-trash-directory
+                #:write-directorysizes-for-trash-directory)
   (:use #:cl #:clash/parse-date #:clash/format)
   (:export #:toplevel))
 
@@ -1036,4 +1039,5 @@ Args can be supplied to facilitate testing in SLIME."
                                          *toplevel/help-option*)))
     (if argsp
         (clingon:run (toplevel/command) args)
-        (clingon:run (toplevel/command)))))
+        (clingon:run (toplevel/command)))
+    (flush-directorysizes-cache)))