diff options
author | Karl Berry <karl@freefriends.org> | 2015-09-22 22:28:59 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2015-09-22 22:28:59 +0000 |
commit | 92ce2c7b7e6d80754558123f1023824e3b99ab5a (patch) | |
tree | c43481a2fe89b2227722aa2596887d24db8c0c3c /Master/texmf-dist/tex/lualatex | |
parent | 8e5c104f9dd76f86ca2ec12abcf854694bb5ed1d (diff) |
showhyphens (22sep15)
git-svn-id: svn://tug.org/texlive/trunk@38441 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/tex/lualatex')
-rw-r--r-- | Master/texmf-dist/tex/lualatex/showhyphens/showhyphens.sty | 24 |
1 files changed, 17 insertions, 7 deletions
diff --git a/Master/texmf-dist/tex/lualatex/showhyphens/showhyphens.sty b/Master/texmf-dist/tex/lualatex/showhyphens/showhyphens.sty index 849164d8b10..2d6f35bc0c8 100644 --- a/Master/texmf-dist/tex/lualatex/showhyphens/showhyphens.sty +++ b/Master/texmf-dist/tex/lualatex/showhyphens/showhyphens.sty @@ -1,32 +1,42 @@ -\ProvidesPackage{showhyphens}[2011/09/12 v0.1 Show hyphenation points (PGU)] +\ProvidesPackage{showhyphens}[2015/09/22 v0.4 Show hyphenation points (PGU)] \RequirePackage{ifluatex,luatexbase} % License: MIT style license -% Copyright (c) 2011 Patrick Gundlach patrick@gundla.ch +% Copyright (c) 2011-2015 Patrick Gundlach patrick@gundla.ch % Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the % "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, % publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do % so, subject to the following conditions: -% +% % The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software. -% +% % THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF % MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE % FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION % WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE. +\def\lua@SHcolor{1 0 0}% red +\DeclareOption{blue}{\def\lua@SHcolor{0 0 1 }}% must be a rgb color +\ProcessOptions + \ifluatex \directlua{ +local show_hyph +local hlist_node = node.id("hlist") +local vlist_node = node.id("vlist") +local disc_node = node.id("disc") + show_hyph = function(head) while head do - if head.id == 0 or head.id == 1 then % hlist, vlist + if head.id == hlist_node or head.id == vlist_node then show_hyph(head.head) - elseif head.id == 7 then % disc + elseif head.id == disc_node then local n = node.new("whatsit","pdf_literal") n.mode = 0 - n.data = "q 1 0 0 RG 0.3 w 0 2 m 0 7 l S Q" + n.data = "q \lua@SHcolor RG 0.3 w 0 2 m 0 7 l S Q" n.next = head.next + head.next.prev = n n.prev = head head.next = n head = n |