From ca5fc4e9fcbe5cc98bd8efced7d792eb392a1646 Mon Sep 17 00:00:00 2001 From: Craig Oates Date: Sat, 29 Oct 2022 20:27:45 +0100 Subject: [PATCH] comment out the 'covert' function in storage package. This is tag-along code from porting the storage package over from another project. It's never got in the way so it's never caused any errors -- hence no deletion/dealing with it until now. I've commented it out with the intention of deleting if no use for it develops as it the site gets closer to going into production. --- src/storage.lisp | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) diff --git a/src/storage.lisp b/src/storage.lisp index 58f0370..bef3f50 100644 --- a/src/storage.lisp +++ b/src/storage.lisp @@ -305,13 +305,13 @@ Before calling this function, make sure the file exists. You should have ;;; This function requires ImageMagick so you will need to install it ;;; with 'sudo apt install imagemagick' (assuming you are on a ;;; Debian-based system). -(defun convert (id subdirectory original-file converted-file) - (let ((command (format nil "convert -geometry ~A ~A ~A" - (file-size converted-file) - (make-storage-pathname id subdirectory original-file) - (make-storage-pathname id subdirectory converted-file)))) - (let ((message (nth-value 1 - (uiop:run-program command - :ignore-error-status t - :error-output :string)))) - (when message (error message))))) +;; (defun convert (id subdirectory original-file converted-file) +;; (let ((command (format nil "convert -geometry ~A ~A ~A" +;; (file-size converted-file) +;; (make-storage-pathname id subdirectory original-file) +;; (make-storage-pathname id subdirectory converted-file)))) +;; (let ((message (nth-value 1 +;; (uiop:run-program command +;; :ignore-error-status t +;; :error-output :string)))) +;; (when message (error message)))))