3847017599

Build Type

push

github

Committed by GitHub

Commit Message

Merge 95a1ed2ab into 13df3c1f5

Run Details

56 of 56 new or added lines in 7 files covered. (100.0%)

9886 of 15388 relevant lines covered (64.24%)

6234.56 hits per line

Source File
Press 'n' to go to next uncovered line, 'b' for previous

0.0

/packages/pullquote/init.lua

local base = require("packages.base")

local package = pl.class(base)
package._name = "pullquote"

local typesetMark = function (open, setback, scale, color, mark)
  SILE.settings:temporarily(function ()
    SILE.call("pullquote:mark-font")
    SILE.call("raise", { height = -(open and (scale+1) or scale) .. "ex" }, function ()
      SILE.settings:set("font.size", SILE.settings:get("font.size")*scale)
      SILE.call("color", { color = color }, function ()
        if open then
          SILE.typesetter:pushGlue({ width = -setback })
          SILE.call("rebox", { width = setback, height = 0 }, { mark })
        else
          SILE.typesetter:pushGlue(SILE.nodefactory.hfillglue())
          local hbox = SILE.call("hbox", {}, { mark })
          table.remove(SILE.typesetter.state.nodes) -- steal it back
          SILE.typesetter:pushGlue({ width = setback - hbox.width })
          SILE.call("rebox", { width = hbox.width, height = 0 }, { mark })
          SILE.typesetter:pushGlue({ width = -setback })
        end
      end)
    end)
  end)
end

function package:_init ()
  base._init(self)
  self:loadPackage("color")
  self:loadPackage("raiselower")
  self:loadPackage("rebox")
end

function package:registerCommands ()

  self:registerCommand("pullquote:font", function (_, _)
  end, "The font chosen for the pullquote environment")

  self:registerCommand("pullquote:author-font", function (_, _)
    SILE.settings:set("font.style", "italic")
  end, "The font style with which to typeset the author attribution.")

  self:registerCommand("pullquote:mark-font", function (_, _)
    SILE.settings:set("font.family", "Libertinus Serif")
  end, "The font from which to pull the quotation marks.")

  self:registerCommand("pullquote", function (options, content)
    local author = options.author or nil
    local scale = options.scale or 3
    local color = options.color or "#999999"
    SILE.settings:temporarily(function ()
      SILE.call("pullquote:font")
      local setback = SU.cast("length", options.setback or "2em"):absolute()
      SILE.settings:set("document.rskip", SILE.nodefactory.glue(setback))
      SILE.settings:set("document.lskip", SILE.nodefactory.glue(setback))
      SILE.call("noindent")
      typesetMark(true, setback, scale, color, "“")
      SILE.call("indent")
      SILE.process(content)
      typesetMark(false, setback, scale, color, "”")
      if author then
        SILE.settings:temporarily(function ()
          SILE.typesetter:leaveHmode()
          SILE.call("pullquote:author-font")
          SILE.call("raggedleft", {}, function ()
            SILE.typesetter:typeset("— " .. author)
          end)
        end)
      else
        SILE.call("par")
      end
    end)
  end, "Typesets its contents in a formatted blockquote with decorative quotation\
        marks in the margins.")

end

package.documentation = [[
\begin{document}
The \autodoc:environment{pullquote} environment formats longer quotations in an indented blockquote block with decorative quotation marks in the margins.

Here is some text set in a pullquote environment:

\begin[author=Anatole France]{pullquote}%
An education is not how much you have committed to memory, or even how much you know.
It is being able to differentiate between what you do know and what you do not know.
\end{pullquote}

Optional values are available for:

\begin{itemize}
\item{\autodoc:parameter{author} to add an attribution line,}
\item{\autodoc:parameter{setback} to set the bilateral margins around the block,}
\item{\autodoc:parameter{color} to change the color of the quote marks,}
\item{\autodoc:parameter{scale} to change the relative size of the quote marks.}
\end{itemize}

If you want to specify what font the pullquote environment should use, you can redefine the \autodoc:command{\pullquote:font} command.
By default it will be the same as the surrounding document.
The font style used for the attribution line can likewise be set redefining \autodoc:command{\pullquote:author-font} and the font used for the quote marks can be set redefining \autodoc:command{\pullquote:mark-font}.
\end{document}
]]

return package

