Instantly share code, notes, and snippets.

Embed
What would you like to do?
cl-docker
(defsystem :cl-docker
:depends-on (:cl-ppcre)
:serial t
:components ((:file "package")
(:file "docker")))
(in-package :cl-docker)
(defun ps ()
(let ((output (uiop:run-program '("docker" "ps") :output :string)))
(loop for line in (rest (cl-ppcre:split "(\\n+)" output))
collect (cl-ppcre:split "(\\s\\s+)" line))))
(defpackage cl-docker
(:use cl)
(:import-from :cl-ppcre :split)
(:export :ps))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment