1 ; Copyright 2022 Frank Duncan (frank@consxy.com) under AGPL3. See distributed LICENSE.txt.
2 (in-package #:sheep-pkg)
4 (defun fire-error (msg) (error (make-instance 'sheep:validation-failure :msg msg)))
7 (when (not (documentation pkg t)) (fire-error (format nil "Package ~A has no documentation" (package-name pkg))))
13 ((< 120 (length str)) (fire-error (format nil "Package description longer than 120 characters: ~A" str)))
14 ((cl-ppcre:scan "^ " str) (fire-error (format nil "Package description line started with space: ~A" str)))
15 ((cl-ppcre:scan " $" str) (fire-error (format nil "Package description line ended with space: ~A" str)))))
19 ((not strs) (list ""))
20 ((string= "" (car strs)) (cons "" (combine (cdr strs))))
23 ((rest (combine (cdr strs))))
24 (cons (format nil "~A~A~A" (car strs) (if (string/= "" (car rest)) " " "") (car rest)) (cdr rest)))))))
26 ((lines (cl-ppcre:split "\\n" (documentation pkg t))))
29 ((paragraphs (combine lines)))
30 (when (< 120 (length (first paragraphs))) (fire-error "First package paragraph is longer than 120 characters"))
31 (when (find "" paragraphs :test #'string=) (fire-error "Package description has two empty lines in it"))
32 (cons (package-name pkg) paragraphs)))))
35 (format nil "# Package ~A~%~%~{~A~^~%~%~}"