   (canvas-element "tick-canvas"
                   [20 20]
                   [[[0.2 0.6] [0.4 0.8] [0.8 0.4]]]
-                  :line-width 0.2
+                  :line-width 0.15
                   :stroke-colour "#3C763D"))
 
 (defn cross-canvas

               kv-pairs))))

(defn set-hash-options!
  []
  (let [location (.-location js/window)
        h (js/decodeURIComponent (.-hash location))]
    (when h
      (when-let [doc-url (:doc (parse-hash h))]
        ; TODO: Refactor
        (swap! app-state (comp #(assoc-in % [:options :doc] (js/decodeURIComponent doc-url))
                               #(assoc-in % [:options :data-source] :gdrive)
                               #(assoc-in % [:options :share-url] (.-href location))))))))

; ----- Common components -----

(defn label-element
  [for-id text]
  [:label.col-sm-4.control-label {:for for-id} text])

(def info-button
  [:button#info-button.btn.btn-default {:on-click #(reagent-modals/modal! modals/game-info
                                                                          {:size :lg})
                                        :title "O hře"}
   [:span.glyphicon.glyphicon-info-sign]])

; ----- Home page -----

(defn loading-indicator
  []
  (when (:loading? @app-state)
    [:div#loading

  (let [{{:keys [completion start]} :timer
         :keys [on-turn players]} @app-state
        player-name (on-turn players)
        [trimmed-name font-class] (trim-player-name player-name)]
    [:div
      [:div.row
        [:div#on-turn {:class (join-by-space (name on-turn) font-class)}
          trimmed-name
          (when (= player-name "Rybička") [easter-egg on-turn])]]
      [timeout on-turn completion]]))

(defn play-page
  []
  (let [{:keys [board current-field]} @app-state]
    (if (empty? board)
      (redirect "/") ; If no data is loaded, redirect to home page. TODO: Can we redirect to root?
      [:div.container-fluid
       info-button
       [:div.row
        [:div.col-sm-6 [hex-triangle]]
        [:div#question-box.col-sm-6
         [player-on-turn]
         (when current-field
           [question-box current-field])]]
       [reagent-modals/modal-window]])))

; ----- End page -----

