Skip to content
This repository

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse code

Disable commentary for now.

  • Loading branch information...
commit f4968324ddddd7ea24e3b9081535aab7fc7762de 1 parent 164dcc3
Phil Hagelberg authored March 16, 2013

Showing 1 changed file with 5 additions and 5 deletions. Show diff stats Hide diff stats

  1. 10  src/lein_survey/results.clj
10  src/lein_survey/results.clj
@@ -37,7 +37,7 @@
37 37
   (subs (DigestUtils/shaHex q) 10))
38 38
 
39 39
 (defn commentary [q]
40  
-  (if-let [c (io/resource (str "commentary/" (hash-question q)))]
  40
+  #_(if-let [c (io/resource (str "commentary/" (hash-question q)))]
41 41
     [:p (slurp c)]))
42 42
 
43 43
 (defn img-link [q]
@@ -74,7 +74,7 @@
74 74
      (commentary q)]))
75 75
 
76 76
 (defmethod summarize-question :textarea [results [q _ choices]]
77  
-  (if (= q "Other comments?")
  77
+  #_(if (= q "Other comments?")
78 78
     [:div.answer
79 79
      (slurp (io/resource "comments.html"))]))
80 80
 
@@ -97,15 +97,15 @@
97 97
   (let [results (get-results)]
98 98
     (into [:div.summary
99 99
            [:h3 "Data and commentary on the results"]
100  
-           [:p "The survey has been open since the 16th of January,"
  100
+           [:p "Commentary coming soon..."]
  101
+           #_[:p "The survey has been open since the 15th of March,"
101 102
             " but it hasn't closed, so the quantatative summaries below"
102 103
             " will reflect new responses as they trickle in."
103 104
             " Most questions allowed more than one answer, so percentages"
104 105
             " will not add up to 100."]
105 106
            [:p "It may be interesting to compare some of these results "
106 107
             "with Chas Emerick's "
107  
-            [:a {:href (str "http://cemerick.com/2011/07/11/results-of-the-"
108  
-                            "2011-state-of-clojure-survey/")}
  108
+            [:a {:href "http://cemerick.com/2012/08/06/results-of-the-2012-state-of-clojure-survey/"}
109 109
              "State of Clojure"] " survey from last summer."]
110 110
            [:p "You can see "
111 111
             [:a {:href "https://github.com/technomancy/lein-survey"}

0 notes on commit f496832

Please sign in to comment.
Something went wrong with that request. Please try again.