simple-gl.lisp

;; simple-gl.lisp
;;
;; Copyright (c) 2022 Jeremiah LaRocco <jeremiah_larocco@fastmail.com>


;; Permission to use, copy, modify, and/or distribute this software for any
;; purpose with or without fee is hereby granted, provided that the above
;; copyright notice and this permission notice appear in all copies.

;; THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
;; WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
;; MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
;; ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
;; WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
;; ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
;; OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.

(in-package :simple-gl)

(defun new-sgl-plugin (project-name
                       &rest deps)
  "Create a new SGL plugin in the simple-gl plugins directory.
An 'sgl- prefix will be added automatically."
  (quickproject:make-project
   (format nil
           "~a/sgl-~a/"
           (asdf:system-relative-pathname :simple-gl "plugins")
           (string-downcase (format nil "~a" project-name)))
   :depends-on (concatenate 'list '(:simple-gl  :alexandria #:3d-vectors #:3d-matrices) deps)))