edit-function

hiredman.el

(defun edit-function ()
  ""
  (interactive)
  (lexical-let ((the-buffer-name (buffer-name))
                (clojure-ns (clojure-find-ns))
                (keymap (current-local-map))
                (parent-buffer (current-buffer)))
    (progn
      (clone-indirect-buffer-other-window nil t)
      (use-local-map (copy-keymap keymap))
      (narrow-to-defun)
      (when clojure-ns
        (rename-buffer (format "*fn %s/%s*"
                               clojure-ns
                               (car (cdr (split-string (buffer-string)))))))
      (local-set-key (kbd "C-c f")
                     (lambda (&rest args)
                       (interactive)
                       (kill-buffer (current-buffer)))))))