% (find-LATEX "2020dednat6-video.tex")
% (defun c () (interactive) (find-LATEXsh "lualatex -record 2020dednat6-video.tex" :end))
% (defun C () (interactive) (find-LATEXsh "lualatex 2020dednat6-video.tex" "Success!!!"))
% (defun D () (interactive) (find-pdf-page      "~/LATEX/2020dednat6-video.pdf"))
% (defun d () (interactive) (find-pdftools-page "~/LATEX/2020dednat6-video.pdf"))
% (defun e () (interactive) (find-LATEX "2020dednat6-video.tex"))
% (defun u () (interactive) (find-latex-upload-links "2020dednat6-video"))
% (defun v () (interactive) (find-2a '(e) '(d)))
% (defun cv () (interactive) (C) (ee-kill-this-buffer) (v) (g))
% (find-pdf-page   "~/LATEX/2020dednat6-video.pdf")
% (find-sh0 "cp -v  ~/LATEX/2020dednat6-video.pdf /tmp/")
% (find-sh0 "cp -v  ~/LATEX/2020dednat6-video.pdf /tmp/pen/")
%   file:///home/edrx/LATEX/2020dednat6-video.pdf
%               file:///tmp/2020dednat6-video.pdf
%           file:///tmp/pen/2020dednat6-video.pdf
% http://angg.twu.net/LATEX/2020dednat6-video.pdf
% (find-LATEX "2019.mk")

\documentclass[oneside,12pt]{article}
%\usepackage{proof}   % For derivation trees ("%:" lines)
\input diagxy         % For 2D diagrams ("%D" lines)
%\xyoption{curve}     % For the ".curve=" feature in 2D diagrams
\usepackage[a6paper]{geometry}
\begin{document}

\catcode`\^^J=10
\directlua{dofile "dednat6load.lua"}  % (find-LATEX "dednat6load.lua")


%D diagram ??
%D 2Dx     100  +20
%D 2D  100 A0 - A1
%D 2D      |     |
%D 2D  +20 A2 - A3
%D 2D
%D # ren ==>
%D
%D (( A0 A1 <-|
%D
%D ))
%D enddiagram
%D
$$\pu
  \diag{??}
$$

% Emacs support:
% http://angg.twu.net/dednat6/dednat6.el.html
%     (find-anggfile "dednat6/dednat6.el")
%     (find-anggfile "dednat6/dednat6.el" "(defun diagskel ")

\GenericWarning{Success:}{Success!!!}  % Used by `M-x cv'

\end{document}


% Local Variables:
% coding: utf-8-unix
% ee-tla: "dnv"
% End: