From 8cc94ac05805c529bfeae84f6cf49109a72150a5 Mon Sep 17 00:00:00 2001
From: Camil Staps
Date: Thu, 4 Jan 2018 11:17:25 +0100
Subject: Cocl -> Pretty printer in new architecture; note about using hoogle
 instead

---
 clooglearch.sty | 25 +++++++++++++++++--------
 1 file changed, 17 insertions(+), 8 deletions(-)

(limited to 'clooglearch.sty')

diff --git a/clooglearch.sty b/clooglearch.sty
index b0498e4..9128042 100644
--- a/clooglearch.sty
+++ b/clooglearch.sty
@@ -40,15 +40,21 @@
 	\pic (src)  at (-5,3) {doc};
 	\node[left=3pt of src-west,draw=none,text width=3em] {\scriptsize Source\\code};
 }
-\def\tikzbuilddb{%
-	\node (cocl) at (-2.5, 3.5 ) {\module{Clean}{Clean compiler}};
-	\node (ppr)  at (-2.5, 2.5 ) {\module{Clean}{Pretty printer}};
-	\pic  (db)   at ( 0,   2.98) {db};
+\newcommand{\tikzbuilddb}[1][0]{%
+	\node  (cocl) at (-3,   3.5 ) {\module{Clean}{Clean compiler}};
+	\ifold#1
+		\node (ppr) at (-2.5, 2.5 ) {\module{Clean}{Pretty printer}};
+	\else
+		\node (ppr) at (-2.5, 2.2 ) {\module{Clean}{Pretty printer}};
+	\fi
+	\pic     (db) at ( 0,   2.98) {db};
 	\node[right=3pt of db-east,draw=none] {\module{\tiny JSON}{\scriptsize Database}};
-	\draw[->] ($(src-east)+(0,0.18)$) -- (cocl.west);
-	\draw[->] ($(src-east)-(0,0.18)$) -- (ppr.west);
-	\draw[->] (cocl.east) -- ($(db-west)+(0,0.18)$);
-	\draw[->] (ppr.east)  -- ($(db-west)-(0,0.18)$);
+	\draw[->] (src-east) -- (cocl.west);
+	\draw[->] (cocl) -- (ppr);
+	\ifold#1
+		\draw[->] (cocl.east) -- ($(db-west)+(0,0.18)$);
+		\draw[->] (ppr.east)  -- ($(db-west)-(0,0.18)$);
+	\fi
 }
 \newcommand{\tikzbackend}[1][0]{%
 	\node[color=\grayedout#1] (web) at (0, \oldornew{#1}{1}) {\module{Clean, PHP, JS}{\ifold#1\bf\fi cloogle.org}};
@@ -58,6 +64,9 @@
 		\draw (uni) -- (web);
 	\else
 		\node (core) at (0,1.5) {\module{Clean}{\textbf{Cloogle}}};
+		\draw[->] (cocl) edge[bend left] (core);
+		\draw[->] (ppr)  -- (core);
+		\draw[<->] (core) -- (db-south);
 		\draw (uni) -- (core);
 		\draw[->] (db-south) -- (core);
 		\draw[color=\grayedout#1,->] (core) -- (web);
-- 
cgit v1.2.3

