Author: hhubner Date: 2006-02-11 03:18:16 -0600 (Sat, 11 Feb 2006) New Revision: 1828 Removed: trunk/projects/lisp-ecoop05/src/js-drag.lisp Modified: trunk/projects/lisp-ecoop05/src/config.lisp trunk/projects/lisp-ecoop05/src/event.lisp trunk/projects/lisp-ecoop05/src/handlers.lisp trunk/projects/lisp-ecoop05/src/init.lisp trunk/projects/lisp-ecoop05/src/lisp-ecoop05.asd trunk/projects/lisp-ecoop05/src/load.lisp trunk/projects/lisp-ecoop05/src/mail.lisp trunk/projects/lisp-ecoop05/src/packages.lisp trunk/projects/lisp-ecoop05/src/participant.lisp trunk/projects/lisp-ecoop05/src/schedule.lisp trunk/projects/lisp-ecoop05/src/tags.lisp trunk/projects/lisp-ecoop05/src/webserver.lisp Log: Renaming to lisp-ecoop Modified: trunk/projects/lisp-ecoop05/src/config.lisp =================================================================== --- trunk/projects/lisp-ecoop05/src/config.lisp 2006-02-10 05:22:28 UTC (rev 1827) +++ trunk/projects/lisp-ecoop05/src/config.lisp 2006-02-11 09:18:16 UTC (rev 1828) @@ -1,9 +1,9 @@ -(in-package :lisp-ecoop05.config) +(in-package :lisp-ecoop.config) ;; URL für BASE HREFs -(defparameter *website-url* "http://lisp-ecoop05.bknr.net") +(defparameter *website-url* "http://lisp-ecoop.bknr.net") -(defparameter *root-directory* #p"home:bknr-svn/lisp-ecoop05/") +(defparameter *root-directory* #p"home:bknr-svn/lisp-ecoop/") (defparameter *store-directory* (merge-pathnames #p"datastore/" *root-directory*)) @@ -11,6 +11,6 @@ (defparameter *webserver-port* 8081) -(defparameter *default-mail-from* "postmaster@lisp-ecoop05.bknr.net") +(defparameter *default-mail-from* "postmaster@lisp-ecoop.bknr.net") (defparameter *default-mail-subject* "Mail from the LISP ECOOP05 Website") (defparameter *smtp-server* "127.0.0.1") \ No newline at end of file Modified: trunk/projects/lisp-ecoop05/src/event.lisp =================================================================== --- trunk/projects/lisp-ecoop05/src/event.lisp 2006-02-10 05:22:28 UTC (rev 1827) +++ trunk/projects/lisp-ecoop05/src/event.lisp 2006-02-11 09:18:16 UTC (rev 1828) @@ -1,3 +1,3 @@ -(in-package :lisp-ecoop05) +(in-package :lisp-ecoop) ( \ No newline at end of file Modified: trunk/projects/lisp-ecoop05/src/handlers.lisp =================================================================== --- trunk/projects/lisp-ecoop05/src/handlers.lisp 2006-02-10 05:22:28 UTC (rev 1827) +++ trunk/projects/lisp-ecoop05/src/handlers.lisp 2006-02-11 09:18:16 UTC (rev 1828) @@ -1,4 +1,4 @@ -(in-package :lisp-ecoop05) +(in-package :lisp-ecoop) (enable-interpol-syntax) Modified: trunk/projects/lisp-ecoop05/src/init.lisp =================================================================== --- trunk/projects/lisp-ecoop05/src/init.lisp 2006-02-10 05:22:28 UTC (rev 1827) +++ trunk/projects/lisp-ecoop05/src/init.lisp 2006-02-11 09:18:16 UTC (rev 1828) @@ -1,4 +1,4 @@ -(in-package :lisp-ecoop05) +(in-package :lisp-ecoop) (defun startup () (when *store* @@ -15,4 +15,4 @@ (bknr.cron:start-cron) - (publish-lisp-ecoop05)) + (publish-lisp-ecoop)) Deleted: trunk/projects/lisp-ecoop05/src/js-drag.lisp =================================================================== --- trunk/projects/lisp-ecoop05/src/js-drag.lisp 2006-02-10 05:22:28 UTC (rev 1827) +++ trunk/projects/lisp-ecoop05/src/js-drag.lisp 2006-02-11 09:18:16 UTC (rev 1828) @@ -1,55 +0,0 @@ -(in-package :lisp-ecoop05) - -(defclass js-drag-handler (page-handler) - ()) - -(defmethod handle ((handler js-drag-handler) req) - (with-http-response (req *ent*) - (with-http-body (req *ent*) - (html - (:html - (:head - (:title "Drag & Drop Demo") - ((:script :type "text/javascript" :src "/static/drag-demo.js"))) - ((:body :style (css-inline :font-family "sans-serif") - :onload (js-inline (init))) - (:h1 "Drag & Drop Demo") - ((:div :id "canvas" :style (css-inline :position "absolute" - :background-color "#f0f0f0" - :left "50px" - :top "50px" - :width "400px" - :height "400px" - :border "thin solid #000000" - :-moz-border-radius "4px" - :z-order "1")) - ((:div :id "container1" :style (css-inline :position "absolute" - :background-color "#c0c0c0" - :left "10px" - :top "10px" - :width "100px" - :height "380px" - :border "thin solid #000000" - :-moz-border-radius "4px" - :z-order "2")) - "Container 1") - ((:div :id "container2" :style (css-inline :position "absolute" - :background-color "#c0c0c0" - :right "10px" - :top "10px" - :width "100px" - :height "380px" - :border "thin solid #000000" - :-moz-border-radius "4px" - :z-order "2")) - "Container 2") - ((:div :id "icon" :style (css-inline :position "absolute" - :background-color "#e0e0e0" - :left "130px" - :top "20px" - :border "thin solid #000000" - :text-align "center" - :-moz-border-radius "4px" - :z-order "3")) - ((:img :border "0" :src "/image/bknr-logo")) - :br "drag me!")))))))) \ No newline at end of file Modified: trunk/projects/lisp-ecoop05/src/lisp-ecoop05.asd =================================================================== --- trunk/projects/lisp-ecoop05/src/lisp-ecoop05.asd 2006-02-10 05:22:28 UTC (rev 1827) +++ trunk/projects/lisp-ecoop05/src/lisp-ecoop05.asd 2006-02-11 09:18:16 UTC (rev 1828) @@ -2,12 +2,12 @@ (in-package :cl-user) -(defpackage :lisp-ecoop05.system +(defpackage :lisp-ecoop.system (:use :cl :asdf)) -(in-package :lisp-ecoop05.system) +(in-package :lisp-ecoop.system) -(defsystem :lisp-ecoop05 +(defsystem :lisp-ecoop :name "worldpay test" :author "Hans Huebner <hans@huebner.org>" :version "0" @@ -16,15 +16,15 @@ :description "BKNR Test Web Server" :long-description "" - :depends-on (:bknr-modules :klammerscript) + :depends-on (:bknr-modules :cxml :klammerscript) :components ((:file "packages") - (:file "config" :depends-on ("packages")) + (:file "macros" :depends-on ("packages")) + (:file "config" :depends-on ("macros")) (:file "schedule" :depends-on ("config")) (:file "participant" :depends-on ("config" "schedule")) (:file "mail" :depends-on ("participant")) (:file "tags" :depends-on ("participant")) (:file "handlers" :depends-on ("participant")) - (:file "js-drag" :depends-on ("packages")) (:file "webserver" :depends-on ("handlers")) (:file "init" :depends-on ("webserver")))) Modified: trunk/projects/lisp-ecoop05/src/load.lisp =================================================================== --- trunk/projects/lisp-ecoop05/src/load.lisp 2006-02-10 05:22:28 UTC (rev 1827) +++ trunk/projects/lisp-ecoop05/src/load.lisp 2006-02-11 09:18:16 UTC (rev 1828) @@ -1,9 +1,9 @@ (push :cl-gd-gif *features*) -(asdf:oos 'asdf:load-op :lisp-ecoop05) +(asdf:oos 'asdf:load-op :lisp-ecoop) (asdf:oos 'asdf:load-op :swank) (swank::create-swank-server 4005 :spawn #'swank::simple-announce-function t) -(lisp-ecoop05::startup) +(lisp-ecoop::startup) (mp::startup-idle-and-top-level-loops) Modified: trunk/projects/lisp-ecoop05/src/mail.lisp =================================================================== --- trunk/projects/lisp-ecoop05/src/mail.lisp 2006-02-10 05:22:28 UTC (rev 1827) +++ trunk/projects/lisp-ecoop05/src/mail.lisp 2006-02-11 09:18:16 UTC (rev 1828) @@ -1,4 +1,4 @@ -(in-package :lisp-ecoop05) +(in-package :lisp-ecoop) (enable-interpol-syntax) Modified: trunk/projects/lisp-ecoop05/src/packages.lisp =================================================================== --- trunk/projects/lisp-ecoop05/src/packages.lisp 2006-02-10 05:22:28 UTC (rev 1827) +++ trunk/projects/lisp-ecoop05/src/packages.lisp 2006-02-11 09:18:16 UTC (rev 1828) @@ -1,6 +1,6 @@ (in-package :cl-user) -(defpackage :lisp-ecoop05.config +(defpackage :lisp-ecoop.config (:use :cl :cl-user) (:export #:*website-url* @@ -11,15 +11,15 @@ #:*default-mail-subject* #:*smtp-server*)) -(defpackage :lisp-ecoop05.imageproc +(defpackage :lisp-ecoop.imageproc (:use :cl :cl-user :bknr.web :cl-gd - :lisp-ecoop05.config) + :lisp-ecoop.config) (:export)) -(defpackage :lisp-ecoop05 +(defpackage :lisp-ecoop (:use :cl :cl-user :ext @@ -31,7 +31,7 @@ :bknr.indices :bknr.user :bknr.images - :lisp-ecoop05.config + :lisp-ecoop.config :net.aserve :net.post-office :xhtml-generator @@ -58,7 +58,7 @@ #:submission-timeslot #:timeslot)) -(defpackage :lisp-ecoop05.tags +(defpackage :lisp-ecoop.tags (:use :cl :cl-user :cl-ppcre @@ -71,8 +71,8 @@ :bknr.images :net.aserve :xhtml-generator - :lisp-ecoop05.config - :lisp-ecoop05) + :lisp-ecoop.config + :lisp-ecoop) (:shadowing-import-from :cl-interpol #:quote-meta-chars) (:shadowing-import-from :acl-compat.mp #:process-kill #:process-wait) (:export #:hello)) \ No newline at end of file Modified: trunk/projects/lisp-ecoop05/src/participant.lisp =================================================================== --- trunk/projects/lisp-ecoop05/src/participant.lisp 2006-02-10 05:22:28 UTC (rev 1827) +++ trunk/projects/lisp-ecoop05/src/participant.lisp 2006-02-11 09:18:16 UTC (rev 1828) @@ -1,4 +1,4 @@ -(in-package :lisp-ecoop05) +(in-package :lisp-ecoop) (enable-interpol-syntax) @@ -90,7 +90,7 @@ :text (format nil "Your participant account on the LISP ECOOP05 Workshop website has been created. Please visit your personal profile page on -http://lisp-ecoop05.bknr.net/edit-profile/ to change your password +http://lisp-ecoop.bknr.net/edit-profile/ to change your password andupdate your profile information. Your login name is: ~A @@ -110,7 +110,7 @@ :text (format nil "Your password on the LISP ECOOP 05 Workshop website has been reset. Please visit your personal profile page on -http://lisp-ecoop05.bknr.net/edit-profile/~A to change your password +http://lisp-ecoop.bknr.net/edit-profile/~A to change your password and update your profile information. Your login name is: ~A Modified: trunk/projects/lisp-ecoop05/src/schedule.lisp =================================================================== --- trunk/projects/lisp-ecoop05/src/schedule.lisp 2006-02-10 05:22:28 UTC (rev 1827) +++ trunk/projects/lisp-ecoop05/src/schedule.lisp 2006-02-11 09:18:16 UTC (rev 1828) @@ -1,4 +1,4 @@ -(in-package :lisp-ecoop05) +(in-package :lisp-ecoop) (enable-interpol-syntax) @@ -93,7 +93,7 @@ (print-object-as-html (timeslot-content timeslot)))) (mapc #'emit-template-node children)))))) -(in-package :lisp-ecoop05.tags) +(in-package :lisp-ecoop.tags) (define-bknr-tag show-day-schedule (&key day children) - (lisp-ecoop05::show-day-schedule :day day :children children)) + (lisp-ecoop::show-day-schedule :day day :children children)) Modified: trunk/projects/lisp-ecoop05/src/tags.lisp =================================================================== --- trunk/projects/lisp-ecoop05/src/tags.lisp 2006-02-10 05:22:28 UTC (rev 1827) +++ trunk/projects/lisp-ecoop05/src/tags.lisp 2006-02-11 09:18:16 UTC (rev 1828) @@ -1,4 +1,4 @@ -(in-package :lisp-ecoop05.tags) +(in-package :lisp-ecoop.tags) (enable-interpol-syntax) @@ -293,7 +293,7 @@ (define-bknr-tag submission-list (&key participant-only (type "submission")) (dolist (submission (sort (copy-list (if participant-only (participant-submissions *participant*) - (class-instances (intern (string-upcase type) :lisp-ecoop05)))) + (class-instances (intern (string-upcase type) :lisp-ecoop)))) #'string-lessp :key #'submission-title)) (html ((:div :class "submission-line") (when participant-only Modified: trunk/projects/lisp-ecoop05/src/webserver.lisp =================================================================== --- trunk/projects/lisp-ecoop05/src/webserver.lisp 2006-02-10 05:22:28 UTC (rev 1827) +++ trunk/projects/lisp-ecoop05/src/webserver.lisp 2006-02-11 09:18:16 UTC (rev 1828) @@ -1,4 +1,4 @@ -(in-package :lisp-ecoop05) +(in-package :lisp-ecoop) (enable-interpol-syntax) @@ -6,9 +6,9 @@ ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; (defun make-daily-statistics () - (bknr.stats::make-yesterdays-stats :delete-events t :remove-referer-hosts '("lisp-ecoop05.bknr.net"))) + (bknr.stats::make-yesterdays-stats :delete-events t :remove-referer-hosts '("lisp-ecoop.bknr.net"))) -(defun publish-lisp-ecoop05 (&key (port *webserver-port*) (listeners 20)) +(defun publish-lisp-ecoop (&key (port *webserver-port*) (listeners 20)) (unless (bknr.cron:cron-job-with-name "daily webserver statistics") (bknr.cron:make-cron-job "daily webserver statistics" 'make-daily-statistics @@ -21,7 +21,7 @@ :to "/home") ("/" template-handler :destination ,(namestring (merge-pathnames #p"templates/" *website-directory*)) - :command-packages ((:lisp-ecoop05 . :lisp-ecoop05.tags) + :command-packages ((:lisp-ecoop . :lisp-ecoop.tags) (:bknr . :bknr.web) (:menu . :bknr.site-menu))) ("/static" directory-handler