(defvar blurb-path "~/lib/blurb/")

(defun get-blurb (blurbname)
  (interactive (list
		(read-file-name "Get blurb named: " (expand-file-name blurb-path)
				nil t)))
  (insert-file blurbname))

(defun put-blurb (blurbname start end)
  (interactive (save-restriction
		 (let ((start (point))
		       (end (mark)))
		   (narrow-to-region start end)
		   (list
		    (read-file-name "Put region blurb named: " (expand-file-name blurb-path))
		    start end))))
  (write-region blurbname start end))

(defun edit-blurb (blurbname)
  (interactive (list
		(read-file-name "Get blurb named: " (expand-file-name blurb-path)
				nil t)))
  (find-file blurbname))