adam@21: fun main () = adam@21: doc <- Feed.fetch "http://www.reddit.com/?limit=30"; adam@21: adam@23: ls <- Feed.app' (Feed.tree (Feed.tagAOR "div" {DataUps = "data-ups", Class = "class"} {Style = "style"}) adam@23: (Feed.tagAOR "a" {Href = "href", Class = "class"} {Style = "style"})) adam@23: (fn (div, a) ls => adam@23: return (if not (String.isPrefix {Full = div.Class, Prefix = " thing "}) adam@23: || Option.isSome (String.sindex {Haystack = div.Class, Needle = "promoted"}) adam@23: || div.Style = Some "display:none" adam@23: || a.Class <> "title " adam@23: || a.Style = Some "display:none" then adam@23: ls adam@23: else adam@23: a.Href :: ls)) adam@23: doc []; adam@21: adam@21: return adam@21:

Top 30 Reddit Links