Don't even bother implementing /scar.

app/curl.hoon

@@ -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))
---

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

gen/curl-hiss.hoon

@@ -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))

gen/curl.hoon

@@ -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)

gen/curl/url.hoon

@@ -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)