Commit c6d4f301 authored by Dave Cooper's avatar Dave Cooper
Browse files

added reportToMother for server to keep track of javascript timer

parent c9294cc1
......@@ -18,6 +18,10 @@
(:script :src "https://code.jquery.com/jquery-2.1.4.min.js")
(:script :src "/timer-static/scripts.js")
(str (the timer-header main-div))
(str (the timer-form-min form-control-string))
(str (the timer-form-sec form-control-string))
(str (the timer-section main-div))
(str (the journal-section main-div))
(:br)
......@@ -26,16 +30,18 @@
(with-cl-who-string ()
(:link :href "/timer-static/style/styles.css"
:rel "stylesheet"
:type "text/css")))
:type "text/css")
((:script :type "text/javascript") (str (the report-to-mother)))))
(report-to-mother (format nil "
function reportToMother (seconds, minutes)
function reportToMother ()
{~a}"
(the (gdl-ajax-call :function-key :report-from-timer
:arguments (list "seconds" "minutes"))))))
(the (gdl-ajax-call :form-controls (list (the timer-form-min)
(the timer-form-sec)))))))
:objects
; Header that says "TIMER"
((timer-header :type 'sheet-section
......@@ -45,8 +51,6 @@ function reportToMother (seconds, minutes)
(timer-section :type 'sheet-section
:inner-html (with-cl-who-string ()
(str (the timer-form-min form-control-string))
(str (the timer-form-sec form-control-string))
(:br)
(str (the start-button form-control-string))
(str (the pause-button form-control-string))))
......
......@@ -37,7 +37,7 @@ function countDown() {
minutes--;
}
reportToMother(seconds, minutes);
reportToMother();
if (minutes==0 && seconds==0) {
clearInterval(interval);
......@@ -75,4 +75,4 @@ $(document).ready(function(){
$("#journal-descr").val($(this).find(".journal-descr").html());
});
});
\ No newline at end of file
});
......@@ -34,7 +34,12 @@ Defaults to nil."
primary? nil)
("String. You can use this to specify a user-defined class for the form-control. Defaults to nil, which means no class attribute will be generated."
class nil))
class nil)
("Keyword symbol. The ID attribute for this tag. Defaults to (the field-name)."
id (the field-name))
)
:computed-slots
(
......@@ -66,8 +71,7 @@ Previously known as form-control-string. Default is the form-control-string."
("Keyword symbol. The ID attribute for this tag. Defaults to (the field-name)."
id (the field-name))))
))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment