Warning: this is an htmlized version!
The original is across this link,
and the conversion rules are here.
-- This file contains utf-8 chars, and the current version of blogme
-- does not htmlize it correctly.

-- (find-equailfile "sgml-input.el" "BOX DRAWINGS")
-- (find-lua51manualw3m "#5.4.1")

boxstr = [[

hh â
HH â
vv â
VV â

dr â hd â dl â   Dr â hD â Dl â
vr â vh â vl â	 Vr â Vh â« Vl â
ur â hu â∧ ul â	 Ur â hU â Ul â
		 	      
dR â Hd â dL â	 DR â HD â DL â
vR â vH ⪠vL â	 VR â VH â VL â
uR â Hu â uL â	 UR â HU â UL â

]]
boxT = {}

pat = "([A-Za-z])([A-Za-z]) (%S+)"
for a1,a2,b in boxstr:gfind(pat) do
  -- PP(a1, a2, b)
  local sa12 = format("&%s%s;", a1, a2)
  local sa21 = format("&%s%s;", a2, a1)
  boxT[sa12] = b
  boxT[sa21] = b
end

boxify = function (str) return (str:gsub("&[A-Za-z]+;", boxT)) end
pbytes = function (str) PP({str:byte(1, #str)}) end

PP(boxify "foo &dr;&hd;&dh;&dl; bar")

--[[
* (eepitch-lua51)
* (eepitch-kill)
* (eepitch-lua51)
dofile "boxchars.lua"
PP("H", "U", "â")
pbytes "HU â _"
PP(boxify "foo &dr;&hd;&dh;&dl; bar")
print(boxify "&VR;&HH;&HH;&UL;")

-- 04 05 06 07
--  ââââ  ââââ
-- 02    03
--  âââââââ
-- 01

--  8  9 10 11 12 13 14 15 
--  ââââ  ââââ  ââââ  ââââ 
--  4     5     6     7    
--  âââââââ     âââââââ    
--  2           3          
--  âââââââââââââ
--  1

--]]






-- Local Variables:
-- coding:             utf-8-unix
-- End: