Rename repo to cl-github

I'm tired of the complaints from "clithub" while its a cute concat of cl
and github, quite a few people can't get past the "meaning" of it to see
that its a full github api.

Regardless the rename was a simple:

: sed -i s/\\bclithub\\b/cl-github/g *

in the repository, so maybe now everyone will be happy and I can quit
hearing stupid complaints about the name.

I'll release a new version to match the name change in a few days.

README.org

@@ -35,11 +35,11 @@ comfortable with maintaining.
 *** Quick start
     Set the default login info in the repl. Doing this means you won't
     have to pass a token and login to each function call.
-    : (setq clithub:*default-login* "name" 
-    :       clithub:*default-token* "apikey")
+    : (setq cl-github:*default-login* "name" 
+    :       cl-github:*default-token* "apikey")
 
     Then try a simple call like:
-    : (clithub:show-followers "your login")
+    : (cl-github:show-followers "your login")
 
     See the documentation strings for information on all of the
     functions.

clithub.asd → cl-github.asd

@@ -1,11 +1,11 @@
 (in-package :cl-user)
-(defpackage #:clithub-system
+(defpackage #:cl-github-system
   (:use :cl :asdf)
   (:nicknames :nisp.github-system))
-(in-package :clithub-system)
+(in-package :cl-github-system)
 
 
-(defsystem :clithub
+(defsystem :cl-github
   :version "0.2.0"
   :license "BSD"
   :depends-on (:iterate :drakma :cl-json)

github.lisp

@@ -1,4 +1,4 @@
-(in-package :clithub)
+(in-package :cl-github)
 
 (defparameter +github-api-url+ "http://github.com/api/v2/json"
   ;; Use only the json interface, we do not want to implement the xml or
@@ -151,10 +151,10 @@ This is the same for every call.")
                   :want-string t))
 
 
-(defpackage #:clithub-extra 
-  (:use :cl :iterate :clithub)
+(defpackage #:cl-github-extra 
+  (:use :cl :iterate :cl-github)
   (:export #:show-followers-not-followed))
-(in-package :clithub-extra)
+(in-package :cl-github-extra)
 ;;; Extra
 (defun show-followers-not-followed (username)
   "Show followers that USERNAME is not following."

issues.lisp

@@ -1,4 +1,4 @@
-(in-package :clithub)
+(in-package :cl-github)
 
 ;;; Issues API
 (defgeneric search-issues (username repository state term &key login token)

json.lisp

@@ -39,7 +39,7 @@
 ;;; OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
 ;;; WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
-(in-package :clithub)
+(in-package :cl-github)
 
 ;;; From Alexandria
 (defun alist-hash-table (alist &rest hash-table-initargs)
@@ -203,7 +203,7 @@ Otherwise, create a FLUID-OBJECT with slots interned in
 
 (defgeneric to-json (object)
   (:method :around (obj)
-           (let ((json:*json-symbols-package* :clithub))
+           (let ((json:*json-symbols-package* :cl-github))
              (with-local-class-registry (:inherit nil)
                (call-next-method)))))
 (defmethod to-json ((obj string))
@@ -250,8 +250,8 @@ Otherwise, create a FLUID-OBJECT with slots interned in
                class))
 
 (defmethod json->class :around (object class)
-  "Set package to clithub and use local class registry."
-  (let ((json:*json-symbols-package* :clithub))
+  "Set package to cl-github and use local class registry."
+  (let ((json:*json-symbols-package* :cl-github))
     (with-local-class-registry (:inherit nil)
       (call-next-method))))
 

network.lisp

@@ -1,4 +1,4 @@
-(in-package :clithub)
+(in-package :cl-github)
 
 ;;; Network API
 (defgeneric show-network-meta (username repository &key login token)

package.lisp

@@ -1,6 +1,6 @@
-(in-package :clithub-system)
+(in-package :cl-github-system)
 
-(defpackage #:clithub
+(defpackage #:cl-github
   (:use :cl :json :iterate)
   (:nicknames :nisp.github :github)
   (:export
@@ -55,4 +55,4 @@
    #:add-comment
    ))
 
-(in-package :clithub)
+(in-package :cl-github)

repositories.lisp

@@ -1,4 +1,4 @@
-(in-package :clithub)
+(in-package :cl-github)
 
 (defclass repository ()
   (description forks url homepage watchers fork open-issues private name owner))

url-utils.lisp

@@ -31,7 +31,7 @@
 ;;; Some modifications have been made by Nixeagle Copyright (c) 2010.
 ;;; Permission is granted to use under the original license (see above).
 
-(in-package :clithub)
+(in-package :cl-github)
 
 (defmacro upgrade-vector (vector new-type &key converter)
   "Returns a vector with the same length and the same elements as

users.lisp

@@ -1,4 +1,4 @@
-(in-package :clithub)
+(in-package :cl-github)
 
 
 (defclass contact-data ()