|
Warning: this is an htmlized version!
The original is here, and the conversion rules are here. |
-- This file:
-- http://angg.twu.net/LUA/emacs-weekly-news.lua.html
-- http://angg.twu.net/LUA/emacs-weekly-news.lua
-- (find-angg "LUA/emacs-weekly-news.lua")
-- Author: Eduardo Ochs <eduardoochs@gmail.com>
--
-- See: (find-es "emacs" "emacs-weekly-news")
-- (find-efunction 'find-emacs-tangents-links)
-- (find-emacs-tangents-links)
--
-- (find-emacs-tangents-links "{yyyy}" "{mm}" "{dd}" "{msg}" "{txtstem}")
-- (find-emacs-tangents-links "2020" "10" "05" "msg00000" "txts2ETp920ql")
-- (find-emacs-tangents-links "2018" "01" "29" "msg00025" "txtJ1ftXqItdm")
datesbigstr = [[ 2021-09-13 2021-09-06 2021-08-30 2021-08-23
2021-08-16 2021-08-09 2021-08-02 2021-07-26 2021-07-19 2021-07-12
2021-07-05 2021-06-28 2021-06-21 2021-06-14 2021-06-07 2021-05-31
2021-05-24 2021-05-17 2021-05-10 2021-05-03 2021-04-26 2021-04-19
2021-04-12 2021-04-05 2021-03-29 2021-03-22 2021-03-15 2021-03-08
2021-03-01 2021-02-22 2021-02-15 2021-02-08 2021-02-01 2021-01-25
2021-01-18 2021-01-11 2021-01-04 2020-12-28 2020-12-21 2020-12-14
2020-12-07 2020-11-30 2020-11-23 2020-11-16 2020-11-09 2020-11-02
2020-10-26 2020-10-19 2020-10-12 2020-10-05 2020-09-28 2020-09-21
2020-09-14 2020-09-07 2020-08-31 2020-08-24 2020-08-17 2020-08-10
2020-08-03 2020-07-27 2020-07-20 2020-07-13 2020-07-06 2020-06-29
2020-06-22 2020-06-15 2020-06-08 2020-06-01 2020-05-25 2020-05-18
2020-05-11 2020-05-04 2020-04-27 2020-04-20 2020-04-13 2020-04-06
2020-03-30 2020-03-23 2020-03-16 2020-03-09 2020-03-02 2020-02-24
2020-02-17 2020-02-10 2020-02-03 2020-01-27 2020-01-20 2020-01-13
2020-01-06 2019-12-30 2019-12-23 2019-12-16 2019-12-09 2019-12-02
2019-11-25 2019-11-18 2019-11-11 2019-11-04 2019-10-28 2019-10-21
2019-10-14 2019-10-07 2019-09-30 2019-09-23 2019-09-16 2019-09-09
2019-09-02 2019-08-26 2019-08-19 2019-08-12 2019-08-05 2019-07-29
2019-07-22 2019-07-15 2019-07-08 2019-07-01 2019-06-24 2019-06-17
2019-06-10 2019-06-03 2019-05-27 2019-05-20 2019-05-13 2019-05-06
2019-04-29 2019-04-22 2019-04-15 2019-04-08 2019-04-01 2019-03-25
2019-03-18 2019-03-11 2019-03-04 2019-02-25 2019-02-18 2019-02-11
2019-02-04 2019-01-28 2019-01-21 2019-01-14 2019-01-07 2018-12-31
2018-12-24 2018-12-17 2018-12-10 2018-12-03 2018-11-26 2018-11-19
2018-11-12 2018-11-05 2018-10-29 2018-10-22 2018-10-15 2018-10-08
2018-10-01 2018-09-24 2018-09-17 2018-09-03 2018-08-27 2018-08-20
2018-08-13 2018-08-06 2018-07-30 2018-07-23 2018-07-16 2018-07-09
2018-07-02 2018-06-25 2018-06-18 2018-06-11 2018-06-04 2018-05-28
2018-05-21 2018-05-14 2018-05-07 2018-04-30 2018-04-23 2018-04-16
2018-04-09 2018-04-02 2018-03-26 2018-03-19 2018-03-12 2018-03-04
2018-02-26 2018-02-19 2018-02-12 2018-02-05 2018-01-29 2018-01-23
2018-01-15 2018-01-09 2018-01-01 2017-12-26 2017-12-19 2017-12-11
2017-12-04 2017-11-27 2017-11-20 2017-11-13 2017-11-06 2017-10-30
2017-10-23 2017-08-21 2017-08-14 2017-08-07 2017-07-31 2017-07-24
2017-07-17 2017-07-10 2017-07-03 2017-06-26 2017-06-19 2017-06-12
2017-06-05 2017-05-29 2017-05-22 2017-05-15 2017-05-08 2017-05-01
2017-04-24 2017-04-17 2017-04-10 2017-04-03 2017-03-27 2017-03-20
2017-03-13 2017-03-06 2017-02-27 2017-02-20 2017-02-13 2017-02-06
2017-01-30 2017-01-23 2017-01-16 2017-01-09 2017-01-02 2016-12-26
2016-12-19 2016-12-12 2016-12-05 2016-11-28 2016-11-21 2016-11-14
2016-11-07 2016-10-31 2016-10-24 2016-10-17 2016-10-10 2016-10-03
2016-09-26 2016-09-19 2016-09-12 2016-09-05 2016-08-29 2016-08-22
2016-08-15 2016-08-08 2016-08-01 2016-07-25 2016-07-18 2016-07-10
2016-07-04 2016-06-27 2016-06-20 2016-06-13 2016-06-06 2016-05-30
2016-05-23 2016-05-16 2016-05-09 2016-05-02 2016-04-25 2016-04-18
2016-04-11 2016-04-04 2016-03-28 2016-03-21 2016-03-14 2016-02-15
2016-02-08 2016-02-01 2016-01-25 2016-01-18 2016-01-11 2016-01-04
2015-12-28 2015-12-21 2015-12-14 2015-12-07 2015-11-30 2015-11-23
2015-11-16 2015-11-09 2015-11-02 2015-10-26 ]]
--[==[
* (eepitch-lua51)
* (eepitch-kill)
* (eepitch-lua51)
dofile "emacs-weekly-news.lua"
dates = split(datesbigstr)
n = #dates
= n
= datesbigstr:gsub("(%d+)-(%d+)-(%d+)", "%1-%2")
PPV( split((datesbigstr:gsub("(%d+)-(%d+)-(%d+)", "%1-%2"))))
PPV(uniq(split((datesbigstr:gsub("(%d+)-(%d+)-(%d+)", "%1-%2")))))
yms = uniq(split((datesbigstr:gsub("(%d+)-(%d+)-(%d+)", "%1-%2"))))
for i=n,1,-1 do
local date = dates[i]
local y,m,d = date:match("(%d+)-(%d+)-(%d+)")
local sexp = format('(find-emacs-tangents-links "%s" "%s" "%s")', y, m, d)
print("# "..sexp)
end
for i=#yms,1,-1 do
local ym = yms[i]
local y,m = ym:match("(%d+)-(%d+)")
local fmt = [[
mkdir -p $S/https/lists.gnu.org/archive/html/emacs-tangents/%s-%s/
cd $S/https/lists.gnu.org/archive/html/emacs-tangents/%s-%s/
wget -nc https://lists.gnu.org/archive/html/emacs-tangents/%s-%s/
]]
printf(fmt, y,m, y,m, y,m)
end
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
# (find-fline "$S/https/lists.gnu.org/archive/html/emacs-tangents/")
# (code-c-d "et" "$S/https/lists.gnu.org/archive/html/emacs-tangents/")
# (find-etfile "")
# (find-etfile "2017-03/index.html")
# (find-etfile "2017-04/index.html")
# https://lists.gnu.org/archive/html/emacs-tangents/2018-06/index.html
# (find-etfile "2018-06/index.html")
cd $S/https/lists.gnu.org/archive/html/emacs-tangents/
find * -type f | sort | tee /tmp/o
grep -i 'Emacs News' $(cat /tmp/o) | grep -iv Re: | tee /tmp/o2
# (find-etsh "grep -i 'Emacs News' $(cat /tmp/o)")
# (find-etsh "grep -i 'Emacs News' $(cat /tmp/o) | grep -v Re:")
# (find-etsh "grep -i 'Emacs News' $(cat /tmp/o) | grep -iv Re: | grep -i started")
# (find-etfile "" "2018-06")
# (find-fline "/tmp/o2")
* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
URL=https://lists.gnu.org/archive/html/emacs-tangents/2021-09/msg00003.html
wget -q -O - $URL
wget -q -O - $URL | grep Attachment:
* (eepitch-lua51)
* (eepitch-kill)
* (eepitch-lua51)
lines = splitlines(ee_readfile("/tmp/o2"))
url = "https://lists.gnu.org/archive/html/emacs-tangents/2021-09/msg00003.html"
getarg5 = function (url)
local cmd = "wget -q -O - "..url.." | grep Attachment:"
local out = getoutput(cmd)
local att = out:match('href="(.-).txt"')
return att
end
= getarg5(url)
for _,li in ipairs(lines) do
local msgn = li:match "(msg%d+)"
local ymd,y,m,d = li:match "((%d%d%d%d)-(%d%d)-(%d%d))"
-- print(msgn, ymd, y,m,d)
local fmt = '(find-emacs-tangents-links "%s" "%s" "%s" "%s")'
local sexp = format(fmt, y, m, d, msgn)
-- print("# "..sexp)
fmtu = 'https://lists.gnu.org/archive/html/emacs-tangents/%s-%s/%s.html'
local url = format(fmtu, y, m, msgn)
-- print(url)
local arg5 = getarg5(url)
local fmt5 = '(find-emacs-tangents-links "%s" "%s" "%s" "%s" "%s")'
local sexp5 = format(fmt5, y, m, d, msgn, arg5 or "")
print("# "..sexp5)
end
mkdir -p $S/https/lists.gnu.org/archive/html/emacs-tangents/2016-02/
cd $S/https/lists.gnu.org/archive/html/emacs-tangents/2016-02/
wget -nc https://lists.gnu.org/archive/html/emacs-tangents/2016-02/
--]==]