default-init.txt

@@ -1,3 +1,2 @@
 minitel.lua
 tape-iofs.lua
-fsmanager.service

exec/ed.lua

@@ -65,38 +65,20 @@ function ct.append(np)
  p=p+1
  ct.insert()
 end
-function ct.delete(np,n)
+function ct.substitute(np)
  ct.sp(np)
- _G.clip = ""
+ table.remove(ft,p)
- for i = 1, (n or 1) do
-  _G.clip = _G.clip .. table.remove(ft,p) .. "\n"
- end
-end
-function ct.substitute(np,n)
- ct.delete(np,n)
  ct.insert(np)
 end
+function ct.delete(np)
+ ct.sp(np)
+ table.remove(ft,p)
+end
 function ct.filename(np)
  if np then fp = np end
  print(fp)
 end
 
-local function rawpaste()
- for line in string.gmatch(_G.clip,"[^\n]") do
-  print(string.format("%4d\t %s",p,line))
-  table.insert(ft,p,line)
- end
-end
-function ct.pasteprevious(np)
- ct.sp(np)
- rawpaste()
-end
-function ct.paste(np)
- ct.sp(np)
- p = p + 1
- rawpaste()
-end
-
 ct.o = ct.readfile
 ct.w = ct.writefile
 ct.l = ct.list
@@ -106,8 +88,6 @@ ct.a = ct.append
 ct.s = ct.substitute
 ct.d = ct.delete
 ct.f = ct.filename
-ct.p = ct.pasteprevious
-ct.P = ct.paste
 
 ct.readfile(fp)
 

service/clipboard.lua

@@ -1,11 +0,0 @@
-local lc = computer.uptime()
-_G.clip = ""
-while true do
- local eT = {coroutine.yield()}
- if eT[1] == "clipboard" then
-  if computer.uptime() > lc + 5 then
-   _G.clip = ""
-  end
-  _G.clip = _G.clip .. eT[3]
- end
-end