% (find-angg ".emacs" "dednat4")
% (find-angg "dednat4/examples/edrxmain.tex")
% (find-angg "LATEX/tmp.tex")
% 2005jul07

\documentclass[oneside]{book}
\usepackage[latin1]{inputenc}
\usepackage{amsmath}
\usepackage{amsfonts}
\usepackage{amssymb}
\usepackage{mathrsfs}
\usepackage{stmaryrd}
\usepackage{array}

% \usepackage{bbm}
% (find-fline "/usr/share/texmf-tetex/tex/latex/bbm/bbm.sty")
% \DeclareMathAlphabet{\mathbbm}{U}{bbm}{m}{n}
% \SetMathAlphabet     \mathbbm{bold}{U}{bbm}{bx}{n}
% \DeclareMathAlphabet{\mathbbmss}{U}{bbmss}{m}{n}
% \SetMathAlphabet     \mathbbmss{bold}{U}{bbmss}{bx}{n}
% \DeclareMathAlphabet{\mathbbmtt}{U}{bbmtt}{m}{n}

\input edrxglyphs.tex           % (find-dn4file "examples/edrxglyphs.tex")
\input edrxarrows.tex           % (find-dn4file "examples/edrxarrows.tex")
\input edrxdefs.tex             % (find-dn4file "examples/edrxdefs.tex")
\input edrxdnt.tex              % (find-dn4file "examples/edrxdnt.tex")
\input edrxheadfoot.tex         % (find-dn4file "examples/edrxheadfoot.tex")
\input edrxdednat.tex           % (find-dn4file "examples/edrxdednat.tex")

\begin{document}

%L standardabbrevs()            -- (find-dn4file "dednat4.lua")
%L require "experimental.lua"   -- (find-dn4file "experimental.lua")
%L processfile "edrxdednat.tex" -- (find-dn4file "edrxdednat.tex")
%L processfile "ee.tex"
\input tmp.dnt
\input ee.tex

\end{document}


;;

(defun eedn4 (s e)
  "Write the region between S and E to ~/LATEX/ee.tex and write
an e-script to $EE; then running `ee' in a shell will run
dednat4.lua and then latex on ~/LATEX/tmp.tex (tmp.tex is a
wrapper around ee.tex) and display the resulting DVI file."
  (interactive "r")
  (ee-write s e "" "" "~/dednat4/ee.tex")
  (eev "cd ~/dednat4/ &&
        cp -v edrxmain.tex tmp.tex &&
        ./dednat4.lua tmp.tex &&
        latex tmp.tex &&
        rexdvi tmp.dvi"))

(eeb-define 'eedn4-bounded  'eedn4  'ee-delimiter-percent nil t t)