Update of /project/lisppaste/cvsroot/lisppaste2 In directory common-lisp.net:/home/bmastenbrook/test/lisppaste2
Modified Files: variable.lisp Log Message: The variable part of CSS, I think
Date: Thu Jun 24 12:52:25 2004 Author: bmastenbrook
Index: lisppaste2/variable.lisp diff -u lisppaste2/variable.lisp:1.23 lisppaste2/variable.lisp:1.24 --- lisppaste2/variable.lisp:1.23 Thu Jun 17 06:42:32 2004 +++ lisppaste2/variable.lisp Thu Jun 24 12:52:25 2004 @@ -1,4 +1,4 @@ -;;;; $Id: variable.lisp,v 1.23 2004/06/17 13:42:32 bmastenbrook Exp $ +;;;; $Id: variable.lisp,v 1.24 2004/06/24 19:52:25 bmastenbrook Exp $ ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/variable.lisp,v $
;;;; See the LICENSE file for licensing information. @@ -31,12 +31,6 @@ (defparameter *paste-site-name* "localhost" "Website we are running on (used for creating links).")
-(defparameter *paste-url* - (araneida:merge-url - (araneida:make-url :scheme "http" - :host *paste-site-name* - :port *internal-http-port*) "/paste/")) - (defparameter *paste-external-url* (araneida:merge-url (araneida:make-url :scheme "http" @@ -95,6 +89,9 @@ (defparameter *stats-url* (araneida:merge-url *paste-external-url* "stats"))
+(defparameter *css-url* + (araneida:merge-url *paste-external-url* "lisppaste.css")) + (defvar *paste-listener* (let ((fwd-url (araneida:copy-url *paste-external-url*))) (setf (araneida:url-port fwd-url) *internal-http-port*) @@ -110,7 +107,7 @@ #+sbcl #-sb-thread 'araneida:serve-event-http-listener #-sbcl 'threaded-http-listener :address #(127 0 0 1) - :port (araneida:url-port *paste-url*))) + :port *internal-http-port*))
(defvar *default-nickname* "devpaste") (defvar *default-irc-server* "irc.freenode.net")