close-buffers-within.xyzzy.lisp

(defun buffer-directory (&optional buf (selected-buffer))
  (let ((name (get-buffer-file-name buf)))
    (and name (directory-namestring name))))
(defun close-buffers-within (&optional (dir (buffer-directory)))
  (interactive)
  (when dir
    (let ((re (concat "^" (regexp-quote dir)))
          (closed '()))
      (dolist (buf (buffer-list))
        (when (string-match re (or (buffer-directory buf) ""))
          (push (buffer-name buf) closed)
          (delete-buffer buf)))
      (message "~A: ~{~A ~}" (length closed) closed))))
(global-set-key '(#\C-c #\w) 'close-buffers-within)