Changeset 3369

Show
Ignore:
Timestamp:
06/27/08 12:52:54 (7 months ago)
Author:
hans
Message:

Add "keynote" submission type

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/projects/lisp-ecoop/src/handlers.lisp

    r3366 r3369  
    5050(defmethod handle ((handler make-submission-handler)) 
    5151  (with-query-params (type title abstract) 
    52     (let ((submission (make-object (if (string-equal type "paper") 'paper 'breakout-group-proposal) :title title :abstract abstract))) 
     52    (let ((submission (make-object (find-symbol (string-upcase type)) 
     53                                   :title title 
     54                                   :abstract abstract))) 
    5355      (with-lisp-ecoop-page (#?"Submission created") 
    5456        (html ((:script :type "text/javascript") 
    …… 
    6668 
    6769(defmethod handle-object ((handler upload-document-handler) object) 
     70  (declare (ignore object)) 
    6871  (error "Missing object ID")) 
    6972 

  • trunk/projects/lisp-ecoop/src/load.lisp

    r3313 r3369  
    2525(asdf:oos 'asdf:load-op :swank) 
    2626 
    27 (swank::create-server :port 4005) 
     27(swank::create-server :port 4006) 
    2828(lisp-ecoop::startup) 
    2929 

  • trunk/projects/lisp-ecoop/src/packages.lisp

    r3310 r3369  
    5050           #:paper 
    5151           #:breakout-group-proposal 
     52           #:keynote 
    5253           #:submission 
    5354           #:submission-type 

  • trunk/projects/lisp-ecoop/src/participant.lisp

    r3362 r3369  
    6161(defmethod submission-type ((breakout-group-proposal breakout-group-proposal)) 
    6262  "Breakout group proposal") 
     63 
     64(define-lisp-ecoop-class keynote (submission) 
     65  ()) 
     66 
     67(defmethod submission-type ((keynote keynote)) 
     68  "Keynote") 
    6369 
    6470(defmethod print-object-as-html ((submission submission)) 

  • trunk/projects/lisp-ecoop/src/schedule.lisp

    r2438 r3369  
    6262 
    6363(defmethod handle-object-form ((handler edit-timeslot-handler) action timeslot) 
     64  (declare (ignore action)) 
    6465  (with-bknr-page (:title "Edit Timeslot") 
    6566    ((:form :method "POST") 

  • trunk/projects/lisp-ecoop/src/tags.lisp

    r3304 r3369  
    6161            (with-open-file (pdf file-name) 
    6262              (if (cl-ppcre:scan "^%PDF-" (read-line pdf)) 
    63                   (let* ((submission (make-object (if (equal type "breakout-group-proposal") 
    64                                                       'breakout-group-proposal 
    65                                                       'paper) 
     63                  (let* ((submission (make-object (find-symbol (string-upcase type)) 
    6664                                                  :submitters (list participant) :title title :abstract abstract)) 
    6765                         (document (make-object 'document :info info :submission submission))) 

  • trunk/projects/lisp-ecoop/website/templates/create-submission.xml

    r3367 r3369  
    2020    <p> 
    2121     <input type="radio" name="type" value="paper" checked="checked"/> Paper 
    22      <input type="radio" name="type" value="breakout-group"/> Breakout group proposal 
     22     <input type="radio" name="type" value="breakout-group-proposal"/> Breakout group proposal 
     23     <input type="radio" name="type" value="keynote"/> Keynote 
    2324    </p> 
    2425    <label for="title">Title</label><br/> 

  • trunk/projects/lisp-ecoop/website/templates/submissions.xml

    r3368 r3369  
    1010<!-- The list of accepted submissions will be available in June. --> 
    1111 
     12<h2>Keynotes</h2> 
     13<lisp-ecoop:submission-list type="keynote"/> 
     14 
    1215<h2>Papers</h2> 
    1316<lisp-ecoop:submission-list type="paper"/>