Ability to set default visibility and language. README install instructions about git submodules.

README.md

@@ -11,6 +11,12 @@ $ lein deps
 $ ./bootstrap.sh
 ```
 
+Get CodeMirror and mousetrap by updating git submodules (you need to have the actual refheap repo):
+
+```bash
+$ git submodule update --init`
+```
+
 Start the Mongo daemon, and in a separate terminal start the RefHeap server using lein. The server will host content from [http://localhost:3000](http://localhost:3000).
 
 ```bash

config.clj

@@ -1,5 +1,9 @@
-{:db-name "refheap"
+{
+ :db-name "refheap"
  :db-port 27017
  :db-host "localhost"
  :hosts #{"localhost"}
- :port 8080}
+ :port 8080
+ :default-language "Clojure"
+ :default-private? false
+}

src/refheap/views/paste.clj

@@ -1,5 +1,6 @@
 (ns refheap.views.paste
   (:require [refheap.models.paste :as paste]
+            [refheap.config :refer [config]]
             [refheap.models.users :as users]
             [refheap.highlight :refer [lexers]]
             [refheap.utilities :refer [to-booleany escape-string pluralize safe-parse-long]]
@@ -31,13 +32,13 @@
     (for [lang (sort #(.compareToIgnoreCase % %2)
                      (keys (dissoc lexers lang)))]
       (l/on node (l/attr :value lang) (l/content lang))))
-  (l/attr? :selected) (let [lang (or lang (:language old) (session/get :last-lang) "Clojure")]
+  (l/attr? :selected) (let [lang (or lang (:language old) (session/get :last-lang) (:default-language config) "Clojure")]
                         (comp (l/attr :value lang)
                               (l/content lang)))
   (l/element= :form) (l/attr :action (if old
                                        (paste-url old "/edit")
                                        "/create"))
-  (when (:private old)
+  (when (or (:private old) (:default-private? config) )
     [(l/attr= :name :private) (l/attr :checked "")])
   (when old
     [(l/element= :textarea) (l/content (:raw-contents old))])