diff --git a/bootstrap/README.org b/bootstrap/README.org index 377bc36..2bae2dd 100644 --- 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 index 0dee45e..3b612da 100644 --- 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