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

Brian Mastenbrook bmastenbrook at common-lisp.net
Thu Sep 30 23:44:50 UTC 2004


Update of /project/lisppaste/cvsroot/lisppaste2
In directory common-lisp.net:/home/bmastenbrook/lisppaste2

Modified Files:
	variable.lisp web-server.lisp 
Log Message:
Remove donation link

Date: Fri Oct  1 01:44:50 2004
Author: bmastenbrook

Index: lisppaste2/variable.lisp
diff -u lisppaste2/variable.lisp:1.29 lisppaste2/variable.lisp:1.30
--- lisppaste2/variable.lisp:1.29	Sat Sep 25 22:20:27 2004
+++ lisppaste2/variable.lisp	Fri Oct  1 01:44:49 2004
@@ -1,4 +1,4 @@
-;;;; $Id: variable.lisp,v 1.29 2004/09/25 20:20:27 bmastenbrook Exp $
+;;;; $Id: variable.lisp,v 1.30 2004/09/30 23:44:49 bmastenbrook Exp $
 ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/variable.lisp,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -81,13 +81,6 @@
 (defparameter *no-channel-pastes* t) ; whether to allow pastes that
 				       ; don't get announced on a
 				       ; channel
-
-(defparameter *show-donation-link* t)
-
-(defparameter *donation-link*
-  (format nil "https://www.paypal.com/xclick/business=chandler%40iddqd.org~
-&item_name=Support+Lisppaste%2C+SBCL/Darwin%2C+etc.&no_shipping=1~
-&no_note=1&tax=0&currency_code=USD"))
 
 (defparameter *serve-source* t)
 


Index: lisppaste2/web-server.lisp
diff -u lisppaste2/web-server.lisp:1.65 lisppaste2/web-server.lisp:1.66
--- lisppaste2/web-server.lisp:1.65	Sat Sep 25 22:20:27 2004
+++ lisppaste2/web-server.lisp	Fri Oct  1 01:44:49 2004
@@ -1,4 +1,4 @@
-;;;; $Id: web-server.lisp,v 1.65 2004/09/25 20:20:27 bmastenbrook Exp $
+;;;; $Id: web-server.lisp,v 1.66 2004/09/30 23:44:49 bmastenbrook Exp $
 ;;;; $Source: /project/lisppaste/cvsroot/lisppaste2/web-server.lisp,v $
 
 ;;;; See the LICENSE file for licensing information.
@@ -225,11 +225,6 @@
          "Lisppaste is graciously hosted by "
          (b ((a :href "http://www.common-lisp.net/") "common-lisp.net"))
          " - a hosting service for projects written in Common Lisp (like this one)."
-         ,@(if *show-donation-link*
-               `((p)
-                 "Please consider "
-                 (b ((a :href ,*donation-link*) "supporting Lisppaste development"))
-                 " with your contributions. Thanks!"))
          ))
        ((td :valign top :align right)
         ((form :method post :action ,(araneida:urlstring *submit-paste-url*))
@@ -316,10 +311,7 @@
        ((td :id "main-link")
         ((a :href ,(araneida:urlstring *paste-external-url*))
          "Main page")
-        ,@(if *show-donation-link*
-              `(" | "
-                ((a :href ,*donation-link*)
-                 "Support Lisppaste"))))
+        )
        ((td :id "other-links")
         ((a :href ,(araneida:urlstring *new-paste-url*)) "New paste")
         " | "
@@ -957,11 +949,7 @@
                (td
                 ((div :class "info-text")
                  ((span :class "small-header") "Donations accepted")
-                 ,@(if *show-donation-link*
-                       `((br)
-                         "If you appreciate Lisppaste, please consider "
-                         (b ((a :href ,*donation-link*) "making a donation"))
-                         " to support further development of the service. Thanks!"))))))
+                 ))))
             ))))))))
 
 (defun ends-with (str end)





More information about the Lisppaste-cvs mailing list