no reexporting

extra/darcs-ui-demo/darcs-ui-demo.factor

@@ -1,7 +1,8 @@
 USING: accessors arrays cocoa.dialogs closures continuations
 darcs-ui.commands fry file-trees io io.files io.directories
 io.encodings.utf8 kernel math models monads sequences
-splitting ui ui.gadgets.alerts ui.frp ui.gadgets.comboboxes
+splitting ui ui.gadgets.alerts ui.frp.gadgets ui.frp.layout
+ui.frp.signals ui.frp.instances ui.gadgets.comboboxes
 ui.gadgets.labels ui.gadgets.scrollers ui.baseline-alignment
 ui.images unicode.case ;
 EXCLUDE: fries => _ ;

extra/file-trees/file-trees.factor

@@ -1,7 +1,6 @@
 USING: accessors arrays delegate delegate.protocols
 io.pathnames kernel locals sequences
-vectors make strings ;
+vectors make strings ui.frp.signals ui.frp.gadgets ;
-EXCLUDE: ui.frp => , ;
 IN: file-trees
 
 TUPLE: walkable-vector vector father ;

extra/modules/util/util.factor

@@ -1,7 +0,0 @@
-USING: accessors assocs kernel lexer locals namespaces sequences
-vocabs vocabs.parser ;
-IN: modules.util
-SYNTAX: EXPORT-FROM: [let | v [ current-vocab ] |
-   v words>> ";" parse-tokens
-   [ load-vocab vocab-words [ clone v name>> >>vocabulary ] assoc-map ] map
-   assoc-combine update ] ;

extra/ui/frp/authors.txt

@@ -1 +0,0 @@
-Sam Anklesaria

extra/ui/frp/frp-docs.factor

@@ -1,13 +0,0 @@
-USING: help.syntax help.markup ;
-IN: ui.frp
-ARTICLE: { "ui.frp" "index" } "Functional Reactive Programming"
-"The " { $vocab-link "ui.frp" } " vocabulary is a take on functional reactive programming for user interfaces. The library is implimented as a set of models collectively called signals, and is made up of multiple submodles, all of which can be imported collectively from ui.frp" $nl
-{ $vocab-subsection "Using signals:" "ui.frp.signals" }
-{ $vocab-subsection "Creating user interfaces:" "ui.frp.layout" }
-{ $vocab-subsection "Using gadgets:" "ui.frp.gadgets" }
-{ $vocab-subsection "Combining signals:" "ui.frp.functors" }
-{ $vocab-subsection "Typeclass instances:" "ui.frp.instances" }
-"To get the hang of using the library, check out " { $vocab-link "darcs-ui-demo" } $nl
-"For more information about frp, go to http://haskell.org/haskellwiki/Functional_Reactive_Programming"
-;
-ABOUT: { "ui.frp" "index" }

extra/ui/frp/frp.factor

@@ -1,4 +0,0 @@
-USING: modules.util ui.frp.functors monads ;
-IN: ui.frp
-EXPORT-FROM: ui.frp.signals ui.frp.gadgets ui.frp.instances ui.frp.layout ;
-FMAPS: $> <$ fmap FOR & | ;

extra/ui/frp/signals/signals.factor

@@ -1,4 +1,4 @@
-USING: accessors arrays kernel models models.product sequences ;
+USING: accessors arrays kernel monads models models.product sequences ui.frp.functors ;
 IN: ui.frp.signals
 
 TUPLE: multi-model < model ;
@@ -81,4 +81,6 @@ M: | model-activated dup model-changed ;
 ! Only when everything's true does he make it false
 TUPLE: & < | ;
 : <&> ( models -- product ) & <multi-model> ;
-M: & models-changed dependencies>> [ f swap (>>value) ] each ;
+M: & models-changed dependencies>> [ f swap (>>value) ] each ;
+
+FMAPS: $> <$ fmap FOR & | ;

extra/ui/gadgets/alerts/alerts.factor

@@ -1,5 +1,6 @@
-USING: accessors models macros generalizations kernel ui ui.frp
+USING: accessors models macros generalizations kernel ui
-ui.gadgets ui.gadgets.labels ui.gadgets.editors ui.gadgets.buttons
+ui.frp.gadgets ui.frp.signals ui.frp.layout ui.gadgets
+ui.gadgets.labels ui.gadgets.editors ui.gadgets.buttons
 ui.gadgets.packs locals sequences fonts io.styles wrap.strings ;
 
 IN: ui.gadgets.alerts