Awesome

Common LISP Kubernetes Client

Kubernetes client library for Common LISP generated from the Swagger specification.

Usage

After downloading this repository, add it's path to asdf:*central-registry*

* (ql:quickload :cube)
; => (:CUBE)

Config & Context

By default, the library will use the current-context in the default config file (~/.kube/config).

you can use a different context by

* (load-default-config :context "macrokube")

or use a different config file

* (load-config #p"/path/to/my/config")

Examples

Creating a Redis Master Deployment

(let* ((labels '(("app" . "redis")
                 ("role" . "master")
                 ("tier" . "backend")))
       (container (make-instance 'container
                                 :name "master"
                                 :image "k8s.gcr.io/redis:e2e"
                                 :resources
                                 (make-instance 'resource-requirements
                                                :requests '(("cpu" . "100m")
                                                            ("memory" . "100Mi")))
                                 :ports (list
                                         (make-instance 'container-port
                                                        :container-port 6379))))
       (pod-spec (make-instance 'pod-spec
                                :containers (list container)))
       (pod-template-spec (make-instance 'pod-template-spec
                                         :metadata (make-instance 'object-meta
                                                                  :labels labels)
                                         :spec pod-spec))
       (deployment-spec (make-instance 'deployment-spec
                                       :selector (make-instance 'label-selector
                                                                :match-labels labels)
                                       :replicas 1
                                       :template pod-template-spec))
       (deployment (make-instance 'deployment
                                  :metadata (make-instance 'object-meta
                                                           :name "redis-master")
                                  :spec deployment-spec)))
  (create-namespaced-deployment deployment "default"))