[Lisppaste-cvs] CVS update: lisppaste2/variable.lisp

Brian Mastenbrook bmastenbrook at common-lisp.net
Thu Jun 24 19:52:25 UTC 2004


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")





More information about the Lisppaste-cvs mailing list