[bknr-cvs] r1828 - trunk/projects/lisp-ecoop05/src
bknr at bknr.net
bknr at bknr.net
Sat Feb 11 09:18:17 UTC 2006
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 at lisp-ecoop05.bknr.net")
+(defparameter *default-mail-from* "postmaster at 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 at 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
More information about the Bknr-cvs
mailing list