A generator for Travis Matrix badges.

travis-badges.lisp

;; Run (ql:quickload :cl-yaml) before loading this script

(defpackage #:travis-badges
  (:use #:cl)
  (:import-from #:cl-yaml)
  (:export
   #:make-badges))
(in-package travis-badges)


(defvar *travis-url*
  "https://travis-ci.org/roswell/roswell")


(defun make-badge (lisp-implementation)
  (format nil
          "[![](https://badges.herokuapp.com/travis/roswell/roswell?branch=master&env=~A&label=~A)](~A)"
          lisp-implementation
          lisp-implementation
          *travis-url*))


(defun make-badges (&optional (filename #P".travis.yml"))
  (let* ((config (cl-yaml:parse filename))
         (env (gethash "env" config))
         ;; This wil contain a list of strings like
         ;; "LISP=sbcl"
         (matrix (sort (gethash "matrix" env)
                       #'string<))
         (badges (mapcar #'make-badge matrix)))
    (format t "~{~a~^~%~}"
            badges)))

Initially, this script was created for roswell/roswell#459