initial commit on lazybones revolution

added clpmfile

4 files changed, 149 insertions, 59 deletions

diff --git a/clpmfile b/clpmfile
new file mode 100644
index 0000000..75cfbbd
--- /dev/null
+++ b/clpmfile
@@ -0,0 +1,6 @@
+;;; -*- Mode: common-lisp; -*-
+(:api-version "0.4")
+
+(:source "quicklisp" :url "https://beta.quicklisp.org/dist/quicklisp.txt" :type :quicklisp)
+
+(:asd "lazybones.asd")
diff --git a/clpmfile.lock b/clpmfile.lock
new file mode 100644
index 0000000..2e8209f
--- /dev/null
+++ b/clpmfile.lock
@@ -0,0 +1,123 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; This is autogenerated by CLPM. Do not edit by hand.
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+(:api-version "0.4")
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; BEGIN SOURCES
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+:sources
+(:implicit-file :type :file-system :system-files ("lazybones.asd"))
+("quicklisp" :url "https://beta.quicklisp.org/dist/quicklisp.txt" :type
+ :quicklisp)
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; BEGIN REQUIREMENTS
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+:requirements
+(:asd-file :name "lazybones.asd")
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; BEGIN RELEASES
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+:releases
+("alexandria" :version "2021-12-09" :source "quicklisp" :systems ("alexandria"))
+("babel" :version "2020-09-25" :source "quicklisp" :systems ("babel"))
+("bordeaux-threads" :version "2020-06-10" :source "quicklisp" :systems
+ ("bordeaux-threads"))
+("cffi" :version "2021-04-11" :source "quicklisp" :systems ("cffi"))
+("chunga" :version "2020-04-27" :source "quicklisp" :systems ("chunga"))
+("cl+ssl" :version "2021-12-30" :source "quicklisp" :systems ("cl+ssl"))
+("cl-base64" :version "2020-10-16" :source "quicklisp" :systems ("cl-base64"))
+("cl-fad" :version "2021-01-24" :source "quicklisp" :systems ("cl-fad"))
+("cl-ppcre" :version "2019-05-21" :source "quicklisp" :systems ("cl-ppcre"))
+("flexi-streams" :version "2021-08-07" :source "quicklisp" :systems
+ ("flexi-streams"))
+("hunchentoot" :version "2020-06-10" :source "quicklisp" :systems
+ ("hunchentoot"))
+("lazybones.asd" :version :newest :source :implicit-file :systems ("lazybones"))
+("md5" :version "2021-06-30" :source "quicklisp" :systems ("md5"))
+("rfc2388" :version "2018-08-31" :source "quicklisp" :systems ("rfc2388"))
+("split-sequence" :version "2021-05-31" :source "quicklisp" :systems
+ ("split-sequence"))
+("trivial-backtrace" :version "2020-06-10" :source "quicklisp" :systems
+ ("trivial-backtrace"))
+("trivial-features" :version "2021-12-09" :source "quicklisp" :systems
+ ("trivial-features"))
+("trivial-garbage" :version "2021-12-30" :source "quicklisp" :systems
+ ("trivial-garbage"))
+("trivial-gray-streams" :version "2021-01-24" :source "quicklisp" :systems
+ ("trivial-gray-streams"))
+("usocket" :version "2019-12-27" :source "quicklisp" :systems ("usocket"))
+
+
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;; BEGIN REVERSE-DEPENDENCIES
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+
+:reverse-dependencies
+("alexandria" ((:system :name "lazybones") (:system :name "alexandria"))
+ ((:system :name "hunchentoot") (:system :name "alexandria"))
+ ((:system :name "cl-fad") (:system :name "alexandria"))
+ ((:system :name "cl+ssl") (:system :name "alexandria"))
+ ((:system :name "cffi") (:system :name "alexandria"))
+ ((:system :name "bordeaux-threads") (:system :name "alexandria"))
+ ((:system :name "babel") (:system :name "alexandria")))
+
+("babel" ((:system :name "cffi") (:system :name "babel")))
+
+("bordeaux-threads"
+ ((:system :name "hunchentoot") (:system :name "bordeaux-threads"))
+ ((:system :name "cl-fad") (:system :name "bordeaux-threads"))
+ ((:system :name "cl+ssl") (:system :name "bordeaux-threads")))
+
+("cffi" ((:system :name "cl+ssl") (:system :name "cffi")))
+
+("chunga" ((:system :name "hunchentoot") (:system :name "chunga")))
+
+("cl+ssl" ((:system :name "hunchentoot") (:system :name "cl+ssl")))
+
+("cl-base64" ((:system :name "hunchentoot") (:system :name "cl-base64")))
+
+("cl-fad" ((:system :name "hunchentoot") (:system :name "cl-fad")))
+
+("cl-ppcre" ((:system :name "hunchentoot") (:system :name "cl-ppcre")))
+
+("flexi-streams"
+ ((:system :name "hunchentoot") (:system :name "flexi-streams"))
+ ((:system :name "cl+ssl") (:system :name "flexi-streams")))
+
+("hunchentoot" ((:system :name "lazybones") (:system :name "hunchentoot")))
+
+("lazybones.asd" (t (:asd-file :name "lazybones.asd")))
+
+("md5" ((:system :name "hunchentoot") (:system :name "md5")))
+
+("rfc2388" ((:system :name "hunchentoot") (:system :name "rfc2388")))
+
+("split-sequence" ((:system :name "usocket") (:system :name "split-sequence")))
+
+("trivial-backtrace"
+ ((:system :name "hunchentoot") (:system :name "trivial-backtrace")))
+
+("trivial-features"
+ ((:system :name "cl+ssl") (:system :name "trivial-features"))
+ ((:system :name "cffi") (:system :name "trivial-features"))
+ ((:system :name "babel") (:system :name "trivial-features")))
+
+("trivial-garbage" ((:system :name "cl+ssl") (:system :name "trivial-garbage")))
+
+("trivial-gray-streams"
+ ((:system :name "flexi-streams") (:system :name "trivial-gray-streams"))
+ ((:system :name "cl+ssl") (:system :name "trivial-gray-streams"))
+ ((:system :name "chunga") (:system :name "trivial-gray-streams")))
+
+("usocket" ((:system :name "hunchentoot") (:system :name "usocket"))
+ ((:system :name "cl+ssl") (:system :name "usocket")))
+
diff --git a/lazybones.asd b/lazybones.asd
index 1d7d578..8dacff1 100644
--- a/lazybones.asd
+++ b/lazybones.asd
@@ -6,16 +6,6 @@
   :license  "AGPLv3"
   :version "0.2.0"
   :serial t
