将实时 Stack Exchange 声誉置于文档中

Question 1

如果你只想要代码，而不是解释，请查看这里。

诀窍是使用堆栈交换 API下载用户信息。例如，要获取我自己的用户信息（关于 tex.se），我会转到http://api.stackexchange.com/2.2/users?inname=digitalis_&site=tex。对于不同的用户或不同的网站，您需要更改相应的字段。

让我们把它放入一个函数中curl_user：

curl_user = function (user, site)
   os.execute('mkdir -p cache')
   print('\nGetting ' .. user .. ' from ' .. site .. '...\n')
   os.execute('curl "http://api.stackexchange.com/2.2/users?inname='
      .. user .. '&site=' .. site
      .. '" > ' .. cache_name(user, site) .. '.gz')
   os.execute('gunzip -f ' .. cache_name(user, site) .. '.gz')
end

哪里cache_name

cache_name = function (user, site)
   return ('cache/' .. user .. '_' .. site)
end

由于 API 限制您每天最多可请求 300 次，因此每次需要时重新下载用户信息不是一个好主意。解决方案是缓存数据，有两种方式：

根据文档构建。例如，我第一次写入时\texrep，它会下载数据并将其存储在变量中，以便后续出现时\texrep使用存储在内存中的值。
在硬盘上。例如，\texrep第一次调用会下载数据并将其保存到硬盘上的文件中（例如digitalis_tex），后续的文档构建会从该文件中读取值。

curl_user已经通过将数据保存在cache/目录中来处理（1），在名为的 I 文件下<user>_<site>。

(2) 的结果是，需要一个变量来确定 Lua 是否应该重新下载。我们true现在将其设置为，并创建“每个构建”缓存数据的表。

UPDATING = true
cache = {}

需要一个函数来管理这个缓存：

get_user = function (user, userid, site)
   if cache[user] == nil then
      cache[user] = {}
   end

   if cache[user][site] == nil then
      cache[user][site] = {}
      cache[user][site]['_raw'] = extract_user(user, userid, site)
   end

   return cache[user][site]['_raw']
end

其中extract_user定义为

extract_user = function (user, userid, site)
   if UPDATING then
      curl_user(user, site)
   end

   io.input(cache_name(user, site))
   raw = io.read('*all')
   me = string.match(raw, userid .. '.*')
   return me
end

extract_user选择是否更新硬盘上保存的缓存，并使用一些模式匹配魔法来过滤掉不想要的用户。这是因为 API 请求的工作方式：它实际上为您提供了所有名称中包含特定字符串的用户的数据。为了与其他用户区分开来，您需要用户的 ID（您可以在访问个人资料时查看 URL 来找到它http://stackexchange.com）。

您可以看到缓存如何开始演变成一种树：

cache
 └── digitalis
      ├── tex
      │    └── _raw
      └── stackoverflow
           └── _raw

现在所需要的是一个获取值的一般函数，给定：

一片田野，
用户，
网站。

这是一个这样的函数：

get_field = function (field, user, userid, site)
   if not (cache[user]
          and cache[user][site]
          and cache[user][site][field]) then
      me = get_user(user, userid, site)
      pure = string.match(me, '"' .. field .. '":[^,}]+')
      cache[user][site][field] = string.match(pure, '[^:]+$')
   end
   return cache[user][site][field]
end

如果缓存的某些部分未定义，它将初始化缓存并返回所需的值。

为了得到问题的效果，可以写

get_rep = function (site)
   return get_field('reputation', USER, USERID, site)
end

其中USER和USERID设置为某些用户的用户名和用户 ID。

USER = 'digitalis'
USERID = 5477562

整个 .tex 文件将是

\directlua{dofile('fetch.lua')}
\def\texrep{\directlua{get_rep('tex')}}
My current reputation on {\tt tex.se} is \texrep.
\bye

请注意，此处定义的函数足够通用，不仅仅可以用于获取用户的声誉：例如，

徽章数量，
过去一年/一季度/一月的声誉变化，
个人资料图片的 URL，
ETC。

都是可能的。

Answer