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 @@ ...@@ -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))
(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))
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