          (concat "cp " buffer-file-name " " scrounge-root "/" file-name)))))
 
 
+
+
 (defun Scrounge-update-buffer-file (&optional type is-fake) (interactive)
   "compress the buffer file with scrounge"
   (setq compilation-scroll-output t)

          (setq pos (length string)))))
    res))

(defun get-file-timestamp (file-name) (interactive)
  "get the a timestamp from a _mint stamp"
  (let* ((regexp "^\.*Timestamp:\[a-Z ]*(\[0-9\]*.\[0-9\]*.\[0-9\]*)\.*")
         (match (shell-command-to-string

               (if (string-match regexp fname) 
                   (time-stamp))) nil))



(add-hook 'after-save-hook
          '(lambda ()
             (let* ((mustache-re "mustache$")
                    (js-re "js$")
                    (css-re "css$"))
               (progn
                 (if (string-match mustache-re buffer-file-name)
                     (cp-bufferfile-to-scrounge-dir))
                 (if (string-match js-re buffer-file-name)
                     (if (is-scrounge-file buffer-file-name)
                         (Scrounge-update-buffer-file)))
                 (if (string-match css-re buffer-file-name)
                     (if (is-scrounge-file buffer-file-name)
                         (Scrounge-update-buffer-file))))
               ) nil))
             
             
