From 191f5b2c22f7839a407ef1897579dade268337f1 Mon Sep 17 00:00:00 2001
From: Craig Oates <craig@craigoates.net>
Date: Tue, 20 Sep 2022 20:34:46 +0100
Subject: [PATCH] add delete-storage-file function in nera package.

---
 src/nera.lisp | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/src/nera.lisp b/src/nera.lisp
index 99472f5..d7ea3de 100644
--- a/src/nera.lisp
+++ b/src/nera.lisp
@@ -264,3 +264,10 @@ slug is updated based on `NEW-FILE-NAME'."
       (setf (files::name-of file-to-rename) new-file-name
 	    (files::slug-of file-to-rename) (utils:slugify new-file-name))
       (mito:save-dao file-to-rename))))
+
+(defun delete-storage-file (&key name slug)
+  "Delete `STORAGE-FILE' from database."
+  (with-connection (db)
+    (if (null slug)
+	(mito:delete-by-values 'files:storage-file :name name)
+	(mito:delete-by-values 'files:storage-file :slug slug))))