Dim internal decisions in graph

clojure-liberator · Aug 31, 2015 · b3190ef · b3190ef
1 parent 7a80ed4
commit b3190ef
Show file tree

Hide file tree

Showing 2 changed files with 494 additions and 682 deletions.
diff --git a/src/liberator/graph.clj b/src/liberator/graph.clj
@@ -10,11 +10,19 @@
 (defn to-graph [[& args]]
   (condp = (first args)
     'defdecision
-    (let [[name then else] (apply extract args)]
-      (format (str "\"%s\" [id = \"%s\"] \n "
+    (let [[name then else] (apply extract args)
+          internal? (#{"is-options?"
+                       "method-put?"
+                       "method-delete?"
+                       "method-patch?"
+                       "post-to-existing?"
+                       "post-to-missing?"
+                       "post-to-gone?"
+                       "put-to-existing?"} (str name))]
+      (format (str "\"%s\" [id = \"%s\" %s] \n "
                    "\"%s\" -> \"%s\" [label = \"true\", id = \"%s\"] \n"
                    "\"%s\" -> \"%s\" [label=\"false\", id = \"%s\"]\n")
-              name (clean-id name)
+              name (clean-id name) (if internal? "style=\"filled\" fillcolor=\"#CCCCCC\"" "")
               name then (clean-id (str name "_" then)) 
               name else (clean-id (str name "_" else ))))
     'defaction
@@ -31,9 +39,7 @@
                  :else "#ffffff")]
       (format "\"%s\"[id=\"%s\" label=\"%s\\n%s\" style=\"filled\" fillcolor=\"%s\"];\n"
               name (clean-id name) status (clojure.string/replace name #"^handle-" "") color))
-    nil)
-
-  )
+    nil))
 
 (defn rank-max [names]
   (str "subgraph {\nrank=max;\n"
@@ -77,7 +83,7 @@
   (let [{:keys [nodes handlers actions]} (parse-source-definitions)]
     (->> nodes
          (map to-graph)
-         (filter identity)
+         (remove nil?)
          (concat (rank-handler-groups handlers))
          (concat (rank-same actions))
          (apply str)