cloze (8jul15)

git-svn-id: svn://tug.org/texlive/trunk@37811 c570f23f-e606-0410-a88d-b1316a301751

11 files changed, 2866 insertions, 2 deletions

diff --git a/Master/texmf-dist/doc/lualatex/cloze/README b/Master/texmf-dist/doc/lualatex/cloze/README
new file mode 100644
index 00000000000..fb2276cb66c
--- /dev/null
+++ b/Master/texmf-dist/doc/lualatex/cloze/README
@@ -0,0 +1,45 @@
+# Description
+
+EN: `cloze` is a LaTeX package to generate cloze. It uses the
+capabilities of the modern TeX engine LuaTex.
+
+DE: `cloze` ist a LaTeX-Paket zum Erstellen von Lückentexten. Es nutzt
+die Möglichkeiten der modernen TeX-Engine LuaTeX.
+
+# License
+
+Copyright (C) 2015 by Josef Friedrich <josef@friedrich.rocks>
+------------------------------------------------------------------------
+This work may be distributed and/or modified under the conditions of
+the LaTeX Project Public License, either version 1.3 of this license
+or (at your option) any later version.  The latest version of this
+license is in:
+
+  http://www.latex-project.org/lppl.txt
+
+and version 1.3 or later is part of all distributions of LaTeX
+version 2005/12/01 or later.
+
+# Repository
+
+https://github.com/Josef-Friedrich/cloze
+
+# Installation
+
+Get source:
+
+    git clone git@github.com:Josef-Friedrich/cloze.git
+    cd cloze
+
+Compile:
+
+    make
+
+or manually:
+
+    luatex cloze.ins
+    lualatex cloze.dtx
+    makeindex -s gglo.ist -o cloze.gls cloze.glo
+    makeindex -s gind.ist -o cloze.ind cloze.idx
+    lualatex cloze.dtx
+
diff --git a/Master/texmf-dist/doc/lualatex/cloze/README.md b/Master/texmf-dist/doc/lualatex/cloze/README.md
new file mode 100644
index 00000000000..fb2276cb66c
--- /dev/null
+++ b/Master/texmf-dist/doc/lualatex/cloze/README.md
@@ -0,0 +1,45 @@
+# Description
+
+EN: `cloze` is a LaTeX package to generate cloze. It uses the
+capabilities of the modern TeX engine LuaTex.
+
+DE: `cloze` ist a LaTeX-Paket zum Erstellen von Lückentexten. Es nutzt
+die Möglichkeiten der modernen TeX-Engine LuaTeX.
+
+# License
+
+Copyright (C) 2015 by Josef Friedrich <josef@friedrich.rocks>
+------------------------------------------------------------------------
+This work may be distributed and/or modified under the conditions of
+the LaTeX Project Public License, either version 1.3 of this license
+or (at your option) any later version.  The latest version of this
+license is in:
+
+  http://www.latex-project.org/lppl.txt
+
+and version 1.3 or later is part of all distributions of LaTeX
+version 2005/12/01 or later.
+
+# Repository
+
+https://github.com/Josef-Friedrich/cloze
+
+# Installation
+
+Get source:
+
+    git clone git@github.com:Josef-Friedrich/cloze.git
+    cd cloze
+
+Compile:
+
+    make
+
+or manually:
+
+    luatex cloze.ins
+    lualatex cloze.dtx
+    makeindex -s gglo.ist -o cloze.gls cloze.glo
+    makeindex -s gind.ist -o cloze.ind cloze.idx
+    lualatex cloze.dtx
+
diff --git a/Master/texmf-dist/doc/lualatex/cloze/cloze.pdf b/Master/texmf-dist/doc/lualatex/cloze/cloze.pdf
new file mode 100644
index 00000000000..304c1bb20e6
--- /dev/null
+++ b/Master/texmf-dist/doc/lualatex/cloze/cloze.pdf
diff --git a/Master/texmf-dist/scripts/cloze/cloze.lua b/Master/texmf-dist/scripts/cloze/cloze.lua
new file mode 100755
index 00000000000..dc05de9af43
--- /dev/null
+++ b/Master/texmf-dist/scripts/cloze/cloze.lua
@@ -0,0 +1,414 @@
+if not modules then modules = { } end modules ['cloze'] = {
+  version   = '0.1',
+  comment   = 'cloze',
+  author    = 'Josef Friedrich, R.-M. Huber',
+  copyright = 'Josef Friedrich, R.-M. Huber',
+  license   = 'The LaTeX Project Public License Version 1.3c 2008-05-04'
+}
+local nodex = {}
+local registry = {}
+registry.user_id = 3121978
+registry.storage = {}
+registry.defaults = {
+  ['align'] = 'l',
+  ['distance'] = '1.5pt',
+  ['hide'] = false,
+  ['linecolor'] = '0 0 0 rg 0 0 0 RG', -- black
+  ['margin'] = '3pt',
+  ['resetcolor'] = '0 0 0 rg 0 0 0 RG', -- black
+  ['show_text'] = true,
+  ['show'] = true,
+  ['textcolor'] = '0 0 1 rg 0 0 1 RG', -- blue
+  ['thickness'] = '0.4pt',
+  ['width'] = '2cm',
+}
+registry.global_options = {}
+registry.local_options = {}
+local cloze = {}
+local base = {}
+base.is_registered = {}
+function nodex.create_colorstack(data)
+  if not data then
+    data = '0 0 0 rg 0 0 0 RG' -- black
+  end
+  local whatsit = node.new('whatsit', 'pdf_colorstack')
+  whatsit.stack = 0
+  whatsit.data = data
+  return whatsit
+end
+function nodex.create_color(option)
+  local data
+  if option == 'line' then
+    data = registry.get_value('linecolor')
+  elseif option == 'text' then
+    data = registry.get_value('textcolor')
+  elseif option == 'reset' then
+    data = nil
+  else
+    data = nil
+  end
+  return nodex.create_colorstack(data)
+end
+function nodex.create_line(width)
+  local rule = node.new(node.id('rule'))
+  local thickness = tex.sp(registry.get_value('thickness'))
+  local distance = tex.sp(registry.get_value('distance'))
+  rule.depth = distance + thickness
+  rule.height = - distance
+  rule.width = width
+  return rule
+end
+function nodex.insert_line(head, current, width)
+  local n = {} -- node
+  n.color_line = nodex.create_color('line')
+  head, n.color_line = node.insert_after(head, current, n.color_line)
+  n.line = nodex.create_line(width)
+  head, n.line = node.insert_after(head, n.color_line, n.line)
+  n.color_reset = nodex.create_color('reset')
+  return node.insert_after(head, n.line, n.color_reset)
+end
+function nodex.write_line()
+  node.write(nodex.create_color('line'))
+  node.write(nodex.create_line(tex.sp(registry.get_value('width'))))
+  node.write(nodex.create_color('reset'))
+end
+function nodex.create_linefil()
+  local glue = node.new('glue')
+  glue.subtype = 100
+  local glue_spec = node.new('glue_spec')
+  glue_spec.stretch = 65536
+  glue_spec.stretch_order = 3
+  glue.spec = glue_spec
+  local rule = nodex.create_line(0)
+  rule.dir = 'TLT'
+  glue.leader = rule
+  return glue
+end
+function nodex.write_linefil()
+  node.write(nodex.create_color('line'))
+  node.write(nodex.create_linefil())
+  node.write(nodex.create_color('reset'))
+end
+function nodex.create_kern(width)
+  local kern = node.new(node.id('kern'))
+  kern.kern = width
+  return kern
+end
+function nodex.strut_to_hlist(hlist)
+  local n = {} -- node
+  n.head = hlist.head
+  n.kern = nodex.create_kern(0)
+  n.strut = node.insert_before(n.head, n.head, n.kern)
+  hlist.head = n.head.prev
+  return hlist, n.strut, n.head
+end
+function nodex.write_margin()
+  local kern = nodex.create_kern(tex.sp(registry.get_value('margin')))
+  node.write(kern)
+end
+function registry.create_marker(index)
+  local marker = node.new('whatsit','user_defined')
+  marker.type = 100 -- number
+  marker.user_id = registry.user_id
+  marker.value = index
+  return marker
+end
+function registry.write_marker(mode, position)
+  local index = registry.set_storage(mode, position)
+  local marker = registry.create_marker(index)
+  node.write(marker)
+end
+function registry.check_marker(item, mode, position)
+  local data = registry.get_marker_data(item)
+  if data and data.mode == mode and data.position == position then
+    return true
+  else
+    return false
+  end
+end
+function registry.get_marker(item, mode, position)
+  local out
+  if registry.check_marker(item, mode, position) then
+    out = item
+  else
+    out = false
+  end
+  if out and position == 'start' then
+    registry.get_marker_values(item)
+  end
+  return out
+end
+function registry.get_marker_data(item)
+  if item.id == node.id('whatsit')
+    and item.subtype == 44
+    and item.user_id == registry.user_id then
+    return registry.get_storage(item.value)
+  else
+    return false
+  end
+end
+function registry.get_marker_values(marker)
+  local data = registry.get_marker_data(marker)
+  registry.local_options = data.values
+  return data.values
+end
+function registry.get_index()
+  if not registry.index then
+    registry.index = 0
+  end
+  registry.index = registry.index + 1
+  return registry.index
+end
+function registry.set_storage(mode, position)
+  local index = registry.get_index()
+  local data = {
+    ['mode'] = mode,
+    ['position'] = position
+  }
+  data.values = registry.local_options
+  registry.storage[index] = data
+  return index
+end
+function registry.get_storage(index)
+  return registry.storage[index]
+end
+function registry.set_option(key, value)
+  if value == '' or value == '\\color@ ' then
+    return false
+  end
+  if registry.is_global == true then
+    registry.global_options[key] = value
+  else
+    registry.local_options[key] = value
+  end
+end
+function registry.set_is_global(value)
+  registry.is_global = value
+end
+function registry.unset_local_options()
+  registry.local_options = {}
+end
+function registry.unset_global_options()
+  registry.global_options = {}
+end
+function registry.get_value(key)
+  if registry.has_value(registry.local_options[key]) then
+    return registry.local_options[key]
+  end
+  if registry.has_value(registry.global_options[key]) then
+    return registry.global_options[key]
+  end
+  return registry.defaults[key]
+end
+function registry.get_value_show()
+  if
+    registry.get_value('show') == true
+  or
+    registry.get_value('show') == 'true'
+  then
+    return true
+  else
+    return false
+  end
+end
+function registry.has_value(value)
+  if value == nil or value == '' or value == '\\color@ ' then
+    return false
+  else
+    return true
+  end
+end
+function registry.get_defaults(option)
+  return registry.defaults[option]
+end
+function cloze.basic_make(head, hlist, start, stop)
+  local n = {}
+  local l = {}
+  if not start or not stop then
+    return
+  end
+  n.start = start
+  n.stop = stop
+  l.width = node.dimensions(
+    hlist.glue_set,
+    hlist.glue_sign,
+    hlist.glue_order,
+    n.start,
+    n.stop
+  )
+  head, n.line = nodex.insert_line(head, n.start, l.width)
+  n.color_text = nodex.create_color('text')
+  head, n.color_text = node.insert_after(
+    hlist.head,
+    n.line,
+    n.color_text
+  )
+  if registry.get_value_show() then
+    n.kern = nodex.create_kern(-l.width)
+    node.insert_after(head, n.color_text, n.kern)
+    n.color_reset = nodex.create_color('reset')
+    node.insert_after(head, n.stop, n.color_reset)
+  else
+    n.line.next = n.stop.next
+    n.stop.prev = n.line.prev
+  end
+
+end
+function cloze.basic(head)
+  local n = {} -- node
+  local b = {} -- boolean
+  local l = {} -- length
+  local t = {} -- temp
+  for hlist in node.traverse_id(node.id('hlist'), head) do
+    hlist = nodex.strut_to_hlist(hlist)
+    if b.line_end then
+      b.init_cloze = true
+    end
+    n.current = hlist.head
+    while n.current do
+      if
+        registry.check_marker(n.current, 'basic', 'start')
+      or
+        b.init_cloze
+      then
+        b.init_cloze = false
+        n.start = n.current
+        while n.current do
+          b.line_end = true
+          n.stop = n.current
+          if registry.check_marker(n.stop, 'basic', 'stop') then
+            b.line_end = false
+            break
+          end
+          n.current = n.current.next
+        end
+        cloze.basic_make(head, hlist, n.start, n.stop)
+        n.current = n.stop
+      else
+        n.current = n.current.next
+      end
+    end
+  end
+  return head
+end
+function cloze.fix_make(head, start, stop)
+  local l = {} -- length
+  l.width = tex.sp(registry.get_value('width'))
+  local n = {} -- node
+  n.start = start
+  n.stop = stop
+  l.text_width = node.dimensions(n.start, n.stop)
+  local align = registry.get_value('align')
+  if align == 'right' then
+    l.kern_start = -l.text_width
+    l.kern_stop = 0
+  elseif align == 'center' then
+    l.half = (l.width - l.text_width) / 2
+    l.kern_start = -l.half - l.text_width
+    l.kern_stop = l.half
+  else
+    l.kern_start = -l.width
+    l.kern_stop = l.width - l.text_width
+  end
+  head, n.line = nodex.insert_line(head, n.start, l.width)
+  if registry.get_value_show() then
+    n.kern_start = nodex.create_kern(l.kern_start)
+    head, n.kern_start = node.insert_after(head, n.line, n.kern_start)
+    n.color_text = nodex.create_color('text')
+    node.insert_after(head, n.kern_start, n.color_text)
+    n.color_reset = nodex.create_color('reset')
+    node.insert_before(head, n.stop, n.color_reset)
+    n.kern_stop = nodex.create_kern(l.kern_stop)
+    node.insert_before(head, n.stop, n.kern_stop)
+  else
+    n.line.next = n.stop.next
+  end
+end
+function cloze.fix(head)
+  local n = {} -- node
+  n.start, n.stop = false
+  for current in node.traverse_id(node.id('whatsit'), head) do
+    if not n.start then
+      n.start = registry.get_marker(current, 'fix', 'start')
+    end
+    if not n.stop then
+      n.stop = registry.get_marker(current, 'fix', 'stop')
+    end
+    if n.start and n.stop then
+      cloze.fix_make(head, n.start, n.stop)
+      n.start, n.stop = false
+    end
+  end
+  return head
+end
+function cloze.par(head)
+  local l = {} -- length
+  local n = {} -- node
+  for hlist in node.traverse_id(node.id('hlist'), head) do
+    for whatsit in node.traverse_id(node.id('whatsit'), hlist.head) do
+      registry.get_marker(whatsit, 'par', 'start')
+    end
+    l.width = hlist.width
+    hlist, n.strut, n.head = nodex.strut_to_hlist(hlist)
+    head, n.line = nodex.insert_line(head, n.strut, l.width)
+    if registry.get_value_show() then
+      n.kern = nodex.create_kern(-l.width)
+      head, n.kern = node.insert_after(head, n.line, n.kern)
+      n.color_text = nodex.create_color('text')
+      node.insert_after(head, n.kern, n.color_text)
+      n.tail = node.tail(n.head)
+      n.color_reset = nodex.create_color('reset')
+      node.insert_after(n.head, n.tail, n.color_reset)
+    else
+      n.line.next = nil
+    end
+  end
+  return head
+end
+function base.register(mode)
+  if mode == 'par' then
+    luatexbase.add_to_callback(
+      'post_linebreak_filter',
+      cloze.par,
+      mode
+    )
+    return true
+  end
+  if not base.is_registered[mode] then
+    if mode == 'basic' then
+      luatexbase.add_to_callback(
+        'post_linebreak_filter',
+        cloze.basic,
+        mode
+      )
+    elseif mode == 'fix' then
+      luatexbase.add_to_callback(
+        'pre_linebreak_filter',
+        cloze.fix,
+        mode
+      )
+    else
+      return false
+    end
+    base.is_registered[mode] = true
+  end
+end
+function base.unregister(mode)
+  if mode == 'basic' then
+    luatexbase.remove_from_callback('post_linebreak_filter', mode)
+  elseif mode == 'fix' then
+    luatexbase.remove_from_callback('pre_linebreak_filter', mode)
+  else
+    luatexbase.remove_from_callback('post_linebreak_filter', mode)
+  end
+end
+base.linefil = nodex.write_linefil
+base.line = nodex.write_line
+base.margin = nodex.write_margin
+base.set_option = registry.set_option
+base.set_is_global = registry.set_is_global
+base.unset_local_options = registry.unset_local_options
+base.reset = registry.unset_global_options
+base.get_defaults = registry.get_defaults
+base.marker = registry.write_marker
+return base
diff --git a/Master/texmf-dist/source/lualatex/cloze/cloze.dtx b/Master/texmf-dist/source/lualatex/cloze/cloze.dtx
new file mode 100644
index 00000000000..59894fcca8c
--- /dev/null
+++ b/Master/texmf-dist/source/lualatex/cloze/cloze.dtx
@@ -0,0 +1,2138 @@
+% \iffalse meta-comment
+%
+% Copyright (C) 2015 by Josef Friedrich <josef@friedrich.rocks>
+% ----------------------------------------------------------------------
+% This work may be distributed and/or modified under the conditions of
+% the LaTeX Project Public License, either version 1.3 of this license
+% or (at your option) any later version.  The latest version of this
+% license is in:
+%
+%   http://www.latex-project.org/lppl.txt
+%
+% and version 1.3 or later is part of all distributions of LaTeX
+% version 2005/12/01 or later.
+%
+% This work has the LPPL maintenance status `maintained'.
+%
+% The Current Maintainer of this work is Josef Friedrih.
+%
+% This work consists of the files cloze.dtx and cloze.ins
+% and the derived filebase cloze.sty and cloze.lua.
+%
+% \fi
+%
+% \iffalse
+%<*driver>
+\ProvidesFile{cloze.dtx}
+%</driver>
+%<package>\NeedsTeXFormat{LaTeX2e}[1999/12/01]
+%<package>\ProvidesPackage{cloze}
+%<*package>
+    [2015/07/08 v1.0 Package to typeset cloze worksheets or cloze tests]
+%</package>
+%<*driver>
+\documentclass{ltxdoc}
+\usepackage[show]{cloze}
+\usepackage{paralist}
+\usepackage{titlesec}
+\titleformat{\paragraph}[hang]{%
+  \normalfont\normalsize\bfseries%
+  }{\theparagraph}{1em}{}
+\titleformat{\subparagraph}[hang]{%
+  \normalfont\small\bfseries%
+  }{\thesubparagraph}{1em}{}
+  \titlespacing*{\subparagraph}{0pt}{*1}{0pt}
+
+\usepackage[
+  colorlinks=true,
+  linkcolor=red,
+  filecolor=red,
+  urlcolor=red,
+]{hyperref}
+
+\MakeShortVerb{\|}
+
+\setlength{\fboxrule}{0.2pt}
+\setlength{\fboxsep}{4pt}
+
+\makeatletter
+\newcommand{\@minipagerestore}{\setlength{\parindent}{10pt}}
+\makeatother
+
+\newsavebox{\examplebox}
+\newenvironment{clozeexample}{%
+  \noindent%
+  \begin{lrbox}{\examplebox}%
+  \begin{minipage}{0.9\textwidth}%
+  \footnotesize%
+}{%
+  \end{minipage}%
+  \end{lrbox}%
+  \begin{center}%
+    \fbox{\usebox{\examplebox}}%
+  \end{center}%
+}
+
+\definecolor{grayline}{gray}{0.9}
+\definecolor{graybackground}{gray}{0.97}
+
+\newsavebox{\codebox}
+\newenvironment{code}{%
+  \noindent%
+  \begin{lrbox}{\codebox}%
+  \begin{minipage}{0.9\textwidth}%
+}{%
+  \end{minipage}%
+  \end{lrbox}%
+  \begin{center}%
+    \fcolorbox{grayline}{graybackground}{\usebox{\codebox}}%
+  \end{center}%
+}
+
+\newcommand{\tighten}{\vspace{-6pt}}
+
+\newcommand{\getdefaults}[1]{%
+  \directlua{tex.print(cloze.get_defaults('#1'))}%
+}
+
+\newcommand{\expdesc}[1]{(|#1|)}
+
+\newcommand{\desc}[1]{%
+  \hfill%
+  \expdesc{#1}%
+  \par%
+}
+
+\def\tt#1{\texttt{#1}}
+
+\def\secref#1{(\rightarrow\ \ref{#1})}
+
+\newcommand{\option}[2]{\tt{[#1=}\meta{#2}\tt{]}}
+\newcommand{\luafunction}[1]{
+  \marginpar{%
+    \raggedleft%
+    \MacroFont%
+    \tt{%
+      #1%
+    }%
+  }%
+}
+
+\newcommand{\nodelisthfont}{\bfseries\sffamily}
+
+\newcommand{\nodelistheader}{
+  \hline
+  \nodelisthfont Variable name &
+  \nodelisthfont Node type &
+  \nodelisthfont Node subtype &
+  \nodelisthfont Parameter \\
+  \hline
+}
+
+\newenvironment{nodelist}{
+  \noindent
+  \begingroup
+  \footnotesize
+  \begin{tabular}{llll}
+  \nodelistheader
+}{
+  \hline
+  \end{tabular}
+  \endgroup
+}
+
+\EnableCrossrefs
+\CodelineIndex
+\RecordChanges
+\begin{document}
+
+\providecommand*{\url}{\texttt}
+\GetFileInfo{cloze.dtx}
+\title{The \cloze{cloze} package%
+  \thanks{Many thanks to Robert-Michael Huber for his advice
+and to Paul Isambert for his article \emph{"Three things you can do with
+Lua\TeX{} that would be extremely painful otherwise"} in TUGboat, Volume
+31 (2010), No. 3. This article helped a lot to write this package.}%
+}
+\author{%
+  Josef Friedrich\\%
+  \url{josef@friedrich.rocks}\\%
+  \href{https://github.com/Josef-Friedrich/cloze}{github.com/Josef-Friedrich/cloze}%
+}
+\date{\fileversion~from \filedate}
+
+\maketitle\vfill
+
+\pagebreak
+
+\setcounter{secnumdepth}{5}
+\setcounter{tocdepth}{5}
+\tableofcontents
+
+%-----------------------------------------------------------------------
+% Introduction
+%-----------------------------------------------------------------------
+
+\pagebreak
+\section{Introduction}
+
+\emph{cloze} is a \LaTeX{} package to generate cloze texts. It uses
+the capabilities of the modern \TeX{} engine \emph{Lua\TeX}. Therefore,
+you must use Lua\LaTeX{} to create documents containing gaps.
+
+\begin{code}
+\begin{verbatim}
+lualatex cloze-text.tex
+\end{verbatim}
+\end{code}
+
+The main feature of the package is that the formatting doesn't change
+when using the |hide| and |show| \secref{sec:option-hide} options.
+
+\newcommand{\clozelorem}{%
+Lorem ipsum \cloze{dolor sit} amet, consectetur \cloze{adipisicing}
+elit, sed do eiusmod tempor incididunt ut labore et \cloze{dolore magna}
+aliqua. Ut enim ad minim veniam, quis nostrud \cloze{exercitation}
+ullamco laboris nisi ut \cloze{aliquip} ex ea commodo consequat.%
+}
+
+\begin{clozeexample}
+\clozelorem
+\end{clozeexample}
+
+\clozeset{hide}
+
+The command |\clozeset{hide}| only shows gaps. When you put both texts
+on top of each other you will see that they perfectly match.
+
+\begin{clozeexample}
+\clozelorem
+\end{clozeexample}
+
+\clozeset{show}
+
+%-----------------------------------------------------------------------
+% Usage
+%-----------------------------------------------------------------------
+
+\section{Usage}
+
+There are three commands and one environment to generate
+cloze texts: \cmd{\cloze}, \cmd{\clozefix}, \cmd{\clozefil} and
+|clozepar|.
+
+%%
+% \cloze
+%%
+
+\subsection{The commands and environments}
+
+\subsubsection{\cmd{\cloze}}
+\label{sec:command-cloze}
+
+\DescribeMacro{\cloze} \cmd{\cloze}\oarg{options}\marg{some text}: The
+command \cmd{\cloze} is similar to a command that offers the possibility
+to underline the texts. \cmd{\cloze} does not prevent line breaks. The
+width of a gap depends on the number of letters and the font used.
+The only option which affects the widths of a gap is the option
+|margin| \secref{sec:option-margin}.
+
+\begin{clozeexample}
+Lorem ipsum \cloze{dolor} sit amet, \cloze{consectetur} adipisicing
+elit, sed do eiusmod tempor incididunt ut labore et dolore
+\cloze{magna aliqua. Ut enim ad minim veniam, quis nostrud exercitation
+ullamco laboris nisi} ut aliquip ex ea commodo consequat.
+\end{clozeexample}
+
+\noindent It is possible to convert a complete paragraph into a `gap'.
+But don't forget: There is a special environment for this: \tt{clozepar}
+\secref{sec:command-clozepar}.
+
+\begin{clozeexample}
+\cloze{Lorem ipsum dolor sit amet, consectetur adipisicing elit, sed do
+eiusmod tempor incididunt ut labore et dolore magna aliqua. Ut enim ad
+minim veniam, quis nostrud exercitation ullamco laboris nisi ut aliquip
+ex ea commodo consequat.}
+\end{clozeexample}
+
+\noindent The command \cmd{\cloze} doesn't change the behavior of the
+hyphenation. Let's try some long German words:
+
+\begin{clozeexample}
+es
+\cloze{Te\-le\-kom\-mu\-ni\-ka\-tions\-ü\-ber\-wach\-ung}
+geht
+\cloze{Un\-ter\-neh\-mens\-steu\-er\-fort\-ent\-wick\-lungs\-ge\-setz}
+\cloze{Ab\-teil\-ungs\-lei\-ter\-in}
+\cloze{Ober\-kom\-mi\-sar\-in}
+auch
+\cloze{Fil\-lial\-lei\-ter\-in}
+kurz
+\cloze{Ober\-kom\-mi\-sar\-in}
+\cloze{Un\-ter\-neh\-mens\-steu\-er\-fort\-ent\-wick\-lungs\-ge\-setz}
+\cloze{Fil\-lial\-lei\-ter\-in}
+\cloze{Metz\-ger\-mei\-ster\-in}
+in
+\cloze{Ab\-teil\-ungs\-lei\-ter\-in}
+der
+\cloze{Ober\-kom\-mi\-sar\-in}
+\cloze{Hoch\-lei\-stungs\-flüs\-sig\-keits\-chro\-ma\-to\-gra\-phie}
+\cloze{Fil\-lial\-lei\-ter\-in}
+Kürze
+\cloze{Un\-ter\-neh\-mens\-steu\-er\-fort\-ent\-wick\-lungs\-ge\-setz}
+\cloze{Metz\-ger\-mei\-ster\-in}
+liegt
+\cloze{Ab\-teil\-ungs\-lei\-ter\-in}
+die
+\cloze{Metz\-ger\-mei\-ster\-in}
+\cloze{Ab\-teil\-ungs\-lei\-ter\-in}
+Würze
+\cloze{Ober\-kom\-mi\-sar\-in}
+\cloze{Fil\-lial\-lei\-ter\-in}
+\cloze{Te\-le\-kom\-mu\-ni\-ka\-tions\-ü\-ber\-wach\-ung}
+\cloze{Hoch\-lei\-stungs\-flüs\-sig\-keits\-chro\-ma\-to\-gra\-phie}
+\cloze{Metz\-ger\-mei\-ster\-in}
+\cloze{Ab\-teil\-ungs\-lei\-ter\-in}
+ein
+\cloze{Ober\-kom\-mi\-sar\-in}
+paar
+\cloze{Fil\-lial\-lei\-ter\-in}
+kurze
+\cloze{Metz\-ger\-mei\-ster\-in}
+Wörter
+\cloze{Ab\-teil\-ungs\-lei\-ter\-in}
+\cloze{Ober\-kom\-mi\-sar\-in}
+\cloze{Fil\-lial\-lei\-ter\-in}
+\cloze{Metz\-ger\-mei\-ster\-in}
+\end{clozeexample}
+
+%%
+% \clozesetfont
+%%
+
+\subsubsection{\cmd{\clozesetfont}}
+\label{sec:command-clozesetfont}
+\label{sec:command-clozefont}
+
+\DescribeMacro{\clozesetfont}
+The gap font can be changed by using the command
+\cmd{\clozesetfont}. \tt{\string\cloze\-set\-font} redefines the command
+\cmd{\clozefont} which contains the font definition.
+Thus, the command \tt{\string\clozesetfont\string{\string\Large\string}}
+has the same effect as
+\tt{\string\re\-new\-com\-mand\string{\string\cloze\-font\string}%
+\string{\string\Large\string}}.
+
+\clozesetfont{\Large}
+
+\begin{clozeexample}
+Excepteur \cloze{sint} occaecat \cloze{cupidatat} non proident.
+\end{clozeexample}
+
+\noindent Please do not put any color definitions in
+\cmd{\clozesetfont}, as it won't work. Use the option
+|textcolor| instead \secref{sec:option-textcolor}.
+
+|\clozesetfont{\ttfamily\normalsize}| changes the gap text for example
+into a normal sized typewriter font.
+
+\clozesetfont{\ttfamily\normalsize}
+
+\begin{clozeexample}
+Excepteur \cloze{sint} occaecat \cloze{cupidatat} non proident.
+\end{clozeexample}
+
+\clozesetfont{\itshape}
+
+%%
+% \clozefix
+%%
+
+\subsubsection{\cmd{\clozefix}}
+\label{sec:command-clozefix}
+
+\DescribeMacro{\clozefix} \cmd{\clozefix}\oarg{options}\marg{some text}:
+The command \cmd{\clozefix} creates gaps with a fixed width. The
+clozes are default concering the width \tt{\getdefaults{width}}.
+
+\begin{clozeexample}
+\noindent Lorem ipsum dolor sit amet:
+\begin{compactenum}
+\item \clozefix[width=5cm]{consectetur}
+\item \clozefix[width=5cm]{adipisicing}
+\item \clozefix[width=5cm]{elit}
+\end{compactenum}
+sed do eiusmod.
+\end{clozeexample}
+
+%%
+% \clozefil
+%%
+
+\subsubsection{\cmd{\clozefil}}
+\label{sec:command-clozefil}
+
+\DescribeMacro{\clozefil} \cmd{\clozefil}\oarg{options}\marg{some text}:
+The name of the command is inspired by \cmd{\hfil}, \cmd{\hfill}, and
+\cmd{\hfilll}. Only \cmd{\clozefil} fills out all available horizontal
+spaces with a line.
+
+\begin{clozeexample}
+Lorem ipsum dolor sit amet, \clozefil{consectetur adipisicing elit, sed
+do eiusmod.}
+
+Ut enim \clozefil{ad minim veniam} exercitation.
+\end{clozeexample}
+
+%%
+% clozepar
+%%
+
+\subsubsection{\tt{clozepar}}
+\label{sec:command-clozepar}
+
+\DescribeEnv{clozepar} |\begin{clozepar}|\oarg{options} \dots
+\textit{some text} \dots |\end{clozepar}|: The environment \tt{clozepar}
+transforms a complete paragraph into a cloze text. The options |align|,
+|margin| and |width| have no effect on this environment.
+
+\begin{clozeexample}
+Lorem ipsum dolor sit amet, consectetur adipisicing elit ullamco laboris
+nisi.
+
+\begin{clozepar}
+Ut enim ad minim veniam, quis nostrud exercitation ullamco laboris nisi
+ut aliquip ex ea commodo consequat. Duis aute irure dolor in
+reprehenderit in voluptate velit esse cillum.
+\end{clozepar}
+
+Excepteur sint occaecat cupidatat non proident.
+\end{clozeexample}
+
+%%
+% \clozeline
+%%
+
+\subsubsection{\cmd{\clozeline}}
+\label{sec:command-clozeline}
+
+\DescribeMacro{\clozeline}
+\cmd{\clozeline}\oarg{options}:
+To create a cloze line of a certain width, use the command
+\cmd{\clozeline}. The default width of the line is
+\tt{\getdefaults{width}}. In combination with the other cloze commands
+you can create for example an irregular alignment of the cloze text.
+
+\begin{code}
+\begin{verbatim}
+Ut enim ad
+\clozeline[width=1cm]\cloze{minim}\clozeline[width=3cm]
+minim veniam
+\end{verbatim}
+\end{code}
+
+\tighten
+
+\begin{clozeexample}
+Ut enim ad \clozeline[width=1cm]\cloze{minim}\clozeline[width=3cm] minim
+veniam,
+\end{clozeexample}
+
+%%
+% \clozelinefil
+%%
+
+\subsubsection{\cmd{\clozelinefil}}
+\label{sec:command-clozelinefil}
+
+\DescribeMacro{\clozelinefil}
+\cmd{\clozelinefil}\oarg{options}:
+This command \cmd{\clozelinefil} fills the
+complete available horizontal space with a line. Moreover,
+\cmd{\clozelinefil} was used to create \cmd{\clozefil}.
+
+\begin{clozeexample}
+Lorem\clozelinefil
+\end{clozeexample}
+
+%-----------------------------------------------------------------------
+% Options
+%-----------------------------------------------------------------------
+
+\subsection{The options}
+
+%%
+% Local and global options
+%%
+
+\subsubsection{Local and global options}
+
+The \emph{cloze} package distinguishs between \emph{local} and
+\emph{global} options. Besides the possiblity to set \emph{global}
+options in the \cmd{\usepackage}\oarg{global options}\marg{cloze}
+declaration, the cloze package offers a special command to set
+\emph{global} options:
+\cmd{\clozeset}\marg{global options}
+
+%%
+% \clozeset
+%%
+
+\subsubsection{\cmd{\clozeset}}
+\label{sec:command-clozeset}
+
+\DescribeMacro{\clozeset}
+\cmd{\clozeset}\marg{global options}: The command can set \emph{global}
+options for each paragraph.
+
+\begin{code}
+\begin{verbatim}
+\clozeset{textcolor=red} Lorem \cloze{ipsum} dolor \par
+\clozeset{textcolor=green} Lorem \cloze{ipsum} dolor
+\end{verbatim}
+\end{code}
+
+\tighten
+
+\begin{clozeexample}
+\clozeset{textcolor=red} Lorem \cloze{ipsum} dolor \par
+\clozeset{textcolor=green} Lorem \cloze{ipsum} dolor
+\end{clozeexample}
+
+\noindent \cmd{\clozeset} does not change the options within a
+paragraph. As you can see in the example below the last \cmd{\clozeset}
+applies the color green for both gaps.
+
+\begin{code}
+\begin{verbatim}
+\clozeset{textcolor=red} Lorem \cloze{ipsum} dolor
+\clozeset{textcolor=green} Lorem \cloze{ipsum} dolor
+\end{verbatim}
+\end{code}
+
+\tighten
+
+\begin{clozeexample}
+\clozeset{textcolor=red} Lorem \cloze{ipsum} dolor
+\clozeset{textcolor=green} Lorem \cloze{ipsum} dolor
+\end{clozeexample}
+
+\clozereset
+
+%%
+% \clozereset
+%%
+
+\subsubsection{\cmd{\clozereset}}
+\label{sec:command-clozereset}
+
+\DescribeMacro{\clozereset}
+\cmd{\clozereset}: The command resets all \emph{global} options to the
+default values. It has no effect on the \emph{local} options.
+
+\begin{code}
+\begin{verbatim}
+\clozeset{
+  thickness=3mm,
+  linecolor=yellow,
+  textcolor=magenta,
+  margin=-2pt
+}
+\end{verbatim}
+\end{code}
+
+\tighten
+
+\clozeset{thickness=3mm,linecolor=yellow,textcolor=magenta,margin=-2pt}
+
+\begin{clozeexample}
+Very \cloze{silly} global \cloze{options}.
+\end{clozeexample}
+
+\begin{code}
+|\clozereset|
+\end{code}
+\clozereset
+
+\tighten
+
+\begin{clozeexample}
+\cloze{Relax!} We can reset \cloze{those} options.
+\end{clozeexample}
+
+%%
+% \clozereset
+%%
+
+\subsubsection{\cmd{\clozeshow} and \cmd{\clozehide}}
+\label{sec:command-clozeshow}
+\label{sec:command-clozehide}
+
+\DescribeMacro{\clozeshow} \DescribeMacro{\clozehide}
+\cmd{\clozeshow} and \cmd{\clozehide}: This commands are shortcuts for
+\cmd{\clozeset}\marg{show} and \cmd{\clozeset}\marg{hide}.
+
+\begin{code}
+|\clozehide|
+\end{code}
+\clozehide
+
+\tighten
+
+\begin{clozeexample}
+Lorem \cloze{ipsum dolor sit} amet, consectetur \cloze{adipisicing}
+elit.
+\end{clozeexample}
+
+\begin{code}
+|\clozeshow|
+\end{code}
+\clozeshow
+
+\tighten
+
+\begin{clozeexample}
+Lorem \cloze{ipsum dolor sit} amet, consectetur \cloze{adipisicing}
+elit.
+\end{clozeexample}
+
+%%
+% align
+%%
+
+\subsubsection{\tt{align}}
+\label{sec:option-align}
+
+\option{align}{left/center/right}:
+Only the macro \cmd{\clozefix} \secref{sec:command-clozefix} takes the
+option \tt{align} into account. Possible values are \tt{left},
+\tt{center} and \tt{right}. This option only makes sense, if the width
+of the line is larger than the width of the text.
+
+\newcommand{\optionsalign}[1]{%
+  \noindent%
+  \clozefix[align=#1,width=8cm]{Lorem ipsum}%
+  \desc{#1}%
+}
+
+\begin{clozeexample}
+\optionsalign{left}
+\optionsalign{center}
+\optionsalign{right}
+\end{clozeexample}
+
+%%
+% distance
+%%
+
+\subsubsection{\tt{distance}}
+\label{sec:option-distance}
+
+\option{distance}{dimen}:
+The option |distance| specifies the spacing between the baseline of the
+text and the gap line. The larger the dimension of the option
+|distance|, the more moves the line down. Negative values cause the line
+to appear above the baseline. The default value is
+\tt{\getdefaults{distance}}.
+
+\newcommand{\optiondistance}[1]{%
+  \noindent%
+  \clozefil[distance=#1]{Lorem ipsum dolor sit amet.}
+  \expdesc{#1}
+  \par%
+}
+
+\begin{clozeexample}
+\optiondistance{\getdefaults{distance}}
+\optiondistance{3pt}
+\optiondistance{-3pt}
+\end{clozeexample}
+
+%%
+% hide and show
+%%
+
+\subsubsection{\tt{hide} and \tt{show}}
+\label{sec:option-hide}
+\label{sec:option-show}
+
+\tt{[hide]} and \tt{[show]}:
+By default the cloze text is displayed. Use the option |hide| to remove
+the cloze text from the output.  If you accidentally specify both
+options -- |hide| and |show| -- the last option "wins".
+
+\newcommand{\optionshow}[1]{%
+  \noindent%
+  Lorem ipsum \cloze[#1]{dolor sit amet}, consectetur
+  \cloze[#1]{adipisicing} elit.%
+  \desc{#1}%
+}
+
+\begin{clozeexample}
+\optionshow{hide}
+\optionshow{show}
+\optionshow{show,hide}
+\optionshow{hide,show}
+\end{clozeexample}
+
+%%
+% linecolor and textcolor
+%%
+
+\subsubsection{\tt{linecolor} and \tt{textcolor}}
+\label{sec:option-linecolor}
+\label{sec:option-textcolor}
+
+\option{linecolor}{color name} and
+\option{textcolor}{color name}:
+Values for both color options are color names used by the xcolor
+package. To define your own color use the following command:
+
+\begin{code}
+\begin{verbatim}
+\definecolor{myclozecolor}{rgb}{0.1,0.4,0.6}
+\cloze[textcolor=myclozecolor]{Lorem ipsum}
+\end{verbatim}
+\end{code}
+\definecolor{myclozecolor}{rgb}{0.1,0.4,0.6}
+
+\newcommand{\optioncolor}[2]{%
+  \noindent%
+  \clozefil[#1=#2]{Lorem ipsum dolor sit amet, consectetur} %
+  \expdesc{#2}%
+  \par%
+}
+
+\tighten
+
+\begin{clozeexample}
+\optioncolor{textcolor}{myclozecolor}
+\optioncolor{textcolor}{red}
+\optioncolor{textcolor}{green}
+\end{clozeexample}
+
+\noindent You can use the same color names to colorize the cloze lines.
+
+\begin{clozeexample}
+\optioncolor{linecolor}{myclozecolor}
+\optioncolor{linecolor}{red}
+\optioncolor{linecolor}{green}
+\end{clozeexample}
+
+%%
+% margin
+%%
+
+\subsubsection{\tt{margin}}
+\label{sec:option-margin}
+
+\option{margin}{dimen}:
+The option |margin| indicates how far the line sticks up from the text.
+The option can be used with the commands \cmd{\cloze}, \cmd{\clozefix}
+and \cmd{\clozefil}. The default value of the option is
+\tt{\getdefaults{margin}}.
+
+\newcommand{\optionmargin}[1]{%
+  \noindent%
+  Lorem ipsum \cloze[margin=#1]{dolor} sit amet.%
+  \desc{#1}%
+}
+
+\begin{clozeexample}
+\optionmargin{0pt}
+\optionmargin{5mm}
+\optionmargin{1cm}
+\optionmargin{6em}
+\optionmargin{-4pt}
+\end{clozeexample}
+
+% Folgt ein Satzzeichen direkt auf eine Lücke, so findet der
+% Zeilenumbruch erst nach dem Satzzeichen statt. Auch ein noch so großer
+% Wert für |margin| beeinflusst dieses Verhalten nicht.
+\noindent Is a punctation mark placed directly after a gap, then the
+line breaks after this punctation mark. Even the most large value of
+|margin| does not affect this behavior.
+
+\begin{clozeexample}
+\clozeset{margin=3mm}
+\cloze{Lorem}, \cloze{ipsum}. \cloze{dolor}; \cloze{sit}: \cloze{amet},
+\cloze{consectetur}. \cloze{adipisicing}; \cloze{elit}: \cloze{sed},
+\cloze{do}. \cloze{eiusmod}; \cloze{tempor}.
+\end{clozeexample}
+
+\clozereset
+
+%%
+% thickness
+%%
+
+\subsubsection{\tt{thickness}}
+\label{sec:option-thickness}
+
+\option{thickness}{dimen}:
+The option |thickness| indicates how thick the line is. The option
+|distance| \secref{sec:option-distance} is not affected by this option,
+because the bottom of the line moves down. The default value of this
+option is \tt{\getdefaults{thickness}}.
+
+\newcommand{\optionthickness}[1]{%
+  \noindent%
+  Lorem \cloze[thickness=#1]{ipsum dolor sit} amet.%
+  \desc{#1}%
+}
+
+\begin{clozeexample}
+\optionthickness{0.01pt}
+\optionthickness{1pt}
+\optionthickness{2pt}
+\end{clozeexample}
+
+%%
+% width
+%%
+
+\subsubsection{\tt{width}}\label{sec:option-width}
+
+\option{width}{dimen}:
+The only command which can be changed by the option |width| is
+\cmd{\clozefix} \secref{sec:command-clozefix}. The default value of the
+option is \tt{\getdefaults{width}}.
+
+\newcommand{\optionwidth}[1]{%
+  \noindent%
+  Lorem \clozefix[width=#1]{dolor} amet.%
+  \desc{#1}%
+}
+
+\begin{clozeexample}
+\optionwidth{3cm}
+\optionwidth{5cm}
+\optionwidth{7cm}
+\end{clozeexample}
+  \DocInput{cloze.dtx}
+  \pagebreak
+  \PrintChanges
+  \pagebreak
+  \PrintIndex
+\end{document}
+%</driver>
+%<*readme>
+# Description
+
+EN: `cloze` is a LaTeX package to generate cloze. It uses the
+capabilities of the modern TeX engine LuaTex.
+
+DE: `cloze` ist a LaTeX-Paket zum Erstellen von Lückentexten. Es nutzt
+die Möglichkeiten der modernen TeX-Engine LuaTeX.
+
+# License
+
+Copyright (C) 2015 by Josef Friedrich <josef@friedrich.rocks>
+------------------------------------------------------------------------
+This work may be distributed and/or modified under the conditions of
+the LaTeX Project Public License, either version 1.3 of this license
+or (at your option) any later version.  The latest version of this
+license is in:
+
+  http://www.latex-project.org/lppl.txt
+
+and version 1.3 or later is part of all distributions of LaTeX
+version 2005/12/01 or later.
+
+# Repository
+
+https://github.com/Josef-Friedrich/cloze
+
+# Installation
+
+Get source:
+
+    git clone git@github.com:Josef-Friedrich/cloze.git
+    cd cloze
+
+Compile:
+
+    make
+
+or manually:
+
+    luatex cloze.ins
+    lualatex cloze.dtx
+    makeindex -s gglo.ist -o cloze.gls cloze.glo
+    makeindex -s gind.ist -o cloze.ind cloze.idx
+    lualatex cloze.dtx
+
+%</readme>
+% \fi
+%
+% \CheckSum{0}
+%
+% \CharacterTable
+%  {Upper-case    \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
+%   Lower-case    \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
+%   Digits        \0\1\2\3\4\5\6\7\8\9
+%   Exclamation   \!     Double quote  \"     Hash (number) \#
+%   Dollar        \$     Percent       \%     Ampersand     \&
+%   Acute accent  \'     Left paren    \(     Right paren   \)
+%   Asterisk      \*     Plus          \+     Comma         \,
+%   Minus         \-     Point         \.     Solidus       \/
+%   Colon         \:     Semicolon     \;     Less than     \<
+%   Equals        \=     Greater than  \>     Question mark \?
+%   Commercial at \@     Left bracket  \[     Backslash     \\
+%   Right bracket \]     Circumflex    \^     Underscore    \_
+%   Grave accent  \`     Left brace    \{     Vertical bar  \|
+%   Right brace   \}     Tilde         \~}
+%
+%
+% \changes{v0.1}{2015/06/16}{Converted to DTX file}
+% \changes{v1.0}{2015/07/08}{Inital release}
+%
+% \DoNotIndex{\newcommand,\newenvironment,\def,\directlua}
+%
+% \StopEventually{}
+% \pagebreak
+% \section{Implementation}
+%
+% \iffalse
+%<*package>
+% \fi
+% \MacroTopsep = 10pt plus 2pt minus 2pt
+% \MacrocodeTopsep = 10pt plus 1.2pt minus 1pt
+%
+% \makeatletter
+% \c@CodelineNo 25 \relax
+% \makeatother
+%
+% \subsection{The file \tt{cloze.sty}}
+%
+% This four packages are used to build \emph{cloze}:
+%
+% \begin{itemize}
+% \item \href{https://www.ctan.org/pkg/fontspec}{fontspec} is not
+% necessarily required. When using Lua\LaTeX{} it is good form to load
+% it. Apart from this the package supplies helpful messages, when you
+% compile a Lua\LaTeX{} document with pdf\LaTeX{}.
+%
+% \item \href{https://www.ctan.org/pkg/luatexbase}{luatexbase} allows to
+% register multiple Lua callbacks.
+%
+% \item \href{https://www.ctan.org/pkg/kvoptions}{kvoptions} takes the
+% handling of the options.
+%
+% \item \href{https://www.ctan.org/pkg/xcolor}{xcolor} is required to
+% colorize the text and the line of a gap.
+% \end{itemize}
+%
+%    \begin{macrocode}
+\RequirePackage{fontspec,luatexbase-mcb,kvoptions,xcolor}
+%    \end{macrocode}
+%
+% Load the cloze lua module and put all return values in the variable
+% |cloze|.
+%
+%    \begin{macrocode}
+\directlua{
+  cloze = require('cloze')
+}
+%    \end{macrocode}
+%
+% \subsubsection{Internal macros}
+%
+% \begin{macro}{\cloze@set@to@global}
+% Set the Lua variable |registry.is_global| to |true|. All options
+% are then stored in the variable |registry.global_options|.
+%    \begin{macrocode}
+\def\cloze@set@to@global{%
+ \directlua{cloze.set_is_global(true)}%
+}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\cloze@set@to@local}
+% First unset the variable |registry.local_options|. Now set the Lua
+% variable |registry.is_global| to |false|. All options are then stored
+% in the variable |registry.local_options|.
+%    \begin{macrocode}
+\def\cloze@set@to@local{%
+  \directlua{
+    cloze.unset_local_options()
+    cloze.set_is_global(false)
+  }%
+}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\cloze@set@option}
+% \cmd{\cloze@set@option} is a wrapper for the Lua function
+% |registry.set_option|. \cmd{\cloze@set@option}\oarg{key}\marg{value}
+% sets a key \meta{key} to the value \meta{value}.
+%    \begin{macrocode}
+\def\cloze@set@option[#1]#2{%
+  \directlua{cloze.set_option('#1', '#2')}%
+}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\cloze@color}
+% Convert a color definiton name to a PDF colorstack string, for example
+% convert the color name |blue| to the colorstack string
+% |0 0 1 rg 0 0 1 RG|. The macro definition |\cloze@color{blue}|
+% builds itself the macro |\color@blue|, which expands to the PDF
+% colorstack string. The colorstack string is necessary to generate a
+% PDF colorstack whatsit.
+%    \begin{macrocode}
+\def\cloze@color#1{\csname\string\color@#1\endcsname}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\cloze@set@local@options}
+% This macro is used in all cloze commands to handle the optional
+% arguments. First it sets the option storage to local and then it
+% commits the options to the package \emph{kvoptions} via the macro
+% |\kvsetkeys{CLZ}{}|.
+%    \begin{macrocode}
+\def\cloze@set@local@options#1{%
+  \cloze@set@to@local%
+  \kvsetkeys{CLZ}{#1}%
+}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\cloze@start@marker}
+% At the begining |\cloze@start@marker| registers the required Lua
+% callbacks. Then it inserts a whatsit marker which marks the begin of a
+% gap.
+%    \begin{macrocode}
+\def\cloze@start@marker#1{%
+  \strut\directlua{
+    cloze.register('#1')
+    cloze.marker('#1', 'start')
+  }%
+}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\cloze@stop@marker}
+% \cmd{\cloze@stop@marker} inserts a whatsit marker that marks the end
+% of gap.
+%    \begin{macrocode}
+\def\cloze@stop@marker#1{%
+  \strut\directlua{
+    cloze.marker('#1', 'stop')
+  }%
+}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\cloze@margin}
+% \cmd{\cloze@margin} surrounds a text in a gap with two |kerns|.
+%    \begin{macrocode}
+\def\cloze@margin#1{%
+  \directlua{cloze.margin()}%
+  #1%
+  \directlua{cloze.margin()}%
+}
+%    \end{macrocode}
+% \end{macro}
+%
+% \subsubsection{Options}
+%
+% \emph{cloze} offers key-value pairs to use as options. For processing
+% the key-value pairs we use the package
+% \href{https://www.ctan.org/pkg/kvoptions}{kvoptions}.
+% To make all key-value pairs accessibly to Lua code, we use the
+% declaration
+% \cmd{\define@key}\marg{CLZ}\marg{option}\oarg[]\marg{\dots}. This
+% declaration comes from the package
+% \href{https://www.ctan.org/pkg/keyval}{keyval}.
+%
+% At start all values are declared as global options. At the Lua side
+% all values are now stored in the |registry.global_options| table.
+%
+%    \begin{macrocode}
+\cloze@set@to@global
+%    \end{macrocode}
+%
+% We use the abbreviation |CLZ| for \emph{cloze} as family name and
+% prefix.
+%
+%    \begin{macrocode}
+\SetupKeyvalOptions{
+  family=CLZ,
+  prefix=CLZ@
+}
+%    \end{macrocode}
+%
+% \paragraph{\tt{align}}
+%
+% \noindent Please read the section \secref{sec:option-align} how to use
+% the option |align|. |align| affects only the command \cmd{\clozefix}
+% \secref{sec:command-clozefix}.
+%
+%    \begin{macrocode}
+\DeclareStringOption{align}
+\define@key{CLZ}{align}[]{\cloze@set@option[align]{#1}}
+%    \end{macrocode}
+%
+% \paragraph{\tt{distance}}
+%
+% \noindent Please read the section \secref{sec:option-distance} how to
+% use the option |distance|.
+%
+%    \begin{macrocode}
+\DeclareStringOption{distance}
+\define@key{CLZ}{distance}[]{\cloze@set@option[distance]{#1}}
+%    \end{macrocode}
+%
+% \paragraph{\tt{hide}}
+%
+% \noindent If the option |hide| appears in the commands, |hide| will be
+% set to \emph{true} and |show| to \emph{false} on the Lua side. Please
+% read the section \secref{sec:option-hide} how to use the option
+% |hide|.
+%
+%    \begin{macrocode}
+\DeclareVoidOption{hide}{%
+  \cloze@set@option[hide]{true}%
+  \cloze@set@option[show]{false}%
+}
+%    \end{macrocode}
+%
+% \paragraph{\tt{linecolor}}
+%
+% \noindent Please read the section \secref{sec:option-linecolor} how to
+% use the option |linecolor|.
+%
+%    \begin{macrocode}
+\DeclareStringOption{linecolor}
+\define@key{CLZ}{linecolor}[]{%
+  \cloze@set@option[linecolor]{\cloze@color{#1}}%
+}
+%    \end{macrocode}
+%
+% \paragraph{\tt{margin}}
+%
+% \noindent Please read the section \secref{sec:option-margin} how to
+% use the option |margin|.
+%
+%    \begin{macrocode}
+\DeclareStringOption{margin}
+\define@key{CLZ}{margin}[]{\cloze@set@option[margin]{#1}}
+%    \end{macrocode}
+%
+% \paragraph{\tt{show}}
+%
+% \noindent If the option |show| appears in the commands, |show| will be
+% set to \emph{true} and |true| to \emph{false} on the Lua side. Please
+% read the section \secref{sec:option-show} how to use the option
+% |show|.
+%
+%    \begin{macrocode}
+\DeclareVoidOption{show}{%
+  \cloze@set@option[show]{true}%
+  \cloze@set@option[hide]{false}%
+}
+%    \end{macrocode}
+%
+% \paragraph{\tt{textcolor}}
+%
+% \noindent Please read the section \secref{sec:option-textcolor} how to
+% use the option |textcolor|.
+%
+%    \begin{macrocode}
+\DeclareStringOption{textcolor}
+\define@key{CLZ}{textcolor}[]{%
+  \cloze@set@option[textcolor]{\cloze@color{#1}}%
+}
+%    \end{macrocode}
+%
+% \paragraph{\tt{thickness}}
+%
+% \noindent Please read the section \secref{sec:option-thickness} how to
+% use the option |thickness|.
+%
+%    \begin{macrocode}
+\DeclareStringOption{thickness}
+\define@key{CLZ}{thickness}[]{\cloze@set@option[thickness]{#1}}
+%    \end{macrocode}
+%
+% \paragraph{\tt{width}}
+%
+% \noindent Please read the section \secref{sec:option-width} how to use
+% the option |width|. |width| affects only the command \cmd{\clozefix}
+% \secref{sec:command-clozefix}.
+%
+%    \begin{macrocode}
+\DeclareStringOption{width}
+\define@key{CLZ}{width}[]{\cloze@set@option[width]{#1}}
+%    \end{macrocode}
+%
+%    \begin{macrocode}
+\ProcessKeyvalOptions{CLZ}
+%    \end{macrocode}
+%
+% \subsubsection{Public macros}
+%
+% All public macros are prefixed with |\cloze|.
+%
+% \begin{macro}{\clozeset}
+% The usage of the command \cmd{\clozeset} is described in detail in
+% section \secref{sec:command-clozeset}.
+%    \begin{macrocode}
+\newcommand{\clozeset}[1]{%
+  \cloze@set@to@global%
+  \kvsetkeys{CLZ}{#1}%
+}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\clozereset}
+% The usage of the command \cmd{\clozereset} is described in detail in
+% section \secref{sec:command-clozereset}.
+%    \begin{macrocode}
+\newcommand{\clozereset}{%
+  \directlua{cloze.reset()}
+}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\clozeshow}
+% The usage of the command \cmd{\clozeshow} is described in detail in
+% section \secref{sec:command-clozeshow}.
+%    \begin{macrocode}
+\newcommand{\clozeshow}{%
+  \clozeset{show}
+}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\clozehide}
+% The usage of the command \cmd{\clozehide} is described in detail in
+% section \secref{sec:command-clozehide}.
+%    \begin{macrocode}
+\newcommand{\clozehide}{%
+  \clozeset{hide}
+}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\clozefont}
+% The usage of the command \cmd{\clozefont} is described in detail in
+% section \secref{sec:command-clozefont}.
+%    \begin{macrocode}
+\newcommand{\clozefont}{\itshape}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\clozesetfont}
+% The usage of the command \cmd{\clozesetfont} is described in detail in
+% section \secref{sec:command-clozesetfont}.
+%    \begin{macrocode}
+\newcommand{\clozesetfont}[1]{%
+  \renewcommand{\clozefont}[1]{%
+    #1%
+  }%
+}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\cloze}
+% The usage of the command \cmd{\cloze} is described in detail in
+% section \secref{sec:command-cloze}.
+%    \begin{macrocode}
+\newcommand{\cloze}[2][]{%
+  \cloze@set@local@options{#1}%
+  \cloze@start@marker{basic}%
+  {%
+    \clozefont\relax%
+    \cloze@margin{#2}%
+  }%
+  \cloze@stop@marker{basic}%
+}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\clozefix}
+% The usage of the command \cmd{\clozefix} is described in detail in
+% section \secref{sec:command-clozefix}.
+%    \begin{macrocode}
+\newcommand{\clozefix}[2][]{%
+  \cloze@set@local@options{#1}%
+  \cloze@start@marker{fix}%
+  {%
+    \clozefont\relax%
+    \cloze@margin{#2}%
+  }%
+  \cloze@stop@marker{fix}%
+}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{environment}{clozepar}
+% The usage of the environment |clozepar| is described in detail in
+% section \secref{sec:command-clozepar}.
+%    \begin{macrocode}
+\newenvironment{clozepar}[1][]%
+{%
+  \par%
+  \cloze@set@local@options{#1}%
+  \cloze@start@marker{par}%
+  \clozefont\relax%
+}%
+{%
+  \cloze@stop@marker{par}%
+  \par%
+  \directlua{cloze.unregister('par')}%
+}
+%    \end{macrocode}
+% \end{environment}
+%
+% \begin{macro}{\clozefil}
+% The usage of the command \cmd{\clozefil} is described in detail in
+% section \secref{sec:command-clozefil}.
+%    \begin{macrocode}
+\newcommand{\clozefil}[2][]{%
+  \cloze[#1]{#2}\clozelinefil[#1]%
+}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\clozeline}
+% The usage of the command \cmd{\clozeline} is described in detail in
+% section \secref{sec:command-clozeline}.
+%    \begin{macrocode}
+\newcommand{\clozeline}[1][]{%
+  \cloze@set@local@options{#1}%
+  \directlua{cloze.line()}%
+}
+%    \end{macrocode}
+% \end{macro}
+%
+% \begin{macro}{\clozelinefil}
+% The usage of the command \cmd{\clozelinefil} is described in detail in
+% section \secref{sec:command-clozelinefil}.
+%    \begin{macrocode}
+\newcommand{\clozelinefil}[1][]{%
+  \cloze@set@local@options{#1}%
+  \strut%
+  \directlua{cloze.linefil()}%
+  \strut%
+}
+%    \end{macrocode}
+% \end{macro}
+%
+% \iffalse
+%</package>
+%<*lua>
+% \fi
+%
+% \makeatletter
+% \c@CodelineNo 0 \relax
+% \makeatother
+%
+% \subsection{The file \tt{cloze.lua}}
+%
+% \setlength{\parindent}{0pt}
+%
+% \paragraph{Initialisation of the function tables}
+%
+% It is good form to provide some background informations about this Lua
+% module.
+%    \begin{macrocode}
+if not modules then modules = { } end modules ['cloze'] = {
+  version   = '0.1',
+  comment   = 'cloze',
+  author    = 'Josef Friedrich, R.-M. Huber',
+  copyright = 'Josef Friedrich, R.-M. Huber',
+  license   = 'The LaTeX Project Public License Version 1.3c 2008-05-04'
+}
+%    \end{macrocode}
+%
+% |nodex| is a abbreviation for \emph{node eXtended}.
+%    \begin{macrocode}
+local nodex = {}
+%    \end{macrocode}
+%
+% All values and functions, which are related to the option management,
+% are stored in a table called |registry|.
+%
+%    \begin{macrocode}
+local registry = {}
+%    \end{macrocode}
+%
+% I didn't know what value I should take as |user_id|. Therefore I took
+% my birthday and transformed it to a large number.
+%    \begin{macrocode}
+registry.user_id = 3121978
+registry.storage = {}
+registry.defaults = {
+  ['align'] = 'l',
+  ['distance'] = '1.5pt',
+  ['hide'] = false,
+  ['linecolor'] = '0 0 0 rg 0 0 0 RG', -- black
+  ['margin'] = '3pt',
+  ['resetcolor'] = '0 0 0 rg 0 0 0 RG', -- black
+  ['show_text'] = true,
+  ['show'] = true,
+  ['textcolor'] = '0 0 1 rg 0 0 1 RG', -- blue
+  ['thickness'] = '0.4pt',
+  ['width'] = '2cm',
+}
+registry.global_options = {}
+registry.local_options = {}
+%    \end{macrocode}
+%
+% All those functions are stored in the table |cloze| that are
+% registered as callbacks to the pre and post linebreak filters.
+%    \begin{macrocode}
+local cloze = {}
+%    \end{macrocode}
+%
+% The |base| table contains some basic functions. |base| is the only
+% table of this Lua module that will be exported.
+%    \begin{macrocode}
+local base = {}
+base.is_registered = {}
+%    \end{macrocode}
+%
+% \subsubsection{Node precessing (nodex)}
+%
+% All functions in this section are stored in a table called |nodex|.
+% |nodex| is a abbreviation for \emph{node eXtended}. The |nodex| table
+% bundles all functions, which extend the built-in |node| library.
+%
+% \paragraph{Color handling (color)}
+%
+% \luafunction{create\_colorstack}
+% Create a whatsit node of the subtype |pdf_colorstack|. |data| is a PDF
+% colorstack string like |0 0 0 rg 0 0 0 RG|.
+%    \begin{macrocode}
+function nodex.create_colorstack(data)
+  if not data then
+    data = '0 0 0 rg 0 0 0 RG' -- black
+  end
+  local whatsit = node.new('whatsit', 'pdf_colorstack')
+  whatsit.stack = 0
+  whatsit.data = data
+  return whatsit
+end
+%    \end{macrocode}
+%
+% \luafunction{create\_color}
+% |nodex.create_color()| is a wrapper for the function
+% |nodex.create_colorstack()|. It queries the current values of the
+% options |linecolor| and |textcolor|. The argument |option| accepts the
+% strings |line|, |text| and |reset|.
+%    \begin{macrocode}
+function nodex.create_color(option)
+  local data
+  if option == 'line' then
+    data = registry.get_value('linecolor')
+  elseif option == 'text' then
+    data = registry.get_value('textcolor')
+  elseif option == 'reset' then
+    data = nil
+  else
+    data = nil
+  end
+  return nodex.create_colorstack(data)
+end
+%    \end{macrocode}
+%
+% \paragraph{Line handling (line)}
+%
+% \luafunction{create\_line}
+% Create a rule node, which is used as a line for the cloze texts. The
+% |depth| and the |height| of the rule are calculated form the options
+% |thickness| and |distance|. The argument |width| must have the length
+% unit \emph{scaled points}.
+%    \begin{macrocode}
+function nodex.create_line(width)
+  local rule = node.new(node.id('rule'))
+  local thickness = tex.sp(registry.get_value('thickness'))
+  local distance = tex.sp(registry.get_value('distance'))
+  rule.depth = distance + thickness
+  rule.height = - distance
+  rule.width = width
+  return rule
+end
+%    \end{macrocode}
+%
+% \luafunction{insert\_line}
+% Enclose a rule node (cloze line) with two PDF colorstack whatsits. The
+% first colorstack node dyes the line, the seccond resets the color.
+%
+% \subparagraph*{Node list:}
+%
+% \begin{nodelist}
+% |n.color_line| & |whatsit| & |pdf_colorstack| & Line color \\
+% |n.line| & |rule| &  & |width| \\
+% |n.color_reset| & |whatsit| & |pdf_colorstack| & Reset color \\
+% \end{nodelist}
+%
+%    \begin{macrocode}
+function nodex.insert_line(head, current, width)
+  local n = {} -- node
+  n.color_line = nodex.create_color('line')
+  head, n.color_line = node.insert_after(head, current, n.color_line)
+  n.line = nodex.create_line(width)
+  head, n.line = node.insert_after(head, n.color_line, n.line)
+  n.color_reset = nodex.create_color('reset')
+  return node.insert_after(head, n.line, n.color_reset)
+end
+%    \end{macrocode}
+%
+% \luafunction{write\_line}
+% This function enclozes a rule node with color nodes as it the function
+% |nodex.insert_line| does. In contrast to |nodex.insert_line| the three
+% nodes are appended to \TeX’s ‘current list’. They are not inserted in
+% a node list, which is accessed by a Lua callback.
+%
+% \subparagraph*{Node list:}
+%
+% \begin{nodelist}
+% - & |whatsit| & |pdf_colorstack| & Line color \\
+% - & |rule| &  & |width| \\
+% - & |whatsit| & |pdf_colorstack| & Reset color \\
+% \end{nodelist}
+%
+%    \begin{macrocode}
+function nodex.write_line()
+  node.write(nodex.create_color('line'))
+  node.write(nodex.create_line(tex.sp(registry.get_value('width'))))
+  node.write(nodex.create_color('reset'))
+end
+%    \end{macrocode}
+%
+% \paragraph{Handling of extendable lines (linefil)}
+%
+% \luafunction{create\_linefil}
+% This function creates a line which stretchs indefinitely in the
+% horizontal direction.
+%    \begin{macrocode}
+function nodex.create_linefil()
+  local glue = node.new('glue')
+  glue.subtype = 100
+  local glue_spec = node.new('glue_spec')
+  glue_spec.stretch = 65536
+  glue_spec.stretch_order = 3
+  glue.spec = glue_spec
+  local rule = nodex.create_line(0)
+  rule.dir = 'TLT'
+  glue.leader = rule
+  return glue
+end
+%    \end{macrocode}
+%
+% \luafunction{write\_linefil}
+% The function |nodex.write_linefil| surrounds a indefinitely strechable
+% line with color whatsits and puts it to \TeX’s ‘current (node) list’.
+%    \begin{macrocode}
+function nodex.write_linefil()
+  node.write(nodex.create_color('line'))
+  node.write(nodex.create_linefil())
+  node.write(nodex.create_color('reset'))
+end
+%    \end{macrocode}
+%
+% \paragraph{Kern handling (kern)}
+%
+% \luafunction{create\_kern}
+% This function creates a kern node with a given width. The argument
+% |width| had to be specified in scaled points.
+%    \begin{macrocode}
+function nodex.create_kern(width)
+  local kern = node.new(node.id('kern'))
+  kern.kern = width
+  return kern
+end
+%    \end{macrocode}
+%
+% \luafunction{strut\_to\_hlist}
+% To make life easier: We add at the beginning of each hlist a strut.
+% Now we can add line, color etc. nodes after the first node of a hlist
+% not before - after is much more easier.
+%    \begin{macrocode}
+function nodex.strut_to_hlist(hlist)
+  local n = {} -- node
+  n.head = hlist.head
+  n.kern = nodex.create_kern(0)
+  n.strut = node.insert_before(n.head, n.head, n.kern)
+  hlist.head = n.head.prev
+  return hlist, n.strut, n.head
+end
+%    \end{macrocode}
+%
+% \luafunction{write\_margin}
+% Write kern nodes to the current node list. This kern nodes can be used
+% to build a margin.
+%    \begin{macrocode}
+function nodex.write_margin()
+  local kern = nodex.create_kern(tex.sp(registry.get_value('margin')))
+  node.write(kern)
+end
+%    \end{macrocode}
+%
+% \subsubsection{Option handling (registry)}
+%
+% The table |registry| bundels functions that deal with option handling.
+%
+% \paragraph{Marker processing (marker)}
+%
+% A marker is a whatsit node of the subtype |user_defined|. A marker has
+% two purposes:
+%
+% \begin{enumerate}
+% \item Mark the begin and the end of a gap.
+% \item Store a index number, that points to a Lua table, which holds
+% some additional data like the local options.
+% \end{enumerate}
+%
+% \luafunction{create\_marker}
+% We create a user defined whatsit node that can store a number (type =
+% 100). In order to distinguish this node from other user defined
+% whatsit nodes we set the |user_id| to a large number. We call this
+% whatsit node a marker. The argument |index| is a number, which is
+% associated to values in the |registry.storage| table.
+%    \begin{macrocode}
+function registry.create_marker(index)
+  local marker = node.new('whatsit','user_defined')
+  marker.type = 100 -- number
+  marker.user_id = registry.user_id
+  marker.value = index
+  return marker
+end
+%    \end{macrocode}
+%
+% \luafunction{write\_marker}
+% Write a marker node to \TeX's current node list. The argument |mode|
+% accepts the string values |basic|, |fix| and |par|. The argument
+% |position|. The argument |position| is either set to |start| or to
+% |stop|.
+%    \begin{macrocode}
+function registry.write_marker(mode, position)
+  local index = registry.set_storage(mode, position)
+  local marker = registry.create_marker(index)
+  node.write(marker)
+end
+%    \end{macrocode}
+%
+% \luafunction{check\_marker}
+% This functions tests, whether the given node |item| is a marker. The
+% argument |item| is a node. The argument |mode| accepts the string
+% values |basic|, |fix| and |par|. The argument |position| is either set
+% to |start| or to |stop|.
+%    \begin{macrocode}
+function registry.check_marker(item, mode, position)
+  local data = registry.get_marker_data(item)
+  if data and data.mode == mode and data.position == position then
+    return true
+  else
+    return false
+  end
+end
+%    \end{macrocode}
+%
+% \luafunction{get\_marker}
+% |registry.get_marker| returns the given marker. The argument |item| is
+% a node. The argument |mode| accepts the string values |basic|, |fix|
+% and |par|. The argument |position| is either set to |start| or to
+% |stop|.
+%    \begin{macrocode}
+function registry.get_marker(item, mode, position)
+  local out
+  if registry.check_marker(item, mode, position) then
+    out = item
+  else
+    out = false
+  end
+  if out and position == 'start' then
+    registry.get_marker_values(item)
+  end
+  return out
+end
+%    \end{macrocode}
+%
+% \luafunction{get\_marker\_data}
+% |registry.get_marker_data| tests whether the node |item| is a marker.
+% The argument |item| is a node of unspecified type.
+%    \begin{macrocode}
+function registry.get_marker_data(item)
+  if item.id == node.id('whatsit')
+    and item.subtype == 44
+    and item.user_id == registry.user_id then
+    return registry.get_storage(item.value)
+  else
+    return false
+  end
+end
+%    \end{macrocode}
+%
+% \luafunction{get\_marker\_values}
+% First this function saves the associatied values of a marker to the
+% local options table. Second it returns this values. The argument
+% |marker| is a whatsit node.
+%    \begin{macrocode}
+function registry.get_marker_values(marker)
+  local data = registry.get_marker_data(marker)
+  registry.local_options = data.values
+  return data.values
+end
+%    \end{macrocode}
+%
+% \paragraph{Storage functions (storage)}
+%
+% \luafunction{get\_index}
+% |registry.index| is a counter. The functions |registry.get_index()|
+% increases the counter by one and then returns it.
+%    \begin{macrocode}
+function registry.get_index()
+  if not registry.index then
+    registry.index = 0
+  end
+  registry.index = registry.index + 1
+  return registry.index
+end
+%    \end{macrocode}
+%
+% \luafunction{set\_storage}
+% |registry.set_storage()| stores the local options in the Lua table
+% |registry.storage|. It returns a numeric index number. This index
+% number is the key, where the local options in the Lua table are
+% stored. The argument |mode| accepts the string values |basic|, |fix|
+% and |par|.
+%    \begin{macrocode}
+function registry.set_storage(mode, position)
+  local index = registry.get_index()
+  local data = {
+    ['mode'] = mode,
+    ['position'] = position
+  }
+  data.values = registry.local_options
+  registry.storage[index] = data
+  return index
+end
+%    \end{macrocode}
+%
+% \luafunction{get\_storage}
+% The function |registry.get_storage()| retrieves values which belong to
+% a whatsit marker. The argument |index| is a numeric value.
+%    \begin{macrocode}
+function registry.get_storage(index)
+  return registry.storage[index]
+end
+%    \end{macrocode}
+%
+% \paragraph{Option processing (option)}
+%
+% \luafunction{set\_option}
+% This function stores a value |value| and his associated key |key|
+% either to the global (|registry.global_options|) or to the local
+% (|registry.local_options|) option table. The global boolean variable
+% |registry.local_options| controls in which table the values are
+% stored.
+%    \begin{macrocode}
+function registry.set_option(key, value)
+  if value == '' or value == '\\color@ ' then
+    return false
+  end
+  if registry.is_global == true then
+    registry.global_options[key] = value
+  else
+    registry.local_options[key] = value
+  end
+end
+%    \end{macrocode}
+%
+% \luafunction{set\_is\_global}
+% |registry.set_is_global()| sets the variable |registry.is_global| to
+% the value |value|. It is intended, that the variable takes boolean
+% values.
+%    \begin{macrocode}
+function registry.set_is_global(value)
+  registry.is_global = value
+end
+%    \end{macrocode}
+%
+% \luafunction{unset\_local\_options}
+% This function unsets the local options.
+%    \begin{macrocode}
+function registry.unset_local_options()
+  registry.local_options = {}
+end
+%    \end{macrocode}
+%
+% \luafunction{unset\_global\_options}
+% |registry.unset_global_options| empties the global options storage.
+%    \begin{macrocode}
+function registry.unset_global_options()
+  registry.global_options = {}
+end
+%    \end{macrocode}
+%
+% \luafunction{get\_value}
+% Retrieve a value from a given key. First search for the value in the
+% local options, then in the global options. If both option storages are
+% empty, the default value will be returned.
+%    \begin{macrocode}
+function registry.get_value(key)
+  if registry.has_value(registry.local_options[key]) then
+    return registry.local_options[key]
+  end
+  if registry.has_value(registry.global_options[key]) then
+    return registry.global_options[key]
+  end
+  return registry.defaults[key]
+end
+%    \end{macrocode}
+%
+% \luafunction{get\_value\_show}
+% The function |registry.get_value_show()| returns the boolean value
+% |true| if the option |show| is true. In contrast to the function
+% |registry.get_value()| it converts the string value `true' to a
+% boolean value.
+%    \begin{macrocode}
+function registry.get_value_show()
+  if
+    registry.get_value('show') == true
+  or
+    registry.get_value('show') == 'true'
+  then
+    return true
+  else
+    return false
+  end
+end
+%    \end{macrocode}
+%
+% \luafunction{has\_value}
+% This function tests whether the value |value| is not empty and has a
+% value.
+%    \begin{macrocode}
+function registry.has_value(value)
+  if value == nil or value == '' or value == '\\color@ ' then
+    return false
+  else
+    return true
+  end
+end
+%    \end{macrocode}
+%
+% \luafunction{get\_defaults}
+% |registry.get_defaults(option)| returns a the default value of the
+% given option.
+%    \begin{macrocode}
+function registry.get_defaults(option)
+  return registry.defaults[option]
+end
+%    \end{macrocode}
+%
+% \subsubsection{Assembly to cloze texts (cloze)}
+%
+% \luafunction{basic\_make}
+% The function |cloze.basic_make()| makes one gap. The argument |head|
+% is the head node of a node list. The argument |start| is the node,
+% where the gap begins. The argument |stop| is the node, where the gap
+% ends.
+%    \begin{macrocode}
+function cloze.basic_make(head, hlist, start, stop)
+  local n = {}
+  local l = {}
+  if not start or not stop then
+    return
+  end
+  n.start = start
+  n.stop = stop
+  l.width = node.dimensions(
+    hlist.glue_set,
+    hlist.glue_sign,
+    hlist.glue_order,
+    n.start,
+    n.stop
+  )
+  head, n.line = nodex.insert_line(head, n.start, l.width)
+  n.color_text = nodex.create_color('text')
+  head, n.color_text = node.insert_after(
+    hlist.head,
+    n.line,
+    n.color_text
+  )
+  if registry.get_value_show() then
+    n.kern = nodex.create_kern(-l.width)
+    node.insert_after(head, n.color_text, n.kern)
+    n.color_reset = nodex.create_color('reset')
+    node.insert_after(head, n.stop, n.color_reset)
+  else
+    n.line.next = n.stop.next
+    n.stop.prev = n.line.prev
+  end
+
+end
+%    \end{macrocode}
+%
+% \luafunction{basic}
+% The corresponding \LaTeX command to this lua function is \cmd{\cloze}
+% \secref{sec:command-cloze}. The argument |head| is the head node of a
+% node list.
+%    \begin{macrocode}
+function cloze.basic(head)
+  local n = {} -- node
+  local b = {} -- boolean
+  local l = {} -- length
+  local t = {} -- temp
+  for hlist in node.traverse_id(node.id('hlist'), head) do
+    hlist = nodex.strut_to_hlist(hlist)
+    if b.line_end then
+      b.init_cloze = true
+    end
+    n.current = hlist.head
+    while n.current do
+      if
+        registry.check_marker(n.current, 'basic', 'start')
+      or
+        b.init_cloze
+      then
+        b.init_cloze = false
+        n.start = n.current
+        while n.current do
+          b.line_end = true
+          n.stop = n.current
+          if registry.check_marker(n.stop, 'basic', 'stop') then
+            b.line_end = false
+            break
+          end
+          n.current = n.current.next
+        end
+        cloze.basic_make(head, hlist, n.start, n.stop)
+        n.current = n.stop
+      else
+        n.current = n.current.next
+      end
+    end
+  end
+  return head
+end
+%    \end{macrocode}
+%
+% \luafunction{fix\_make}
+% The function |cloze.fix_make| generates a gap of fixed width.
+%
+% \subparagraph*{Node lists}
+%
+% \subparagraph*{Show text:}
+%
+% \begin{nodelist}
+% |n.start| & |whatsit| & |user_definded| & |index| \\
+% |n.line| & |rule| &  & |l.width| \\
+% |n.kern_start| & |kern| & & Depends on |align| \\
+% |n.color_text| & |whatsit| & |pdf_colorstack| & Text color \\
+%  & |glyphs| & & Text to show \\
+% |n.color_reset| & |whatsit| & |pdf_colorstack| & Reset color \\
+% |n.kern_stop| & |kern| & & Depends on |align| \\
+% |n.stop| & |whatsit| & |user_definded| & |index| \\
+% \end{nodelist}
+%
+% \subparagraph*{Hide text:}
+%
+% \begin{nodelist}
+% |n.start| & |whatsit| & |user_definded| & |index| \\
+% |n.line| & |rule| &  & |l.width| \\
+% |n.stop| & |whatsit| & |user_definded| & |index| \\
+% \end{nodelist}
+%
+% The argument |head| is the head node of a node list. The argument
+% |start| is the node, where the gap begins. The argument |stop| is the
+% node, where the gap ends.
+%    \begin{macrocode}
+function cloze.fix_make(head, start, stop)
+  local l = {} -- length
+  l.width = tex.sp(registry.get_value('width'))
+  local n = {} -- node
+  n.start = start
+  n.stop = stop
+  l.text_width = node.dimensions(n.start, n.stop)
+  local align = registry.get_value('align')
+  if align == 'right' then
+    l.kern_start = -l.text_width
+    l.kern_stop = 0
+  elseif align == 'center' then
+    l.half = (l.width - l.text_width) / 2
+    l.kern_start = -l.half - l.text_width
+    l.kern_stop = l.half
+  else
+    l.kern_start = -l.width
+    l.kern_stop = l.width - l.text_width
+  end
+  head, n.line = nodex.insert_line(head, n.start, l.width)
+  if registry.get_value_show() then
+    n.kern_start = nodex.create_kern(l.kern_start)
+    head, n.kern_start = node.insert_after(head, n.line, n.kern_start)
+    n.color_text = nodex.create_color('text')
+    node.insert_after(head, n.kern_start, n.color_text)
+    n.color_reset = nodex.create_color('reset')
+    node.insert_before(head, n.stop, n.color_reset)
+    n.kern_stop = nodex.create_kern(l.kern_stop)
+    node.insert_before(head, n.stop, n.kern_stop)
+  else
+    n.line.next = n.stop.next
+  end
+end
+%    \end{macrocode}
+%
+% \luafunction{fix}
+% The corresponding \LaTeX command to this Lua function is
+% \cmd{\clozefix} \secref{sec:command-clozefix}. The argument |head| is
+% the head node of a node list.
+%    \begin{macrocode}
+function cloze.fix(head)
+  local n = {} -- node
+  n.start, n.stop = false
+  for current in node.traverse_id(node.id('whatsit'), head) do
+    if not n.start then
+      n.start = registry.get_marker(current, 'fix', 'start')
+    end
+    if not n.stop then
+      n.stop = registry.get_marker(current, 'fix', 'stop')
+    end
+    if n.start and n.stop then
+      cloze.fix_make(head, n.start, n.stop)
+      n.start, n.stop = false
+    end
+  end
+  return head
+end
+%    \end{macrocode}
+%
+% \luafunction{par}
+% The corresponding \LaTeX environment to this lua function is
+% |clozepar| \secref{sec:command-clozepar}.
+%
+% \subparagraph*{Node lists}
+%
+% \subparagraph*{Show text:}
+%
+% \begin{nodelist}
+% |n.strut| & |kern| &  & width = 0  \\
+% |n.line| & |rule| &  & |l.width| (Width from hlist) \\
+% |n.kern| & |kern| & & |-l.width| \\
+% |n.color_text| & |whatsit| & |pdf_colorstack| & Text color \\
+%  & |glyphs| & & Text to show \\
+% |n.tail| & |glyph| &  & Last glyph in hlist \\
+% |n.color_reset| & |whatsit| & |pdf_colorstack| & Reset color \\
+% \end{nodelist}
+%
+% \subparagraph*{Hide text:}
+%
+% \begin{nodelist}
+% |n.strut| & |kern| &  & width = 0 \\
+% |n.line| & |rule| &  & |l.width| (Width from hlist) \\
+% \end{nodelist}
+%
+% The argument |head| is the head node of a node list.
+%    \begin{macrocode}
+function cloze.par(head)
+  local l = {} -- length
+  local n = {} -- node
+  for hlist in node.traverse_id(node.id('hlist'), head) do
+    for whatsit in node.traverse_id(node.id('whatsit'), hlist.head) do
+      registry.get_marker(whatsit, 'par', 'start')
+    end
+    l.width = hlist.width
+    hlist, n.strut, n.head = nodex.strut_to_hlist(hlist)
+    head, n.line = nodex.insert_line(head, n.strut, l.width)
+    if registry.get_value_show() then
+      n.kern = nodex.create_kern(-l.width)
+      head, n.kern = node.insert_after(head, n.line, n.kern)
+      n.color_text = nodex.create_color('text')
+      node.insert_after(head, n.kern, n.color_text)
+      n.tail = node.tail(n.head)
+      n.color_reset = nodex.create_color('reset')
+      node.insert_after(n.head, n.tail, n.color_reset)
+    else
+      n.line.next = nil
+    end
+  end
+  return head
+end
+%    \end{macrocode}
+%
+% \subsubsection{Basic module functions (base)}
+%
+% The |base| table contains functions which are published to the
+% |cloze.sty| file.
+%
+% \luafunction{register}
+% This function registers the functions |cloze.par|, |cloze.basic| and
+% |cloze.fix| the Lua callbacks. |cloze.par| and |cloze.basic| are
+% registered to the callback |post_linebreak_filter| and |cloze.fix| to
+% the callback |pre_linebreak_filter|. The argument |mode| accepts the
+% string values |basic|, |fix| and |par|.
+%    \begin{macrocode}
+function base.register(mode)
+  if mode == 'par' then
+    luatexbase.add_to_callback(
+      'post_linebreak_filter',
+      cloze.par,
+      mode
+    )
+    return true
+  end
+  if not base.is_registered[mode] then
+    if mode == 'basic' then
+      luatexbase.add_to_callback(
+        'post_linebreak_filter',
+        cloze.basic,
+        mode
+      )
+    elseif mode == 'fix' then
+      luatexbase.add_to_callback(
+        'pre_linebreak_filter',
+        cloze.fix,
+        mode
+      )
+    else
+      return false
+    end
+    base.is_registered[mode] = true
+  end
+end
+%    \end{macrocode}
+%
+% \luafunction{unregister}
+% |base.unregister(mode)| deletes the registered functions from the Lua
+% callbacks. The argument |mode| accepts the string values |basic|,
+% |fix| and |par|.
+%    \begin{macrocode}
+function base.unregister(mode)
+  if mode == 'basic' then
+    luatexbase.remove_from_callback('post_linebreak_filter', mode)
+  elseif mode == 'fix' then
+    luatexbase.remove_from_callback('pre_linebreak_filter', mode)
+  else
+    luatexbase.remove_from_callback('post_linebreak_filter', mode)
+  end
+end
+%    \end{macrocode}
+%
+% Publish some functions to the |cloze.sty| file.
+%    \begin{macrocode}
+base.linefil = nodex.write_linefil
+base.line = nodex.write_line
+base.margin = nodex.write_margin
+base.set_option = registry.set_option
+base.set_is_global = registry.set_is_global
+base.unset_local_options = registry.unset_local_options
+base.reset = registry.unset_global_options
+base.get_defaults = registry.get_defaults
+base.marker = registry.write_marker
+%    \end{macrocode}
+%
+%    \begin{macrocode}
+return base
+%    \end{macrocode}
+% \iffalse
+%</lua>
+% \fi
+%
+% \Finale
+\endinput
diff --git a/Master/texmf-dist/source/lualatex/cloze/cloze.ins b/Master/texmf-dist/source/lualatex/cloze/cloze.ins
new file mode 100644
index 00000000000..8012a6b5e35
--- /dev/null
+++ b/Master/texmf-dist/source/lualatex/cloze/cloze.ins
@@ -0,0 +1,61 @@
+% Copyright (C) 2015 by Josef Friedrich <josef@friedrich.rocks>
+% ----------------------------------------------------------------------
+% This work may be distributed and/or modified under the conditions of
+% the LaTeX Project Public License, either version 1.3c of this license
+% or (at your option) any later version. The latest version of this
+% license is in:
+%
+%   http://www.latex-project.org/lppl.txt
+%
+% and version 1.3c or later is part of all distributions of LaTeX
+% version 2008/05/05 or later.
+
+
+\input docstrip.tex
+\keepsilent
+
+\usedir{tex/latex/cloze}
+
+\askforoverwritefalse
+
+\preamble
+
+This is a generated file.
+
+Copyright (C) 2015 by Josef Friedrich <josef@friedrich.rocks>
+----------------------------------------------------------------------
+This work may be distributed and/or modified under the conditions of
+the LaTeX Project Public License, either version 1.3c of this license
+or (at your option) any later version. The latest version of this
+license is in:
+
+  http://www.latex-project.org/lppl.txt
+
+and version 1.3c or later is part of all distributions of LaTeX
+version 2008/05/05 or later.
+
+\endpreamble
+
+\generate{\file{cloze.sty}{\from{cloze.dtx}{package}}}
+
+\nopreamble
+\nopostamble
+\generate{\file{cloze.lua}{\from{cloze.dtx}{lua}}}
+\generate{\file{README.md}{\from{cloze.dtx}{readme}}}
+
+\obeyspaces
+\Msg{*************************************************************}
+\Msg{*                                                           *}
+\Msg{* To finish the installation you have to move the following *}
+\Msg{* file into a directory searched by TeX:                    *}
+\Msg{*                                                           *}
+\Msg{*     cloze.sty                                             *}
+\Msg{*                                                           *}
+\Msg{* To produce the documentation run the file cloze.dtx       *}
+\Msg{* through LaTeX.                                            *}
+\Msg{*                                                           *}
+\Msg{* Happy TeXing!                                             *}
+\Msg{*                                                           *}
+\Msg{*************************************************************}
+
+\endbatchfile
diff --git a/Master/texmf-dist/tex/lualatex/cloze/cloze.sty b/Master/texmf-dist/tex/lualatex/cloze/cloze.sty
new file mode 100644
index 00000000000..de90141b594
--- /dev/null
+++ b/Master/texmf-dist/tex/lualatex/cloze/cloze.sty
@@ -0,0 +1,159 @@
+%%
+%% This is file `cloze.sty',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% cloze.dtx  (with options: `package')
+%% 
+%% This is a generated file.
+%% 
+%% Copyright (C) 2015 by Josef Friedrich <josef@friedrich.rocks>
+%% ----------------------------------------------------------------------
+%% This work may be distributed and/or modified under the conditions of
+%% the LaTeX Project Public License, either version 1.3c of this license
+%% or (at your option) any later version. The latest version of this
+%% license is in:
+%% 
+%%   http://www.latex-project.org/lppl.txt
+%% 
+%% and version 1.3c or later is part of all distributions of LaTeX
+%% version 2008/05/05 or later.
+%% 
+\NeedsTeXFormat{LaTeX2e}[1999/12/01]
+\ProvidesPackage{cloze}
+    [2015/07/08 v1.0 Package to typeset cloze worksheets or cloze tests]
+\RequirePackage{fontspec,luatexbase-mcb,kvoptions,xcolor}
+\directlua{
+  cloze = require('cloze')
+}
+\def\cloze@set@to@global{%
+ \directlua{cloze.set_is_global(true)}%
+}
+\def\cloze@set@to@local{%
+  \directlua{
+    cloze.unset_local_options()
+    cloze.set_is_global(false)
+  }%
+}
+\def\cloze@set@option[#1]#2{%
+  \directlua{cloze.set_option('#1', '#2')}%
+}
+\def\cloze@color#1{\csname\string\color@#1\endcsname}
+\def\cloze@set@local@options#1{%
+  \cloze@set@to@local%
+  \kvsetkeys{CLZ}{#1}%
+}
+\def\cloze@start@marker#1{%
+  \strut\directlua{
+    cloze.register('#1')
+    cloze.marker('#1', 'start')
+  }%
+}
+\def\cloze@stop@marker#1{%
+  \strut\directlua{
+    cloze.marker('#1', 'stop')
+  }%
+}
+\def\cloze@margin#1{%
+  \directlua{cloze.margin()}%
+  #1%
+  \directlua{cloze.margin()}%
+}
+\cloze@set@to@global
+\SetupKeyvalOptions{
+  family=CLZ,
+  prefix=CLZ@
+}
+\DeclareStringOption{align}
+\define@key{CLZ}{align}[]{\cloze@set@option[align]{#1}}
+\DeclareStringOption{distance}
+\define@key{CLZ}{distance}[]{\cloze@set@option[distance]{#1}}
+\DeclareVoidOption{hide}{%
+  \cloze@set@option[hide]{true}%
+  \cloze@set@option[show]{false}%
+}
+\DeclareStringOption{linecolor}
+\define@key{CLZ}{linecolor}[]{%
+  \cloze@set@option[linecolor]{\cloze@color{#1}}%
+}
+\DeclareStringOption{margin}
+\define@key{CLZ}{margin}[]{\cloze@set@option[margin]{#1}}
+\DeclareVoidOption{show}{%
+  \cloze@set@option[show]{true}%
+  \cloze@set@option[hide]{false}%
+}
+\DeclareStringOption{textcolor}
+\define@key{CLZ}{textcolor}[]{%
+  \cloze@set@option[textcolor]{\cloze@color{#1}}%
+}
+\DeclareStringOption{thickness}
+\define@key{CLZ}{thickness}[]{\cloze@set@option[thickness]{#1}}
+\DeclareStringOption{width}
+\define@key{CLZ}{width}[]{\cloze@set@option[width]{#1}}
+\ProcessKeyvalOptions{CLZ}
+\newcommand{\clozeset}[1]{%
+  \cloze@set@to@global%
+  \kvsetkeys{CLZ}{#1}%
+}
+\newcommand{\clozereset}{%
+  \directlua{cloze.reset()}
+}
+\newcommand{\clozeshow}{%
+  \clozeset{show}
+}
+\newcommand{\clozehide}{%
+  \clozeset{hide}
+}
+\newcommand{\clozefont}{\itshape}
+\newcommand{\clozesetfont}[1]{%
+  \renewcommand{\clozefont}[1]{%
+    #1%
+  }%
+}
+\newcommand{\cloze}[2][]{%
+  \cloze@set@local@options{#1}%
+  \cloze@start@marker{basic}%
+  {%
+    \clozefont\relax%
+    \cloze@margin{#2}%
+  }%
+  \cloze@stop@marker{basic}%
+}
+\newcommand{\clozefix}[2][]{%
+  \cloze@set@local@options{#1}%
+  \cloze@start@marker{fix}%
+  {%
+    \clozefont\relax%
+    \cloze@margin{#2}%
+  }%
+  \cloze@stop@marker{fix}%
+}
+\newenvironment{clozepar}[1][]%
+{%
+  \par%
+  \cloze@set@local@options{#1}%
+  \cloze@start@marker{par}%
+  \clozefont\relax%
+}%
+{%
+  \cloze@stop@marker{par}%
+  \par%
+  \directlua{cloze.unregister('par')}%
+}
+\newcommand{\clozefil}[2][]{%
+  \cloze[#1]{#2}\clozelinefil[#1]%
+}
+\newcommand{\clozeline}[1][]{%
+  \cloze@set@local@options{#1}%
+  \directlua{cloze.line()}%
+}
+\newcommand{\clozelinefil}[1][]{%
+  \cloze@set@local@options{#1}%
+  \strut%
+  \directlua{cloze.linefil()}%
+  \strut%
+}
+\endinput
+%%
+%% End of file `cloze.sty'.
diff --git a/Master/tlpkg/bin/tlpkg-ctan-check b/Master/tlpkg/bin/tlpkg-ctan-check
index a724ea67e93..998a11ae654 100755
--- a/Master/tlpkg/bin/tlpkg-ctan-check
+++ b/Master/tlpkg/bin/tlpkg-ctan-check
@@ -130,7 +130,7 @@ my @TLP_working = qw(
     cite citeall cjhebrew cjk cjk-gs-integrate cjk-ko cjkpunct
     classics classpack classicthesis
     clearsans clefval cleveref clipboard
-    clock clrscode clrscode3e cm-lgc cm-super cm-unicode
+    clock cloze clrscode clrscode3e cm-lgc cm-super cm-unicode
     cmap cmarrows cmbright cmcyr
     cmdstring cmdtrack cmextra cmll cmpica cmpj cmsd cmtiup
     cnbwp cnltx cntformats cntperchap
diff --git a/Master/tlpkg/libexec/ctan2tds b/Master/tlpkg/libexec/ctan2tds
index a823946e03c..16c45f1b088 100755
--- a/Master/tlpkg/libexec/ctan2tds
+++ b/Master/tlpkg/libexec/ctan2tds
@@ -2570,8 +2570,9 @@ $standardttf = '\.ttf|\.TTC';
 
 # scripts to install under texmf*/.../scripts, but not bindir.
 %specialscripts_nobin = (
+ 'cloze'		=> '\.lua$',
  'epspdf'               => '(epspdf(|\.help|boot|tk)|\.rb|makegray\.pro)$',
- 'latex-make'            => '\.py$',
+ 'latex-make'           => '\.py$',
  'latexindent'          => 'Settings\.yaml$',
  'lilyglyphs'           => 'lilyglyphs_common.py',
  'lua-alt-getopt'       => '\.lua$',
diff --git a/Master/tlpkg/tlpsrc/cloze.tlpsrc b/Master/tlpkg/tlpsrc/cloze.tlpsrc
new file mode 100644
index 00000000000..e69de29bb2d
--- /dev/null
+++ b/Master/tlpkg/tlpsrc/cloze.tlpsrc
diff --git a/Master/tlpkg/tlpsrc/collection-luatex.tlpsrc b/Master/tlpkg/tlpsrc/collection-luatex.tlpsrc
index 61935a5a6b1..4cec0ec2719 100644
--- a/Master/tlpkg/tlpsrc/collection-luatex.tlpsrc
+++ b/Master/tlpkg/tlpsrc/collection-luatex.tlpsrc
@@ -7,6 +7,7 @@ depend collection-basic
 #
 depend checkcites
 depend chickenize
+depend cloze
 depend enigma
 depend interpreter
 depend lua-check-hyphen