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)