Emacs settings for Clack developers

gistfile1.el

(defun clack-slime-search-buffer-package ()
  (let ((case-fold-search t)
        (regexp (concat "^(\\(clack.util:\\)?namespace\\>[ \t']*"
                        "\\([^\n)]+\\)")))
    (save-excursion
      (if (or (re-search-backward regexp nil t)
              (re-search-forward regexp nil t))
          (match-string-no-properties 2)
          (slime-search-buffer-package)))))
(setq slime-find-buffer-package-function 'clack-slime-search-buffer-package)

;; cl-annot
(font-lock-add-keywords 'lisp-mode '(("\\(?:^\\|[^,]\\)\\(@\\(?:\\sw\\|\\s_\\)+\\)" (1 font-lock-comment-face))))