Mercurial > feed
diff tests/reddit.ur @ 21:7275f59cab61
tagAOR and a Reddit example of using it
| author | Adam Chlipala <adam@chlipala.net> |
|---|---|
| date | Sat, 29 Sep 2012 10:30:00 -0400 |
| parents | |
| children | 923e097e9ba3 |
line wrap: on
line diff
--- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/tests/reddit.ur Sat Sep 29 10:30:00 2012 -0400 @@ -0,0 +1,27 @@ +fun main () = + doc <- Feed.fetch "http://www.reddit.com/?limit=30"; + + acc <- Feed.app' (Feed.tree (Feed.tagAOR "div" {DataUps = "data-ups", Class = "class"} {Style = "style"}) + (Feed.tagAO "a" {Class = "class", Style = "style", Href = "href"})) + (fn (div, a) (count, list) => + return (case a.Href of + None => (count, list) + | Some link => + if count >= 30 + || not (String.isPrefix {Full = div.Class, Prefix = " thing "}) + || Option.isSome (String.sindex {Haystack = div.Class, Needle = "promoted"}) + || div.Style = Some "display:none" + || a.Class <> Some "title " + || a.Style = Some "display:none" then + (count, list) + else + (count + 1, link :: list))) + doc (0, []); + + return <xml><body> + <h1>Top 30 Reddit Links</h1> + + <ol> + {List.mapX (fn url => <xml><li>{[url]}</li></xml>) (List.rev acc.2)} + </ol> + </body></xml>