Bad lua-curses and luasocket gopher client.
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

245 lines
4.7 KiB

local curses = require "curses"
local md = require "mdparse"
local socket = require "socket"
local surl = require "socket.url"
local sx,sy,pc = 80, 25, "@"
local function pgopher(gm)
local s = ""
for line in gm:gmatch("[^\n]+") do
local t = line:sub(1,1)
if t == "i" then
if line:find("\t") then
line=line:sub(1,line:find("\t"))
end
s=s..line:sub(2).."\n"
elseif t == "0" or t == "1" then
line=line:gsub("(.)(.+)\t/?([%w%./]+)\t([%w%.]+)\t(%d+)","%1 [%2](gopher://%4:%5/%3")..")" -- we gsub now
line=line:gsub("\n","")
s=s..line.."\n"
else
s=s..line.."\n"
end
end
return s
end
local function geturl(url)
local ds = {}
ds.scheme = "gopher"
ds.port = "70"
ds.path = ""
local c = ""
local ourl = url
tURL = surl.parse(url,ds)
if not tURL.host then tURL.host = tURL.path tURL.path = "" end
local dn, po, pt = tURL.host, tURL.port, tURL.path
print(dn,po,pt)
if dn and po then
local s=socket.tcp()
s:connect(dn,po)
s:send(pt.."\n")
c=s:receive("*a")
s:close()
local w,tpg = pcall(pgopher,c)
if w then
print(tpg)
c=tpg
end
else
c="Unable to load URL "..ourl
end
--[[--
else
local f=io.open(url,"rb")
if not f then
return "\r\nPage could not be loaded."
end
c=f:read("*a")
print(c)
f:close()
end
--]]--
return c
end
local function settings()
while true do
local scr = curses.initscr ()
curses.cbreak ()
curses.echo (false) -- not noecho !
curses.nl (false) -- not nonl !
local selection = 1
while true do
local menu = {"Screen width: "..tostring(sx),"Screen height: "..tostring(sy),"Back"}
scr:clear()
scr:refresh()
for k,v in ipairs(menu) do
if k == selection then
io.write(" * ")
end
print("\t"..v.."\r")
end
local ch = scr:getch()
if ch == 66 then
selection = selection + 1
elseif ch == 65 then
selection = selection - 1
elseif ch == 13 then break
end
if selection > #menu then
selection = #menu
elseif selection < 1 then
selection = 1
end
end
if selection == 1 then
scr:clear()
scr:refresh()
scr:addstr("New screen width: ")
curses.echo (true)
scr:refresh()
sx = tonumber(scr:getstr()) or 80
curses.echo (false)
elseif selection == 2 then
scr:clear()
scr:refresh()
scr:addstr("New screen height: ")
curses.echo (true)
scr:refresh()
sy = tonumber(scr:getstr()) or 80
curses.echo (false)
else
scr:close()
break
end
end
end
local function main ()
local scr = curses.initscr ()
local mode = 1
local p = false
local sc = "#"
local history = {}
curses.cbreak ()
curses.echo(false) -- not noecho !
curses.nl(false) -- not nonl !
cy = 1
local ts = [[
**SKS Markdown Gopher Client**
See the [SKS gopher hole](gopher://shadowkat.net) for more info.
Use *f* to follow a link, *o* to open a URL directly, *j* and *k* to scroll, and *s* for settings.
Scrolling test:
a
b
c
d
e
f
g
h
i
j
k
l
m
n
o
p
q
r
s
t
u
v
w
x
y
z]]
local url = "homepage"
local lt = {}
while true do
scr:clear()
scr:refresh()
local ds = ""
local dt = {}
lt = md.parse(ts).l
for k,v in ipairs(md.parse(ts)) do
--[[--
if v.bold then -- note to self: fix bold
v.content = "\27[n1"..v.content.."\27[n0"
end
--]]--
if v.addrid then
ds=ds.."["..tostring(v.addrid).."]"..v.content
else
ds=ds..v.content
end
end
for line in ds:gmatch("[^\n]*") do
while line:len() > 0 do
dt[#dt+1] = line:sub(1,sx)
line = line:sub(sx+1)
end
end
if sy < #dt then
ms = sy
else
ms = #dt
end
for i = cy, cy+ms do
io.write((dt[i] or "").."\r\n")
end
print("\r\n["..url.." "..tostring(cy).."/"..tostring(#dt).." "..tostring(ts:len()).."]\r")
ch = scr:getch() or 0
if ch < 256 then
if string.char(ch) == "q" then
break
elseif string.char(ch) == "s" then
settings()
elseif string.char(ch) == "o" then
scr:addstr("\rURL: ")
curses.echo(true)
scr:refresh()
local nurl = scr:getstr()
local w,nts=pcall(geturl,nurl)
--print(w,nts)
if w then ts = nts url=nurl end
local nurl = scr:getstr()
elseif string.char(ch) == "f" then
scr:addstr("\rLink: ")
curses.echo(true)
scr:refresh()
local nurl = lt[tonumber(scr:getstr())]
local w,nts=pcall(geturl,nurl)
if w then ts = nts url=nurl end
scr:refresh()
elseif string.char(ch) == "j" then
if cy < #dt then
cy = cy + 1
end
elseif string.char(ch) == "k" then
if cy > 1 then
cy = cy - 1
end
end
end
end
end
local function err (err)
curses.endwin ()
print "Caught an error:"
print (debug.traceback (err, 2))
os.exit (2)
end
xpcall (main, err)