Add new drawer scripts

samples/drawer-sample4.lua

@@ -0,0 +1,26 @@
+-- name = "Drawer sample #4"
+-- type = "drawer"
+-- testing = "true"
+
+function on_drawer_open()
+    pkgs = apps:list()
+    apps:request_icons(pkgs)
+end
+
+function on_icons_ready(icons)
+    names = map(pkgs, function(it) return apps:name(it) end)
+    drawer:show_list(names, icons, nil, true)
+end
+
+function on_click(idx)
+    apps:launch(pkgs[idx])
+end
+
+function map(tbl, f)
+    local ret = {}
+    for k,v in pairs(tbl) do
+        ret[k] = f(v)
+    end
+    return ret
+end
+