% (find-angg "quadradinho/quadradinho-texto.tex")
% (find-estring (ee-latex-header "quadradinho/" "quadradinho-a5"))
% (insert       (ee-latex-header "quadradinho/" "quadradinho-a5"))

% (find-dn4ex "edrx08.sty")
% (defun c5 () (interactive) (find-zsh "cd ~/quadradinho/ && pdflatex quadradinho-a5.tex"))
% (defun c  () (interactive) (find-zsh "cd ~/quadradinho/ && pdflatex quadradinho-print.tex"))
% (eev "cd ~/quadradinho/ && Scp quadradinho-a5.pdf    edrx@angg.twu.net:slow_html/quadradinho/")
% (eev "cd ~/quadradinho/ && Scp quadradinho-print.pdf edrx@angg.twu.net:slow_html/quadradinho/")
% (defun d () (interactive) (find-dvipage "~/quadradinho/quadradinho-a5.dvi"))
% (find-xpdfpage   "~/quadradinho/quadradinho-a5.pdf")
% (find-evincepage "~/quadradinho/quadradinho-print.pdf")
% (find-bgprocess "evince ~/quadradinho/quadradinho-a5.pdf")
% (find-zsh0 "cd ~/quadradinho/ && dvipdf          quadradinho-a5.dvi quadradinho-a5.pdf")
% (find-zsh0 "cd ~/quadradinho/ && dvips -D 300 -o quadradinho-a5.ps  quadradinho-a5.dvi")
% (find-zsh0 "cd ~/quadradinho/ && dvips -D 600 -P pk -o quadradinho-a5.ps quadradinho-a5.dvi && ps2pdf quadradinho-a5.ps quadradinho-a5.pdf")
% (find-zsh0 "cd ~/quadradinho/ && dvips -D 300 -o tmp.ps tmp.dvi")
% (find-pspage  "~/quadradinho/tmp.ps")
% (ee-cp "~/quadradinho/quadradinho-a5.pdf"    (ee-twusfile "quadradinho/quadradinho-a5.pdf")    'over)
% (ee-cp "~/quadradinho/quadradinho-print.pdf" (ee-twusfile "quadradinho/quadradinho-print.pdf") 'over)
% (find-twusfile     "quadradinho/" "quadradinho-a5")
% http://angg.twu.net/quadradinho/quadradinho-a5.pdf
% http://angg.twu.net/quadradinho/quadradinho-print.pdf

\documentclass{article}
\usepackage[a5paper, %landscape,
            top=2cm, bottom=2cm,
            outer=1.5cm, inner=1.5cm,
           ]{geometry}    % (find-es "tex" "geometry")
                          % (find-angg ".emacs.papers" "latexgeom")
\usepackage[brazilian,english]{babel}
\usepackage[latin1]{inputenc}
\usepackage[T1]{fontenc}
\usepackage[x11names]{xcolor}     % (find-es "tex" "xcolor")
\usepackage[colorlinks]{hyperref} % (find-es "tex" "hyperref")
\usepackage{breakurl}             % (find-es "tex" "breakurl")
%\usepackage{edrx08}       % (find-dn4ex "edrx08.sty")
\usepackage{graphicx}      % <- temporary?
%
\usepackage{makeidx}       % (find-es "tex" "makeindex")
%\usepackage{showidx}
%\usepackage{showlabels}
\makeindex
%
\def\ssk{\medskip}
\def\msk{\medskip}
\def\bsk{\medskip}
\begin{document}



%\phantom{T}
%\thispagestyle{empty}
%\newpage

\input quadradinho-texto.tex

%*
% (eedn4-51-bounded)

%Index of the slides:
%\msk
% To update the list of slides uncomment this line:
%\makelos{tmp.los}
% then rerun LaTeX on this file, and insert the contents of "tmp.los"
% below, by hand (i.e., with "insert-file"):
% (find-fline "tmp.los")
% (insert-file "tmp.los")

%*

\end{document}



(progn

(defun ee-texsec-string (lispsec texsec title tag)
  (ee-template0 "\
% --------------------
% «.{tag}»	(to \"{tag}\")
% «{tag}»  (to \".{tag}\")
% ({lispsec} \"{title}\" \"{tag}\")
\\{texsec} {{title}} {{tag}}\n
"))

(defun sec (title tag)
  (ee-this-line-extract)
  ;; (delete-and-extract-line)
  (insert (ee-texsec-string 'sec    'mysection    title tag)))

(defun subsec (title tag)
  (ee-this-line-extract)
  ;; (ee-delete-and-extract-line)
  (insert (ee-texsec-string 'subsec 'mysubsection title tag)))

(setq ee-delimiter-sec "\n% --------------------\n")
(defun ee-prev-sec () (interactive)
  (goto-char (+ -23 (ee-sdelim-to-s ee-delimiter-sec))))
(defun ee-next-sec () (interactive)
  (goto-char (+ 1   (ee-edelim-to-e ee-delimiter-sec))))
' (define-key my-mode-map (kbd "M-<up>")   'ee-prev-sec)
' (define-key my-mode-map (kbd "M-<down>") 'ee-next-sec)

;; (find-es "org" "to-org-and-to-latex")
;;
(defun ee-replace-regexp-all (regexp replacement)
  (save-excursion
    (goto-char (point-min))
     (while (re-search-forward regexp nil t)
       (replace-match replacement))))

(defun to-org () (interactive)
  (ee-replace-regexp-all "\n% \\(*+\\) " "\n\\1 % ")
  (org-mode))

(defun to-latex () (interactive)
  (latex-mode)
  (ee-replace-regexp-all "\n\\(*+\\) % " "\n% \\1 "))

)




* (eepitch-shell)
* (eepitch-kill)
* (eepitch-shell)
cd /tmp/
cd ~/LATEX/
cat > 2012-quadradinho0.tex <<'%%%'
  \documentclass{article}
  % \usepackage[a4paper,landscape]{geometry}
  \usepackage[a4paper,landscape,
              top=0cm, bottom=0cm, left=0cm, right=0cm
             ]{geometry}
  \usepackage{pdfpages}
  \begin{document}
  % \includepdf[pages=-,signature=28,landscape=true]{2012-quadradinho-a5.pdf}
  \includepdf[pages=-,signature=28]{2012-quadradinho-a5.pdf}
  \end{document}
%%%
pdflatex 2012-quadradinho0.tex
xpdf     2012-quadradinho0.pdf
evince   2012-quadradinho0.pdf



% Local Variables:
% modes: (latex-mode emacs-lisp-mode)
% coding: raw-text-unix
% End: