+;; symbol-focus
+;;
+;; Hides all top-level forms that does not contain the given symbol.
+;;
+;; Usage: `sf/focus-at-point' to focus. `sf/back' to return.
+
 (defun sf/skip-to-next-sexp ()
   (paredit-forward)
   (skip-syntax-forward " >"))

  (unless (string= (car sf/history) symbol)
    (push symbol sf/history)))

(defun sf/focus-at-point ()
  (interactive)
  (sf/focus (cljr--find-symbol-at-point)))

(defun sf/back ()
  (interactive)

    (overlay-put o 'display " ")
    (overlay-put o 'evaporate t)))

(defun sf/depth-at-point ()
  "Returns the depth in s-expressions, or strings, at point."
  (let ((depth (car (paredit-current-parse-state))))
    (if (paredit-in-string-p)
        (1+ depth)
      depth)))

(defun sf/goto-toplevel ()
  (paredit-backward-up (sf/depth-at-point))
  (backward-char (current-column)))

(defun sf/hide-mismatches (symbol)
  (let ((re (regexp-opt (list symbol) 'symbols)))
    (save-excursion
