diff --git a/contrib/cont-responder/live-updater-responder.factor b/contrib/cont-responder/live-updater-responder.factor index 916dc7b409..ed5a0213ae 100644 --- a/contrib/cont-responder/live-updater-responder.factor +++ b/contrib/cont-responder/live-updater-responder.factor @@ -33,15 +33,10 @@ USE: stack USE: stdio USE: namespaces USE: streams -USE: parser USE: lists -USE: errors USE: strings -USE: logic USE: kernel -USE: prettyprint USE: vocabularies -USE: combinators : get-live-updater-js* ( stream -- string ) #! Read all lines from the stream, creating a string of the result. @@ -161,18 +156,6 @@ USE: combinators write-live-search-tag write-live-search-script ; -: live-search-see-word ( string -- ) - #! Given a string that is a factor word, show the - #! source to that word. - [ - "responder" "inspect" put - 
 [
-        "stdio" get  [   
-          see
-        ] with-stream              
-    ]
- ] bind ; - : live-search-apropos-word ( string -- ) #! Given a string that is a factor word, show the #! aporpos of that word. @@ -196,23 +179,23 @@ USE: combinators ] ] [ - "millis" [ millis write ] "Display Server millis" live-anchor -
[ - "The millisecond time from the server will appear here" write - ]
-
- "Enter a word to see:" paragraph - "search" [ live-search-see-word ] live-search -
- - "Enter a word to apropos:" paragraph - "apropos" [ live-search-apropos-word ] live-search -
-
[ - "" write - ]
+ [ + [ + "millis" [ millis write ] "Display Server millis" live-anchor +
[ + "The millisecond time from the server will appear here" write + ]
+ ] + [ + "Enter a word to apropos:" paragraph + "apropos" [ live-search-apropos-word ] live-search + ] + [ +
[ + "" write + ]
+ ] + ] vertical-layout ] ] ] show ;