% (find-LATEX "2026diagtikz-test.tex")
% (defun c () (interactive) (find-LATEXsh "lualatex -record 2026diagtikz-test.tex" :end))
% (defun C () (interactive) (find-LATEXsh "lualatex 2026diagtikz-test.tex" "Success!!!"))
% (defun D () (interactive) (find-pdf-page      "~/LATEX/2026diagtikz-test.pdf"))
% (defun d () (interactive) (find-pdftools-page "~/LATEX/2026diagtikz-test.pdf"))
% (defun e () (interactive) (find-LATEX "2026diagtikz-test.tex"))
% (defun o () (interactive) (find-LATEX "2026diagtikz-test.tex"))
% (defun u () (interactive) (find-latex-upload-links "2026diagtikz-test"))
% (defun v () (interactive) (find-2a '(e) '(d)))
% (defun d0 () (interactive) (find-ebuffer "2026diagtikz-test.pdf"))
% (defun cv () (interactive) (C) (ee-kill-this-buffer) (v) (g))
% (defun oe () (interactive) (find-2a '(o) '(e)))
%          (code-eec-LATEX "2026diagtikz-test")
% (find-pdf-page   "~/LATEX/2026diagtikz-test.pdf")
% (find-sh0 "cp -v  ~/LATEX/2026diagtikz-test.pdf /tmp/")
% (find-sh0 "cp -v  ~/LATEX/2026diagtikz-test.pdf /tmp/pen/")
%     (find-xournalpp "/tmp/2026diagtikz-test.pdf")
%   file:///home/edrx/LATEX/2026diagtikz-test.pdf
%               file:///tmp/2026diagtikz-test.pdf
%           file:///tmp/pen/2026diagtikz-test.pdf
%  http://anggtwu.net/LATEX/2026diagtikz-test.pdf
% https://anggtwu.net/LATEX/2026diagtikz-test.pdf
% (find-LATEX "2019.mk")
% (find-Deps1-links "Caepro5 Piecewise2 Maxima2")
% (find-Deps1-cps   "Caepro5 Piecewise2 Maxima2 DiagForth1 DiagTikz1 Verbatim3")
% (find-Deps1-anggs "Caepro5 Piecewise2 Maxima2")
% (find-MM-aula-links "2026diagtikz-test" "2" "diagtikztest2026" "dtt")

% «.geometry»			(to "geometry")
% «.edrx26a»			(to "edrx26a")
% «.edrx26b»			(to "edrx26b")
% «.edrx26c»			(to "edrx26c")
% «.defs»			(to "defs")
% «.footer»			(to "footer")

% ;-- defs
\documentclass[oneside,12pt]{article}
\usepackage[colorlinks,citecolor=DarkRed,urlcolor=DarkRed]{hyperref} % (find-es "tex" "hyperref")
\usepackage{amsmath}
\usepackage{amsfonts}
\usepackage{amssymb}
\usepackage{pict2e}
\usepackage[x11names,svgnames]{xcolor} % (find-es "tex" "xcolor")
\usepackage{colorweb}                  % (find-es "tex" "colorweb")
%
\usepackage{tikz}
\usetikzlibrary{arrows}
\usetikzlibrary{cd}
%
%\usepackage{proof}   % For derivation trees ("%:" lines)
\input diagxy         % For 2D diagrams ("%D" lines)
\xyoption{curve}      % For the ".curve=" feature in 2D diagrams
%
% «geometry»  (to ".geometry")
% (find-es "tex" "geometry")
\usepackage[a6paper, % landscape,
            top=1.5cm, bottom=.25cm, left=1cm, right=1cm, includefoot
           ]{geometry}
%
%
% «edrx26a»  (to ".edrx26a")
\usepackage{edrx26a}                   % (find-LATEX "edrx26a.sty")
\def\dednatjobname{2026diagtikz-test}  % (find-es "overleaf" "jobname")
%
\begin{document}

% «edrx26b»  (to ".edrx26b")
\input edrx26b.tex                % (find-LATEX "edrx26b.tex")

% «edrx26c»  (to ".edrx26c")
% (find-LATEX     "edrx26c.tex")
%L processsubfile "edrx26c.tex"   -- runs the "%L"s
\input             edrx26c         % loads the defs

% «defs»  (to ".defs")
% (find-LATEX "edrx21defs.tex" "colors")
% (find-LATEX "edrx21.sty")

