         (h "input" #js{:style #js{:background "#000"
                                   :color "white"
                                   :width "350px"}
+                       :id "search"
+                       :tabIndex 1
                        :onChange (fn [e] (!! assoc :search (.. e -target -value)))
+                       :autoFocus true
                        :type "text"
                        :defaultValue (:search @db "")
                        :placeholder "Search"})



(defn install-toggle-shortcut!
  "Installs a Keyboard Shortcut handler that show/hide the log overlay.
   Call the return function to unregister."
  [shortcut]
  ;; If previous one exist just unregister it:

      handler
      KeyboardShortcutHandler.EventType.SHORTCUT_TRIGGERED
      (fn [e] (toggle-showing! false)))
    (js/console.info "Klang: Hide overlay keyboard shortcut installed:" shortcut)
    (!! assoc :shortcut-hide-keys #(.unregisterShortcut handler shortcut))))

(defn set-max-logs!
  "Only keep the last n logs. If nil: No truncating."
