Improve

src/app.lisp

@@ -3,7 +3,7 @@
   (:use #:cl)
   (:local-nicknames (#:jg #:jingle))
   (:local-nicknames (#:fbr #:ningle-fbr))
-  (:local-nicknames (#:cfg #:hp/config/env))
+  (:local-nicknames (#:env #:hp/env))
   (:local-nicknames (#:mw #:hp/middlewares/*))
   (:export #:start
            #:stop
@@ -11,7 +11,7 @@
 (in-package #:hp)
 
 (defparameter *app* (jg:make-app :address "localhost"
-                                 :port cfg:*port*))
+                                 :port env:*port*))
 
 (defun start ()
   (jg:start *app*))

src/config/lib.lisp

@@ -1,6 +0,0 @@
-(defpackage #:hp/config/lib
-  (:use #:cl)
-  (:import-from #:log4cl))
-(in-package #:hp/config/lib)
-
-(log:config :nofile)

src/env.lisp

@@ -1,9 +1,9 @@
-(defpackage #:hp/config/env
+(defpackage #:hp/env
   (:use #:cl)
   (:export #:dev-mode-p
            #:prod-mode-p
            #:*port*))
-(in-package #:hp/config/env)
+(in-package #:hp/env)
 
 (defmacro defenv (name env &key default parser)
   (let ((env-val (gensym "val")))

src/middlewares/access-logger.lisp

@@ -1,14 +0,0 @@
-(defpackage #:hp/middlewares/access-logger
-  (:use #:cl)
-  (:import-from #:lack.middleware.accesslog
-                #:*lack-middleware-accesslog*)
-  (:import-from #:log4cl)
-  (:export *access-logger*))
-(in-package #:hp/middlewares/access-logger)
-
-(defparameter *access-logger*
-  (lambda (app)
-    (funcall *lack-middleware-accesslog*
-             app
-             :logger (lambda (message)
-                       (log:info message)))))

src/middlewares/recoverer.lisp

@@ -2,12 +2,12 @@
   (:use #:cl)
   (:import-from #:log4cl)
   (:local-nicknames (#:tb #:trivial-backtrace))
-  (:local-nicknames (#:cfg #:hp/config/env))
+  (:local-nicknames (#:env #:hp/env))
   (:export #:*recoverer*))
 (in-package #:hp/middlewares/recoverer)
 
 (defun message (condition)
-  (if (cfg:dev-mode-p)
+  (if (env:dev-mode-p)
       (tb:print-backtrace condition :output nil)
       "Internal Server Error"))
 

src/response.lisp

@@ -2,7 +2,6 @@
   (:use #:cl)
   (:import-from #:hsx)
   (:local-nicknames (#:jg #:jingle))
-  (:local-nicknames (#:cfg #:hp/config/env))
   (:local-nicknames (#:cmp #:hp/components/*))
   (:export #:response
            #:partial-response))