+
+
+```
+
+# Scyrumve spiro subitusque mente
+
+```{.sql caption="Pallas nuper longusque cratere habuisse sepulcro pectore fertur."}
+CREATE TYPE person_t AS (
+ firstName VARCHAR(50) NOT NULL,
+ lastName VARCHAR(50) NOT NULL
+);
+
+CREATE Or REPLACE FUNCTION getFormattedName(person) RETURNS text AS
+ $$ SELECT 'P: ' || initcap($1.firstName); $$
+LANGUAGE SQL;
+```
\ No newline at end of file
diff --git a/_extensions/drwater/dwev/demo/book.qmd b/_extensions/drwater/dwev/demo/book.qmd
new file mode 100644
index 0000000..4b3c42c
--- /dev/null
+++ b/_extensions/drwater/dwev/demo/book.qmd
@@ -0,0 +1,110 @@
+---
+title: "Example PDF"
+author: [Author]
+date: "2017-02-20"
+subject: "Markdown"
+keywords: [Markdown, Example]
+book: true
+classoption: [oneside]
+titlepage: true,
+# titlepage-rule-color: "360049"
+titlepage-text-color: "FFFFFF"
+titlepage-rule-height: 0
+titlepage-background: "inst/title-page-custom/background.pdf"
+format: dwev-pdf
+---
+
+# Crinis mixtaque factisque ille
+
+## Aut nunc furori ad latarumque Philomela
+
+Lorem markdownum includite volenti monticolae videre vocem hac sparsit puta
+gelidis vestros egressus sex. Undis eris per auguris armis. Est saevior pater.
+Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet. Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet.
+
+## Gaudet Silenus iuvenis
+
+Mulciber denique faces ingratus, in umeros umeri cum, iram ira custos non.
+Pariterque admissa nubes, in ait ecce setae summis sacrorum me gaudete tellus.
+Ille tu perire ille, artificis caede.
+
+```scala
+def sumLeaves(t: Tree): Int = t match {
+ case Branch(l, r) => sumLeaves(l) + sumLeaves(r)
+ case Leaf(x) => x
+}
+```
+
+Cephea rector minorque, quem corpora,
+Argus. Superi hoc tenuavit timebant ossibus totque non serpere animo corpore
+superas gelidae, comitate deus Iunonigenaeque
+pectora.
+
+- Tuis Cereris armiferae fugiunt suus derepta vel
+- Veniam mea cum sollertior arbore flore
+- Ceae saecula
+- Tamen est
+
+## Dies tunc in enim
+
+Gerunt urimur violaeque agricolis iussa locis puppis
+simul cognita, vertentia Romana
+obprobrium pignora superem est certe nondum suffuderat. Nox Pasiphaeia domo:
+**abiit** catenas utro crimine gramina ingemuere mixtae. Quem trabibus etiamnum
+orbe addita, eiaculatur videri cervo artus. Nutritur cupidine silentia Maeoniam
+aere enim gemuit adgreditur, telasque *annis* nos cum Arctonque ingens lateri
+cum iaculoque ferus.
+
+## Et dextra utque per lenius portus eburnae
+
+Cui vittas aris ibi putat dicere; factum sedere antiqua? Cognita Lyncides iuste
+insuetum lacerum in sinamus arces; aves aevum spatiumque de utrumque moveret in?
+Tertia ordine, Epidaurius, *has sed et* et novat: quod superare concubitusque
+retia quoque, ne totiens.
+
+Est paenitet Cerealia sparsit; carne insignia in maris; tibi Nec, que Peleu meum
+buxus. Propoetides formae magna auro ad gerat cohibentur facienda partem at
+nunc, foret? **Ad stirpe**! Ut latius pararet: vestibus cumque pedibus ficta
+prior summas cancer ipsa Marte Buten es
+terruit. Opifex dixit oculos Oete quoque, quot silvarum abrepti nutrix concita
+obsidis consistere fibula saxum, Antigonen minabitur tota.
+
+# Vagata eiectatamque sidera satis reducet
+
+## Talem ex aliquo ingemuit
+
+Lorem markdownum solus miserabile sitae. Tantum Syron limenque cupidine: litore
+modo coniuge: in huc, illo crimen novena, vocisque gratia, quae. Sua manusque
+patris nec meritorum pedibus hominis virgine, ruere tamen virtus aliter. Tunc
+ego. Solitaque remittant fagus omnia eat.
+
+$$r_d^i(t+1) = \min\{r_s,\max\{0, r_d^i(t) + \beta(n_t - \lvert N_i(t)\rvert)\}\}$$
+
+Obstitit silentia et novi non, huic metitur, coronantur lucos. Bracchia aura;
+donis quod volucris illi futurae, ut
+*venturorumque tellus* arma: saxumque.
+
+## Vera tum est putes adspicit noxque
+
+Hora et vidit figere tangi! Omni bis *prior nunc* capilli, pulsat tuam Pallante,
+*suis*. Solae decore ipso armorum coitusque paro audita *viveret tibi* apparuit
+flammasque lapides. Cursu anas usus eundo anticipata, intabescere quae concita
+fallit. Dea corpore fabrae: nec Neptunus membris, falsa murice; fac Marte quam
+in.
+
+Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam voluptua. At vero eos et accusam et justo duo dolores et ea rebum. Stet clita kasd gubergren, no sea takimata sanctus est Lorem ipsum dolor sit amet. Lorem ipsum dolor sit amet, consetetur sadipscing elitr, sed diam nonumy eirmod tempor invidunt ut labore et dolore magna aliquyam erat, sed diam voluptua. At vero eos et accusam et.
+
+## Arachnes deus tum penetralia tempore aurea populante
+
+Lentae spissisque *carne*. Fixit inquit cautes et iugis novus sim quisquam nisi
+haesurum vel deorum fetibus virgo.
+
+Sub nautae, tegebat clamat. Credas Parrhasio. Commemorat nescio liceatque
+excipit! Uris clipeo ego visa amplexas meos ibitis condidit Taenaria, si. Tua
+ora tempus patrio revulsos, tellus curru facies, Gange gemit agitata!
+
+Ruinam ipsaque sibi ovis Teucer Iovis tibi; erat versus neque victa attonitus
+doque, quod! Dixit carmina, eo, per capillis quid lina, qua, ille. Siqua
+caelestum flammas ferre super et saevissime inmisit quoque suis sic aspergine
+vis praerupit. Et puellae summa eventu.
+Placeat ut medio *plectrumque inferni* Talia; pertimui opem.
diff --git a/_extensions/drwater/dwev/demo/boxes-with-pandoc-latex-environment-and-awesomebox.qmd b/_extensions/drwater/dwev/demo/boxes-with-pandoc-latex-environment-and-awesomebox.qmd
new file mode 100644
index 0000000..3c26ccd
--- /dev/null
+++ b/_extensions/drwater/dwev/demo/boxes-with-pandoc-latex-environment-and-awesomebox.qmd
@@ -0,0 +1,131 @@
+---
+title: "Boxes with pandoc-latex-environment and awesomebox"
+author: [Author]
+date: "2020-01-01"
+subject: "Markdown"
+keywords: [Markdown, Example]
+lang: "en"
+colorlinks: true
+header-includes:
+- |
+ ```{=latex}
+ \usepackage{awesomebox}
+ ```
+pandoc-latex-environment:
+ noteblock: [note]
+ tipblock: [tip]
+ warningblock: [warning]
+ cautionblock: [caution]
+ importantblock: [important]
+format: dwev-pdf
+---
+
+# Boxes with `pandoc-latex-environment` and `awesomebox`
+
+This example demonstrates the use of the filter [`pandoc-latex-environments`] to create custom boxes with the [`awesomebox`] package. *pandoc-latex-environment* is a pandoc filter for adding LaTeX environment on specific HTML div tags.
+
+
+## Box Types
+
+For a list of all available boxes and options visit the [`awesomebox` documentation](https://ctan.org/pkg/awesomebox).
+
+```markdown
+::: note
+Lorem ipsum dolor ...
+:::
+```
+
+::: note
+Lorem ipsum dolor sit amet, consectetur adipiscing elit. Nam aliquet libero
+quis lectus elementum fermentum.
+
+Fusce aliquet augue sapien, non efficitur mi ornare sed. Morbi at dictum
+felis. Pellentesque tortor lacus, semper et neque vitae, egestas commodo nisl.
+:::
+
+```markdown
+::: tip
+Lorem ipsum dolor ...
+:::
+```
+
+::: tip
+Lorem ipsum dolor sit amet, consectetur adipiscing elit. Nam aliquet libero
+quis lectus elementum fermentum.
+
+Fusce aliquet augue sapien, non efficitur mi ornare sed. Morbi at dictum
+felis. Pellentesque tortor lacus, semper et neque vitae, egestas commodo nisl.
+:::
+
+```markdown
+::: warning
+Lorem ipsum dolor ...
+:::
+```
+
+::: warning
+Lorem ipsum dolor sit amet, consectetur adipiscing elit. Nam aliquet libero
+quis lectus elementum fermentum.
+
+Fusce aliquet augue sapien, non efficitur mi ornare sed. Morbi at dictum
+felis. Pellentesque tortor lacus, semper et neque vitae, egestas commodo nisl.
+:::
+
+```markdown
+::: caution
+Lorem ipsum dolor ...
+:::
+```
+
+::: caution
+Lorem ipsum dolor sit amet, consectetur adipiscing elit. Nam aliquet libero
+quis lectus elementum fermentum.
+
+Fusce aliquet augue sapien, non efficitur mi ornare sed. Morbi at dictum
+felis. Pellentesque tortor lacus, semper et neque vitae, egestas commodo nisl.
+:::
+
+```markdown
+::: important
+Lorem ipsum dolor ...
+:::
+```
+
+::: important
+Lorem ipsum dolor sit amet, consectetur adipiscing elit. Nam aliquet libero
+quis lectus elementum fermentum.
+
+Fusce aliquet augue sapien, non efficitur mi ornare sed. Morbi at dictum
+felis. Pellentesque tortor lacus, semper et neque vitae, egestas commodo nisl.
+:::
+
+One can also use raw HTML `div` tags to create the custom environments.
+
+```markdown
+Data analysis practice of regional water environment pollution +author: 苏命、王为东
中国科学院大学资源与环境学院
中国科学院生态环境研究中心 +date: today +lang: zh +format: + dwsd-revealjs: default +--- + +```{r} +#| include: false +#| cache: false +lang <- "cn" +require(tidyverse) +knitr::opts_chunk$set(echo = TRUE) +``` + +## R语言实践部分课程简介 + +**接下来的课程由我来带着大家一起学习、实践基于R语言的数据分析。** + +### 自我介绍 + +- 苏命：来自中国科学院生态环境研究中心 +- 主要从事**水源水质水生态**方面的研究 + + + + + +## 欢迎讨论！{.center} + + +`r rmdify::slideend(wechat = FALSE, type = "public", tel = FALSE, thislink = "../")` diff --git a/_extensions/drwater/embedpdf/_extension.yml b/_extensions/drwater/embedpdf/_extension.yml new file mode 100644 index 0000000..49b990e --- /dev/null +++ b/_extensions/drwater/embedpdf/_extension.yml @@ -0,0 +1,8 @@ +title: embedpdf +author: Jeffrey Girard +version: 0.5.0 +quarto-required: ">=1.3.0" +contributes: + shortcodes: + - embedpdf.lua + diff --git a/_extensions/drwater/embedpdf/embedpdf.lua b/_extensions/drwater/embedpdf/embedpdf.lua new file mode 100644 index 0000000..178f74f --- /dev/null +++ b/_extensions/drwater/embedpdf/embedpdf.lua @@ -0,0 +1,106 @@ +-- simple HTML escaper for text nodes +local function html_escape(s) + s = tostring(s or "") + s = s:gsub("&", "&") + :gsub("<", "<") + :gsub(">", ">") + :gsub('"', """) + :gsub("'", "'") + return s +end + +function pdf(args, kwargs) + local data = pandoc.utils.stringify(args[1]) or pandoc.utils.stringify(kwargs['file']) + local width = pandoc.utils.stringify(kwargs['width']) + local height = pandoc.utils.stringify(kwargs['height']) + local border = pandoc.utils.stringify(kwargs['border']) + local class = pandoc.utils.stringify(kwargs['class']) + local button = pandoc.utils.stringify(kwargs['button']) + local image = pandoc.utils.stringify(kwargs['image']) + local image_force = pandoc.utils.stringify(kwargs['image_force']) + local image_width = pandoc.utils.stringify(kwargs['image_width']) + local image_height = pandoc.utils.stringify(kwargs['image_height']) + local image_border = pandoc.utils.stringify(kwargs['image_border']) + local image_class = pandoc.utils.stringify(kwargs['image_class']) + + if width ~= '' then + width = ' width="' .. width .. '"' + end + + if height ~= '' then + height = ' height="' .. height .. '"' + end + + if border ~= '' then + border = ' border="' .. border .. '"' + end + + if class ~= '' then + class = ' class="' .. class .. '"' + end + + if image_width ~= '' then + image_width = ' width="' .. image_width .. '"' + end + + if image_height ~= '' then + image_height = ' height="' .. image_height .. '"' + end + + if image_border ~= '' then + image_border = ' border="' .. image_border .. '"' + end + + if image_class ~= '' then + image_class = ' class="' .. image_class .. '"' + end + + local button_html = "" + if button ~= '' then + button_html = + "
" .. + html_escape(button) .. + "" + end + + if quarto.doc.isFormat("html:js") then + local html = "" + + if image_force == 'TRUE' then + -- image only, linked to pdf + html = '' .. + '
" .. html .. button_html .. "
"
+ end
+
+ return pandoc.RawInline('html', html)
+ else
+ return pandoc.Null()
+ end
+end
+
+
+-- Add alias shortcode
+function embedpdf(...)
+ return pdf(...)
+end
diff --git a/_extensions/drwater/ignore-softbreaks/_extension.yml b/_extensions/drwater/ignore-softbreaks/_extension.yml
new file mode 100644
index 0000000..f868faa
--- /dev/null
+++ b/_extensions/drwater/ignore-softbreaks/_extension.yml
@@ -0,0 +1,7 @@
+title: Ignore Soft Breaks around Chinese Characters
+author: Tom Ben
+version: 1.0.0
+quarto-required: ">=1.5.0"
+contributes:
+ filters:
+ - ignore-softbreaks.lua
diff --git a/_extensions/drwater/ignore-softbreaks/ignore-softbreaks.lua b/_extensions/drwater/ignore-softbreaks/ignore-softbreaks.lua
new file mode 100644
index 0000000..7bbd2da
--- /dev/null
+++ b/_extensions/drwater/ignore-softbreaks/ignore-softbreaks.lua
@@ -0,0 +1,72 @@
+--- Emulate Pandoc's extension `east_asian_line_breaks` in Quarto
+--- Ignore soft break adjacent to Chinese characters
+--- Tracking Quarto issue: https://github.com/quarto-dev/quarto-cli/issues/8520
+
+--- Copyright: © 2024–Present Tom Ben
+--- License: MIT License
+
+function is_chinese(text)
+ return text:find("[\228-\233][\128-\191][\128-\191]")
+end
+
+function is_ascii(char)
+ if char == nil then return false end
+ local ascii_code = string.byte(char)
+ return ascii_code >= 0 and ascii_code <= 127
+end
+
+function is_chinese_punctuation(char)
+ if char == nil then return false end
+ local punctuation_marks = "，。！？；：“”‘’（）【】《》〈〉「」『』、"
+ return string.find(punctuation_marks, char, 1, true) ~= nil
+end
+
+function is_alphanumeric(char)
+ if char == nil then return false end
+ return char:match("[%w]") ~= nil
+end
+
+return {
+ {
+ Para = function(para)
+ local cs = para.content
+ for k, v in ipairs(cs) do
+ if v.t == 'SoftBreak' and cs[k - 1] and cs[k + 1] then
+ local p_text = cs[k - 1].text
+ local n_text = cs[k + 1].text
+ -- Ensure p_text and n_text are not nil and not empty strings
+ if p_text and n_text and #p_text > 0 and #n_text > 0 then
+ local prev_char -- Stores the last UTF-8 character of p_text
+ for char_item in p_text:gmatch("([\0-\x7F\xC2-\xF4][\x80-\xBF]*)") do
+ prev_char = char_item
+ end
+
+ local next_char -- Stores the first UTF-8 character of n_text
+ for char_item in n_text:gmatch("([\0-\x7F\xC2-\xF4][\x80-\xBF]*)") do
+ next_char = char_item
+ break -- Found the first character
+ end
+
+ -- Ensure characters were actually extracted
+ if prev_char and next_char then
+ -- Rule 1: Remove soft break between Chinese characters
+ if is_chinese(prev_char) and is_chinese(next_char) then
+ para.content[k] = pandoc.Str("")
+ -- Rule 2: Remove soft break after Chinese punctuation
+ elseif is_chinese_punctuation(prev_char) then
+ para.content[k] = pandoc.Str("")
+ -- Rule 3: Remove soft break before Chinese punctuation
+ elseif is_chinese_punctuation(next_char) then
+ para.content[k] = pandoc.Str("")
+ -- Rule 4: Keep soft break between Chinese chars and ASCII alphanumeric
+ -- This preserves spacing between Chinese and English words
+ -- No action needed - soft break remains
+ end
+ end
+ end
+ end
+ end
+ return para
+ end
+ }
+}
diff --git a/_extensions/drwater/latex-body-quotes/_extension.yml b/_extensions/drwater/latex-body-quotes/_extension.yml
new file mode 100644
index 0000000..b4b9603
--- /dev/null
+++ b/_extensions/drwater/latex-body-quotes/_extension.yml
@@ -0,0 +1,7 @@
+title: Tailor Quotes for Chinese Characters in LaTeX Body
+author: Tom Ben
+version: 1.0.0
+quarto-required: ">=1.5.0"
+contributes:
+ filters:
+ - latex-body-quotes.lua
diff --git a/_extensions/drwater/latex-body-quotes/latex-body-quotes.lua b/_extensions/drwater/latex-body-quotes/latex-body-quotes.lua
new file mode 100644
index 0000000..209a6cf
--- /dev/null
+++ b/_extensions/drwater/latex-body-quotes/latex-body-quotes.lua
@@ -0,0 +1,25 @@
+-- Replace Chinese corner brackets with guillemets for LaTeX output.
+-- This filter is responsible for body text only; header handling lives in latex-header-quotes.
+-- The filter is run before citeproc to avoid touching bibliography, which is handled separately in cnbib-quotes.
+
+--- Copyright: © 2025–Present Tom Ben
+--- License: MIT License
+
+function Str(el)
+ if not FORMAT:match('latex') then
+ return el
+ end
+
+ local replacements = {
+ ['「'] = '«',
+ ['」'] = '»',
+ ['『'] = '‹',
+ ['』'] = '›'
+ }
+
+ for original, replacement in pairs(replacements) do
+ el.text = el.text:gsub(original, replacement)
+ end
+
+ return el
+end
diff --git a/_extensions/drwater/latex-environment/_extension.yml b/_extensions/drwater/latex-environment/_extension.yml
new file mode 100755
index 0000000..1ff1a96
--- /dev/null
+++ b/_extensions/drwater/latex-environment/_extension.yml
@@ -0,0 +1,9 @@
+title: LaTeX Environment
+author: RStudio, PBC
+version: 1.1.0
+quarto-required: ">=1.2.198"
+contributes:
+ filters:
+ - latex-environment.lua
+ format:
+ pdf: default
diff --git a/_extensions/drwater/latex-environment/latex-environment.lua b/_extensions/drwater/latex-environment/latex-environment.lua
new file mode 100755
index 0000000..5829013
--- /dev/null
+++ b/_extensions/drwater/latex-environment/latex-environment.lua
@@ -0,0 +1,133 @@
+-- environment.lua
+-- Copyright (C) 2020 by RStudio, PBC
+
+local classEnvironments = pandoc.MetaMap({})
+local classCommands = pandoc.MetaMap({})
+
+-- helper that identifies arrays
+local function tisarray(t)
+ local i = 0
+ for _ in pairs(t) do
+ i = i + 1
+ if t[i] == nil then return false end
+ end
+ return true
+end
+
+-- reads the environments
+local function readEnvironments(meta)
+ local env = meta['environments']
+ if env ~= nil then
+ if tisarray(env) then
+ -- read an array of strings
+ for i, v in ipairs(env) do
+ local value = pandoc.utils.stringify(v)
+ classEnvironments[value] = value
+ end
+ else
+ -- read key value pairs
+ for k, v in pairs(env) do
+ local key = pandoc.utils.stringify(k)
+ local value = pandoc.utils.stringify(v)
+ classEnvironments[key] = value
+ end
+ end
+ end
+end
+
+local function readCommands(meta)
+ local env = meta['commands']
+ if env ~= nil then
+ if tisarray(env) then
+ -- read an array of strings
+ for i, v in ipairs(env) do
+ local value = pandoc.utils.stringify(v)
+ classCommands[value] = value
+ end
+ else
+ -- read key value pairs
+ for k, v in pairs(env) do
+ local key = pandoc.utils.stringify(k)
+ local value = pandoc.utils.stringify(v)
+ classCommands[key] = value
+ end
+ end
+ end
+end
+
+local function readEnvsAndCommands(meta)
+ readEnvironments(meta)
+ readCommands(meta)
+end
+
+-- use the environments from metadata to
+-- emit a custom environment for latex
+local function writeEnvironments(divEl)
+ if quarto.doc.is_format("latex") then
+ for k, v in pairs(classEnvironments) do
+ if divEl.attr.classes:includes(k) then
+ -- process this into a latex environment
+ local beginEnv = '\\begin' .. '{' .. v .. '}'
+ local endEnv = '\n\\end{' .. v .. '}'
+
+ -- check if custom options or arguments are present
+ -- and add them to the environment accordingly
+ local opts = divEl.attr.attributes['options']
+ if opts then
+ beginEnv = beginEnv .. '[' .. opts .. ']'
+ end
+
+ local args = divEl.attr.attributes['arguments']
+ if args then
+ beginEnv = beginEnv .. '{' .. args .. '}'
+ end
+
+ -- if the first and last div blocks are paragraphs then we can
+ -- bring the environment begin/end closer to the content
+ if divEl.content[1].t == "Para" and divEl.content[#divEl.content].t == "Para" then
+ table.insert(divEl.content[1].content, 1, pandoc.RawInline('tex', beginEnv .. "\n"))
+ table.insert(divEl.content[#divEl.content].content, pandoc.RawInline('tex', "\n" .. endEnv))
+ else
+ table.insert(divEl.content, 1, pandoc.RawBlock('tex', beginEnv))
+ table.insert(divEl.content, pandoc.RawBlock('tex', endEnv))
+ end
+ return divEl
+ end
+ end
+ end
+end
+
+-- use the environments from metadata to
+-- emit a custom environment for latex
+local function writeCommands(spanEl)
+ if quarto.doc.is_format("latex") then
+ for k, v in pairs(classCommands) do
+ if spanEl.attr.classes:includes(k) then
+
+ -- resolve the begin command
+ local beginCommand = pandoc.RawInline('latex', '\\' .. pandoc.utils.stringify(v) .. '{')
+ local opts = spanEl.attr.attributes['options']
+ if opts then
+ beginCommand = pandoc.RawInline('latex', '\\' .. pandoc.utils.stringify(v) .. '[' .. opts .. ']{')
+ end
+
+ -- the end command
+ local endCommand = pandoc.RawInline('latex', '}')
+
+ -- attach the raw inlines to the span contents
+ local result = spanEl.content
+ table.insert(result, 1, beginCommand)
+ table.insert(result, endCommand)
+
+ return result
+ end
+ end
+ end
+end
+
+-- Run in two passes so we process metadata
+-- and then process the divs
+return {
+ { Meta = readEnvsAndCommands },
+ { Div = writeEnvironments, Span = writeCommands }
+}
diff --git a/_extensions/drwater/latex-header-quotes/_extension.yml b/_extensions/drwater/latex-header-quotes/_extension.yml
new file mode 100644
index 0000000..c15975d
--- /dev/null
+++ b/_extensions/drwater/latex-header-quotes/_extension.yml
@@ -0,0 +1,7 @@
+title: Prepare LaTeX Headers with Correct Quotes
+author: Tom Ben
+version: 1.0.0
+quarto-required: ">=1.5.0"
+contributes:
+ filters:
+ - latex-header-quotes.lua
diff --git a/_extensions/drwater/latex-header-quotes/latex-header-quotes.lua b/_extensions/drwater/latex-header-quotes/latex-header-quotes.lua
new file mode 100644
index 0000000..32953ae
--- /dev/null
+++ b/_extensions/drwater/latex-header-quotes/latex-header-quotes.lua
@@ -0,0 +1,180 @@
+-- Prepare LaTeX headers so quotation marks render correctly in the PDF body
+-- while keeping proper Unicode text in PDF bookmarks.
+
+--- Copyright: © 2025–Present Tom Ben
+--- License: MIT License
+
+local function format_is(name)
+ return FORMAT:match(name) ~= nil
+end
+
+local function to_macro_block(inlines)
+ return pandoc.walk_block(pandoc.Plain(inlines), {
+ Quoted = function(el)
+ local opening, closing
+ if el.quotetype == "SingleQuote" then
+ opening = pandoc.RawInline('latex', "`")
+ closing = pandoc.RawInline('latex', "'")
+ else
+ opening = pandoc.RawInline('latex', "``")
+ closing = pandoc.RawInline('latex', "''")
+ end
+
+ local result = pandoc.Inlines { opening }
+ for _, inline in ipairs(el.content) do
+ result:insert(inline)
+ end
+ result:insert(closing)
+ return result
+ end
+ })
+end
+
+local function to_unicode_block(inlines)
+ return pandoc.walk_block(pandoc.Plain(inlines), {
+ Quoted = function(el)
+ local opening, closing
+ if el.quotetype == "SingleQuote" then
+ opening, closing = '‘', '’'
+ else
+ opening, closing = '“', '”'
+ end
+
+ local result = pandoc.Inlines { pandoc.Str(opening) }
+ for _, inline in ipairs(el.content) do
+ result:insert(inline)
+ end
+ result:insert(pandoc.Str(closing))
+ return result
+ end,
+ Str = function(el)
+ -- Replace guillemets with curly quotes for PDF bookmarks
+ local text = el.text
+ text = text:gsub('«', '“')
+ text = text:gsub('»', '”')
+ text = text:gsub('‹', '‘')
+ text = text:gsub('›', '’')
+ if text ~= el.text then
+ return pandoc.Str(text)
+ end
+ return el
+ end
+ })
+end
+
+function Header(header)
+ if not format_is('latex') then
+ return header
+ end
+
+ local attr = header.attr
+ local macro_block = to_macro_block(header.content)
+ local unicode_block = to_unicode_block(header.content)
+
+ local latex_doc = pandoc.Pandoc({ macro_block }, pandoc.Meta {})
+ local latex_body = pandoc.write(latex_doc, 'latex')
+ :gsub('%s+$', '')
+ :gsub('\n', ' ')
+ local bookmark_text = pandoc.utils.stringify(unicode_block)
+ :gsub('\n', ' ')
+
+ attr.attributes['data-tex-body'] = latex_body
+ attr.attributes['data-bookmark'] = bookmark_text
+
+ return header
+end
+
+local latex_heading_levels = {
+ "section",
+ "subsection",
+ "subsubsection",
+ "paragraph",
+ "subparagraph",
+ "subparagraph"
+}
+
+local function escape_tex_argument(text)
+ local map = {
+ ['\\'] = '\\\\',
+ ['{'] = '\\{',
+ ['}'] = '\\}',
+ ['%'] = '\\%',
+ ['#'] = '\\#',
+ ['&'] = '\\&',
+ ['_'] = '\\_',
+ ['^'] = '\\^{}',
+ ['~'] = '\\~{}'
+ }
+ return text:gsub('[\\%%#&_{}%^~]', map)
+end
+
+local function heading_to_raw(header)
+ local tex_body = header.attr.attributes['data-tex-body']
+ if not tex_body then
+ return nil
+ end
+
+ local bookmark = header.attr.attributes['data-bookmark'] or pandoc.utils.stringify(header)
+ header.attr.attributes['data-tex-body'] = nil
+ header.attr.attributes['data-bookmark'] = nil
+ local short_attr = header.attr.attributes['short-title'] or header.attr.attributes['short']
+ if short_attr and short_attr ~= '' then
+ bookmark = short_attr
+ end
+ bookmark = tostring(bookmark):gsub('\n', ' ')
+ local level_index = math.min(header.level, #latex_heading_levels)
+ local command = latex_heading_levels[level_index]
+
+ local classes = header.attr.classes or {}
+ local unnumbered = false
+ for _, class in ipairs(classes) do
+ if class == 'unnumbered' then
+ unnumbered = true
+ break
+ end
+ end
+
+ local number_attr = header.attr.attributes['number']
+ if number_attr == 'no' or number_attr == 'false' or number_attr == '0' then
+ unnumbered = true
+ end
+
+ local star = unnumbered and '*' or ''
+ local bookmark_escaped = escape_tex_argument(bookmark)
+ local texorpdfstring = '\\texorpdfstring{' .. tex_body .. '}{' .. bookmark_escaped .. '}'
+ local pieces = { '\\' .. command .. star .. '{' .. texorpdfstring .. '}' }
+
+ local identifier = header.attr.identifier
+ if identifier and identifier ~= '' then
+ table.insert(pieces, '\\label{' .. identifier .. '}')
+ end
+
+ if unnumbered then
+ table.insert(pieces, '\\addcontentsline{toc}{' .. command .. '}{' .. bookmark_escaped .. '}')
+ end
+
+ return pandoc.RawBlock('latex', table.concat(pieces, '') .. '\n')
+end
+
+function Pandoc(doc)
+ if not format_is('latex') then
+ return doc
+ end
+
+ local blocks = pandoc.List:new()
+ for _, block in ipairs(doc.blocks) do
+ if block.t == 'Header' then
+ blocks:insert(heading_to_raw(block) or block)
+ else
+ blocks:insert(block)
+ end
+ end
+
+ doc.blocks = blocks
+ return doc
+end
+
+return {
+ { Header = Header },
+ { Pandoc = Pandoc }
+}
diff --git a/_extensions/drwater/links-to-citations/_extension.yml b/_extensions/drwater/links-to-citations/_extension.yml
new file mode 100644
index 0000000..2d7c073
--- /dev/null
+++ b/_extensions/drwater/links-to-citations/_extension.yml
@@ -0,0 +1,7 @@
+title: Links to Citations
+author: Tom Ben
+version: 1.0.0
+quarto-required: ">=1.5.0"
+contributes:
+ filters:
+ - links-to-citations.lua
diff --git a/_extensions/drwater/links-to-citations/links-to-citations.lua b/_extensions/drwater/links-to-citations/links-to-citations.lua
new file mode 100644
index 0000000..d2cd3fb
--- /dev/null
+++ b/_extensions/drwater/links-to-citations/links-to-citations.lua
@@ -0,0 +1,15 @@
+--- Remove local links but keep the link text as normal citations
+--- Reference: https://stackoverflow.com/a/75559075/19418090
+
+--- Copyright: © 2023 Albert Krewinkel, 2024–Present Albert Krewinkel, Tom Ben
+--- License: MIT License
+
+function Link(link)
+ if not link.target:match '^https?://' then
+ local linkstring = pandoc.utils.stringify(link.content)
+ local citationmd = string.format('[%s]', linkstring)
+ return pandoc.utils.blocks_to_inlines(
+ pandoc.read(citationmd, 'markdown').blocks
+ )
+ end
+end
diff --git a/_extensions/drwater/localizecnbib/_extension.yaml b/_extensions/drwater/localizecnbib/_extension.yaml
new file mode 100644
index 0000000..8ab60b2
--- /dev/null
+++ b/_extensions/drwater/localizecnbib/_extension.yaml
@@ -0,0 +1,12 @@
+title: Localize local CN bib
+authors:
+ - name: Tom Ben
+ - name: Ming Su
+ email: mingsu@rcees.ac.cn
+ orcid: 0000-0001-9821-1268
+ url: https://drwater.net/team/ming-su/
+version: 0.3.2
+quarto-required: ">=1.3.0"
+contributes:
+ filters:
+ - localizecnbib.lua
diff --git a/_extensions/drwater/localizecnbib/_extensions/drwater/localizecnbib/_extension.yaml b/_extensions/drwater/localizecnbib/_extensions/drwater/localizecnbib/_extension.yaml
new file mode 100644
index 0000000..8ab60b2
--- /dev/null
+++ b/_extensions/drwater/localizecnbib/_extensions/drwater/localizecnbib/_extension.yaml
@@ -0,0 +1,12 @@
+title: Localize local CN bib
+authors:
+ - name: Tom Ben
+ - name: Ming Su
+ email: mingsu@rcees.ac.cn
+ orcid: 0000-0001-9821-1268
+ url: https://drwater.net/team/ming-su/
+version: 0.3.2
+quarto-required: ">=1.3.0"
+contributes:
+ filters:
+ - localizecnbib.lua
diff --git a/_extensions/drwater/localizecnbib/_extensions/drwater/localizecnbib/localizecnbib.lua b/_extensions/drwater/localizecnbib/_extensions/drwater/localizecnbib/localizecnbib.lua
new file mode 100644
index 0000000..8dbaef8
--- /dev/null
+++ b/_extensions/drwater/localizecnbib/_extensions/drwater/localizecnbib/localizecnbib.lua
@@ -0,0 +1,213 @@
+--- Localize Chinese bibliographies generated by Pandoc Citeproc and CSL
+
+--- Copyright: © 2024–Present Tom Ben
+--- License: MIT License
+
+-- Function to check if a string contains Chinese characters
+function contains_chinese(text)
+ return text and text:find("[\228-\233][\128-\191][\128-\191]") ~= nil
+end
+
+-- Function to extract digits from a string
+function extract_digits(text)
+ return text and text:match("%d+")
+end
+
+-- Helper to find the closest previous Str (skips spaces and empty strings)
+local function find_prev_str(content, start_index)
+ for idx = start_index - 1, 1, -1 do
+ local item = content[idx]
+ if item and item.t == "Str" and item.text ~= "" then
+ return item, idx
+ end
+ end
+ return nil, nil
+end
+
+-- Helper to find the closest next Str (skips spaces and empty strings)
+local function find_next_str(content, start_index)
+ for idx = start_index + 1, #content do
+ local item = content[idx]
+ if item and item.t == "Str" and item.text ~= "" then
+ return item, idx
+ end
+ end
+ return nil, nil
+end
+
+-- Function to check if Emph contains "et al." or "et al.,"
+function is_et_al_emph(emph)
+ if emph.t ~= "Emph" or #emph.content < 3 then
+ return false
+ end
+
+ local has_et = emph.content[1].t == "Str" and emph.content[1].text == "et"
+ local has_space = emph.content[2].t == "Space"
+ local has_al = emph.content[3].t == "Str" and
+ (emph.content[3].text == "al." or emph.content[3].text == "al.,")
+
+ return has_et and has_space and has_al
+end
+
+-- Function to process `et al.` in citations for author-date style
+function process_citation(el)
+ local new_inlines = {}
+ local i = 1
+
+ while i <= #el.content do
+ local current = el.content[i]
+
+ -- Handle italic et al. (wrapped in Emph)
+ if current.t == "Emph" and is_et_al_emph(current) and i > 1 then
+ local prev = el.content[i - 1]
+ if prev.t == "Str" and contains_chinese(prev.text) then
+ -- Replace the Emph element with plain "等" or "等,"
+ if current.content[3].text == "al.," then
+ table.insert(new_inlines, pandoc.Str("等,"))
+ else
+ table.insert(new_inlines, pandoc.Str("等"))
+ end
+ i = i + 1
+ else
+ table.insert(new_inlines, current)
+ i = i + 1
+ end
+ -- Handle non-italic et al.
+ elseif current.t == "Str" and contains_chinese(current.text) and current.text:sub(-2) == "et" and
+ i + 2 <= #el.content and el.content[i + 1].t == "Space" and el.content[i + 2].t == "Str" then
+ local modified_text
+ if el.content[i + 2].text == "al." then
+ modified_text = current.text:sub(1, -3) .. "等"
+ elseif el.content[i + 2].text == "al.," then
+ modified_text = current.text:sub(1, -3) .. "等,"
+ end
+ if modified_text then
+ table.insert(new_inlines, pandoc.Str(modified_text))
+ i = i + 3 -- Skip the next Space and 'al.' or 'al.,'
+ else
+ table.insert(new_inlines, current)
+ i = i + 1
+ end
+ else
+ table.insert(new_inlines, current)
+ i = i + 1
+ end
+ end
+
+ el.content = new_inlines
+ return el
+end
+
+-- Function to process localizations in bibliography entries
+function process_bibliography(elem)
+ local new_inlines = {}
+ local i = 1
+
+ -- Process both italic and non-italic `et al.`
+ while i <= #elem.content do
+ local current = elem.content[i]
+
+ -- Handle italic et al. (wrapped in Emph)
+ if current.t == "Emph" and is_et_al_emph(current) and i > 2 then
+ local prev = elem.content[i - 2]
+ if prev and prev.t == "Str" and contains_chinese(prev.text) then
+ -- Replace with plain "等." or "等,"
+ if current.content[3].text == "al.," then
+ table.insert(new_inlines, pandoc.Str("等,"))
+ else
+ table.insert(new_inlines, pandoc.Str("等."))
+ end
+ i = i + 1
+ else
+ table.insert(new_inlines, current)
+ i = i + 1
+ end
+ -- Handle non-italic et al.
+ elseif i <= #elem.content - 2 and current.t == "Str" and current.text == "et" and
+ elem.content[i + 1].t == "Space" and i > 2 then
+ local prev = elem.content[i - 2]
+ if prev and prev.t == "Str" and contains_chinese(prev.text) then
+ if elem.content[i + 2].t == "Str" and elem.content[i + 2].text == "al.," then
+ table.insert(new_inlines, pandoc.Str("等,"))
+ i = i + 3
+ elseif elem.content[i + 2].t == "Str" and elem.content[i + 2].text == "al." then
+ table.insert(new_inlines, pandoc.Str("等."))
+ i = i + 3
+ else
+ table.insert(new_inlines, current)
+ i = i + 1
+ end
+ else
+ table.insert(new_inlines, current)
+ i = i + 1
+ end
+ else
+ table.insert(new_inlines, current)
+ i = i + 1
+ end
+ end
+
+ elem.content = new_inlines
+
+ -- Process other localizations
+ for i = 1, #elem.content do
+ local v = elem.content[i]
+ local prev_str, prev_idx = find_prev_str(elem.content, i)
+ local next_str, next_idx = find_next_str(elem.content, i)
+
+ if v and v.t == "Str" then
+ local text = v.text:lower()
+
+ if text == "vol." and next_str then
+ if prev_str and contains_chinese(prev_str.text) then
+ local vol_num, identifier = next_str.text:match("([^%[]+)%[(.+)%]")
+ if vol_num and identifier then
+ elem.content[i] = pandoc.Str("第" .. vol_num .. "卷[" .. identifier .. "].")
+ for remove_idx = next_idx, i + 1, -1 do
+ table.remove(elem.content, remove_idx)
+ end
+ end
+ end
+ elseif (text == "tran." or text == "trans.") and i > 2 then
+ if prev_str and contains_chinese(prev_str.text) and prev_str.text:match(",$") then
+ elem.content[i] = pandoc.Str("译.")
+ end
+ elseif (text == "ed." or text == "eds.") and i > 2 and prev_str and prev_str.t == "Str" then
+ if contains_chinese(prev_str.text) and prev_str.text:match(",$") then
+ elem.content[i] = pandoc.Str("编.")
+ else
+ local ed_num = extract_digits(prev_str.text)
+ local prev_prev_str = prev_idx and select(1, find_prev_str(elem.content, prev_idx))
+ if ed_num and prev_prev_str and contains_chinese(prev_prev_str.text) then
+ elem.content[prev_idx] = pandoc.Str(ed_num .. "版.")
+ table.remove(elem.content, i)
+ if elem.content[i - 1] and elem.content[i - 1].t == "Space" then
+ table.remove(elem.content, i - 1)
+ end
+ end
+ end
+ end
+ end
+ end
+ return elem
+end
+
+function process_div(el)
+ if el.classes:includes("csl-entry") then
+ for _, block in ipairs(el.content) do
+ if block.t == "Para" then
+ process_bibliography(block)
+ end
+ end
+ end
+ return el
+end
+
+return {
+ {
+ Cite = process_citation,
+ Link = process_citation,
+ Div = process_div,
+ Span = process_bibliography
+ }
+}
diff --git a/_extensions/drwater/localizecnbib/localizecnbib.lua b/_extensions/drwater/localizecnbib/localizecnbib.lua
new file mode 100644
index 0000000..8dbaef8
--- /dev/null
+++ b/_extensions/drwater/localizecnbib/localizecnbib.lua
@@ -0,0 +1,213 @@
+--- Localize Chinese bibliographies generated by Pandoc Citeproc and CSL
+
+--- Copyright: © 2024–Present Tom Ben
+--- License: MIT License
+
+-- Function to check if a string contains Chinese characters
+function contains_chinese(text)
+ return text and text:find("[\228-\233][\128-\191][\128-\191]") ~= nil
+end
+
+-- Function to extract digits from a string
+function extract_digits(text)
+ return text and text:match("%d+")
+end
+
+-- Helper to find the closest previous Str (skips spaces and empty strings)
+local function find_prev_str(content, start_index)
+ for idx = start_index - 1, 1, -1 do
+ local item = content[idx]
+ if item and item.t == "Str" and item.text ~= "" then
+ return item, idx
+ end
+ end
+ return nil, nil
+end
+
+-- Helper to find the closest next Str (skips spaces and empty strings)
+local function find_next_str(content, start_index)
+ for idx = start_index + 1, #content do
+ local item = content[idx]
+ if item and item.t == "Str" and item.text ~= "" then
+ return item, idx
+ end
+ end
+ return nil, nil
+end
+
+-- Function to check if Emph contains "et al." or "et al.,"
+function is_et_al_emph(emph)
+ if emph.t ~= "Emph" or #emph.content < 3 then
+ return false
+ end
+
+ local has_et = emph.content[1].t == "Str" and emph.content[1].text == "et"
+ local has_space = emph.content[2].t == "Space"
+ local has_al = emph.content[3].t == "Str" and
+ (emph.content[3].text == "al." or emph.content[3].text == "al.,")
+
+ return has_et and has_space and has_al
+end
+
+-- Function to process `et al.` in citations for author-date style
+function process_citation(el)
+ local new_inlines = {}
+ local i = 1
+
+ while i <= #el.content do
+ local current = el.content[i]
+
+ -- Handle italic et al. (wrapped in Emph)
+ if current.t == "Emph" and is_et_al_emph(current) and i > 1 then
+ local prev = el.content[i - 1]
+ if prev.t == "Str" and contains_chinese(prev.text) then
+ -- Replace the Emph element with plain "等" or "等,"
+ if current.content[3].text == "al.," then
+ table.insert(new_inlines, pandoc.Str("等,"))
+ else
+ table.insert(new_inlines, pandoc.Str("等"))
+ end
+ i = i + 1
+ else
+ table.insert(new_inlines, current)
+ i = i + 1
+ end
+ -- Handle non-italic et al.
+ elseif current.t == "Str" and contains_chinese(current.text) and current.text:sub(-2) == "et" and
+ i + 2 <= #el.content and el.content[i + 1].t == "Space" and el.content[i + 2].t == "Str" then
+ local modified_text
+ if el.content[i + 2].text == "al." then
+ modified_text = current.text:sub(1, -3) .. "等"
+ elseif el.content[i + 2].text == "al.," then
+ modified_text = current.text:sub(1, -3) .. "等,"
+ end
+ if modified_text then
+ table.insert(new_inlines, pandoc.Str(modified_text))
+ i = i + 3 -- Skip the next Space and 'al.' or 'al.,'
+ else
+ table.insert(new_inlines, current)
+ i = i + 1
+ end
+ else
+ table.insert(new_inlines, current)
+ i = i + 1
+ end
+ end
+
+ el.content = new_inlines
+ return el
+end
+
+-- Function to process localizations in bibliography entries
+function process_bibliography(elem)
+ local new_inlines = {}
+ local i = 1
+
+ -- Process both italic and non-italic `et al.`
+ while i <= #elem.content do
+ local current = elem.content[i]
+
+ -- Handle italic et al. (wrapped in Emph)
+ if current.t == "Emph" and is_et_al_emph(current) and i > 2 then
+ local prev = elem.content[i - 2]
+ if prev and prev.t == "Str" and contains_chinese(prev.text) then
+ -- Replace with plain "等." or "等,"
+ if current.content[3].text == "al.," then
+ table.insert(new_inlines, pandoc.Str("等,"))
+ else
+ table.insert(new_inlines, pandoc.Str("等."))
+ end
+ i = i + 1
+ else
+ table.insert(new_inlines, current)
+ i = i + 1
+ end
+ -- Handle non-italic et al.
+ elseif i <= #elem.content - 2 and current.t == "Str" and current.text == "et" and
+ elem.content[i + 1].t == "Space" and i > 2 then
+ local prev = elem.content[i - 2]
+ if prev and prev.t == "Str" and contains_chinese(prev.text) then
+ if elem.content[i + 2].t == "Str" and elem.content[i + 2].text == "al.," then
+ table.insert(new_inlines, pandoc.Str("等,"))
+ i = i + 3
+ elseif elem.content[i + 2].t == "Str" and elem.content[i + 2].text == "al." then
+ table.insert(new_inlines, pandoc.Str("等."))
+ i = i + 3
+ else
+ table.insert(new_inlines, current)
+ i = i + 1
+ end
+ else
+ table.insert(new_inlines, current)
+ i = i + 1
+ end
+ else
+ table.insert(new_inlines, current)
+ i = i + 1
+ end
+ end
+
+ elem.content = new_inlines
+
+ -- Process other localizations
+ for i = 1, #elem.content do
+ local v = elem.content[i]
+ local prev_str, prev_idx = find_prev_str(elem.content, i)
+ local next_str, next_idx = find_next_str(elem.content, i)
+
+ if v and v.t == "Str" then
+ local text = v.text:lower()
+
+ if text == "vol." and next_str then
+ if prev_str and contains_chinese(prev_str.text) then
+ local vol_num, identifier = next_str.text:match("([^%[]+)%[(.+)%]")
+ if vol_num and identifier then
+ elem.content[i] = pandoc.Str("第" .. vol_num .. "卷[" .. identifier .. "].")
+ for remove_idx = next_idx, i + 1, -1 do
+ table.remove(elem.content, remove_idx)
+ end
+ end
+ end
+ elseif (text == "tran." or text == "trans.") and i > 2 then
+ if prev_str and contains_chinese(prev_str.text) and prev_str.text:match(",$") then
+ elem.content[i] = pandoc.Str("译.")
+ end
+ elseif (text == "ed." or text == "eds.") and i > 2 and prev_str and prev_str.t == "Str" then
+ if contains_chinese(prev_str.text) and prev_str.text:match(",$") then
+ elem.content[i] = pandoc.Str("编.")
+ else
+ local ed_num = extract_digits(prev_str.text)
+ local prev_prev_str = prev_idx and select(1, find_prev_str(elem.content, prev_idx))
+ if ed_num and prev_prev_str and contains_chinese(prev_prev_str.text) then
+ elem.content[prev_idx] = pandoc.Str(ed_num .. "版.")
+ table.remove(elem.content, i)
+ if elem.content[i - 1] and elem.content[i - 1].t == "Space" then
+ table.remove(elem.content, i - 1)
+ end
+ end
+ end
+ end
+ end
+ end
+ return elem
+end
+
+function process_div(el)
+ if el.classes:includes("csl-entry") then
+ for _, block in ipairs(el.content) do
+ if block.t == "Para" then
+ process_bibliography(block)
+ end
+ end
+ end
+ return el
+end
+
+return {
+ {
+ Cite = process_citation,
+ Link = process_citation,
+ Div = process_div,
+ Span = process_bibliography
+ }
+}
diff --git a/_extensions/drwater/localizecnbib/template.qmd b/_extensions/drwater/localizecnbib/template.qmd
new file mode 100644
index 0000000..4b3bf4a
--- /dev/null
+++ b/_extensions/drwater/localizecnbib/template.qmd
@@ -0,0 +1,116 @@
+---
+title: "MANUSCRIPT TITLE"
+subtitle: "Supplementary Information"
+submitjournal: "JOURNAL"
+submitid:
+lang: en
+date: ""
+# bibliography: [BB/Ref.bib, BB/localRef.bib]
+affilstyle: alphabeta # number
+author:
+ - name: Xxxxx Yyyy
+ affiliations:
+ - ref: kleac
+ # email: 13586740928@163.com
+ attributes:
+ corresponding: false
+ equal-contributor: true
+ role:
+ - data-curation: lead
+ - methodology: lead
+ - formalanalysis: lead
+ - writingoriginal: equal
+ - writingediting: eqaul
+ - visualisation: supporting
+ - name: Ming Su
+ email: mingsu@rcees.ac.cn
+ url: https://drwater.net/team/ming-su/
+ role:
+ - conceptualization: lead
+ - methodology: supporting
+ - formalanalysis: lead
+ - writingoriginal: equal
+ - writingediting: equal
+ - visualisation: lead
+ - projectadmin: lead
+ - supervision
+ affiliations:
+ - ref: kleac
+ - ref: ucas
+ attributes:
+ corresponding: true
+ equal-contributor: true
+ - name: Min Yang
+ email: yangmin@rcees.ac.cn
+ affiliations:
+ - ref: kleac
+ - ref: ucas
+ attributes:
+ corresponding: true
+affiliations:
+ - id: kleac
+ name: State Key Laboratory of Environmental Aquatic Chemistry, Research Center for Eco-Environmental Sciences, Chinese Academy of Sciences
+ # address: No. 18 Shuangqing Road
+ city: Beijing
+ postal-code: 100085
+ country: China
+ url: https://www.skleac.ac.cn
+ - id: ucas
+ name: University of Chinese Academy of Sciences
+ # address: No. 19A Yuquan Road
+ city: Beijing
+ postal-code: 100049
+ country: China
+ url: https://www.ucas.ac.cn
+prefer-html: true
+format:
+ # elsevier-html:
+ # toc: true
+ # css: _extensions/drwater/dwms/inst/css/style.css
+ # docx:
+ # reference-doc: _extensions/drwater/dwms/inst/word/MS.docx
+ pdf:
+ fontsize: 12pt
+ keep-md: false
+ keep-tex: false
+filters:
+ # - latex-environment
+ # - authoraffil
+ - localizecnbib
+---
+
+
+```{r}
+#| include: false
+#| cache: false
+
+lang <- "en"
+isRendering <- isTRUE(getOption("knitr.in.progress"))
+require(tidyverse)
+require(drwateR)
+require(patchwork)
+rmdify::rmd_init()
+dwfun::init()
+```
+
+
+{{< pagebreak >}}
+
+# Abstract {-}
+
+
+{{< pagebreak >}}
+
+
+{{< pagebreak >}}
+
+
+
+# References {-}
+
+::: {#refs}
+:::
+
+{{< pagebreak >}}
+
+
diff --git a/_extensions/drwater/no-first-paragraph/_extension.yml b/_extensions/drwater/no-first-paragraph/_extension.yml
new file mode 100644
index 0000000..3217368
--- /dev/null
+++ b/_extensions/drwater/no-first-paragraph/_extension.yml
@@ -0,0 +1,7 @@
+title: Remove First Paragraph Style
+author: Tom Ben
+version: 1.0.0
+quarto-required: ">=1.5.0"
+contributes:
+ filters:
+ - no-first-paragraph.lua
diff --git a/_extensions/drwater/no-first-paragraph/no-first-paragraph.lua b/_extensions/drwater/no-first-paragraph/no-first-paragraph.lua
new file mode 100644
index 0000000..20e12e0
--- /dev/null
+++ b/_extensions/drwater/no-first-paragraph/no-first-paragraph.lua
@@ -0,0 +1,16 @@
+--- Convert all paragraphs to use "Body Text" style instead of "First Paragraph" style in DOCX output
+--- This is particularly useful for Chinese documents where the "First Paragraph" style is not needed
+
+--- Copyright: © 2025–Present Tom Ben
+--- License: MIT License
+
+function Para(para)
+ -- If not DOCX output, return element unchanged
+ if FORMAT ~= 'docx' then
+ return para
+ end
+
+ -- Wrap paragraph in a Div with custom-style attribute set to "Body Text"
+ -- This ensures all paragraphs use the "Body Text" style instead of "First Paragraph"
+ return pandoc.Div(para, pandoc.Attr("", {}, { ["custom-style"] = "Body Text" }))
+end
diff --git a/_extensions/drwater/pointer/_extension.yml b/_extensions/drwater/pointer/_extension.yml
new file mode 100644
index 0000000..13b9df4
--- /dev/null
+++ b/_extensions/drwater/pointer/_extension.yml
@@ -0,0 +1,15 @@
+title: Pointer
+author: Posit Software, PBC
+version: 0.1.0
+quarto-required: ">=1.2.198"
+contributes:
+ revealjs-plugins:
+ - name: RevealPointer
+ script: pointer.js
+ stylesheet: pointer.css
+ config:
+ pointer:
+ key: "q"
+ color: "red"
+ pointerSize: 16
+ alwaysVisible: false
diff --git a/_extensions/drwater/pointer/pointer.css b/_extensions/drwater/pointer/pointer.css
new file mode 100644
index 0000000..bd55511
--- /dev/null
+++ b/_extensions/drwater/pointer/pointer.css
@@ -0,0 +1 @@
+.cursor-dot,.cursor-dot-outline{pointer-events:none;position:absolute;top:0;left:0;border-radius:50%;opacity:0;transform:translate(-50%,-50%);transition:opacity 0.3s ease-in-out,transform 0.3s ease-in-out;}.cursor-dot{width:12px;height:12px;background-color:red;z-index:99;}.no-cursor{cursor:none;}.no-cursor a,.no-cursor div,.no-cursor span{cursor:none;}
diff --git a/_extensions/drwater/pointer/pointer.js b/_extensions/drwater/pointer/pointer.js
new file mode 100644
index 0000000..381a857
--- /dev/null
+++ b/_extensions/drwater/pointer/pointer.js
@@ -0,0 +1 @@
+var RevealPointer=function(){"use strict";var e={backspace:8,tab:9,enter:13,shift:16,ctrl:17,alt:18,pausebreak:19,capslock:20,esc:27,space:32,pageup:33,pagedown:34,end:35,home:36,leftarrow:37,uparrow:38,rightarrow:39,downarrow:40,insert:45,delete:46,0:48,1:49,2:50,3:51,4:52,5:53,6:54,7:55,8:56,9:57,a:65,b:66,c:67,d:68,e:69,f:70,g:71,h:72,i:73,j:74,k:75,l:76,m:77,n:78,o:79,p:80,q:81,r:82,s:83,t:84,u:85,v:86,w:87,x:88,y:89,z:90,leftwindowkey:91,rightwindowkey:92,selectkey:93,numpad0:96,numpad1:97,numpad2:98,numpad3:99,numpad4:100,numpad5:101,numpad6:102,numpad7:103,numpad8:104,numpad9:105,multiply:106,add:107,subtract:109,decimalpoint:110,divide:111,f1:112,f2:113,f3:114,f4:115,f5:116,f6:117,f7:118,f8:119,f9:120,f10:121,f11:122,f12:123,numlock:144,scrolllock:145,semicolon:186,equalsign:187,comma:188,dash:189,period:190,forwardslash:191,graveaccent:192,openbracket:219,backslash:220,closebracket:221,singlequote:222};return function(){var t={},o=!1,a=null,n={x:0,y:0,isVisible:!1},i={x:0,y:0,scale:1};function l(o){var a;null==(t=o.pointer||{}).key?t.key="q":t.key=t.key.toLowerCase(),null!=t.pointerSize&&"number"==typeof t.pointerSize||(t.pointerSize=12),null!=t.tailLength&&"number"==typeof t.tailLength||(t.tailLength=10),null!=t.color&&"string"==typeof t.color||(t.color="red"),null!=t.alwaysVisible&&"boolean"==typeof t.alwaysVisible||(t.alwaysVisible=!1),t.keyCode=(a=t.key,e[a])}function s(){a.style.top="".concat((n.y-i.y)/i.scale,"px"),a.style.left="".concat((n.x-i.x)/i.scale,"px"),n.isVisible?a.style.opacity="0.8":a.style.opacity="0",1!==i.scale?(a.style.width="".concat(t.pointerSize/i.scale,"px"),a.style.height="".concat(t.pointerSize/i.scale,"px")):(a.style.width="".concat(t.pointerSize,"px"),a.style.height="".concat(t.pointerSize,"px"))}function c(e){n.x=e.pageX,n.y=e.pageY;var t=document.body.style.transform;""!==t?(i.x=Number.parseInt(/translate\((.*)px,/gm.exec(t)[1]),i.y=Number.parseInt(/px,\s(.*)px\)/gm.exec(t)[1]),i.scale=Number.parseFloat(/scale\((.)\)/gm.exec(t)[1])):(i.x=0,i.y=0,i.scale=1),requestAnimationFrame(s)}function r(){(o=!o)?(document.addEventListener("mousemove",c),document.body.classList.add("no-cursor"),n.isVisible=!0):(document.removeEventListener("mousemove",c),document.body.classList.remove("no-cursor"),n.isVisible=!1,requestAnimationFrame(s))}return{id:"pointer",init:function(e){var o;l(e.getConfig()),t.alwaysVisible?r():e.addKeyBinding({keyCode:t.keyCode,key:t.key},(function(){r()})),(o=document.createElement("div")).className="cursor-dot",o.style.width="".concat(t.pointerSize,"px"),o.style.height="".concat(t.pointerSize,"px"),o.style.backgroundColor=t.color,t.alwaysVisible&&(o.style.opacity="0.8"),document.body.appendChild(o),a=o}}}}();
diff --git a/_extensions/drwater/qrcode/_extension.yml b/_extensions/drwater/qrcode/_extension.yml
new file mode 100644
index 0000000..33157d8
--- /dev/null
+++ b/_extensions/drwater/qrcode/_extension.yml
@@ -0,0 +1,6 @@
+title: Qrcode
+author: Jannik Buhr
+version: 0.0.1
+contributes:
+ shortcodes:
+ - qrcode.lua
diff --git a/_extensions/drwater/qrcode/assets/qrcode.js b/_extensions/drwater/qrcode/assets/qrcode.js
new file mode 100644
index 0000000..5507c15
--- /dev/null
+++ b/_extensions/drwater/qrcode/assets/qrcode.js
@@ -0,0 +1,614 @@
+/**
+ * @fileoverview
+ * - Using the 'QRCode for Javascript library'
+ * - Fixed dataset of 'QRCode for Javascript library' for support full-spec.
+ * - this library has no dependencies.
+ *
+ * @author davidshimjs
+ * @see http://www.d-project.com/
+ * @see http://jeromeetienne.github.com/jquery-qrcode/
+ */
+var QRCode;
+
+(function () {
+ //---------------------------------------------------------------------
+ // QRCode for JavaScript
+ //
+ // Copyright (c) 2009 Kazuhiko Arase
+ //
+ // URL: http://www.d-project.com/
+ //
+ // Licensed under the MIT license:
+ // http://www.opensource.org/licenses/mit-license.php
+ //
+ // The word "QR Code" is registered trademark of
+ // DENSO WAVE INCORPORATED
+ // http://www.denso-wave.com/qrcode/faqpatent-e.html
+ //
+ //---------------------------------------------------------------------
+ function QR8bitByte(data) {
+ this.mode = QRMode.MODE_8BIT_BYTE;
+ this.data = data;
+ this.parsedData = [];
+
+ // Added to support UTF-8 Characters
+ for (var i = 0, l = this.data.length; i < l; i++) {
+ var byteArray = [];
+ var code = this.data.charCodeAt(i);
+
+ if (code > 0x10000) {
+ byteArray[0] = 0xF0 | ((code & 0x1C0000) >>> 18);
+ byteArray[1] = 0x80 | ((code & 0x3F000) >>> 12);
+ byteArray[2] = 0x80 | ((code & 0xFC0) >>> 6);
+ byteArray[3] = 0x80 | (code & 0x3F);
+ } else if (code > 0x800) {
+ byteArray[0] = 0xE0 | ((code & 0xF000) >>> 12);
+ byteArray[1] = 0x80 | ((code & 0xFC0) >>> 6);
+ byteArray[2] = 0x80 | (code & 0x3F);
+ } else if (code > 0x80) {
+ byteArray[0] = 0xC0 | ((code & 0x7C0) >>> 6);
+ byteArray[1] = 0x80 | (code & 0x3F);
+ } else {
+ byteArray[0] = code;
+ }
+
+ this.parsedData.push(byteArray);
+ }
+
+ this.parsedData = Array.prototype.concat.apply([], this.parsedData);
+
+ if (this.parsedData.length != this.data.length) {
+ this.parsedData.unshift(191);
+ this.parsedData.unshift(187);
+ this.parsedData.unshift(239);
+ }
+ }
+
+ QR8bitByte.prototype = {
+ getLength: function (buffer) {
+ return this.parsedData.length;
+ },
+ write: function (buffer) {
+ for (var i = 0, l = this.parsedData.length; i < l; i++) {
+ buffer.put(this.parsedData[i], 8);
+ }
+ }
+ };
+
+ function QRCodeModel(typeNumber, errorCorrectLevel) {
+ this.typeNumber = typeNumber;
+ this.errorCorrectLevel = errorCorrectLevel;
+ this.modules = null;
+ this.moduleCount = 0;
+ this.dataCache = null;
+ this.dataList = [];
+ }
+
+ QRCodeModel.prototype={addData:function(data){var newData=new QR8bitByte(data);this.dataList.push(newData);this.dataCache=null;},isDark:function(row,col){if(row<0||this.moduleCount<=row||col<0||this.moduleCount<=col){throw new Error(row+","+col);}
+ return this.modules[row][col];},getModuleCount:function(){return this.moduleCount;},make:function(){this.makeImpl(false,this.getBestMaskPattern());},makeImpl:function(test,maskPattern){this.moduleCount=this.typeNumber*4+17;this.modules=new Array(this.moduleCount);for(var row=0;row| '); + } + + aHTML.push(' |