diff options
| author | ckonstanski <ckonstanski@pippiandcarlos.com> | 2020-12-23 10:46:36 -0700 |
|---|---|---|
| committer | ckonstanski <ckonstanski@pippiandcarlos.com> | 2020-12-23 10:46:36 -0700 |
| commit | 74da7d1d424e08c8504effe562318ca029eb3a6e (patch) | |
| tree | 153e186c568f72d0834dd374c886e9db1cbb2e5a | |
| parent | 4850ffaef859a3f33f03c5500602881e30b1039c (diff) | |
moved http functions into separate library
| -rw-r--r-- | ldapadmin.asd | 10 | ||||
| -rw-r--r-- | webapps/ldapadmin/site.lisp | 2 |
2 files changed, 4 insertions, 8 deletions
diff --git a/ldapadmin.asd b/ldapadmin.asd index d5155f6..e0cc91a 100644 --- a/ldapadmin.asd +++ b/ldapadmin.asd @@ -17,8 +17,8 @@ :depends-on ,(eval depends-on) :components ,components)) -(defparameter *quicklisp-packages* '(net-telent-date cl-ppcre uffi hunchentoot cl-log ironclad cl-json drakma trivial-ldap)) -(defparameter *asdf-packages* '(org-ckons-core)) +(defparameter *quicklisp-packages* '(net-telent-date cl-ppcre uffi hunchentoot cl-log ironclad cl-json trivial-ldap)) +(defparameter *asdf-packages* '(org-ckons-core org-ckons-http)) (defparameter *all-packages* (append *quicklisp-packages* *asdf-packages*)) (loop for pkg in *quicklisp-packages* do @@ -29,17 +29,13 @@ :maintainer "Carlos Konstanski <me@ckons.org>" :author "Carlos Konstanski <me@ckons.org>" :description "ldapadmin" - :long-description "ldapadmin is a web application written in Common Lisp, based on the Hunchentoot web server. It is an LDAP frontend web UI." + :long-description "ldapadmin is a web application written in Common Lisp, based on the Hunchentoot web server. It is a web UI frontend for LDAP." :depends-on *all-packages* :components ((:module core :components ((:file "core"))) (:module condition :depends-on (core) :components ((:file "condition"))) - (:module http - :depends-on (condition) - :components ((:file "httputils") - (:file "html"))) (:module file :depends-on (condition) :components ((:file "file-utils"))) diff --git a/webapps/ldapadmin/site.lisp b/webapps/ldapadmin/site.lisp index 5deddf5..794cbc6 100644 --- a/webapps/ldapadmin/site.lisp +++ b/webapps/ldapadmin/site.lisp @@ -4,7 +4,7 @@ (in-package #:ldapadmin) (defmacro .base (&optional (onload-fn "goto_location('/home')")) - `(html5 + `(org-ckons-http::html5 `(html (head ((meta :name "viewport" :content "width=device-width, initial-scale=1")) |