From 094f9f657fd8d8c25e61cac00cc46d2b54edcc69 Mon Sep 17 00:00:00 2001 From: Spencer Williams Date: Wed, 19 Mar 2025 11:52:54 -0400 Subject: Rename seam-visited-files -> seam-visited-notes and fix its behavior --- seam.el | 15 +++++++++------ 1 file changed, 9 insertions(+), 6 deletions(-) diff --git a/seam.el b/seam.el index d631514..6c909eb 100644 --- a/seam.el +++ b/seam.el @@ -416,17 +416,20 @@ Otherwise, it's nil." (concat "\\b" query "\\b") query)))))) -(defun seam-visited-files () - (cl-loop for buf in (buffer-list) - as file = (buffer-file-name buf) - when (and file (file-in-directory-p file seam-note-directory)) - collect file)) +(defun seam-visited-notes () + (let ((subdirs (seam-note-subdirectories))) + (cl-loop for buf in (buffer-list) + as file = (buffer-file-name buf) + when (and file + (member (file-name-directory file) subdirs) + (string-match seam-note-file-regexp file)) + collect file))) (defun seam-replace-string-in-notes (old new preserve-modtime) (let ((hash (make-hash-table :test 'equal))) (dolist (file (seam-note-files-containing-string old)) (puthash file nil hash)) - (dolist (file (seam-visited-files)) + (dolist (file (seam-visited-notes)) (puthash file t hash)) (let ((update-count 0)) (maphash -- cgit v1.2.3