ui.tools.listener.log: move to extra/

diff --git a/basis/ui/tools/listener/log/authors.txt b/basis/ui/tools/listener/log/authors.txt
deleted file mode 100644 (file)
index 0c9e056..0000000
--- a/basis/ui/tools/listener/log/authors.txt
+++ /dev/null
@@ -1 +0,0 @@
-Dave Carlton

diff --git a/basis/ui/tools/listener/log/log.factor b/basis/ui/tools/listener/log/log.factor
deleted file mode 100644 (file)
index 8d516d6..0000000
--- a/basis/ui/tools/listener/log/log.factor
+++ /dev/null
@@ -1,42 +0,0 @@
-! Copyright (C) 2023 Dave Carlton.
-! See https://factorcode.org/license.txt for BSD license.
-USING: accessors io kernel lexer namespaces prettyprint sequences
-strings.parser ui.tools.listener words ;
-IN: ui.tools.listener.log
-
-: L.s* ( listener -- )
-    input>> output>> 
-    [ "---" print .s ]
-    with-output-stream*  ;
-
-: L.s ( -- ) 
-    get-listener L.s* ; 
-   
-: (lcompose) ( string -- quot )
-    [ nl print ] curry ; 
-
-SYMBOL: LPRINT
-
-: Lprint* ( string listener -- )
-    swap LPRINT set 
-    input>> output>> 
-    [ LPRINT get print ]  
-    with-output-stream*  ; 
-
-: Lprint ( string -- )
-    get-listener Lprint* ; 
-
-: +colon-space ( string -- string' )  ": " append ;
-: +space ( string -- string' )   " " append ; 
-
-: (.here) ( name -- )  +colon-space Lprint ;
-: (here.) ( obj name -- )  [ unparse ] dip +colon-space prepend  Lprint ;
-: (here.s) ( name -- )  +colon-space Lprint L.s ;
-
-SYNTAX: .HERE last-word name>> suffix!  \ (.here) suffix! ;
-SYNTAX: HERE. last-word name>> suffix!  \ (here.) suffix! ;
-SYNTAX: HERE.S last-word name>> suffix!  \ (here.s) suffix! ;
-SYNTAX: HERE" last-word name>> +colon-space  ! "for the editors sake
-    lexer get skip-blank parse-string append suffix!
-    \ Lprint suffix! ;
-

diff --git a/extra/ui/tools/listener/log/authors.txt b/extra/ui/tools/listener/log/authors.txt
new file mode 100644 (file)
index 0000000..0c9e056
--- /dev/null
+++ b/extra/ui/tools/listener/log/authors.txt
@@ -0,0 +1 @@
+Dave Carlton

diff --git a/extra/ui/tools/listener/log/log.factor b/extra/ui/tools/listener/log/log.factor
new file mode 100644 (file)
index 0000000..8d516d6
--- /dev/null
+++ b/extra/ui/tools/listener/log/log.factor
@@ -0,0 +1,42 @@
+! Copyright (C) 2023 Dave Carlton.
+! See https://factorcode.org/license.txt for BSD license.
+USING: accessors io kernel lexer namespaces prettyprint sequences
+strings.parser ui.tools.listener words ;
+IN: ui.tools.listener.log
+
+: L.s* ( listener -- )
+    input>> output>> 
+    [ "---" print .s ]
+    with-output-stream*  ;
+
+: L.s ( -- ) 
+    get-listener L.s* ; 
+   
+: (lcompose) ( string -- quot )
+    [ nl print ] curry ; 
+
+SYMBOL: LPRINT
+
+: Lprint* ( string listener -- )
+    swap LPRINT set 
+    input>> output>> 
+    [ LPRINT get print ]  
+    with-output-stream*  ; 
+
+: Lprint ( string -- )
+    get-listener Lprint* ; 
+
+: +colon-space ( string -- string' )  ": " append ;
+: +space ( string -- string' )   " " append ; 
+
+: (.here) ( name -- )  +colon-space Lprint ;
+: (here.) ( obj name -- )  [ unparse ] dip +colon-space prepend  Lprint ;
+: (here.s) ( name -- )  +colon-space Lprint L.s ;
+
+SYNTAX: .HERE last-word name>> suffix!  \ (.here) suffix! ;
+SYNTAX: HERE. last-word name>> suffix!  \ (here.) suffix! ;
+SYNTAX: HERE.S last-word name>> suffix!  \ (here.s) suffix! ;
+SYNTAX: HERE" last-word name>> +colon-space  ! "for the editors sake
+    lexer get skip-blank parse-string append suffix!
+    \ Lprint suffix! ;
+