bootstrap: Restrict scope of tangle-all

veracioux · May 9, 2024 · 80d3b9c · 80d3b9c
1 parent 970e6ed
commit 80d3b9c
Show file tree

Hide file tree

Showing 2 changed files with 22 additions and 4 deletions.
diff --git a/bootstrap/README.org b/bootstrap/README.org
@@ -76,8 +76,17 @@ Custom functions and tweaks:
     (interactive)
     (when to-destination (delete-directory (haris/tangle-home) t))
     (let ((org-dotfiles-root (or dotfiles-dir "~/.haris")))
-      (dolist (file (cl-delete-if (lambda (x) (string-match-p "^\\.#" x))
-                                  (append (directory-files-recursively org-dotfiles-root "\\.org$"))))
+      (dolist (file (cl-delete-if
+                     (lambda (x) (string-match-p "^\\.#" x))
+                     (append (directory-files-recursively
+                              org-dotfiles-root
+                              "\\.org$"
+                              nil
+                              ;; Exclude hidden directories
+                              (lambda (dir-name)
+                                (string-match
+                                 "^[^\\.]"
+                                 (file-name-nondirectory dir-name)))))))
         (message "Tangling file: %s" file)
         (haris/tangle--file-non-interactively file)))
     (when to-destination

diff --git a/bootstrap/tangle.el b/bootstrap/tangle.el
@@ -47,8 +47,17 @@ alternative dotfiles directory to '~/.haris'."
   (interactive)
   (when to-destination (delete-directory (haris/tangle-home) t))
   (let ((org-dotfiles-root (or dotfiles-dir "~/.haris")))
-    (dolist (file (cl-delete-if (lambda (x) (string-match-p "^\\.#" x))
-                                (append (directory-files-recursively org-dotfiles-root "\\.org$"))))
+    (dolist (file (cl-delete-if
+                   (lambda (x) (string-match-p "^\\.#" x))
+                   (append (directory-files-recursively
+                            org-dotfiles-root
+                            "\\.org$"
+                            nil
+                            ;; Exclude hidden directories
+                            (lambda (dir-name)
+                              (string-match
+                               "^[^\\.]"
+                               (file-name-nondirectory dir-name)))))))
       (message "Tangling file: %s" file)
       (haris/tangle--file-non-interactively file)))
   (when to-destination