bit-badger/PrayerTracker
1
0
Fork 0
Code Issues 2 Pull Requests Packages Projects Releases 16 Activity

Updated docs; tweaked as-of date code

Browse Source
This commit is contained in:
Daniel J. Summers
2019-03-19 21:51:56 -05:00
parent a4436fd844
commit 0cd60b34ca
5 changed files with 37 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
src/PrayerTracker.UI/ViewModels.fs
View File

@@ -637,7 +637,7 @@ with
| LongDate -> req.updatedDate.ToLongDateString ()
| _ -> ""
yield i [ _style (sprintf "font-size:%fpt" asOfSize) ] [
rawText "  ("; str s.["as of "].Value; str dt; rawText ")"
rawText "  ("; str s.["as of"].Value; str " "; str dt; rawText ")"
]
])
|> ul []
@@ -667,7 +667,17 @@ with
for req in reqs do
let bullet = match this.isNew req with true -> "+" | false -> "-"
let requestor = match req.requestor with Some r -> sprintf "%s - " r | None -> ""
yield sprintf " %s %s%s" bullet requestor (htmlToPlainText req.text)
yield
match this.listGroup.preferences.asOfDateDisplay with
| NoDisplay -> ""
| _ ->
let dt =
match this.listGroup.preferences.asOfDateDisplay with
| ShortDate -> req.updatedDate.ToShortDateString ()
| LongDate -> req.updatedDate.ToLongDateString ()
| _ -> ""
sprintf " (%s %s)" s.["as of"].Value dt
|> sprintf " %s %s%s%s" bullet requestor (htmlToPlainText req.text)
yield " "
}
|> String.concat "\n"