Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

rename the whole thing clithub on adlai's advice.

  • Loading branch information...
commit 0e3780599fb888847b8c3e7ddad40b95255663df 1 parent 00d1e8f
@nixeagle authored
View
6 cl-github.asd → clithub.asd
@@ -1,11 +1,11 @@
(in-package :cl-user)
-(defpackage #:cl-github-system
+(defpackage #:clithub-system
(:use :cl :asdf)
(:nicknames :nisp.github-system))
-(in-package :cl-github-system)
+(in-package :clithub-system)
-(defsystem :cl-github
+(defsystem :clithub
:version "0.1.1"
:license "BSD"
:depends-on (:iterate :drakma :cl-json)
View
8 github.lisp
@@ -1,4 +1,4 @@
-(in-package :cl-github)
+(in-package :clithub)
(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 #:cl-github-extra
- (:use :cl :iterate :cl-github)
+(defpackage #:clithub-extra
+ (:use :cl :iterate :clithub)
(:export #:show-followers-not-followed))
-(in-package :cl-github-extra)
+(in-package :clithub-extra)
;;; Extra
(defun show-followers-not-followed (username)
"Show followers that USERNAME is not following."
View
2  issues.lisp
@@ -1,4 +1,4 @@
-(in-package :cl-github)
+(in-package :clithub)
;;; Issues API
(defgeneric search-issues (username repository state term &key login token)
View
8 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 :cl-github)
+(in-package :clithub)
;;; 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* :cl-github))
+ (let ((json:*json-symbols-package* :clithub))
(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 cl-github and use local class registry."
- (let ((json:*json-symbols-package* :cl-github))
+ "Set package to clithub and use local class registry."
+ (let ((json:*json-symbols-package* :clithub))
(with-local-class-registry (:inherit nil)
(call-next-method))))
View
2  network.lisp
@@ -1,4 +1,4 @@
-(in-package :cl-github)
+(in-package :clithub)
;;; Network API
(defgeneric show-network-meta (username repository &key login token)
View
6 package.lisp
@@ -1,6 +1,6 @@
-(in-package :cl-github-system)
+(in-package :clithub-system)
-(defpackage #:cl-github
+(defpackage #:clithub
(:use :cl :json :iterate)
(:nicknames :nisp.github :github)
(:export
@@ -52,4 +52,4 @@
#:add-comment
))
-(in-package :cl-github)
+(in-package :clithub)
View
2  repositories.lisp
@@ -1,4 +1,4 @@
-(in-package :cl-github)
+(in-package :clithub)
(defclass repository ()
(description forks url homepage watchers fork open-issues private name owner))
View
2  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 :cl-github)
+(in-package :clithub)
(defmacro upgrade-vector (vector new-type &key converter)
"Returns a vector with the same length and the same elements as
View
2  users.lisp
@@ -1,4 +1,4 @@
-(in-package :cl-github)
+(in-package :clithub)
(defclass contact-data ()
Please sign in to comment.
Something went wrong with that request. Please try again.