Initial commit with repo boilerplate

Author: ryukinix

.travis.yml

@@ -0,0 +1,4 @@
+services:
+  - docker
+
+script: make ci-check

Makefile

@@ -0,0 +1,20 @@
+LISP_FLAGS = --noinform --disable-debugger --load
+LISP := sbcl $(LISP_FLAGS)
+IMAGE = commonlispbr/emacs:sbcl
+
+check:
+	@$(LISP) run-tests.lisp
+
+ci-check:
+	@docker run -t --entrypoint=/usr/bin/sbcl \
+			   -v $(shell pwd):/workspace \
+			   --security-opt seccomp=unconfined \
+			   $(IMAGE) \
+		       $(LISP_FLAGS) \
+		       run-tests.lisp
+	@docker run --entrypoint=/bin/rm -t \
+	 	   	   -v $(shell pwd):/workspace \
+               $(IMAGE) \
+		       -rf system-index.txt
+
+.PHONY: check

README.md

@@ -0,0 +1,9 @@
+# ql-meta
+### _Manoel Vilela_
+
+This is a project to do ... something.
+
+## License
+
+Specify license here
+

ql-meta.asd

@@ -0,0 +1,24 @@
+;;;; ql-meta.asd
+
+(asdf:defsystem #:ql-meta
+    :description "QL-META tracks multiple Quicklisp distributions"
+    :author "Manoel Vilela & Lucas Vieira"
+    :license  "MIT"
+    :version "0.1.0"
+    :serial t
+    :pathname "src"
+    :depends-on (:quicklisp)
+    :components ((:file "package")
+                 (:file "ql-meta")))
+
+(asdf:defsystem #:ql-meta/test
+  :description "QL-META test suit"
+  :author "Manoel Vilela & Lucas Vieira"
+  :license  "MIT"
+  :version "0.1.0"
+  :serial t
+  :pathname "t"
+  :depends-on (:ql-meta :prove)
+  :components ((:file "test"))
+  :perform (asdf:test-op :after (op c)
+                         (funcall (intern #.(string :run) :prove) c)))

run-tests.lisp

@@ -0,0 +1,10 @@
+(ql:quickload '(:prove) :silent t)
+(eval-when (:load-toplevel :execute)
+  (pushnew (truename (sb-unix:posix-getcwd/))
+           ql:*local-project-directories*)
+  (ql:register-local-projects)
+  (ql:quickload :ql-meta/test)
+  (setf prove:*enable-colors* t)
+  (if (prove:run "t/test.lisp")
+      (sb-ext:exit :code 0)
+      (sb-ext:exit :code 1)))

src/package.lisp

@@ -0,0 +1,7 @@
+;;;; package.lisp
+
+(defpackage #:ql-meta
+  (:use #:cl #:quicklisp-client)
+  (:export :*dists*
+           :get-dists-names
+           :get-dists-urls))

src/ql-meta.lisp

@@ -0,0 +1,33 @@
+#|
+
+Manoel Vilela & Lucas Vieira © 2019 MIT
+
+Main usage should be defined as:
+
+(ql:dist-apropos search-str)
+(ql:subscribe dist-name)
+(ql:unsubscribe dist-name)
+(ql:purge dist-name)
+
+|#
+
+(in-package #:ql-meta)
+
+
+(defparameter *dists*
+  '((cl-bodge (:url "http://bodge.borodust.org/dist/org.borodust.bodge.txt"
+               :replace t))
+    (cl21     (:url "http://dists.cl21.org/cl21.txt")))
+  "*DISTS* it's PLIST of distributions available in QL-META")
+
+
+(defun get-dists-urls (&optional (dists *dists*))
+  "GET-DISTS-URLS return the urls defined in *DISTS*"
+  (loop for (key plist) in dists
+        collect (getf plist :url)))
+
+
+(defun get-dists-names (&optional (dists *dists*))
+  "GET-DISTS-NAMES return the urls defined in *DISTS*"
+  (loop for (key plist) in dists
+        collect key))

t/test.lisp

@@ -0,0 +1,22 @@
+(defpackage #:ql-meta/test
+  (:use #:cl
+        #:ql-meta
+        #:prove))
+
+
+(in-package :ql-meta/test)
+
+
+(defparameter *dists-mock*
+  '((test1 (:url "http://test1.com"))
+    (test2 (:url "http://test2.com"))))
+
+(plan nil)
+
+(diag "== Sanity checks!")
+
+(is (get-dists-names *dists-mock*) '(test1 test2))
+(is (get-dists-urls *dists-mock*) '("http://test1.com"
+                                    "http://test2.com"))
+
+(finalize)