-  :depends-on (#:clack
-               #:hunchentoot ;; temporary
-               #:jonathan
-               #:alexandria
-               #:split-sequence
-               #:do-urlencode
-               #:arrows
-               #:uiop
-               #:cl-fad)
+  :depends-on (#:hunchentoot #:alexandria)
   :components ((:file "package")
-               (:file "lazybones")
-               (:file "fs-serve")
-               (:file "decoders")))
+               (:file "lazybones")))
diff --git a/package.lisp b/package.lisp
index 045a5be..cd1720f 100644
--- a/package.lisp
+++ b/package.lisp
@@ -1,53 +1,24 @@
 ;;;; package.lisp
 
 (defpackage #:lazybones
-  (:use #:cl)
-  (:import-from #:alexandria
-                #:if-let
-                #:when-let*
-                #:read-file-into-string
-                #:read-file-into-byte-vector
-                #:starts-with-subseq)
-  (:import-from #:split-sequence #:split-sequence)
+  (:use #:cl))
 
-  (:nicknames :lzb)
-  (:export
-   #:*body*
-   #:*req*
-   #:*resp-headers*
-   #:*logging-p*
-   #:*logging-stream*
-   #:*fallback-response-mimetype*
-   #:add-decoder
-   #:add-header
-   #:serve-directory
-   #:register-file-handler-config
-   #:defroute
-   #:http-err
-   #:http-ok
-   #:http-redirect
-   #:reload
-   #:start
-   #:stop
-   #:with-handler-preamble
-   ))
+;; (defpackage #:lazybones.decoders
+;;   (:use #:cl)
+;;   (:import-from #:split-sequence
+;;                 #:split-sequence)
+;;   (:import-from #:arrows
+;;                 #:->>
+;;                 #:as->*)
+;;   (:import-from #:do-urlencode
+;;                 #:urldecode)
+;;   (:import-from #:lazybones
+;;                 #:add-decoder))
 
-(defpackage #:lazybones.decoders
-  (:use #:cl)
-  (:import-from #:split-sequence
-                #:split-sequence)
-  (:import-from #:arrows
-                #:->>
-                #:as->*)
-  (:import-from #:do-urlencode
-                #:urldecode)
-  (:import-from #:lazybones
-                #:add-decoder))
 
-
-(defpackage #:lazybones.fs-serve
-  (:use #:cl)
-  (:import-from #:lazybones #:register-file-handler-config)
-  (:import-from #:alexandria
-                #:read-file-into-string
-                #:read-file-into-byte-vector))
+;; (defpackage #:lazybones.fs-serve
+;;   (:use #:cl)
+;;   (:import-from #:lazybones #:register-file-handler-config)
+;;   (:import-from #:alexandria
+;;                 #:read-file-into-string
+;;                 #:read-file-into-byte-vector))