moccur-grep でディレクトリ入力するの面倒

moccur-grep でディレクトリ入力するの面倒。ファイルパターンも面倒。
これで良いのではないだろうか。

(defun my-moccur-grep (search-reg)
  (interactive "sSearch Regexp: ")
  (let ((file-patterns '("\\.cpp$" "\\.h$" "^Makefile$" "\\.scm$" "\\.ss$")))
    (moccur-grep (file-name-directory (buffer-file-name (current-buffer)))
                 `(,search-reg ,(strings-join "\\|" file-patterns)))))
(global-set-key "\C-c\C-g" 'my-moccur-grep)

あら便利。