🚀 go-pugleaf

My own solution to the backup/checkpoint clutter problem is to make these files
hidden, ie, by using names which start with `.'.  The code to do this follows.
This is probably enough information to get started on something a more
ambitious.  (Please let me know if you see any problems here; I'll update and
repost, thanks!)

Regards, [Ag] gaynor@paul.rutgers.edu
_______________________________________________________________________________

(provide 'hidden-files)

;;;;;;;;;; backup
;;
;; Use ".bak." to prefix backup filenames.

(defun file-name-sans-versions (path)
"Return FILENAME sans backup versions or strings.  This is a seperate procedure
so your site-init or startup file can redefine it."
  (let ((name (file-name-nondirectory path)))
    (concat (or (file-name-directory path) "")
	    (substring name (if (string-match "\\`\\.bak\\." name) 5 0)))))

(defun make-backup-file-name (path)
"Create the non-numeric backup file name for FILE.  This is a seperate function
so you can redefine it for customization."
  (concat (or (file-name-directory path) "")
	  ".bak."
	  (file-name-nondirectory path)))

(defun backup-file-name-p (path)
"Return non-nil if FILE is a backup file name (numeric or not).  This is a
separate function so you can redefine it for customization.  You may need to
redefine file-name-sans-versions as well."
  (string-match "\\`\\.bak\\." (file-name-nondirectory path)))



;;;;;;;;;; auto-save
;;
;; Use ".ckp." to prefix auto-save filenames.

(defun make-auto-save-file-name ()
"Return file name to use for auto-saves of current buffer.  Does not consider
auto-save-visited-file-name; that is checked before calling this function.  You
can redefine this for customization.  See also auto-save-file-name-p."
  (if (buffer-file-name)
    (concat (or (file-name-directory (buffer-file-name)) "")
	    ".ckp."
	    (file-name-nondirectory (buffer-file-name)))))

(defun auto-save-file-name-p (filename)
"Return t if FILENAME can be yielded by make-auto-save-file-name.  FILENAME
should lack slashes.  You can redefine this for customization."
  (string-match "\\`\\.ckp\\." filename))