Implemented entry creation, pagination. Some restyling and bugfixes.

- Bug fix in ts_api:list_entries/3. Case statement matching on atoms but
  input is a list (string).
- Bug fix in ts_api:put_entry/3. Was expecting the wrong result from
  ts_entry:new/1.
- Bug fix in ts_entry:list/4. Code crashed when the starting offset was
  greater than the total number of elements. Now returns [].
- Fixed ts_json:encode_datetime/1 and ts_json:decode_datetime/1 to handle
  millisecond values in the datetime string (per ISO standard).
- Broke out ``control-links`` style to a top-level class.
- Added showdown.js, a JS Markdown processor. Not hooked up to anything
  yet but intend to display entry notes with Markdown.
- Added code for entry pagination. Loads the most recent 20 entries and
  loads more upon demand in batches of 20.
- Fixed bug in login routine that kept the user edit fields from being
  pre-populated.
- Rewrote the loadEntries function to double for new entries and loading
  more existing entries.
- Commented displayEntries. Also refactored into displayNewerEntries,
  which pushed new entries on to the top of the stack, and
  displayOlderEntries, which tags them onto the bottom.
- Implemented hidden notes field for new entry input.
- Implemented new entry creation.
- Created a helper function to ISO format a Date object.
- Expanded entry template to show control links (edit, show notes, del).
- Activated the 'load more entries' button.

src/ts_api.erl

@@ -392,13 +392,13 @@ list_entries(YArg, Username, TimelineId) ->
 
             % read or default the Start
             Start = case lists:keyfind("start", 1, QueryData) of
-                {start, StartVal} -> list_to_integer(StartVal);
+                {"start", StartVal} -> list_to_integer(StartVal);
                 false -> 0
             end,
 
             % read or default the Length
             Length = case lists:keyfind("length", 1, QueryData) of
-                {length, LengthVal} ->
+                {"length", LengthVal} ->
                     erlang:min(list_to_integer(LengthVal), 500);
                 false -> 50
             end,
@@ -443,7 +443,8 @@ put_entry(YArg, Username, TimelineId) ->
 
     case ts_entry:new(NewRecord) of
         % record created
-        ok -> [{status, 201}, make_json_200(YArg, NewRecord)];
+        {ok, CreatedRecord} ->
+            [{status, 201}, make_json_200(YArg, CreatedRecord)];
 
         % will not create, record exists
         {error, {record_exists, ExistingRecord}} ->
@@ -456,7 +457,9 @@ put_entry(YArg, Username, TimelineId) ->
 
             {content, "application/json", JSONResponse};
 
-        _Error -> make_json_500(YArg)
+        OtherError -> 
+            io:format("Could not create entry: ~p", [OtherError]),
+            make_json_500(YArg)
     end.
 
 post_entry(YArg, Username, TimelineId, EntryId) ->