rename to cl-elastic

Author: FiV0

README.md

@@ -1,4 +1,4 @@
-# Cl-Elasticsearch - Elasticsearch client for Common Lisp
+# Cl-Elastic - Elasticsearch client for Common Lisp
 
 ### Motivation
 
@@ -17,8 +17,8 @@ local quicklisp repos.
 ### Usage
 
 ```cl
-(ql:quicklisp :cl-elasticsearch)
-(use :cl-elasticsearch)
+(ql:quicklisp :cl-elastic)
+(use :cl-elastic)
 
 (defvar *client* (make-instance '<client> :endpoint "http://localhost:9200"))
 

cl-elastic-test.asd

@@ -0,0 +1,18 @@
+#|
+  This file is a part of cl-elastic.
+  (c) 2019 Finn Völkel 
+  Author: Finn Völkel  ([email protected])
+|#
+
+(asdf:defsystem cl-elastic-test
+  :name "cl-elastic-test"
+  :version "1.0.0"
+  :author "Finn Völkel  ([email protected])"
+  :license ""
+  :description "Test system for cl-elastic"
+  :depends-on (:cl-elastic
+               :named-readtables
+               :parachute)
+  :components ((:file "cl-elastic-test"))
+  :perform (asdf:test-op (op c) (uiop:symbol-call :parachute :test
+                                                  :cl-elastic-test)))

cl-elasticsearch-test.lisp renamed to cl-elastic-test.lisp

@@ -1,20 +1,20 @@
-(defpackage cl-elasticsearch-test
+(defpackage cl-elastic-test
   (:use :cl
-        :cl-elasticsearch
+        :cl-elastic
         :parachute)
   (:import-from :named-readtables
                 :in-readtable)
   (:shadow #:run)
-  (:export cl-elasticsearch-test))
-(in-package :cl-elasticsearch-test)
+  (:export cl-elastic-test))
+(in-package :cl-elastic-test)
 
-;; NOTE: To run this test file, execute `(asdf:test-system :cl-elasticsearch)' in your Lisp.
+;; NOTE: To run this test file, execute `(asdf:test-system :cl-elastic)' in your Lisp.
 
 (in-readtable hashtable-syntax)
 
 (define-test enable-keywords-test
   (let* ((*enable-keywords* t)
-         (res (cl-elasticsearch::keywords-to-strings #{:settings #{:foo "bar"}})))
+         (res (cl-elastic::keywords-to-strings #{:settings #{:foo "bar"}})))
     (true (nth-value 1 (gethash "settings" res)))
     (true (nth-value 1 (gethash "foo" (gethash "settings" res))))
     (is equal "bar" (gethash "foo" (gethash "settings" res)))))
@@ -112,7 +112,7 @@
 
 (define-test encode-json-test
   (let* ((*enable-keywords* t)
-         (res (cl-elasticsearch::encode-json (list #{:foo 1} #{:bar 2}))))
+         (res (cl-elastic::encode-json (list #{:foo 1} #{:bar 2}))))
     (is equal (format nil "{\"foo\":1}~%{\"bar\":2}~%") res)))
 
 (define-test bulk-indexing-test

cl-elasticsearch.asd renamed to cl-elastic.asd

@@ -1,17 +1,17 @@
 #|
-  This file is a part of cl-elasticsearch.
+  This file is a part of cl-elastic.
   (c) 2019 Finn Völkel 
   Author: Finn Völkel  ([email protected])
 |#
 
-(asdf:defsystem cl-elasticsearch
+(asdf:defsystem cl-elastic
   :version "0.0.1"
   :author "Finn Völkel"
   :license "MIT"
   :serial t
   :depends-on (:drakma
                :named-readtables
                :yason)
-  :components ((:file "cl-elasticsearch"))
+  :components ((:file "cl-elastic"))
   :description "Elasticsearch client for Common Lisp"
-  :in-order-to ((test-op (test-op "cl-elasticsearch-test"))))
+  :in-order-to ((test-op (test-op "cl-elastic-test"))))

cl-elasticsearch.lisp renamed to cl-elastic.lisp

@@ -1,10 +1,10 @@
 #|
-  This file is a part of cl-elasticsearch.
+  This file is a part of cl-elastic.
   (c) 2019 Finn Völkel 
   Author: Finn Völkel  ([email protected])
 |#
 
-(defpackage cl-elasticsearch
+(defpackage cl-elastic
   (:use :cl)
   (:nicknames :elastic)
   (:import-from :drakma
@@ -26,7 +26,7 @@
            :disable-hashtable-syntax
            :hashtable-syntax))
 
-(in-package :cl-elasticsearch)
+(in-package :cl-elastic)
 
 (defvar *enable-keywords* nil
   "If set to a true value, keywords will be transformed to strings in JSON