Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Menu
Open sidebar
gendl
gendl
Commits
9486f4d3
Commit
9486f4d3
authored
Jun 13, 2015
by
Dave Cooper
Browse files
commiting for periodic merge to devo.
parent
f2de6ef0
Changes
4
Hide whitespace changes
Inline
Side-by-side
apps/timer/db/Name
deleted
100644 → 0
View file @
f2de6ef0
((("0" "5") ("Description of task")))
\ No newline at end of file
apps/timer/db/Test
deleted
100644 → 0
View file @
f2de6ef0
(("0" "1") ("Description of task"))
\ No newline at end of file
apps/timer/db/Testing
deleted
100644 → 0
View file @
f2de6ef0
apps/timer/source/assembly.lisp
View file @
9486f4d3
...
@@ -23,6 +23,7 @@
...
@@ -23,6 +23,7 @@
(
str
(
the
timer-button
main-div
))
(
str
(
the
timer-button
main-div
))
(
:hr
)
(
:hr
)
(
str
(
the
journal-form-name
form-control
))
(
str
(
the
journal-form-name
form-control
))
(
:br
)
(
str
(
the
journal-form-descr
form-control
))
(
str
(
the
journal-form-descr
form-control
))
(
str
(
the
journal-button
main-div
))
(
str
(
the
journal-button
main-div
))
(
:br
)
(
:br
)
...
@@ -79,7 +80,7 @@
...
@@ -79,7 +80,7 @@
(
journal-entries-display
:type
'sheet-section
(
journal-entries-display
:type
'sheet-section
:inner-html
(
progn
(
the
force-update-flag
)
:inner-html
(
progn
(
the
force-update-flag
)
(
with-cl-who-string
()
(
with-cl-who-string
()
(
fmt
"Previous entries: ~{~a<
br
>~}"
(
fmt
"Previous entries: ~{
<p>
~a<
/p
>~}"
(
the
read-journal-entry
))))))
(
the
read-journal-entry
))))))
:functions
:functions
...
@@ -90,7 +91,8 @@
...
@@ -90,7 +91,8 @@
(
concatenate
'string
(
concatenate
'string
(
namestring
(
merge-pathnames
"../db/"
*source-path*
))
(
namestring
(
merge-pathnames
"../db/"
*source-path*
))
(
the
journal-form-name
value
))
(
the
journal-form-name
value
))
:direction
:input
)
:direction
:input
:if-does-not-exist
:create
)
(
read
stream
nil
nil
))))
(
read
stream
nil
nil
))))
file-contents
))
file-contents
))
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a 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