add Market Place

src/packages/MarketPlace/Makefile

@@ -4,7 +4,7 @@ jsfiles =
 
 cssfiles = main.css
 
-copyfiles = repositorydia.html scheme.html package.json
+copyfiles = scheme.html package.json
 
 
 PKG_NAME=MarketPlace

src/packages/MarketPlace/dialog.coffee

@@ -3,7 +3,8 @@ class RepositoryDialog extends this.OS.GUI.BaseDialog
         super "RepositoryDialog"
 
     init: () ->
-        @render "#{@meta().path}/repositorydia.html"
+        @_gui.htmlToScheme RepositoryDialog.scheme, @, @host
+        #@render "#{@meta().path}/repositorydia.html"
 
     main: () ->
         me = @
@@ -15,4 +16,18 @@ class RepositoryDialog extends this.OS.GUI.BaseDialog
             ($ me.url).html e.data.url
         @list.set "items", ls
         
+RepositoryDialog.scheme = """
+<afx-app-window data-id = "repository-dialog-win" apptitle="Repositories" width="250" height="250">
+        <afx-vbox >
+            <afx-list-view data-id="repo-list"></afx-list-view>
+            <div data-id="repo-url" data-height="grow"></div>
+            <afx-hbox data-height = "30">
+                <afx-button data-id = "btadd" text = "[+]" data-width="30"></afx-button>
+                <afx-button data-id = "btdel" text = "[-]" data-width="30"></afx-button>
+                <div></div>
+                <afx-button data-id = "btquit" text = "Cancel" data-width="50"></afx-button>
+            </afx-hbox>
+        </afx-vbox>
+    </afx-app-window>
+"""
 this.OS.register "RepositoryDialog", RepositoryDialog

src/packages/MarketPlace/main.coffee

@@ -1,13 +1,15 @@
+self = this
 class MarketPlace extends this.OS.GUI.BaseApplication
     constructor: (args) ->
         super "MarketPlace", args
     
     main: () ->
         me = @
+        @installdir = @systemsetting.system.pkgpaths.user
         # test repository
         @systemsetting.system.repositories.push {
             text: "Antos repository"
-            url: "http://127.0.0.1:9191/repo/packages.json"
+            url: "https://os.localhost:9195/repo/packages.json"
             name: "Antos repository"
             selected:true
         } if @systemsetting.system.repositories.length is 0
@@ -34,6 +36,10 @@ class MarketPlace extends this.OS.GUI.BaseApplication
             return unless app
             me._gui.launch app.className if app.className
         @btinstall.set "onbtclick", (e) ->
+            me.install e
+        @btremove.set "onbtclick", (e) ->
+            me.uninstall e
+        @bindKey "CTRL-R", () ->
             me.openDialog "RepositoryDialog"
     fetchApps: (url) ->
         me = @
@@ -62,5 +68,98 @@ class MarketPlace extends this.OS.GUI.BaseApplication
         ($ @appdetail).empty()
         for k, v of d when k isnt "name" and k isnt "description"
             ($ @appdetail).append $("<li>").append(($ "<span class= 'info-header'>").html k).append $("<span>").html v
-        
+    
+    menu: () ->
+        me = @
+        return [
+            { text: "Options", child: [
+                { text: "Repositories", shortcut: "C-R" }
+            ] , onmenuselect: (e) ->
+                me.openDialog "RepositoryDialog"
+            }
+        ]
+    
+    install: (e) ->
+        me = @
+        app = @applist.get "selected"
+        return unless app
+        # get blob file
+        @_api.blob app.download, (data) ->
+            JSZip.loadAsync(data).then (zip) ->
+                pth = "#{me.installdir}/#{app.className}"
+                dir = [pth]
+                files = []
+                for name, file of zip.files
+                    if file.dir
+                        dir.push(pth + "/" + name)
+                    else
+                        files.push name
+                idx = files.indexOf "package.json"
+                return me.error "Invalid package: Meta data file not found" if idx < 0
+                # create all directory
+                me.mkdirs app.className, dir, () ->
+                    me.installFile app.className, zip, files, () ->
+                        zip.file("package.json").async("string").then (d) ->
+                            v = JSON.parse d
+                            console.log v
+                            v.text = v.name
+                            v.filename = app.className
+                            v.type = "app"
+                            v.mime = "antos/app"
+                            v.iconclass = "fa fa-adn" unless v.iconclass or v.icon
+                            v.path = pth
+                            me.systemsetting.system.packages[app.className] = v
+                            me.notify "Application installed"
+                            me._gui.refreshSystemMenu()
+                            me.appDetail app
+                        .catch (err) ->
+                            me.error "Error reading package meta data: " + err
+                   
+        , (err, s) ->
+            return me.error "Cannot down load the app #{err}" if err
+    uninstall: (e) ->
+        me = @
+        app = @applist.get "selected"
+        name = app.className
+        return unless app
+        app = @systemsetting.system.packages[app.className]
+        return unless app
+        @openDialog "YesNoDialog",
+            (d) ->
+                return unless d
+                app.path.asFileHandler().remove (r) ->
+                    me.error "Cannot uninstall package: #{r.error}" if r.error
+                    me.notify "Package uninstalled"
+                    me.systemsetting.system.packages[name] = undefined
+                    me._gui.refreshSystemMenu()
+                    me.appDetail app
+        , "Uninstall" ,
+        { text: "Uninstall : #{app.name} ?" }
+    mkdirs: (n, list, f) ->
+        me = @
+        if list.length is 0
+            f() if f
+            return
+        dir = (list.splice 0, 1)[0].asFileHandler()
+        path = dir.parent()
+        dname = dir.basename
+        path.asFileHandler().mk dname, (r) ->
+            return me.mkdirs n, list, f if r.result
+            me.error "Cannot create #{path}/#{dir}"
+
+    installFile: (n, zip, files, f) ->
+        me = @
+        if files.length is 0
+            f() if f
+            return
+        file = (files.splice 0, 1)[0]
+        path = "#{me.installdir}/#{n}/#{file}"
+        zip.file(file).async("uint8array").then (d) ->
+            fp = path.asFileHandler()
+            fp.cache = new Blob [d], { type: "octet/stream" }
+            fp.write "text/plain", (r) ->
+                return me.installFile n, zip, files, f if r.result
+                me.error "Cannot install #{path}"
+
+MarketPlace.dependencies = [ "jszip.min" ]
 this.OS.register "MarketPlace", MarketPlace

src/packages/MarketPlace/repositorydia.html

@@ -1,12 +0,0 @@
-<afx-app-window data-id = "repository-dialog-win" apptitle="Repositories" width="250" height="250">
-        <afx-vbox >
-            <afx-list-view data-id="repo-list"></afx-list-view>
-            <div data-id="repo-url" data-height="grow"></div>
-            <afx-hbox data-height = "30">
-                <afx-button data-id = "btadd" text = "[+]" data-width="30"></afx-button>
-                <afx-button data-id = "btdel" text = "[-]" data-width="30"></afx-button>
-                <div></div>
-                <afx-button data-id = "btquit" text = "Cancel" data-width="50"></afx-button>
-            </afx-hbox>
-        </afx-vbox>
-    </afx-app-window>