|
Warning: this is an htmlized version!
The original is here, and the conversion rules are here. |
-- This file:
-- http://anggtwu.net/blogme3/defs-2022.lua.html
-- http://anggtwu.net/blogme3/defs-2022.lua
-- (find-angg "blogme3/defs-2022.lua")
-- Author: Eduardo Ochs <eduardoochs@gmail.com>
--
-- (defun e () (interactive) (find-angg "blogme3/defs-2022.lua"))
-- See: (find-fline "~/TH/emacsconf2021.blogme")
-- (find-THgrep "grep --color=auto -nH --null -e defs-2022 *.blogme")
-- (find-THgrep "grep --color=auto -nH --null -e short_:add *.blogme")
-- (find-THgrep "grep --color=auto -nH --null -e WGET_MP4 *.blogme")
--
-- «.stars-or-bullets» (to "stars-or-bullets")
-- «.htmlize8» (to "htmlize8")
-- «.load_caepro2» (to "load_caepro2")
-- «.load_caepro3» (to "load_caepro3")
-- «.load_caepro4» (to "load_caepro4")
-- «.load_caepro5» (to "load_caepro5")
-- «.Table-Row-Cell» (to "Table-Row-Cell")
-- «.runbefore» (to "runbefore")
-- «.NAME0» (to "NAME0")
-- «.Qjpgs» (to "Qjpgs")
-- «.rcn-jan-mar» (to "rcn-jan-mar")
-- «.htmlize-email» (to "htmlize-email")
-- «.whatsapp» (to "whatsapp")
-- «.ol-and-li» (to "ol-and-li")
require "sandwiches-all" -- (find-blogme3 "sandwiches-all.lua")
require "sandwiches-videos" -- (find-blogme3 "sandwiches-videos.lua")
require "code-etex-tlas" -- (find-blogme3 "code-etex-tlas.lua")
def [[ _ 2 shorthand,text R(short_:expand(shorthand), nilify(text) or shorthand) ]]
def [[ __ 1 shorthand short_:expand(shorthand) ]]
-- (find-blogme3 "sandwiches-all.lua" "short_-tests")
-- (find-blogme3 "sandwiches-defs.lua" "Short_")
-- (find-blogme3 "sandwiches-defs.lua" "Short_-tests")
-- (find-fline "~/TH/eev-customize.blogme" "short_:add")
short_:add [[
wget -> https://en.wikipedia.org/wiki/Wget
mpv -> https://en.wikipedia.org/wiki/Mpv_(media_player)
mpv-keys -> eev-videos.html#mpv-keys
links-curtos => (find-TH "2023-links-curtos")
]]
-- See: (find-fline "~/TH/2022eev-svg.blogme" "[PLEFT")
def [[ PLEFT 1 body "<p align=\"left\">$body</p>" ]]
def [[ FIG 2 link,img "<a href=\"$link\"><IMG SRC=\"$img\"></a>" ]]
def [[ TLFIG 3 title,link,fig "<a href=\"$link\" title=\"$title\"><IMG SRC=\"$fig\"></a>" ]]
def [[ KEY 1 body "<$body>" ]]
def [[ ITEM 1 body "• $body" ]]
def [[ BRITEM 1 body BR()..ITEM(body) ]]
-- https://emojibase.dev/shortcodes/?
def [[ =) 0 _ "😊" ]]
def [[ (= 0 _ "🙃" ]]
def [[ =( 0 _ "🙁" ]]
def [[ =/ 0 _ "😕" ]]
def [[ :no_face: 0 _ "😶" ]]
def [[ :PQP: 0 _ "🤬" ]]
def [[ . 0 _ " " ]]
def [[ .. 0 _ " " ]]
def [[ ... 0 _ " " ]]
def [[ .... 0 _ " " ]]
-- (find-THgrep "grep --color=auto -nH --null -e wget_mp4 *.blogme")
-- (find-THgrep "grep --color=auto -nH --null -e WGET_MP4_VTT *.blogme")
--
wget_mp4_body = function (c, mp4stem)
return '# (find-video-links-intro "5. Local copies")'
.. '\n# (find-1stclassvideo-links "'..c..'")'
.. '\n# (find-1stclassvideoindex "'..c..'")'
.. '\nwget -nc http://anggtwu.net/eev-videos/'..mp4stem..'.mp4'
end
wget_mp4_vtt_body = function (c, mp4stem)
return '# See: http://anggtwu.net/eev-videos.html'
.. '\n# http://anggtwu.net/eev-videos.html#mpv-keys'
.. '\n# Play: (find-'..c..'video "0:00")'
.. '\n# Info: (find-1stclassvideo-links "'..c..'")'
.. '\n# Subs: (find-1stclassvideolsubs "'..c..'")'
.. '\n'
.. '\nwget -nc http://anggtwu.net/eev-videos/'..mp4stem..'.mp4'
.. '\nwget -N http://anggtwu.net/eev-videos/'..mp4stem..'.vtt'
.. '\nmpv --fs --osd-level=2 '..mp4stem..'.mp4'
end
def [[ WGET_MP4 2 c,mp4stem
PREBOXBLOGME(htmlizelines(wget_mp4_body (c, mp4stem)))
]]
def [[ WGET_MP4_VTT 2 c,mp4stem
PREBOXBLOGME(htmlizelines(wget_mp4_vtt_body(c, mp4stem)))
]]
-- «stars-or-bullets» (to ".stars-or-bullets")
-- See: (find-TH "eepitch" "bullets")
-- sgmlify_table["\15"] = "<font color=\"red\"><strong>*</strong></font>"
-- sgmlify_table["\15"] = "<font color=\"red\">•</font>"
def [[ redstar 0 _ "<font color=\"red\"><strong>*</strong></font>" ]]
def [[ redbullet 0 _ "<font color=\"red\">•</font>" ]]
def [[ blackbullet 0 _ "•" ]]
-- «htmlize8» (to ".htmlize8")
-- See: (find-blogme3 "anggdefs.lua" "headers" " htmlize ")
-- (find-blogme3 "options.lua" "htmlizefile_utf8" "dtd_encoding_utf8")
-- (find-THgrep "grep --color=auto -nH --null -e htmlize8 *.blogme")
def_ [[ htmlize8 2 title,body
html_dtd = dtd_transitional .. dtd_encoding_utf8
blogme_output = html_all(title, body)
]]
-- «load_caepro2» (to ".load_caepro2")
-- (find-THgrep "grep --color=auto -nH --null -e 'require \"Caepro2\"' *.blogme")
-- (find-THgrep "grep --color=auto -nH --null -e load_caepro2 *.blogme")
load_caepro2 = function ()
Path.prependtopath "~/LUA/?.lua"
require "Caepro2" -- (find-angg "LUA/Caepro2.lua")
caeprourl = function (abbr) return Abbrev.from(abbr):url() end
def [[ C 2 abbr,body HREF(caeprourl(abbr), nilify(body) or abbr) ]]
end
-- «load_caepro3» (to ".load_caepro3")
load_caepro3 = function ()
Path.prependtopath "~/LUA/?.lua"
require "Caepro3" -- (find-angg "LUA/Caepro3.lua")
caeprourl = function (abbr) return (Abbrevs {}):anggurl(abbr) end
caeproR = function (abbr,body0)
local url = caeprourl(abbr)
local body = nilify(body0) or abbr
return url and HREF(url, body) or body
end
def [[ C 2 abbr,body caeproR(abbr,body) ]]
def [[ R 2 url,body HREF(url, nilify(body) or url) ]] -- Restore after lpeg
end
-- «load_caepro4» (to ".load_caepro4")
-- (find-THgrep "grep --color=auto -nH --null -e load_caepro4 *.blogme")
load_caepro4 = function ()
Path.prependtopath "~/LUA/?.lua"
require "Caepro4" -- (find-angg "LUA/Caepro4.lua")
caeprourl = function (abbr) return Abbrev.anggurl(abbr) end
caeproR = function (abbr,body0)
local url = caeprourl(abbr)
local body = nilify(body0) or abbr
return url and HREF(url, body) or body
end
def [[ C 2 abbr,body caeproR(abbr,body) ]]
def [[ R 2 url,body HREF(url, nilify(body) or url) ]] -- Restore after lpeg
end
-- «load_caepro5» (to ".load_caepro5")
-- (find-THgrep "grep --color=auto -nH --null -e load_caepro5 *.blogme")
load_caepro5 = function ()
Path.prependtopath "~/LUA/?.lua"
require "Caepro5" -- (find-angg "LUA/Caepro5.lua")
caeprourl = function (abbr) return Enrichen.pgeturl(preprocess(abbr)) end
caeproR = function (abbr,body0)
local url = caeprourl(abbr)
local body = nilify(body0) or abbr
return url and HREF(url, body) or body
end
def [[ C 2 abbr,body caeproR(abbr,body) ]]
def [[ R 2 url,body HREF(url, nilify(body) or url) ]] -- Restore after lpeg
end
-- «Table-Row-Cell» (to ".Table-Row-Cell")
def [[ Table 1 body "<table border=\"0\">\n$body\n</table>" ]]
def [[ Row 1 body "<tr>$body</tr>" ]]
def [[ Cell 1 body "<td>$body</td>" ]]
def [[ TableRowCells 1L cells Table(Row(mapconcat(Cell, cells, " "))) ]]
def [[ RIGHTFIG 3 target,img,_ "<a href=\"$target\"><IMG SRC=\"$img\" ALIGN=\"right\"></a>" ]]
-- (find-blogme3 "anggdefs.lua" "HTMLIZELINES")
angtosq = function (str) return (str:gsub("[<>]", {["<"]="[", [">"]="]"})) end
def [[ BE<>' 1Q body PREBOXBLOGME(htmlizelines(angtosq(body))) ]]
-- «runbefore» (to ".runbefore")
-- (find-es "blogme" "runbefore")
-- «NAME0» (to ".NAME0")
-- Redefines: (find-blogme3 "anggdefs.lua" "basic-html" "NAME0")
NAME0_last_ = "(NAME0 hasn't been run)"
def [[ NAME0_last 1 _ NAME0_last_ ]]
def_ [[ NAME0 2 tag,_ NAME0_last_ = tag; return "<a name=\"$tag\"></a>" ]]
def_ [[ sec2 2 f,sectionname
pushindex (ANCHOR_I(NAME0_last(), sectionname))
return _G[f](R("#."..NAME0_last(), sectionname)) ]]
def_ [[ DELAY2 2Q a0,b0 local b1 = doblogme(b0) or ""
local a1 = doblogme(a0) or ""
return a1.."\n"..b1 ]]
def [[ INDEX2 1 _ LIST2(secindex) ]]
def [[ DLINDEX2 1 _ DLIST(secindex) ]]
-- «Qjpgs» (to ".Qjpgs")
-- (find-TH "2024.2-C2" "executado")
-- (find-TH "2024.2-C3" "executado")
def [[ GRAY 1 body COLOR("#CCCCCC", body) ]]
def [[ FER 1 body COLOR("red", body) ]]
def [[ REP 1 body COLOR("orange", body) ]]
def [[ s_ 2 sexp,body R(STOT(sexp), body) ]]
Qjpgs_baseurl = "http://anggtwu.net/2024.2-C2/"
def [[ Qjpg1 2 date,n R(format("%s%s-C2-%s.jpg", Qjpgs_baseurl, date, n), n) ]]
def_ [[ Qjpgs 2 date,n
local f = function (k) return (k+0)<=(n+0) and Qjpg1(date,k) or GRAY(k) end
local f = function (k) return (k+0)<=(n+0) and Qjpg1(date,k) or "" end
return mapconcat(f, seq(1,8), "")
]]
-- «rcn-jan-mar» (to ".rcn-jan-mar")
-- (find-angg ".emacs" "rcn-jan-mar")
def_ [[ hsubs 3 url,time,body
if nilify(time) then url = url.."#"..time end
return nilify(body) and R(url,body) or R(url,time)
]]
def [[ rcnjul 2 time,body hsubs("2023-07-27-reuniao-rcn.html", time, body) ]]
def [[ rcnjan 2 time,body hsubs("2025-01-30-reuniao-rcn.html", time, body) ]]
def [[ rcnmar 2 time,body hsubs("2025-03-27-reuniao-rcn.html", time, body) ]]
def [[ rcnjul23 2 time,body hsubs("2023-07-27-reuniao-rcn.html", time, body) ]]
def [[ rcnjan25 2 time,body hsubs("2025-01-30-reuniao-rcn.html", time, body) ]]
def [[ rcnmar25 2 time,body hsubs("2025-03-27-reuniao-rcn.html", time, body) ]]
def [[ rcnjun25 2 time,body hsubs("2025-06-26-reuniao-rcn.html", time, body) ]]
def [[ rcnjul25 2 time,body hsubs("2025-07-24-reuniao-rcn.html", time, body) ]]
def [[ etel 2 time,body hsubs("2022-08-09-etel.html", time, body) ]]
def [[ depo 2 time,body hsubs("2023-08-09-depoimento-eduardo.html", time, body) ]]
def [[ depoant 2 time,body hsubs("2023-07-18-depoimento-antonio.html", time, body) ]]
def [[ depoetel 2 time,body hsubs("2023-07-07-depoimento-etel.html", time, body) ]]
def [[ depomat 2 time,body hsubs("2023-08-02-depoimento-mateus.html", time, body) ]]
def [[ Antonio 0 _ "[Antônio]" ]]
def [[ Antônio 0 _ "[Antônio]" ]]
def [[ Bel 0 _ "[Bel]" ]]
def [[ Bruno 0 _ "[Bruno]" ]]
def [[ Cris 0 _ "[Cris]" ]]
def [[ Eduardo 0 _ "[Eduardo]" ]]
def [[ Etel 0 _ "[Etel]" ]]
def [[ Fabio 0 _ "[Fábio]" ]]
def [[ Fábio 0 _ "[Fábio]" ]]
def [[ Fernando 0 _ "[Fernando]" ]]
def [[ Flavia 0 _ "[Flávia]" ]]
def [[ Flávia 0 _ "[Flávia]" ]]
def [[ Haroldo 0 _ "[Haroldo]" ]]
def [[ Irene 0 _ "[Irene]" ]]
def [[ Isabel 0 _ "[Isabel]" ]]
def [[ Reginaldo 0 _ "[Reginaldo]" ]]
def [[ Romulo 0 _ "[Rômulo]" ]]
def [[ Rômulo 0 _ "[Rômulo]" ]]
def [[ Walter 0 _ "[Walter]" ]]
-- «htmlize-email» (to ".htmlize-email")
-- (find-TH "2025-luckesi")
def [[ From: 1 body BF("From: ")..body ]]
def [[ Date: 1 body BF("Date: ")..body ]]
def [[ To: 1 body BF("To: ") ..body ]]
-- «whatsapp» (to ".whatsapp")
-- (find-TH "2022-como-houve-prejuizo")
def [[ W 6 day,time,_,name1,name2,body BF(name1..": ")..body ]]
def [[ Media 0 _ "(Imagem)" ]]
-- «ol-and-li» (to ".ol-and-li")
-- (find-es "html" "ol-and-li")
def [[ OL 1 str "<ol>\n$str</ol>\n" ]]
def [[ OLIST2 1L arr OL(join(map(LI, filter(arr)), "")) ]]
def [[ JN 2 _,body J(body) ]]
-- Local Variables:
-- coding: utf-8-unix
-- End: