电话短信 xml 到 latex 中的盒装对话

Question

** 编辑 **

OP 有很多额外的要求，这是更新后的代码。

附加功能会在 XML DOM 对象转换为 LaTeX 代码之前对其进行过滤。具体来说，它会按日期或发件人过滤消息。更新后的 Lua 库smslib.lua现在如下所示：

kpse.set_program_name "luatex"
local domobject = require "luaxml-domobject"

local transform = require "luaxml-transform"

-- module
local M = {}

-- templates for SMS print
-- template for user
local me_template = [[
\begin{mebox}[]{Me}
{\tiny subject:@{subject}, read: @{read}}\\@{readable_date}\tcblower{}@{body}
\end{mebox}
]]

-- template for the person who messages
local other_template = [[
\begin{senderbox}[]{@{contact_name} $\langle$@{address}$\rangle$}
{\tiny subject:@{subject}, read: @{read}}\\@{readable_date}\tcblower{}@{body}
\end{senderbox}

]]

transform.add_action("sms[type='2']", me_template)
transform.add_action("sms[type='1']", other_template)

M.load_xml = function(filename)
  local f, message = io.open(filename, "r")
  if not f then 
    print("XML file error: ", message)
    return nil, message
  end
  local content = f:read("*all")
  f:close()
  content = content:gsub("\r", "")
  local dom = domobject.parse(content)
  return dom
end

local function date_to_sms_time(date)
  local year, month, day = date:match("(%d+)%-(%d+)%-(%d+)")
  if not year then return nil, "Cannot parse date" end
  -- SMS XML dates are multiplied by 1000.
  local base_time = os.time({year = tonumber(year), month = tonumber(month), day = tonumber(day)})
  return  1000 * base_time -- - 24 * 3600
end

-- process all records and execute test function
M.filter = function(dom, fn)
  for _, rec in ipairs(dom:query_selector("sms")) do
    -- if test function returns true, the record will be removed
    local status = fn(rec)
    if status then 
      rec:remove_node()
    end
  end
end

M.from_date = function(dom, date)
  local startday, msg = date_to_sms_time(date)
  if not startday then return nil, msg end
  M.filter(dom, function(rec)
    local date = tonumber(rec:get_attribute("date_sent") or "")
    return date < startday 
  end)
end

-- set international phone number prefix
M.set_number_prefix = function(prefix)
  M.prefix = prefix
end

-- compare two phone numbers. we must normalize them
-- by removing spaces and adding international prefix
-- if it is missing in one of numbers
M.match_numbers = function(first, second)
  local prefix = M.prefix or ""
  local normalize = function(number)
    if not number:match("^%+") then number = prefix .. number end
    return number:gsub("%s", "")
  end
  return normalize(first) == normalize(second)
end

  


M.filter_sender = function(dom, sender)
  if sender == "" then return nil, "empty sender" end
  M.filter(dom, function(rec)
    local typ = rec:get_attribute("type") 
    local address = rec:get_attribute("address")
    -- remove all sms that are not part of the conversation with this number
    return M.match_numbers(address, sender) ~= true
  end)
end




M.process_xml = function(dom)
  local converted = transform.process_dom(dom)
  tex.print(converted)
end

-- M.process_xml("messages.xml")

return M

过滤函数循环遍历所有短信，并使用作为参数的函数测试它们。如果函数测试结果为正，则会删除该消息。有两个过滤函数，一个删除早于某个日期的消息，另一个删除不是来自号码的传入文本。

我们还需要更新sms.sty包，因为我们希望能够将日期和发件人号码传递给过滤器：

\ProvidesPackage{sms}
\RequirePackage{tcolorbox}
\RequirePackage{xkeyval}
\RequirePackage{luacode}
\begin{luacode*}
smslib = require "smslib"
\end{luacode*}

