changeset 350: |
87546048623e |
parent 349: |
1b3761849c98 |
child 351: |
770f2d03efd8 |
author: |
Richard Westhaver <ellis@rwest.io> |
date: |
Mon, 13 May 2024 22:29:35 -0400 |
files: |
lisp/bin/homer.lisp |
description: |
homer: also ignore special dirs stash and store |
1.1--- a/lisp/bin/homer.lisp Mon May 13 22:13:56 2024 -0400
1.2+++ b/lisp/bin/homer.lisp Mon May 13 22:29:35 2024 -0400
1.3@@ -97,7 +97,9 @@
1.4 (let ((*default-pathname-defaults* src))
1.5 (debug!
1.6 (mapcar #'compare-to-home
1.7- (std/file:find-files *default-pathname-defaults* (push "readme.org" *hidden-paths*)))))
1.8+ (std/file:find-files
1.9+ *default-pathname-defaults*
1.10+ (nconc std/file:*hidden-paths* (list "stash" "store" "readme.org"))))))
1.11 (error 'file-error :pathname src)))))
1.12
1.13 (defcmd homer-push)