 
   (project-def "RCC Development"
                '((basedir "/ssh:amnesiac.sr.unh.edu:/webdev/rcc")
-                 (src-patterns ("*.js *.html *.pm *.css"))
+                 (src-patterns ("*.pm"))
                  (ignore-patterns nil)
                  (tags-file nil)
                  (file-list-cache "~/.emacs.d/.cache/rcc-dev/files")

                 (vcs git)
                 (ack-args "--perl --js --html --css")
                 (compile-cmd nil)
                 (index-find-cmd (lambda (content)
                          ; TODO: 
                          ; 1) Update to use regex to split up basedir, instead of hard-coding data.
                          ; 2) It'd be nice to use src-patterns and ignore-patterns
                          (let* (
                                 (hostname "amnesiac.sr.unh.edu")
                                 (start-dir "/webdev/rcc")
                                 (find-cmd (concat "cd \"" start-dir "\"; find '.' -type f "
                                                   (mk-proj-find-cmd-src-args mk-proj-src-patterns))))
                            (when (mk-proj-get-vcs-path)
                              (setq find-cmd (concat find-cmd " -not -path " (mk-proj-get-vcs-path))))
                            
                            (concat "ssh " hostname " \"" find-cmd "\""))))
                 (startup-hook (lambda ()
                                 (make-directory (file-name-directory (expand-file-name mk-proj-file-list-cache)) t)
                                 (make-directory (file-name-directory (expand-file-name mk-proj-open-files-cache)) t)

                          ; TODO: 
                          ; 1) Update to use regex to split up basedir, instead of hard-coding data.
                          ; 2) It'd be nice to use src-patterns and ignore-patterns
                                   (let* (
                                 (hostname "myxomatosis.sr.unh.edu")
                                 (start-dir "/web/housing")
                                 (find-cmd (concat "cd \"" start-dir "\"; find '.' -type f "
