Prepare DEVELOPMENT system

.github/workflows/continuous-integration.yaml

@@ -12,3 +12,4 @@ jobs:
       testsuite-entrypoint: 'run-all-tests'
       linter-system: 'org.melusina.atelier/development'
       linter-entrypoint: 'lint'
+

libexec/lisp/development.lisp

@@ -0,0 +1,76 @@
+;;;; development.lisp — Project Development for Atelier
+
+;;;; Atelier (https://github.com/melusina-org/cl-atelier)
+;;;; This file is part of Atelier.
+;;;;
+;;;; Copyright © 2017–2023 Michaël Le Barbier
+;;;; All rights reserved.
+
+;;;; This file must be used under the terms of the MIT License.
+;;;; This source file is licensed as described in the file LICENSE, which
+;;;; you should have received as part of this distribution. The terms
+;;;; are also available at https://opensource.org/licenses/MIT
+
+(defpackage #:org.melusina.atelier/development
+  (:use #:cl)
+  (:local-nicknames
+   (#:atelier #:org.melusina.atelier))
+  (:export
+   #:lint
+   #+quicklisp
+   #:reload))
+
+(in-package #:org.melusina.atelier/development)
+
+(defun system-relative-pathname (pathname)
+  (flet ((system-source-directory ()
+	   (asdf:system-source-directory #.(string-downcase (package-name *package*)))))
+    (merge-pathnames pathname (system-source-directory))))
+
+(defun system-relative-pathnames (&rest pathnames)
+  (mapcar #'system-relative-pathname pathnames))
+
+(defparameter *parameter-bindings*
+      '((:copyright-holder . "Michaël Le Barbier")
+        (:copyright-year . "2017–2023")
+	(:project-filename . "atelier")
+        (:project-name . "Atelier")
+	(:project-description . "Atelier for Lisp developers")
+        (:project-long-description .
+	 #.(concatenate 'string
+	    "The atelier for Lisp developers is providing useful tools for Lisp developpers"
+	    " such as project templates and a linter."))
+        (:homepage . "https://github.com/melusina-org/cl-atelier")
+        (:license . :mit)))
+
+(defun lint ()
+  (let ((atelier:*parameter-bindings* *parameter-bindings*))
+    (atelier:lint
+     (system-relative-pathnames
+      #p"org.melusina.atelier.asd"
+      #p"development"
+      #p"doc"
+      #p"docker"
+      #p"src"
+      #p"subr"
+      #p"testsuite"
+      #p"libexec/lisp/development.lisp"
+      #p"libexec/setup"
+      #p"libexec/testimage"))))
+
+#+quicklisp
+(defun reload ()
+  (ql:quickload '("org.melusina.confidence"
+		  "org.melusina.atelier"
+		  "org.melusina.atelier/development"
+		  "org.melusina.atelier/testsuite")))
+
+
+;;;;
+;;;; Command Stock
+;;;;
+
+#+nil
+(org.melusina.atelier/development:reload)
+
+;;;; End of file `development.lisp'

libexec/setup/apt

@@ -5,7 +5,7 @@
 # Atelier (https://github.com/melusina-org/cl-atelier)
 # This file is part of Atelier.
 #
-# Copyright © 2017–2022 Michaël Le Barbier
+# Copyright © 2017–2023 Michaël Le Barbier
 # All rights reserved.
 
 # This file must be used under the terms of the MIT License.

libexec/setup/bsdowl

@@ -1,11 +1,11 @@
 #!/bin/sh
 
-### bsdowl -- Setup BSD Owl
+# bsdowl — Setup BSD Owl
 
 # Atelier (https://github.com/melusina-org/cl-atelier)
 # This file is part of Atelier.
 #
-# Copyright © 2017–2022 Michaël Le Barbier
+# Copyright © 2017–2023 Michaël Le Barbier
 # All rights reserved.
 
 # This file must be used under the terms of the MIT License.
@@ -67,4 +67,4 @@ bsdowl_main()
 
 bsdowl_main "$@"
 
-### End of file `bsdowl'
+# End of file `bsdowl'

libexec/setup/hier

@@ -5,7 +5,7 @@
 # Atelier (https://github.com/melusina-org/cl-atelier)
 # This file is part of Atelier.
 #
-# Copyright © 2017–2022 Michaël Le Barbier
+# Copyright © 2017–2023 Michaël Le Barbier
 # All rights reserved.
 
 # This file must be used under the terms of the MIT License.

libexec/setup/quicklisp

@@ -1,11 +1,11 @@
 #!/bin/sh
 
-### quicklisp -- Setup quicklisp
+# quicklisp — Setup quicklisp
 
 # Atelier (https://github.com/melusina-org/cl-atelier)
 # This file is part of Atelier.
 #
-# Copyright © 2017–2022 Michaël Le Barbier
+# Copyright © 2017–2023 Michaël Le Barbier
 # All rights reserved.
 
 # This file must be used under the terms of the MIT License.
@@ -207,4 +207,4 @@ quicklisp_main()
 
 quicklisp_main "$@"
 
-### End of file `quicklisp'
+# End of file `quicklisp'

libexec/setup/sbcl

@@ -1,9 +1,11 @@
 #!/bin/sh
 
+# sbcl — Install SBCL
+
 # Atelier (https://github.com/melusina-org/cl-atelier)
 # This file is part of Atelier.
 #
-# Copyright © 2017–2022 Michaël Le Barbier
+# Copyright © 2017–2023 Michaël Le Barbier
 # All rights reserved.
 
 # This file must be used under the terms of the MIT License.
@@ -14,3 +16,5 @@
 env DEBIAN_FRONTEND=noninteractive apt-get install -y\
  sbcl\
  cl-quicklisp
+
+# End of file `sbcl'

libexec/setup/testimage

@@ -5,7 +5,7 @@
 # Atelier (https://github.com/melusina-org/cl-atelier)
 # This file is part of Atelier.
 #
-# Copyright © 2017–2022 Michaël Le Barbier
+# Copyright © 2017–2023 Michaël Le Barbier
 # All rights reserved.
 
 # This file must be used under the terms of the MIT License.

libexec/setup/users

@@ -2,11 +2,10 @@
 
 # users — Setup users
 
-
 # Atelier (https://github.com/melusina-org/cl-atelier)
 # This file is part of Atelier.
 #
-# Copyright © 2017–2022 Michaël Le Barbier
+# Copyright © 2017–2023 Michaël Le Barbier
 # All rights reserved.
 
 # This file must be used under the terms of the MIT License.

libexec/testimage/linux

@@ -1,11 +1,11 @@
 #!/bin/sh
 
-# testimage — Test Docker Image for Personalised Linux system
+# linux — Test Docker Image for Personalised Linux system
 
 # Atelier (https://github.com/melusina-org/cl-atelier)
 # This file is part of Atelier.
 #
-# Copyright © 2017–2022 Michaël Le Barbier
+# Copyright © 2017–2023 Michaël Le Barbier
 # All rights reserved.
 
 # This file must be used under the terms of the MIT License.
@@ -21,4 +21,4 @@ test -x /usr/bin/bsdtar
 test -f "/opt/${PACKAGE}/share/bsdowl/bps.uses.mk"
 id atelier
 
-# End of file `testimage'
+# End of file `linux'

org.melusina.atelier.asd

@@ -61,4 +61,13 @@
 		 (:file "lint")
 		 (:file "entrypoint")))))
 
+(asdf:defsystem #:org.melusina.atelier/development
+  :description "Development tools for Atelier"
+  :author "Michaël Le Barbier"
+  :license "MIT License"
+  :depends-on (#:org.melusina.atelier)
+  :components
+  ((:module "libexec/lisp"
+    :components ((:file "development")))))
+
 ;;;; End of file `org.melusina.atelier.asd'