Merge pull request #1 from XeonSquared/master

Adds app-launchbar and app-slaunch to the CLAW repository.

repository/apps/app-launchbar.lua

@@ -0,0 +1,139 @@
+-- This is released into the public domain.
+-- No warranty is provided, implied or otherwise.
+
+-- app-launchbar: launchbar with application pinning
+-- Authors: Izaya
+
+local event = require("event")(neo)
+local neoux, err = require("neoux")
+if not neoux then error(err) end
+neoux = neoux(event, neo)
+
+local running = true
+local window
+
+local pinned = {}
+-- load pinned applications
+local icecap = neo.requireAccess("x.neo.pub.base", "load pinned applications")
+local w,f = pcall(icecap.open,"/pinned", false)
+
+if w and f then
+ local fcontent = f.read("*a")
+ for s in fcontent:gmatch("[^\n]+") do
+  for k,v in ipairs(neo.listApps()) do
+   if v == s then
+    pinned[#pinned+1] = s
+   end
+  end
+ end
+ f.close()
+else
+ pinned = {"app-control","app-taskmgr"}
+end
+
+local function savePinned() -- saves pinned applications
+ local f=icecap.open("/pinned",true)
+ if f then
+  for k,v in pairs(pinned) do
+   f.write(v.."\n")
+  end
+  f.close()
+ end
+end
+
+local function isPinned(name)
+ local bpinned = false
+ for l,m in ipairs(pinned) do
+  if m == name then bpinned = l end
+ end
+ return bpinned
+end
+
+local function genAppMenu(autoclose)
+ local wwidth, wheight, wcontent = 1, 1, {}
+ local applist = neo.listApps()
+ for _,app in ipairs(applist) do
+  if app:sub(1,4) == "app-" then
+   local appname = app:sub(5)
+   if appname:len()+2 > wwidth then
+    wwidth = appname:len()+2
+   end
+   table.insert(wcontent,neoux.tcbutton(1, wheight, appname, function (w)
+    local pid, err = neo.executeAsync(app)
+    if not pid then
+     neoux.startDialog(tostring(err), "launchErr")
+    else
+     if autoclose then
+      w.close()
+     end
+    end
+   end))
+   wheight = wheight + 1
+  end
+ end
+ local cy = 1
+ for _, app in ipairs(applist) do
+  if app:sub(1,4) == "app-" then
+   local appname = app:sub(5)
+   local pinicon = unicode.char(9633)
+   if isPinned(app) then
+    pinicon = unicode.char(9632)
+   end
+   table.insert(wcontent, neoux.tcbutton(wwidth+1, cy, pinicon, function(w)
+    local bpinned = isPinned(app)
+    if not bpinned then
+     table.insert(pinned,app)
+    else
+     table.remove(pinned,bpinned)
+    end
+    local wc, mx = genLaunchBar()
+    window.reset(mx, 1, nil, wc)
+    local fwwidth, fwheight, fbuttons = genAppMenu()
+    w.reset(fwwidth+3, fwheight, "apps", neoux.tcwindow(fwwidth+3, fwheight, fbuttons, function (w)
+     w.close()
+    end, 0xFFFFFF, 0))
+    savePinned()
+   end))
+   cy = cy + 1
+  end
+ end
+ return wwidth, wheight, wcontent
+end
+
+local function appMenu(autoclose)
+ local wwidth, wheight, buttons = genAppMenu(autoclose)
+ neoux.create(wwidth+3, wheight, "apps", neoux.tcwindow(wwidth+3, wheight, buttons, function (w)
+  w.close()
+ end, 0xFFFFFF, 0))
+end
+
+function genLaunchBar()
+ local buttons = {}
+ local mx = 1
+ table.insert(buttons,neoux.tcbutton(mx, 1, "disks", function(w)
+  neo.executeAsync("app-fm")
+ end))
+ mx = mx + 7
+ table.insert(buttons,neoux.tcbutton(mx, 1, "apps", function(w)
+  appMenu()
+ end))
+ mx = mx + 6
+ for k,v in pairs(pinned) do
+  local dstr = v:sub(5)
+  table.insert(buttons,neoux.tcbutton(mx,1,dstr,function(w)
+   neo.executeAsync(v)
+  end))
+  mx = mx + dstr:len() + 2
+ end
+ return neoux.tcwindow(mx, 1, buttons, function(w)
+  w.close()
+  running = false
+ end, 0xFFFFFF, 0), mx
+end
+
+local wc, mx = genLaunchBar()
+window = neoux.create(mx, 1, nil, wc)
+
+while running do
+ event.pull()
+end

repository/apps/app-slaunch.lua

@@ -0,0 +1,70 @@
+-- This is released into the public domain.
+-- No warranty is provided, implied or otherwise.
+
+-- app-slaunch: searching launcher
+-- Authors: Izaya
+
+local event = require("event")(neo)
+local neoux, err = require("neoux")
+if not neoux then error(err) end
+neoux = neoux(event, neo)
+
+local running = true
+
+local buttons = {}
+local appNames = neo.listApps()
+local searchTerm = ""
+
+function searchApps(str)
+ local rt = {}
+ for k,v in ipairs(appNames) do
+  if v:sub(1, 4) == "app-" then
+   if v:find(str) then
+    rt[#rt+1] = v
+   end
+  end
+ end
+ return rt
+end
+
+function genWindow(apps)
+ local wwidth, wheight, wcontents = 1, 1, {}
+ for k,v in pairs(apps) do
+  appname = v:sub(5)
+  if appname:len()+2 > wwidth then
+   wwidth = appname:len()+2
+  end
+  table.insert(wcontents, neoux.tcbutton(1, wheight+1, appname, function(w)
+   local pid, err = neo.executeAsync(v)
+   if not pid then
+    neoux.startDialog(tostring(err), "launchErr")
+   else
+    w.close()
+    running = false
+   end
+  end))
+  wheight = wheight + 1
+ end
+ wwidth = math.max(wwidth, 11)
+ table.insert(wcontents,1,neoux.tcfield(1,1,wwidth,function(nv)
+  if not nv then return searchTerm end
+  searchTerm = nv
+  local sapps = searchApps(searchTerm)
+  local fwwidth, fwheight, fwcontents = genWindow(sapps)
+  window.reset(fwwidth, fwheight, nil, neoux.tcwindow(fwwidth, fwheight, fwcontents, function(w)
+   w.close()
+   running = false
+  end, 0xFFFFFF, 0))
+ end))
+ return wwidth, wheight, wcontents
+end
+
+wwidth, wheight, wcontents = genWindow(searchApps(searchTerm))
+window = neoux.create(wwidth, wheight, nil, neoux.tcwindow(wwidth, wheight, wcontents, function (w)
+ w.close()
+ running = false
+end, 0xFFFFFF, 0))
+
+while running do
+ event.pull()
+end

repository/data/app-claw/local.lua

@@ -106,6 +106,38 @@ return {
    "docs/repoauthors/svc-ghostie"
   },
  },
+ ["app-launchbar"] = {
+  desc = "Application launcher bar",
+  v = 0,
+  deps = {
+   "neo",
+   "zzz-license-pd"
+  },
+  dirs = {
+   "apps",
+   "docs/repoauthors"
+  },
+  files = {
+   "apps/app-launchbar.lua",
+   "docs/repoauthors/app-launchbar"
+  },
+ },
+ ["app-slaunch"] = {
+  desc = "Searching launcher",
+  v = 0,
+  deps = {
+   "neo",
+   "zzz-license-pd"
+  },
+  dirs = {
+   "apps",
+   "docs/repoauthors"
+  },
+  files = {
+   "apps/app-slaunch.lua",
+   "docs/repoauthors/app-slaunch"
+  },
+ },
  -- licenses (MUST BE IMMUTABLE)
  ["zzz-license-pd"] = {
   desc = "license file 'Public Domain'",

repository/docs/repoauthors/app-launchbar

@@ -0,0 +1,2 @@
+repository/apps/app-launchbar.lua: Izaya, Public Domain
+

repository/docs/repoauthors/app-slaunch

@@ -0,0 +1,2 @@
+repository/apps/app-slaunch.lua: Izaya, Public Domain
+