1	local base = require("packages.base")	×
2
3	local package = pl.class(base)	×
4	package._name = "pullquote"	×
5
6	local typesetMark = function (open, setback, scale, color, mark)
7	SILE.settings:temporarily(function ()	×
8	SILE.call("pullquote:mark-font")	×
9	SILE.call("raise", { height = -(open and (scale+1) or scale) .. "ex" }, function ()	×
10	SILE.settings:set("font.size", SILE.settings:get("font.size")*scale)	×
11	SILE.call("color", { color = color }, function ()	×
12	if open then	×
13	SILE.typesetter:pushGlue({ width = -setback })	×
14	SILE.call("rebox", { width = setback, height = 0 }, { mark })	×
15	else
16	SILE.typesetter:pushGlue(SILE.nodefactory.hfillglue())	×
17	local hbox = SILE.call("hbox", {}, { mark })	×
18	table.remove(SILE.typesetter.state.nodes) -- steal it back	×
19	SILE.typesetter:pushGlue({ width = setback - hbox.width })	×
20	SILE.call("rebox", { width = hbox.width, height = 0 }, { mark })	×
21	SILE.typesetter:pushGlue({ width = -setback })	×
22	end
23	end)
24	end)
25	end)
26	end
27
28	function package:_init ()	×
29	base._init(self)	×
30	self:loadPackage("color")	×
31	self:loadPackage("raiselower")	×
32	self:loadPackage("rebox")	×
33	end
34
35	function package:registerCommands ()	×
36
37	self:registerCommand("pullquote:font", function (_, _)	×
38	end, "The font chosen for the pullquote environment")	×
39
40	self:registerCommand("pullquote:author-font", function (_, _)	×
41	SILE.settings:set("font.style", "italic")	×
42	end, "The font style with which to typeset the author attribution.")	×
43
44	self:registerCommand("pullquote:mark-font", function (_, _)	×
45	SILE.settings:set("font.family", "Libertinus Serif")	×
46	end, "The font from which to pull the quotation marks.")	×
47
48	self:registerCommand("pullquote", function (options, content)	×
49	local author = options.author or nil	×
50	local scale = options.scale or 3	×
51	local color = options.color or "#999999"	×
52	SILE.settings:temporarily(function ()	×
53	SILE.call("pullquote:font")	×
54	local setback = SU.cast("length", options.setback or "2em"):absolute()	×
55	SILE.settings:set("document.rskip", SILE.nodefactory.glue(setback))	×
56	SILE.settings:set("document.lskip", SILE.nodefactory.glue(setback))	×
57	SILE.call("noindent")	×
58	typesetMark(true, setback, scale, color, "“")	×
59	SILE.call("indent")	×
60	SILE.process(content)	×
61	typesetMark(false, setback, scale, color, "”")	×
62	if author then	×
63	SILE.settings:temporarily(function ()	×
64	SILE.typesetter:leaveHmode()	×
65	SILE.call("pullquote:author-font")	×
66	SILE.call("raggedleft", {}, function ()	×
67	SILE.typesetter:typeset("— " .. author)	×
68	end)
69	end)
70	else
71	SILE.call("par")	×
72	end
73	end)
74	end, "Typesets its contents in a formatted blockquote with decorative quotation\	×
75	marks in the margins.")	×
76
77	end
78
79	package.documentation = [[
80	\begin{document}
81	The \autodoc:environment{pullquote} environment formats longer quotations in an indented blockquote block with decorative quotation marks in the margins.
82
83	Here is some text set in a pullquote environment:
84
85	\begin[author=Anatole France]{pullquote}%
86	An education is not how much you have committed to memory, or even how much you know.
87	It is being able to differentiate between what you do know and what you do not know.
88	\end{pullquote}
89
90	Optional values are available for:
91
92	\begin{itemize}
93	\item{\autodoc:parameter{author} to add an attribution line,}
94	\item{\autodoc:parameter{setback} to set the bilateral margins around the block,}
95	\item{\autodoc:parameter{color} to change the color of the quote marks,}
96	\item{\autodoc:parameter{scale} to change the relative size of the quote marks.}
97	\end{itemize}
98
99	If you want to specify what font the pullquote environment should use, you can redefine the \autodoc:command{\pullquote:font} command.
100	By default it will be the same as the surrounding document.
101	The font style used for the attribution line can likewise be set redefining \autodoc:command{\pullquote:author-font} and the font used for the quote marks can be set redefining \autodoc:command{\pullquote:mark-font}.
102	\end{document}
103	]]	×
104
105	return package	×

sile-typesetter / sile / 3847017599

Source File Press 'n' to go to next uncovered line, 'b' for previous

Source File
Press 'n' to go to next uncovered line, 'b' for previous