summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/latex/impnattypo
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2013-07-02 23:20:17 +0000
committerKarl Berry <karl@freefriends.org>2013-07-02 23:20:17 +0000
commitafdc51a6036ffaa2e13db5b6af8c4d8a76e265f8 (patch)
tree7cc4a4ad6b1c73a26cd1c510b3ba762e02505079 /Master/texmf-dist/source/latex/impnattypo
parent2d87cc25c8cb4cd9a8862f8eb6dde9783efa5dd4 (diff)
impnattypo
git-svn-id: svn://tug.org/texlive/trunk@31076 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/source/latex/impnattypo')
-rw-r--r--Master/texmf-dist/source/latex/impnattypo/impnattypo.dtx73
-rw-r--r--Master/texmf-dist/source/latex/impnattypo/impnattypo.ins4
2 files changed, 44 insertions, 33 deletions
diff --git a/Master/texmf-dist/source/latex/impnattypo/impnattypo.dtx b/Master/texmf-dist/source/latex/impnattypo/impnattypo.dtx
index 00a6d410e0e..2a65bfb9639 100644
--- a/Master/texmf-dist/source/latex/impnattypo/impnattypo.dtx
+++ b/Master/texmf-dist/source/latex/impnattypo/impnattypo.dtx
@@ -1,6 +1,6 @@
% \iffalse meta-comment
%
-% Copyright (C) 2011 by Raphaël Pinson <raphink@gmail.com>
+% Copyright (C) 2011-2012 by Raphaël Pinson <raphink@gmail.com>
% ---------------------------------------------------------------------------
% This work may be distributed and/or modified under the
% conditions of the LaTeX Project Public License, either version 1.3
@@ -26,7 +26,7 @@
%<package>\NeedsTeXFormat{LaTeX2e}[1999/12/01]
%<package>\ProvidesPackage{impnattypo}
%<*package>
- [2011/09/20 1.0 Typographic utilities inspired by the French Imprimerie Nationale]
+ [2013/06/17 1.1 Typographic utilities inspired by the French Imprimerie Nationale]
%</package>
%
%<*driver>
@@ -130,9 +130,9 @@
% le \emph{Lexique des règles typographiques en usage à l'Imprimerie Nationale}
% est une référence incontournable.
%
-% Si la majorité des recommendations de cet ouvrage est implémentée dans
+% Si la majorité des recommandations de cet ouvrage est implémentée dans
% le module \textsf{frenchb} pour \textsf{babel},
-% certaines autres recommendations méritent encore d'être automatisées pour être
+% certaines autres recommandations méritent encore d'être automatisées pour être
% implémentées en \LaTeX.
%
% C'est le but original de ce paquet, initié par une question sur le site
@@ -140,7 +140,7 @@
% et qui implémente plusieurs règles édictées dans ce lexique
% afin de les rendre plus facilement applicables aux textes édités avec \LaTeX.
%
-% Au fur et à mesure que ce paquet a grandi, des fonctionalités sont venues
+% Au fur et à mesure que ce paquet a grandi, des fonctionnalités sont venues
% s'ajouter, dont certaines ne sont pas directement liées au lexique,
% mais améliorent la qualité typographique des documents.
% \fi
@@ -192,7 +192,7 @@
% les césures en fin de page, ainsi que les césures sur deux lignes
% consécutives.
%
-% Pour activer cette fonctionalité, utilisez l'option \texttt{hyphenation}:
+% Pour activer cette fonctionnalité, utilisez l'option \texttt{hyphenation}:
% \fi
%
% \begin{verbatim}
@@ -223,14 +223,14 @@
% \DescribeMacro{lastparline}
% \ifenglish
% Moreover, it is indicated in the ``Hyphenation'' section
-% that ``the last line of a paragraph must contain a word of
+% that ``the last line of a paragraph must contain a word or
% the end of a word of a width at least equal to the double
-% of the identation of the next paragraph.'' Since implementing
+% of the indent of the next paragraph.'' Since implementing
% this solution exactly is quite tricky, the \texttt{lastparline}
% option ensures that the last line of a paragraph is at least
% as long as the double value of |\parindent|.\footnote{\url{http://tex.stackexchange.com/questions/28357/ensure-minimal-length-of-last-line}}
%
-% When \LuaTeX is used, the solution provided by Patrick Gundlach\footnote{\url{http://tex.stackexchange.com/questions/28357/ensure-minimal-length-of-last-line/28361\#28361}}
+% When \LuaTeX{} is used, the solution provided by Patrick Gundlach\footnote{\url{http://tex.stackexchange.com/questions/28357/ensure-minimal-length-of-last-line/28361\#28361}}
% is used. With other rendering engines, it is the native solution provided by
% Enrico Gregorio\footnote{\url{http://tex.stackexchange.com/questions/28357/ensure-minimal-length-of-last-line/28358\#28358}}
% that serves as an implementation:
@@ -243,7 +243,7 @@
% ligne d'un alinéa est au moins aussi longue que le double
% de la valeur de |\parindent|.\footnote{\url{http://tex.stackexchange.com/questions/28357/ensure-minimal-length-of-last-line}}
%
-% Lorsque \LuaTeX est utilisé, la solution de Patrick Gundlach\footnote{\url{http://tex.stackexchange.com/questions/28357/ensure-minimal-length-of-last-line/28361\#28361}}
+% Lorsque \LuaTeX{} est utilisé, la solution de Patrick Gundlach\footnote{\url{http://tex.stackexchange.com/questions/28357/ensure-minimal-length-of-last-line/28361\#28361}}
% est utilisée. Avec les autres moteurs de rendu, c'est la solution native de
% Enrico Gregorio\footnote{\url{http://tex.stackexchange.com/questions/28357/ensure-minimal-length-of-last-line/28358\#28358}}
% qui fait office d'implémentation:
@@ -254,12 +254,12 @@
% \end{verbatim}
%
% \ifenglish
-% When the \texttt{draft} option is activated and \LuaTeX is used,
+% When the \texttt{draft} option is activated and \LuaTeX{} is used,
% the inserted ties are colored in
% {\color{\intlastparlinecolor}\intlastparlinecolor}.
% The color can be tuned with the \texttt{lastparlinecolor} option.
% \else
-% Lorsque l'option \texttt{draft} est activée et que \LuaTeX est utilisé,
+% Lorsque l'option \texttt{draft} est activée et que \LuaTeX{} est utilisé,
% les espaces insécables insérés sont colorés en
% {\color{\intlastparlinecolor}\intlastparlinecolor}.
% La couleur utilisée peut être ajustée par l'option \texttt{lastparlinecolor}.
@@ -469,7 +469,7 @@
% \ifenglish
% \subsection{Widows and Orphans}
%
-% It is recommended to not leave widows and orphans in a document.
+% It is recommended not to leave widows and orphans in a document.
% For this reason, we recommend you use the |nowidow| package:
% \else
% \subsection{Lignes orphelines et veuves}
@@ -498,7 +498,7 @@
% as well as the information added by the \texttt{homeoarchy}
% and \texttt{rivers} options. In draft mode,
% places where ties were inserted are indicated
-% by colored squared.
+% by colored squares.
%
% To activate the draft mode, use the \texttt{draft} option,
% for example:
@@ -897,7 +897,7 @@
\ifluatex
\RequirePackage{luatexbase,luacode}
\begin{luacode}
-river_analyze_line = function(line,dim1,dim2)
+river_analyze_line = function(line,dim1,dim2,precision)
local head = line.head
while head do
@@ -905,9 +905,9 @@ river_analyze_line = function(line,dim1,dim2)
local w1,h1,d1 = node.dimensions(line.glue_set,line.glue_sign,line.glue_order,line.head,head.prev)
local w2,h2,d2 = node.dimensions(line.glue_set,line.glue_sign,line.glue_order,line.head,head)
--print("dim1:"..dim1.."; dim2:"..dim2.."; w1:"..w1.."; w2:"..w2)
- if w1 > dim2 then -- out of range
+ if w1 > dim2 + precision then -- out of range
return false,head
- elseif w1 < dim2 and w2 > dim1 then -- found
+ elseif w1 < (dim2 + precision) and w2 > (dim1 - precision) then -- found
return true,head
end
end
@@ -940,23 +940,34 @@ rivers = function (head)
if cur_node.id == 37 then -- glyph
char_count = char_count + 1
elseif cur_node.id == 10 and char_count > 0 and cur_node.next then -- glue node
+ -- prev_line
local w1,h1,d1 = node.dimensions(head.glue_set,head.glue_sign,head.glue_order,head.head,cur_node.prev)
local w2,h2,d2 = node.dimensions(head.glue_set,head.glue_sign,head.glue_order,head.head,cur_node)
- found_pp,head_pp = river_analyze_line(prev_prev_line,w1,w2)
- found_p,head_p = river_analyze_line(prev_line,w1,w2)
+ -- if we allow up to 45° diagonal rivers, then there can be up to + or - line height between spaces
+ local w_p,h_p,d_p = node.dimensions(prev_line.head,cur_line.head) -- calculate line height
+ found_p,head_p = river_analyze_line(prev_line,w1,w2,h_p)
- if found_pp and found_p then
- local n_pp = node.new("whatsit","pdf_literal")
- n_pp.data = "q \usecolor{\intriverscolor} 0 0 m 0 5 l 5 5 l 5 0 l b Q"
- node.insert_after(prev_prev_line,head_pp.prev,n_pp)
-
- local n_p = node.new("whatsit","pdf_literal")
- n_p.data = "q \usecolor{\intriverscolor} 0 0 m 0 5 l 5 5 l 5 0 l b Q"
- node.insert_after(prev_line,head_p.prev,n_p)
-
- local n_c = node.new("whatsit","pdf_literal")
- n_c.data = "q \usecolor{\intriverscolor} 0 0 m 0 5 l 5 5 l 5 0 l b Q"
- node.insert_after(cur_line,cur_node.prev,n_c)
+ if found_p then
+ -- prev_prev_line
+ local w1,h1,d1 = node.dimensions(prev_line.glue_set,prev_line.glue_sign,prev_line.glue_order,prev_line.head,head_p.prev)
+ local w2,h2,d2 = node.dimensions(prev_line.glue_set,prev_line.glue_sign,prev_line.glue_order,prev_line.head,head_p)
+ -- if we allow up to 45° diagonal rivers, then there can be up to + or - line height between spaces
+ local w_p,h_p,d_p = node.dimensions(prev_prev_line.head,prev_line.head) -- calculate line height
+ found_pp,head_pp = river_analyze_line(prev_prev_line,w1,w2,h_p)
+
+ if found_pp then
+ local n_pp = node.new("whatsit","pdf_literal")
+ n_pp.data = "q \usecolor{\intriverscolor} 0 0 m 0 5 l 5 5 l 5 0 l b Q"
+ node.insert_after(prev_prev_line,head_pp.prev,n_pp)
+
+ local n_p = node.new("whatsit","pdf_literal")
+ n_p.data = "q \usecolor{\intriverscolor} 0 0 m 0 5 l 5 5 l 5 0 l b Q"
+ node.insert_after(prev_line,head_p.prev,n_p)
+
+ local n_c = node.new("whatsit","pdf_literal")
+ n_c.data = "q \usecolor{\intriverscolor} 0 0 m 0 5 l 5 5 l 5 0 l b Q"
+ node.insert_after(cur_line,cur_node.prev,n_c)
+ end
end
end
cur_node = cur_node.next
diff --git a/Master/texmf-dist/source/latex/impnattypo/impnattypo.ins b/Master/texmf-dist/source/latex/impnattypo/impnattypo.ins
index 0d7cfac919d..b3abf917884 100644
--- a/Master/texmf-dist/source/latex/impnattypo/impnattypo.ins
+++ b/Master/texmf-dist/source/latex/impnattypo/impnattypo.ins
@@ -1,4 +1,4 @@
-%% Copyright (C) 2011 by Raphaël Pinson <raphink@gmail.com>
+%% Copyright (C) 2011-2012 by Raphaël Pinson <raphink@gmail.com>
%% --------------------------------------------------------------------------
%% This work may be distributed and/or modified under the
%% conditions of the LaTeX Project Public License, either version 1.3
@@ -25,7 +25,7 @@
This is a generated file.
-Copyright (C) 2011 by Raphaël Pinson <raphink@gmail.com>
+Copyright (C) 2011-2012 by Raphaël Pinson <raphink@gmail.com>
--------------------------------------------------------------------------
This work may be distributed and/or modified under the
conditions of the LaTeX Project Public License, either version 1.3