add-HRefListFromUrl

re/shared/src/main/scala/pl/writeonly/re/shared/hyde/HRefListFromUrl.scala

@@ -0,0 +1,19 @@
+package pl.writeonly.re.shared.hyde
+
+import scala.io.Source
+import scala.util.matching.Regex
+
+import scalaz.Scalaz._
+
+object HRefListFromUrl extends (String => List[String]) {
+
+  val r: Regex = """<a href="(.*)">(.*)</a>""".r
+
+  override def apply(url: String): List[String] = url |> html |> hRefList
+
+  def html(url: String): String = Source.fromURL(url).mkString
+
+  def hRefList(html: String): List[String] =
+    (for { m <- r.findAllMatchIn(html) } yield m.group(1)).toList
+
+}

re/shared/src/main/scala/pl/writeonly/re/shared/hyde/Hyde.scala

@@ -1,23 +1,15 @@
 package pl.writeonly.re.shared.hyde
 
-import scala.io.Source
+object Hyde {
 
-class Hyde {
+  val url = "https://www.writeonly.pl/"
 
-  val r = """"
-             <a href="(.*)">(.*)</a>
-    """.r
+  val todoUrls = List(url)
+  val allUrls = List(url)
 
-  def fromURL(url: String): Iterator[String] = {
-    val html = Source.fromURL(url)
-    val s = html.mkString
-    s match {
-      case r(href, body) => {
-
-      }
-    }
-
-    //    r.findAllMatchIn(s)
-    for { m <- r.findAllIn(s) } yield m
+  def main(args: Array[String]): Unit = {
+    val links = todoUrls.map(HRefListFromUrl)
+    print(links)
   }
+
 }