Permalink
Browse files

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.
  • Loading branch information...
1 parent d0feeea commit de859b331f0381f3f2c8f3a912a4c60856c81c59 @nixeagle committed Feb 22, 2010
Showing with 22 additions and 22 deletions.
  1. +3 −3 README.org
  2. +3 −3 clithub.asd → cl-github.asd
  3. +4 −4 github.lisp
  4. +1 −1 issues.lisp
  5. +4 −4 json.lisp
  6. +1 −1 network.lisp
  7. +3 −3 package.lisp
  8. +1 −1 repositories.lisp
  9. +1 −1 url-utils.lisp
  10. +1 −1 users.lisp
View
@@ -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.
@@ -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)
View
@@ -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."
View
@@ -1,4 +1,4 @@
-(in-package :clithub)
+(in-package :cl-github)
;;; Issues API
(defgeneric search-issues (username repository state term &key login token)
View
@@ -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))))
View
@@ -1,4 +1,4 @@
-(in-package :clithub)
+(in-package :cl-github)
;;; Network API
(defgeneric show-network-meta (username repository &key login token)
View
@@ -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)
View
@@ -1,4 +1,4 @@
-(in-package :clithub)
+(in-package :cl-github)
(defclass repository ()
(description forks url homepage watchers fork open-issues private name owner))
View
@@ -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
View
@@ -1,4 +1,4 @@
-(in-package :clithub)
+(in-package :cl-github)
(defclass contact-data ()

0 comments on commit de859b3

Please sign in to comment.