factor/extra/merger/merger.factor

USING: accessors arrays fry io.directories kernel
models sequences sets ui
ui.gadgets ui.gadgets.buttons ui.gadgets.labeled
ui.gadgets.tracks ui.gadgets.labels ui.gadgets.glass
math.rectangles cocoa.dialogs ;
IN: merger

MAIN-WINDOW: merger-window {
        { title "Merging" }
        { pref-dim { 300 220 } }
    }
   vertical <track>
    { "From:" "To:" } f <model> f <model> 2array
    [
      [
         "…" [
            open-panel [ first
            [ <label> 1array >>children drop ]
            [ swap set-control-value ] 2bi ] [ drop ] if*
         ] <border-button> swap >>model swap <labeled-gadget>
         1 track-add
      ] 2each
    ] keep
    dup first2
    '[ _ [ value>> ] all? [ parent>> "processing..." <label> [
         <zero-rect> show-glass
         _ value>> [
            "." _ value>> [ [ directory-files ] bi@ diff ] keep copy-files-into
         ] with-directory
      ] keep hide-glass
    ] [ drop ] if ]
    "merge" swap <border-button> 0.4 track-add
    >>gadgets ;