diff --git a/extra/darcs-ui-demo/darcs-ui-demo.factor b/extra/darcs-ui-demo/darcs-ui-demo.factor index fadd4cf7a5..739254b6c8 100644 --- a/extra/darcs-ui-demo/darcs-ui-demo.factor +++ b/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 => _ ; diff --git a/extra/file-trees/file-trees.factor b/extra/file-trees/file-trees.factor index a3108aa922..fa9411cfbf 100644 --- a/extra/file-trees/file-trees.factor +++ b/extra/file-trees/file-trees.factor @@ -1,7 +1,6 @@ USING: accessors arrays delegate delegate.protocols io.pathnames kernel locals sequences -vectors make strings ; -EXCLUDE: ui.frp => , ; +vectors make strings ui.frp.signals ui.frp.gadgets ; IN: file-trees TUPLE: walkable-vector vector father ; diff --git a/extra/modules/util/util.factor b/extra/modules/util/util.factor deleted file mode 100644 index 4e92d4139f..0000000000 --- a/extra/modules/util/util.factor +++ /dev/null @@ -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 ] ; \ No newline at end of file diff --git a/extra/ui/frp/authors.txt b/extra/ui/frp/authors.txt deleted file mode 100644 index 2300f69f11..0000000000 --- a/extra/ui/frp/authors.txt +++ /dev/null @@ -1 +0,0 @@ -Sam Anklesaria diff --git a/extra/ui/frp/frp-docs.factor b/extra/ui/frp/frp-docs.factor deleted file mode 100644 index 1e9c0b771f..0000000000 --- a/extra/ui/frp/frp-docs.factor +++ /dev/null @@ -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" } \ No newline at end of file diff --git a/extra/ui/frp/frp.factor b/extra/ui/frp/frp.factor deleted file mode 100644 index f97dccdc03..0000000000 --- a/extra/ui/frp/frp.factor +++ /dev/null @@ -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 & | ; \ No newline at end of file diff --git a/extra/ui/frp/signals/signals.factor b/extra/ui/frp/signals/signals.factor index 8dc87a7fbb..3c6c4103bc 100644 --- a/extra/ui/frp/signals/signals.factor +++ b/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 ) & ; -M: & models-changed dependencies>> [ f swap (>>value) ] each ; \ No newline at end of file +M: & models-changed dependencies>> [ f swap (>>value) ] each ; + +FMAPS: $> <$ fmap FOR & | ; \ No newline at end of file diff --git a/extra/ui/gadgets/alerts/alerts.factor b/extra/ui/gadgets/alerts/alerts.factor index edecb90ee3..599bdd7279 100644 --- a/extra/ui/gadgets/alerts/alerts.factor +++ b/extra/ui/gadgets/alerts/alerts.factor @@ -1,5 +1,6 @@ -USING: accessors models macros generalizations kernel ui ui.frp -ui.gadgets ui.gadgets.labels ui.gadgets.editors ui.gadgets.buttons +USING: accessors models macros generalizations kernel ui +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