From f3fd8ab3dc28838cca55a521f0402a817edcb0e5 Mon Sep 17 00:00:00 2001
From: Elliot Glaysher <elliot@tlon.io>
Date: Wed, 13 Feb 2019 10:29:05 -0800
Subject: [PATCH] Don't even bother implementing /scar.

---
 app/curl.hoon      | 14 --------------
 app/dojo.hoon      | 36 ------------------------------------
 gen/curl-hiss.hoon | 17 -----------------
 gen/curl.hoon      | 13 -------------
 gen/curl/url.hoon  | 11 -----------
 5 files changed, 91 deletions(-)
 delete mode 100644 app/curl.hoon
 delete mode 100644 gen/curl-hiss.hoon
 delete mode 100644 gen/curl.hoon
 delete mode 100644 gen/curl/url.hoon

diff --git a/app/curl.hoon b/app/curl.hoon
deleted file mode 100644
index 8639bef911..0000000000
--- a/app/curl.hoon
+++ /dev/null
@@ -1,14 +0,0 @@
-::
-::::  /hoon/curl/app
-  ::
-/?    310
-::
-|_  {{^ ^ ost/@ ^} ~}
-++  poke  |*(a/{mark *} :_(+> [ost %hiss / `~ %wain a]~))
-::++  poke-purl  |=(a/purl :_(+> [ost %hiss / %wain %purl a]~))
-++  poke-tape  |=(a/tape (poke %purl (scan a auri:de-purl:html)))
-++  poke-hiss  |=(a/hiss:eyre (poke %hiss a))
-++  poke-noun  poke-hiss
-++  sigh-wain  |=({* a/wain} ~&(a `+>))
-++  sigh-tang  |=({* a/tang} (mean a))
---
diff --git a/app/dojo.hoon b/app/dojo.hoon
index 796f0071b6..24b735bfdc 100644
--- a/app/dojo.hoon
+++ b/app/dojo.hoon
@@ -246,7 +246,6 @@
   ++  parse-build
       %+  knee  *dojo-build  |.  ~+
       ;~  pose
-::        ;~(plug (cold %ur lus) parse-iden-url)
         ;~(plug (cold %ur lus) parse-url)
         ;~(plug (cold %ge lus) parse-model)
         ;~(plug (cold %as pad) sym ;~(pfix ace parse-source))
@@ -716,7 +715,6 @@
       :-  ?+  -.q.q.cay  ~|(%bad-gen ~_((sell (slot 2 q.cay)) !!))
             $say  /gent
             $ask  /dial
-            $get  /scar
           ==
       =+  gat=(slot 3 q.cay)
       :+  %call  [%$ %noun gat]
@@ -770,37 +768,6 @@
         [%pro pom(cad [':' ' ' cad.pom])]
       ==
     ::
-    ++  dy-made-scar                                    ::  scraper product
-      |=  cag/cage
-      ^+  +>+>
-      ?.  ?=(^ q.q.cag)
-        (dy-errd ~ q.q.cag)
-      =+  tan=((list tank) +2.q.q.cag)
-      =.  +>+>.$  (he-diff %tan tan)
-      =+  vax=(sped (slot 3 q.cag))
-      ~_  (sell q.cag)
-      ?+    -.q.vax  !!
-          %&
-        ?~  +.q.vax
-          ~&  %dy-made-scar-abort
-          (dy-rash %bel ~)
-        (dy-meal (slot 7 vax))
-      ::
-          %|
-        =>  .(vax (slap vax !,(*hoon ?>(?=(%| -) .))))  :: XX working sped  #72
-        =+  typ={%| (unit knot) hiss:eyre *}
-        =+  [* usr hiz *]=((dy-cast typ !>($:typ)) vax)
-        =.  ..dy  (he-diff %tan leaf+"< {(en-purl:html p.hiz)}" ~)
-        (dy-eyre(pro `(slap (slot 15 vax) limb+%r)) /scar usr hiz)
-      ==
-    ::
-    ++  dy-sigh-scar                                    ::  scraper result
-      |=  dat/cage
-      ?~  pro
-        ~&  %dy-no-scraper
-        (dy-show dat)
-      (dy-slam(pux ~) /scar u.pro q.dat)
-    ::
     ++  dy-made-gent                                    ::  generator product
       |=  cag/cage
       (dy-meal q.cag)
@@ -976,7 +943,6 @@
           {$dial ~}  dy-made-dial:dye
           {$gent ~}  dy-made-gent:dye
           {$noun ~}  dy-made-noun:dye
-          {$scar ~}  dy-made-scar:dye
           {$edit ~}  dy-made-edit:dye
         ==
       ::
@@ -994,7 +960,6 @@
     ?+  way  !!
       {$hand ~}  dy-hand:dye
       {$show ~}  dy-show:dye
-      {$scar ~}  dy-sigh-scar:dye
     ==
   ::
   ++  he-unto                                           ::  result from behn
@@ -1025,7 +990,6 @@
     ?+  way  !!
       {$hand ~}  dy-hand:dye
       {$show ~}  dy-show:dye
-      {$scar ~}  dy-sigh-scar:dye
     ==
   ::
   ++  he-lens
diff --git a/gen/curl-hiss.hoon b/gen/curl-hiss.hoon
deleted file mode 100644
index 2ae516124c..0000000000
--- a/gen/curl-hiss.hoon
+++ /dev/null
@@ -1,17 +0,0 @@
-::  Make HTTP request(get only)
-::
-::::  /hoon/curl-hiss/gen
-  ::
-/?    310
-/-  sole
-/+  generators
-=,  generators
-=,  eyre
-:-  %get  |=  {^ {a/hiss ~} usr/user}
-^-  (sole-request:sole (cask httr))
-?.  ?=($get p.q.a)
-  ~|  %only-get-requests-supported-in-generators  :: XX enforced?
-  !!
-:-  *tang
-:^  %|  `usr  `hiss`a
-|=(hit/httr (produce %httr hit))
diff --git a/gen/curl.hoon b/gen/curl.hoon
deleted file mode 100644
index 80ff5fa7b8..0000000000
--- a/gen/curl.hoon
+++ /dev/null
@@ -1,13 +0,0 @@
-::  Fetch contents at url
-::
-::::  /hoon/curl/gen
-  ::
-/?    310
-/-  sole
-/+  generators
-=,  [generators eyre]
-:-  %get  |=  {^ {a/tape ~} ~}
-^-  (sole-request:sole (cask httr))
-%+  curl  (scan a auri:de-purl:html)
-|=  hit/httr
-(produce %httr hit)
diff --git a/gen/curl/url.hoon b/gen/curl/url.hoon
deleted file mode 100644
index e5c118f5e7..0000000000
--- a/gen/curl/url.hoon
+++ /dev/null
@@ -1,11 +0,0 @@
-::  Direct :curl to fetch contents at url
-::
-::::  /hoon/url/curl/gen
-  ::
-/?    310
-::
-:::::
-  ::
-:-  %say
-|=  {^ {arg/tape ~} ~}
-purl+(scan arg auri:de-purl:html)