Remove dev

web/src/main/frontend/commands.cljs

@@ -44,7 +44,8 @@
      ["Link" link-steps]
      ;; same as link
      ["Image Link" link-steps]
-     ["Upload an image" [[:editor/click-hidden-file-input :id]]]
+     (when (state/logged?)
+       ["Upload an image" [[:editor/click-hidden-file-input :id]]])
      ;; TODO:
      ;; ["Upload a file" nil]
      ]
@@ -150,9 +151,9 @@
                                                [#"#+\s" #"\n#+\s"])
             pos (let [prefix (subs edit-content 0 (dec slash-pos))]
                   (if-let [matches (seq (util/re-pos new-line-re-pattern prefix))]
-                   (let [[start-pos content] (last matches)]
-                     (+ start-pos (count content)))
-                   (count (re-find re-pattern prefix))))
+                    (let [[start-pos content] (last matches)]
+                      (+ start-pos (count content)))
+                    (count (re-find re-pattern prefix))))
             new-value (str (subs edit-content 0 pos)
                            (string/replace-first (subs edit-content pos)
                                                  marker-pattern

web/src/main/frontend/config.cljs

@@ -2,8 +2,8 @@
   (:require [clojure.set :as set]
             [frontend.state :as state]))
 
-;; (defonce dev? ^boolean goog.DEBUG)
-(defonce dev? true)
+(defonce dev? ^boolean goog.DEBUG)
+;; (defonce dev? true)
 
 (def website
   (if dev?

web/src/main/frontend/handler.cljs

@@ -900,18 +900,19 @@
   []
   (let [{:keys [repos] :as me} (set-me-if-exists!)]
     (db/restore! me db-listen-to-tx!)
-    (doseq [{:keys [id url]} repos]
-      (let [repo url]
-        (p/let [config-exists? (fs/file-exists?
-                                (git/get-repo-dir url)
-                                ".git/config")]
-          (if (and config-exists?
-                   (db/cloned? repo))
-            (do
-              (git-set-username-email! repo me)
-              (periodically-pull-and-push repo {:pull-now? true}))
-            (clone-and-pull repo)))))
-    (watch-config!)))
+    (when me
+      (doseq [{:keys [id url]} repos]
+       (let [repo url]
+         (p/let [config-exists? (fs/file-exists?
+                                 (git/get-repo-dir url)
+                                 ".git/config")]
+           (if (and config-exists?
+                    (db/cloned? repo))
+             (do
+               (git-set-username-email! repo me)
+               (periodically-pull-and-push repo {:pull-now? true}))
+             (clone-and-pull repo)))))
+      (watch-config!))))
 
 (defn run-demo!
   []

web/src/main/frontend/state.cljs

@@ -237,3 +237,7 @@
   [repo]
   (set-state! :git/clone-repo repo)
   (storage/set :git/clone-repo repo))
+
+(defn logged?
+  []
+  (get-in @state [:me :email]))