   (global-set-key (kbd "C-c p d") 'project-dired)
   (global-set-key (kbd "C-c p t") 'project-tags)
 
-  (defun web-project-def-factory (project-name hostname start-dir _vcs)
-    "Create a project-def for RCI's web sites."
-
-    (project-def project-name
-    '(
-      (basedir (concat "/ssh:" hostname ":" start-dir))
-      (src-patterns _src-patterns)
-      (file-list-cache (concat "~/.emacs.d/.cache/" start-dir "files"))
-      (open-files-cache (concat "~/.emacs.d/.cache/" start-dir "open-files"))
-      (tag-files (concat "~/.emacs.d/.cache/" start-dir "TAGS"))
-      (vcs _vcs)
-      (ack-args _src-patterns)
-      (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* (
-                                 (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)
-                      (make-directory (file-name-directory (expand-file-name mk-proj-tags-file)) t)
-                      (setq cperl-indent-level 4))))))
-
-  (web-project-def-factory "TEST" "lithium.sr.unh.edu" "/web/epscor" 'git)
+  ;; (defun web-project-def-factory (project-name hostname start-dir _vcs)
+  ;;   "Create a project-def for RCI's web sites."
+
+  ;;   (project-def project-name
+  ;;   '(
+  ;;     (basedir (concat "/ssh:" hostname ":" start-dir))
+  ;;     (src-patterns _src-patterns)
+  ;;     (file-list-cache (concat "~/.emacs.d/.cache/" start-dir "files"))
+  ;;     (open-files-cache (concat "~/.emacs.d/.cache/" start-dir "open-files"))
+  ;;     (tag-files (concat "~/.emacs.d/.cache/" start-dir "TAGS"))
+  ;;     (vcs _vcs)
+  ;;     (ack-args _src-patterns)
+  ;;     (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* (
+  ;;                                (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)
+  ;;                     (make-directory (file-name-directory (expand-file-name mk-proj-tags-file)) t)
+  ;;                     (setq cperl-indent-level 4))))))
+
+  ;; (web-project-def-factory "TEST" "lithium.sr.unh.edu" "/web/epscor" 'git)
   
   ;; 
   ;; Web Projects

                 (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* (

                                 (make-directory (file-name-directory (expand-file-name mk-proj-open-files-cache)) t)
                                 (make-directory (file-name-directory (expand-file-name mk-proj-tags-file)) t)
                                 (setq cperl-indent-level 4)))
                 (shutdown-hook nil)))

  (project-def "EPSCOR Preview"
               '((basedir "/ssh:myxomatosis.sr.unh.edu:/web/epscor")
