anchor.diff:                                spinner-id
                                 "\')")))
         (:div :id spinner-id :class "spinner"))))
  +
  +(defun auto-rotate-image (path)
  +  "applies auto-rotate and strips out EXIF data"
  +  (run-program *convert-path* (list "-auto-orient" "-strip" path path)))
   
   (defun rotate-image (id)
     (let* ((image (db id))
  
positive.code:          (image (insert-db (list :type :image
                                   :content-type content-type
                                   :modified (get-universal-time))))
           (filename (strcat image "." suffix)))
     (copy-file path (merge-pathnames *original-images* filename))
     (modify-db image :filename filename)
     (values image)))
  
  (defun new-image-form
    (action
  
negative.code: ;;; Copyright 2012-2016 CommonGoods Network, Inc.
  ;;;
  ;;; This file is part of Kindista.
  ;;;
  