summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/tex/latex/censor/censor.sty
blob: dfc71912de0b54bab9f5d6648fab33b2232da395 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
% censor.sty
\ProvidesPackage{censor}
[2012/09/10 v2.10
 Provides capability for redaction of sensitive information]

%% Copyright 2009, 2012 Steven B. Segletes
%
% 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 Steven B. Segletes.

% Packege: CENSOR
% CHOOSE MODE OF OPERATION:
% 1) IF .tex FILE IS CREATED IN PRIVATE (SECURE) ENVIRONMENT:
%  a) To produce censored document, censor individual words with
%     \censor{word}
%  b) Censor text blocks with \blackout{...}, subject to limitations.
%  c) To produce uncensored document, place \StopCensoring in preamble 
%  d) To produced a mixed document with some redaction, but elsewhere
%     turned off, place \StopCensoring and/or \RestartCensoring in
%     various document locations as needed.
%
% DISCLAIMER: Don't \censor whitespace (i.e., phrases), or justifications
% could get fouled up.  If space-laden phrase needs repeated censoring,
% I suggest typesetting according to the following example:
% \def\CodeName{\blackout{Little Bo Peep}}
% In the text, refer to {\CodeName} as often as needed.
%
% 2) IF .tex FILE IS INITIALLY CREATED IN PUBLIC (UNSECURE) ENVIRONMENT:
%  a) To produce censored document, define (in the document preamble)
%     placeholders for all censored phrases, like:
%     \def\ProjectName{\censor*{7}}
%     In document, refer to {\ProjectName} as needed.  The "7" refers
%     to the approximate width (in ex's) of the censored word.
%  b) Use of \StopCensoring in preamble will merely turn censored
%     black rectangles into underlined blank spaces, since uncensored
%     word is not known to the public source (.tex) document.
%  c) To produce uncensored document, the source code must be moved
%     to a private (secure) working environment.  At that point, the
%     uncensored document may be created merely by editing the document
%     preamble and redefining the censored placeholders, so that
%     \def\ProjectName{\censor*{7}} becomes \def\ProjectName{Liberty},
%     for example.  Note that line justification could be affected, since
%     censored placeholders are not exactly the same width as the
%     actual word, in Mode 2 operation.
%  d) To produced (in the private/secure environment) a mixed document
%     with some redaction, but elsewhere turned off, place \StopCensoring
%     and/or \RestartCensoring in various document locations as needed.
%
% DISCLAIMER: Don't \censor whitespace (i.e., phrases), or justifications
% could get fouled up.  I suggest typesetting multi-word phrases according
% to the following example:
% \def\CodeName{\censor*{6} \censor*{2} \censor*{4}}
% In the text, refer to {\CodeName} as often as needed.
%
% NOTE: For both modes of operation, placeholders are placed in curly
% braces, so that surrounding white space and/or punctuation is properly
% handled.

% VERSION:
% 1.00 - Initial release
% 2.00 - Added \blackout
% 2.10 - Allowed \blackout to cross paragraph boundaries with use of
%        \bpar. Stopped censoring periods, in order to preserve
%        end-of-sentence spacing, which differs from inter-word spacing.

\usepackage{pbox}
\usepackage{ifnextok}

\newcommand\censor{\@ifstar{\@cenlen}{\@cenword}}
  \newcommand\@cenlen[1]{\protect\rule[-.3ex]{#1 ex}{2.1ex}}
  \newcommand\@cenword[1]{%
              \protect\rule[-.3ex]{\widthofpbox{#1}}{2.1ex}}

\newcommand\un@censor{\@ifstar{\un@cenlen}{\un@cenword}}
  \newcommand\un@cenlen[1]{\protect\underline{\hspace{#1 ex}}}
  \newcommand\un@cenword[1]{#1}

\newcommand\StopCensoring{\let\censor\un@censor}
\newcommand\RestartCensoring{%
           \renewcommand\censor{\@ifstar{\@cenlen}{\@cenword}}}

\def\stringend{$}
\def\blackout#1{\censor@Block#1\stringend}
\def\censor@Block{\IfNextToken\stringend{\@gobble}%
  {\IfNextToken\@sptoken{ \bl@t{\censor@Block}}%
  {\bl@t{\censor@Block}}}}

% V2.00 DEFINITION:
% \def\bl@t#1#2{\censor{#2}#1}

% V2.10 DEFINITION:
\def\bl@t#1#2{\if\bpar#2\par\else\if.#2#2\else\censor{#2}\fi\fi#1}
\def\bpar{_}

% ALTERNATE DEFINITION IF ABOVE PROVES PROBLEMATIC
%\def\bl@t#1#2{\if.#2#2\else\censor{#2}\fi#1} % JUST PERIODS, NO \bpar

\endinput