Permalink
Browse files

New set of questions for 2013.

  • Loading branch information...
1 parent 2e83471 commit 5a6f4c8acac8fdec8c27624efade7e286dc05a18 @technomancy committed Feb 24, 2013
Showing with 53 additions and 52 deletions.
  1. +47 −50 src/lein_survey/questions.clj
  2. +5 −1 src/lein_survey/render.clj
  3. +1 −1 src/lein_survey/web.clj
@@ -1,72 +1,69 @@
(ns lein-survey.questions)
(def questions [["How long have you been using Clojure?" :radio
- ["Just started" "Weeks" "Months" "1 year" "2 years" "3+ years"]]
+ ["Weeks" "Months" "1 year" "2 years" "3+ years"]]
["For what do you use Leiningen? (pick as many as apply)" :check
["Open source" "Proprietary projects"
"Libraries" "Web sites" "Deployment"
"Backend code" "GUI clients" "Command-line applications"]]
- ["Do you deploy jars?" :check
+ ["Do you deploy jars with Leiningen?" :check
["to Clojars" "to other public repositories"
"to private repositories"]]
["When did you start using Leiningen?" :radio
["I don't remember"
- "0.5 (Nov 2009)"
- "1.0 (Dec 2009)"
- "1.1 (Feb 2010)"
- "1.2 (Jul 2010)"
- "1.3 (Aug 2010)"
- "1.4 (Dec 2010)"
- "1.5 (Mar 2011)"
- "1.6 (Jun 2011)"
- "2.0.0-SNAPSHOT"]]
- ["Your OS and package manager(s)" :check
- ["Debian/Ubuntu"
- "Fedora/other RPM-based"
- "Arch" "Gentoo" "Nix"
- "Other GNU/Linux"
- "Mac OS X with Homebrew"
- "Mac OS X with Macports"
- "Mac OS X with Fink"
- "Mac OS X with no package manager"
- "Windows with Powershell"
- "Windows without Powershell"
- "Windows with Cygwin"
- "Solaris"
- "BSD"
- "other"]]
- ["How do you install Leiningen" :check
+ "0.x (Nov 2009)"
+ "1.x (Dec 2009 - Mar 2012)"
+ "2.0.0-previewN (Mar 2012 - Jan 2013)"
+ "2.x (Jan 2013 - present)"]]
+ ["What operating systems do you use Leiningen on?" :check
+ ["GNU/Linux" "Mac OS X" "Windows"
+ "Cygwin or other Windows GNU"
+ "Solaris" "BSD" "other"]]
+ ["What package managers do you use?" :check
+ ["apt" "yum" "nix" "portage" "pacman"
+ "BSD ports" "homebrew" "macports" "fink"]]
+ ["How do you install Leiningen?" :check
["Downloading bin/lein"
"Package manager"
"Git"]]
- [(str "Paste your results: history | grep \"lein \" | "
- "awk '{print $3}' | sort | uniq -c | sort -nr | "
- "egrep -v \"^ +1\"") :textarea]
+ [(str "What's the oldest JVM version you use regularly?"
+ " (java -version)")
+ :radio
+ ["1.6.0_18 or older"
+ "1.6.0 newer"
+ "1.7.0"
+ "1.8.0"]]
["Which Leiningen features do you use?" :check
- ["Auto-cleaning of transitively-compiled .class files"
- "Checkout dependencies"
- "clean task"
- "Editor integration"
- "interactive task"
+ ["custom profiles"
+ "aliases"
+ "checkout dependencies"
+ "editor/IDE integration"
"javac task"
- "lein-clojars plugin"
- "Native dependencies"
- "pom task (other than for pushing to Clojars)"
- "repl task"
- "Shell wrappers"
- "Test selectors"
+ "native dependencies"
+ "auto-cleaning of transitively-compiled .class files"
+ "pom task (other than for Clojars)"
+ "CLI repl"
+ "test selectors"
"trampoline task"]]
["Favourite plugins? (comma-separated)" :textarea 2]
- ["Rank your biggest annoyances: (higher is worse)" :rank
- ["Startup time"
- "Difficulty finding dependencies"
- "Not enough plugins"
- "Leiningen's own end-user docs"
- "Docs on extending Leiningen or writing plugins"
- "ClojureScript integration"]]
+ ["Favourite templates? (comma-separated)" :textarea 2]
+ ["What annoys you about Leiningen?" :check
+ ["startup time"
+ "difficulty finding dependencies"
+ "lack of plugins"
+ "support for native code"
+ "unmanaged jars"
+ "leiningen's own end-user docs"
+ "docs on extending Leiningen or writing plugins"
+ "other (see comment box below)"]]
+ ["Do you have a GPG key?"
+ :radio ["Yes, and I've gotten it signed by others"
+ "Yes, and I have used it"
+ "I have one, but I've never used it"
+ "I've been meaning to get one"
+ "No"]]
["Do you have custom tasks you haven't published as a plugin?"
- :radio
- ["Yes" "No"]]
+ :radio ["Yes" "No"]]
[(str "Did you know if you have a single patch accepted you can"
" ask for commit rights and a sticker?") :radio
["Yes" "No"]]
@@ -40,11 +40,15 @@
(defn questions-form [questions]
[:div
[:div.row
+ [:div.span10
+ [:p (str "Do you use Leiningen? We'd love it if you could take a few"
+ " minutes to answer some questions.")]]]
+ #_[:div.row
[:div.span10
[:p "The survey results are "
[:a {:href "/results"} "available"]
", but you can still fill it out if you like."]]]
- [:hr]
+ #_[:hr]
[:form {:method "POST" :action "/"}
(concat (map input questions)
[[:div.content [:input.btn.primary {:type "submit"
@@ -25,7 +25,7 @@
(defn record [params]
(sql/with-connection (or (System/getenv "DATABASE_URL")
"postgres://localhost:5432/lein-survey")
- (sql/insert-values :answers [:body] [(pr-str params)]))
+ (sql/insert-values :answers [:body :edition] [(pr-str params) 2013]))
(render/layout [:h1 "Thank you!"]))
(defn handler [req]

0 comments on commit 5a6f4c8

Please sign in to comment.