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

WIP on search

Browse Source
This commit is contained in:
Daniel J. Summers
2019-03-11 06:08:12 -05:00
parent 4d56002876
commit c9dca517b0
3 changed files with 20 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/PrayerTracker.UI/PrayerRequest.fs
View File

@@ -206,7 +206,7 @@ let maintain (reqs : PrayerRequest seq) (grp : SmallGroup) onlyActive (ctx : Htt
yield
match 60 > reqText.Length with
| true -> rawText reqText
| false -> rawText (sprintf "%s…" (reqText.Substring (0, 60)))
| false -> rawText (sprintf "%s…" reqText.[0..59])
]
])
|> List.ofSeq
@@ -217,9 +217,13 @@ let maintain (reqs : PrayerRequest seq) (grp : SmallGroup) onlyActive (ctx : Htt
rawText "       "
a [ _href "/prayer-requests/view"; _title s.["View Prayer Request List"].Value ]
[ icon "list"; rawText "  "; encLocText s.["View Prayer Request List"] ]
br []
br []
]
form [ _action "/prayer-requests"; _method "get"; _class "pt-center-text pt-search-form" ] [
input [ _type "text"; _name "search"; _placeholder s.["Search requests..."].Value ]
space
submit [] "search" s.["Search"]
]
br []
tableSummary requests.Length s
table [ _class "pt-table pt-action-table" ] [
thead [] [