Formatting changes for Code Golf

4clojure · May 4, 2011 · ae836c2 · ae836c2
1 parent 3e25656
commit ae836c2
Show file tree

Hide file tree

Showing 3 changed files with 18 additions and 6 deletions.
diff --git a/resources/public/css/style.css b/resources/public/css/style.css
@@ -313,3 +313,13 @@ button:active {
    -ms-filter: "progid:DXImageTransform.Microsoft.gradient(startColorstr='#A1CC59', endColorstr='#A7D45C')";
    filter: progid:DXImageTransform.Microsoft.gradient(startColorstr='#A1CC59', endColorstr='#A7D45C');
 }
+
+#golfgraph{ 
+  width: 90%
+}
+
+#golfgraph img{
+  height: 300px;
+  padding-top: 25px;
+}
+
diff --git a/src/foreclojure/graphs.clj b/src/foreclojure/graphs.clj
@@ -38,15 +38,15 @@
     (when best
       (chart/add-pointer chart best (freqs best 0)
                          :text "best"
-                         :angle :south))
+                         :angle :se))
     (when (and curr (not= curr best))
       (chart/add-pointer chart curr (freqs curr 0)
                          :text "this"
-                         :angle :south))
+                         :angle :se))
     (when-not (> (count freqs) 1)
       (chart/add-text chart best (freqs best 0)
                       "Very little golfing data - chart may suck"))
-    chart))
+    (doto chart (chart/set-theme :bw)))))
 
 (defn serve-plot [plot]
   (let [out (ByteArrayOutputStream.)

diff --git a/src/foreclojure/problems.clj b/src/foreclojure/problems.clj
@@ -181,18 +181,20 @@
       (when restricted
         [:div {:id "restrictions"}
          [:u "Special Restrictions"] [:br]
-         (map (partial vector :li) restricted)])
-      (render-golf-chart)]
+         (map (partial vector :li) restricted)])]
      [:div
       [:div.message (session/flash-get :message)]
       [:b "Code which fills in the blank:" [:br]]]
      (form-to [:post *url*]
        (text-area {:id "code-box"
                    :spellcheck "false"}
                   :code (session/flash-get :code))
+       [:div#golfgraph
+        (render-golf-chart)]
        (hidden-field :id id)
        [:br]
-       [:button.large {:id "run-button" :type "submit"} "Run"])]))
+       [:button.large {:id "run-button" :type "submit"} "Run"])
+     ]))
 
 (def-page problem-page []
   (link-to "/problems/rss" [:div {:class "rss"}])