% Copyright (C) 2009 Michał Masłowski

% This file is free software: you can redistribute it and/or modify it
% under the terms of the GNU General Public License as published by
% the Free Software Foundation, either version 3 of the License, or
% (at your option) any later version.
%
% This file is distributed in the hope that it will be useful, but
% WITHOUT ANY WARRANTY; without even the implied warranty of
% MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
% General Public License for more details.
%
% You should have received a copy of the GNU General Public License
% along with this program.  If not, see <http://www.gnu.org/licenses/>.
%
% As a special exception, when this file is read by TeX when
% processing a TeX source document, you may use the result without
% restriction.


\NeedsTeXFormat{LaTeX2e}
\ProvidesPackage{quoted}[2009/04/17 language-dependent inline quotes]

% Declare a language for quotes.  The arguments are the name of the
% language and all quote commands: outer left, outer right, inner left
% and inner right.
\newcommand{\quoted@declarelanguage}[5]{%
  \DeclareOption{#1}{%
    \let\quoted@outerleft=#2%
    \let\quoted@outerright=#3%
    \let\quoted@innerleft=#4%
    \let\quoted@innerright=#5}}

\quoted@declarelanguage{american}
  \textquotedblleft\textquotedblright
  \textquoteleft\textquoteright

\quoted@declarelanguage{british}
  \textquoteleft\textquoteright
  \textquotedblleft\textquotedblright

\quoted@declarelanguage{german}
  \quotedblbase\textquotedblleft
  \guillemotright\guillemotleft

\quoted@declarelanguage{polish}
  \quotedblbase\textquotedblright
  \guillemotleft\guillemotright

\ExecuteOptions{american}\relax % The default.
\ProcessOptions\relax

\newif\ifquoted@inquote\quoted@inquotefalse

% In English literature multi-paragraph dialogue has unmatched quotes
% -- left one is used on the beginning of each paragraph and right one
% only at the end of the entire speech.  Therefore, separate commands
% for left and right quotes are necessary.
\DeclareRobustCommand{\lquote}{%
  \ifquoted@inquote
    \quoted@innerleft
  \else
    \quoted@outerleft
  \fi}
\DeclareRobustCommand{\rquote}{%
  \ifquoted@inquote
    \quoted@innerright
  \else
    \quoted@outerright
  \fi}
  
% Since quotes inside quotes have different style, it is changed by
% the following command.
\DeclareRobustCommand{\inquote}{%
  \ifquoted@inquote
    \quoted@inquotefalse
  \else
    \quoted@inquotetrue
  \fi}

% On the above commands a command which quotes its argument is
% based.
\DeclareRobustCommand*{\quoted}[1]{%
  \lquote{\inquote#1}\rquote}