% settings for the boxes
% modify the values to your liking
\newtcolorbox{mebox}[2][]{%
colback=blue!10!white,colframe=red!70!black,
halign title=right,
title={#2},fonttitle=\bfseries,#1}

\newtcolorbox{senderbox}[2][]{%
colback=blue!10!white,colframe=blue!70!black,
title={#2},fonttitle=\bfseries,#1}

\def\printsms@fromdate{}
\def\printsms@sender{}
% international phone number prefix. this is the default value
% you can change it using the prefix key in \printsms
\def\printsms@prefix{+16}
% some keyval attributes
\define@key{printsms}{fromdate}[]{\def\printsms@fromdate{#1}}
\define@key{printsms}{sender}[]{\def\printsms@sender{#1}}
\define@key{printsms}{prefix}[+16]{\def\printsms@prefix{#1}}


% Command that will process the SMS XML file and print the boxes
\newcommand\printsms[2][]{%
 \bgroup%
 \setkeys{printsms}{#1}%
 \directlua{%
  local dom = smslib.load_xml("#2")
  smslib.set_number_prefix("\printsms@prefix")
  smslib.from_date(dom,"\printsms@fromdate")
  smslib.filter_sender(dom, "\printsms@sender")
  smslib.process_xml(dom)
  }%
  \egroup%
}

\endinput

现在\printsms需要一些 keyval 选项，可以像这样使用：

\documentclass{article}
\usepackage{sms}
\begin{document}
\printsms[fromdate=2020-06-01,sender=+162738495078]{newmessages.xml}
\end{document}

结果如下：

原始答案：

使用 LuaXML 可以很容易地做到这一点，特别是使用新luaxml-transform库。该库可以使用 CSS 选择器和简单模板将 XML 文件转换为任何输出格式。

我将提供一个特殊的 LuaLaTeX 包来处理此任务。它由两个文件组成，sms.stypackage（包含 TeX 声明）和smslib.lua（执行转换）。

这里是sms.sty：

\ProvidesPackage{sms}
\RequirePackage{tcolorbox}
\RequirePackage{luacode}
\begin{luacode*}
smslib = require "smslib"
\end{luacode*}

% settings for the boxes
% modify the values to your liking
\newtcolorbox{mebox}[2][]{%
colback=blue!10!white,colframe=red!70!black,
halign title=right,
title={#2},fonttitle=\bfseries,#1}

\newtcolorbox{senderbox}[2][]{%
colback=blue!10!white,colframe=blue!70!black,
title={#2},fonttitle=\bfseries,#1}

% Command that will process the SMS XML file and print the boxes
\newcommand\printsms[1]{%
 \directlua{%
  smslib.process_xml("#1")
  }%
}

\endinput

它加载tcolorbox并定义两种新的框类型，mebox将用于打印来自您的消息，senderbox将用于接收消息。您可以在此处更改颜色和其他格式详细信息。

该\printsms命令获取 XML 文件的名称并将其传递给smslib.lua库，如下所示：

local domobject = require "luaxml-domobject"
local transform = require "luaxml-transform"

-- module
local M = {}

-- templates for SMS print
-- template for user
local me_template = [[
\begin{mebox}[]{Me}
{\tiny subject:@{subject}, read: @{read} }\\
@{readable_date}
\tcblower
@{body}
\end{mebox}
]]

-- template for the person who messages
local other_template = [[
\begin{senderbox}[]{@{contact_name} $\langle$@{address}$\rangle$}
{\tiny subject:@{subject}, read: @{read} }\\
@{readable_date}
\tcblower
@{body}
\end{senderbox}

]]

transform.add_action("sms[type='2']", me_template)
transform.add_action("sms[type='1']", other_template)


M.process_xml = function(filename)
  local f, message = io.open(filename, "r")
  if not f then 
    print("XML file error: ", message)
    return nil, message
  end
  local content = f:read("*all")
  f:close()
  content = content:gsub("\r", "")
  local dom = domobject.parse(content)
  local converted = transform.process_dom(dom)
  tex.print(converted)
end



return M

重要的部分是这样的：

local me_template = [[
\begin{mebox}[]{Me}
{\tiny subject:@{subject}, read: @{read} }\\
@{readable_date}
\tcblower
@{body}
\end{mebox}
]]

-- template for the person who messages
local other_template = [[
\begin{senderbox}[]{@{contact_name} $\langle$@{address}$\rangle$}
{\tiny subject:@{subject}, read: @{read} }\\
@{readable_date}
\tcblower
@{body}
\end{senderbox}

]]

transform.add_action("sms[type='2']", me_template)
transform.add_action("sms[type='1']", other_template)

转换库处理 XML 文件并测试所有元素是否执行使用声明的操作add_action。第一个参数是用于匹配的 CSS 选择器，第二个参数是转换模板。

这里声明了两个动作，它们都是针对<sms>元素的。我发现导出的 SMS XML 使用属性来区分传出消息和传入消息type。传入消息有值1，传出消息有值2。 [type='1']测试这些属性，并根据其值调用正确的模板。

me_template和变量other_template包含将打印消息的字符串模板。@{attribute_name}字符串可用于打印<sms>元素属性的值。例如，@{body}输出消息文本。您可以编辑模板以包含所需的更多属性。

我找到了 XML 文件的完整示例。我还将您的示例添加到此文件中messages.xml：

<smses count="3">
<sms protocol="0" address="+1234567890" date="1602132754403" type="1" subject="null" body="Hi, this is first input. ok? " toa="null" sc_toa="null" service_center="+998877665544" read="1" status="-1" locked="0" date_sent="1602132750000" sub_id="1" readable_date="8 oct. 2020 10:22:34" contact_name="yaya" />
<sms protocol="0" address="332" date="1285799668193" type="2" subject="null" body="Sample Message Sent from the phone" toa="null" sc_toa="null" service_center="null" read="1" status="-1" locked="0" readable_date="Sep 30, 2010 8:34:28 AM" contact_name="(Unknown)" />
<sms protocol="0" address="4433221123" date="1289643415810" type="1" subject="null" body="Sample Message received by the phone" toa="null" sc_toa="null" service_center="null" read="0" status="-1" locked="0" readable_date="Nov 13, 2010 9:16:55 PM" contact_name="(Unknown)" />
</smses>

以下是 TeX 文件示例：

\documentclass{article}
\usepackage{sms}
\begin{document}
\printsms{messages.xml}
\end{document}

最终的 PDF 结果如下：

Answer 1