% «footer»  (to ".footer")
% (find-LATEX "edrxheadfoot.tex")
\def\drafturl{http://anggtwu.net/dednat6.html}
\def\draftfooter{\tiny \href{\drafturl}{\jobname{}} \ColorBrown{\shorttoday{} \hours}}



%L require "DiagForth1"  -- (find-angg "LUA/DiagForth1.lua")
%L require "DiagTikz1"   -- (find-angg "LUA/DiagTikz1.lua")
\pu

%D diagram adjunction
%D 2Dx     100    +20
%D 2D  100 A0 <-| A1
%D 2D      |       |
%D 2D      |  <->  |
%D 2D      v       v
%D 2D  +20 A2 |-> A3
%D 2D
%D 2D  +15 A4 <=> A5
%D 2D
%D ren A0 A1 ==> LA A
%D ren A2 A3 ==> B RB
%D ren A4 A5 ==> \catB \catA
%D
%D (( A0 A1 <-|
%D    A0 A2 ->
%D    A1 A3 ->
%D    A2 A3 |->
%D    A0 A3 harrownodes nil 20 nil <->
%D
%D    A4 A5  <- sl^ .plabel= a L
%D    A4 A5  -> sl_ .plabel= b R
%D ))
%D enddiagram

%T diagram Adjunction
%T 2Dx     100    +20
%T 2D  100 A0 <-| A1
%T 2D      |       |
%T 2D      |  <->  |
%T 2D      v       v
%T 2D  +20 A2 |-> A3
%T 2D
%T 2D  +15 A4 <=> A5
%T 2D
%T ren A0 A1 ==> LA A
%T ren A2 A3 ==> B RB
%T ren A4 A5 ==> \catB \catA
%T
%T (( A0 A1 <-|
%T    A0 A2 ->
%T    A1 A3 ->
%T    A2 A3 |->
%T    A0 A3 harrownodes nil 20 nil <->
%T
%T    A4 A5  <- sl^ .plabel= a L
%T    A4 A5  -> sl_ .plabel= b R
%T ))
%T enddiagram
%T
\pu
$$\begin{array}{rccccc}
  \text{diagxy: } & \diag{adjunction} &&
  \text{Tikz:   } & \myvcenter{\TikzDiagAdjunction} \\
  \end{array}
$$



Tikz-CD:
%
\begin{tikzcd}
  |[alias=A0]| LA &
  |[alias=A1]| A  \\
  |[alias=A2]| B  &
  |[alias=A3]| RB \\ 
  |[alias=A4]| \catB  &
  |[alias=A5]| \catA \\ 
    \arrow [from=A0, to=A1, <-|]
    \arrow [from=A0, to=A2, ->]
    \arrow [from=A1, to=A3, ->]
    \arrow [from=A2, to=A3, |->]
    \arrow [from=A4, to=A5, <-, "L",  shift left=1]
    \arrow [from=A4, to=A5, ->, "R"', shift right=1]
    \\
\end{tikzcd}



\newpage

%\begin{tikzpicture}[commutative diagrams/every diagram]
\begin{tikzpicture}[commutative diagrams/.cd,every arrow,every label]
  \node [anchor=center] (A0) at (0,-0) {$LA$};
  \node [anchor=center] (A1) at (1.28,-0) {$A$};
  \node [anchor=center] (A2) at (0,-1.28) {$B$};
  \node [anchor=center] (A3) at (1.28,-1.28) {$RB$};
  \node [anchor=center] (A4) at (0,-2.24) {$\catB$};
  \node [anchor=center] (A5) at (1.28,-2.24) {$\catA$};
  \node [anchor=center] (7) at (0,-0.64) {$\phantom{O}$};
  \node [anchor=center] (8) at (1.28,-0.64) {$\phantom{O}$};
  \draw [<-|] (A0) -- (A1);
  \draw [->] (A0) -- (A2);
  \draw [->] (A1) -- (A3);
  \draw [|->] (A2) -- (A3);
  \draw [<->] (7) -- (8);
  \draw [<-] (A4) -- (A5) node[midway,above] {$\scriptstyle L$};
  \draw [->] (A4) -- (A5) node[midway,below] {$\scriptstyle R$};
  \draw [->,commutative diagrams/shift left=1]
             (A4) -- (A5) node[midway,below] {$\scriptstyle R$};
\end{tikzpicture}



Tikz-CD:
%
\begin{tikzcd}[baseline=(A4.base)]
  |[alias=A4]| \catB  &
  |[alias=A5]| \catA
    \arrow [from=A4, to=A5, <-, "L",  shift left=1]
    \arrow [from=A4, to=A5, ->, "R"', shift right=1]
\end{tikzcd}

Tikzpicture, 1:
%
\begin{tikzpicture}[baseline=(A4.base)]
  \node [anchor=center] (A4) at    (0,0) {$\textstyle \catB$};
  \node [anchor=center] (A5) at (1.25,0) {$\textstyle \catA$};
  \draw [<-] (A4) -- (A5) node[midway,above] {$\scriptstyle L$};
  \draw [->] (A4) -- (A5) node[midway,below] {$\scriptstyle R$};
\end{tikzpicture}

Tikzpicture, 2:
%
\begin{tikzpicture}[baseline=(A4.base),
    commutative diagrams/.cd,every arrow,every label]
  \node [anchor=center] (A4) at    (0,0) {$\textstyle \catB$};
  \node [anchor=center] (A5) at (1.25,0) {$\textstyle \catA$};
  \draw [<-, commutative diagrams/shift left=1]
             (A4) -- (A5) node[midway,above] {$\scriptstyle L$};
  \draw [->, commutative diagrams/shift right=1]
             (A4) -- (A5) node[midway,below] {$\scriptstyle R$};
\end{tikzpicture}




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

\end{document}

% (find-pdfpages2-links "~/LATEX/" "2026diagtikz-test")


% Local Variables:
% coding: utf-8-unix
% outline-regexp: "% +;--"
% ee-tla: "dtt"
% ee-tla: "diagtikztest2026"
% End: