Commit 9486f4d3 authored by Dave Cooper's avatar Dave Cooper
Browse files

commiting for periodic merge to devo.

parent f2de6ef0
((("0" "5") ("Description of task")))
\ No newline at end of file
(("0" "1") ("Description of task"))
\ No newline at end of file
......@@ -23,6 +23,7 @@
(str (the timer-button main-div))
(str (the journal-form-name form-control))
(str (the journal-form-descr form-control))
(str (the journal-button main-div))
......@@ -79,7 +80,7 @@
(journal-entries-display :type 'sheet-section
:inner-html (progn (the force-update-flag)
(with-cl-who-string ()
(fmt "Previous entries: ~{~a<br>~}"
(fmt "Previous entries: ~{<p>~a</p>~}"
(the read-journal-entry))))))
......@@ -90,7 +91,8 @@
(concatenate 'string
(namestring (merge-pathnames "../db/" *source-path*))
(the journal-form-name value))
:direction :input)
:direction :input
:if-does-not-exist :create)
(read stream nil nil))))
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