stuff

1 files changed, 0 insertions, 18 deletions

diff --git a/webapps/webapp-loader.lisp b/webapps/webapp-loader.lisp
index c29da1f..83f1979 100644
--- a/webapps/webapp-loader.lisp
+++ b/webapps/webapp-loader.lisp
@@ -3,8 +3,6 @@
 
 (in-package #:ldapadmin)
 
-;; ========================================================================== ;;
-
 (defvar *acceptor* nil)
 (defvar *dispatch-table* '(#'dispatch-easy-handlers #'default-dispatcher))
 (defvar *webapps* (make-hash-table :test 'equal))
@@ -12,8 +10,6 @@
 (defparameter *port* 3006)
 (defparameter *session-timeout* 14400)
 
-;; ========================================================================== ;;
-
 (defclass webapp ()
   ((name :initarg :name
          :initform nil
@@ -47,8 +43,6 @@ up in Google.")
          :accessor ldap))
   (:documentation ""))
 
-;; ========================================================================== ;;
-
 (defgeneric get-site-file-path (webapp)
   (:documentation "Builds a full filesystem path to a webapp's site
 file."))
@@ -65,8 +59,6 @@ file."))
           (remove-if (lambda (x) (equal x "shared"))
                      (shell-wrapper (format nil "find '~a' -maxdepth 1 -type f -iname 'pages*.lisp' |sort" (document-root webapp))))))
 
-;; ========================================================================== ;;
-
 (defun make-webapp-path (relative-path)
   "Makes an absolute filesystem path to a location in the webapps
 folder."
@@ -92,8 +84,6 @@ overwritten with the new one."
   "Gets the webapp object."
   (gethash key *webapps*))
 
-;; ========================================================================== ;;
-
 (defun generate-sessionid ()
   "Generates a unique random string to seed the
 `*session-secret*'. The string is a SHA256 hash."
@@ -105,8 +95,6 @@ overwritten with the new one."
       (ironclad:update-digest digest entropic-value)
       (ironclad:byte-array-to-hex-string (ironclad:produce-digest digest)))))
 
-;; ========================================================================== ;;
-
 (defun populate-webapps ()
   (loop for options-file in (get-options-files) do
        (with-open-file (input options-file :direction :input)
@@ -119,8 +107,6 @@ overwritten with the new one."
                                       :meta-description (getf form :meta-description)
                                       :ldap (getf form :ldap)))))))
 
-;; ========================================================================== ;;
-
 (defun ldapadmin ()
   "Call this to start the server."
   (when (null *acceptor*)
@@ -135,8 +121,6 @@ overwritten with the new one."
                                              :document-root (make-server-path (format nil "webapps/~a/" package))
                                              :name (format nil "~a-acceptor" package)))))))
 
-;; ========================================================================== ;;
-
 (defmacro with-request-wrapper (uri page-function)
   ;; Assigning package outside the backquote is necessary because
   ;; *package* resolves incorrectly to common-lisp-user inside the
@@ -150,8 +134,6 @@ overwritten with the new one."
          (setf (session-value :permissions) "anonymous"))
        (,page-function))))
   
-;; ========================================================================== ;;
-
 (defmacro define-endpoint (request-type uri var-list page-function)
   "Does the grunt work of creating an `easy-handler' for each page you
 wish to publish."