       (while (not (= (point) (point-max)))
         (let ((beg (point)))
           (if (re-search-forward re nil t)
-              (progn (cljr--goto-toplevel)
+              (progn (sf/goto-toplevel)
                      (backward-char))
             (goto-char (point-max)))
           (unless (= beg (point))

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

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

;; 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 " >"))
