Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
gendl
gendl
Commits
c5d41edc
Commit
c5d41edc
authored
Jun 13, 2015
by
Dave Cooper
Browse files
ready to push this branch for backup
parent
c2442c17
Changes
2
Hide whitespace changes
Inline
Side-by-side
apps/timer/source/assembly.lisp
View file @
c5d41edc
...
...
@@ -18,25 +18,15 @@
(
main-sheet-body
(
with-cl-who-string
()
(
:div
:id
"content"
(
:script
:src
"/timer-static/scripts.js"
)
(
:script
:type
"text/javascript"
"function timerStop() {"
(
str
(
the
(
gdl-ajax-call
:form-controls
(
list
(
the
timer-form-min
)
(
the
timer-form-sec
)
(
the
journal-form-name
)
(
the
journal-form-descr
))
:function-key
:record-journal-entry
)))
"}"
)
(
str
(
the
timer-header
main-div
))
(
str
(
the
timer-form-min
form-control
))
(
str
(
the
timer-form-sec
form-control
))
(
:br
)
(
str
(
the
timer-button
main-div
))
(
:hr
)
(
str
(
the
journal-form-name
form-control
))
(
str
(
the
journal-form-descr
form-control
))
(
str
(
the
timer
-button
main-div
))
(
str
(
the
journal
-button
main-div
))
(
:br
)
(
str
(
the
journal-entries-display
main-div
)))))
(
additional-header-content
...
...
@@ -68,20 +58,31 @@
; Button that says "START"
(
timer-button
:type
'sheet-section
:inner-html
(
with-cl-who-string
()
(
:button
:onclick
(
(
:button
:onclick
(
concatenate
'string
"timerStart('"
(
symbol-name
(
the
timer-form-min
id
))
"','"
(
symbol-name
(
the
timer-form-sec
id
))
"')"
)
"')"
)
)
"Start"
)))
(
journal-button
:type
'sheet-section
:inner-html
(
with-cl-who-string
()
((
:button
:onclick
(
the
(
gdl-ajax-call
:form-controls
(
list
(
the
timer-form-min
)
(
the
timer-form-sec
)
(
the
journal-form-name
)
(
the
journal-form-descr
))
:function-key
:record-journal-entry
)))
"Record entry"
)))
; Displays journal entries
(
journal-entries-display
:type
'sheet-section
:inner-html
(
progn
(
the
force-update-flag
)
(
with-cl-who-string
()
(
fmt
"Previous entries: ~{~a<br>~}"
(
the
read-journal-entry
))))))
:functions
((
read-journal-entry
()
...
...
apps/timer/static/scripts.js
View file @
c5d41edc
...
...
@@ -41,7 +41,7 @@ function countDown() {
document
.
getElementById
(
min_id
).
value
=
start_min
;
document
.
getElementById
(
sec_id
).
value
=
start_sec
;
timerStop
(
);
alert
(
'
Please record your journal entry for this time.
'
);
return
;
}
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment