Luciano Passuello <lucia...@litemind.com> writes: > Hello all, > > I love org-lint, but I couldn't find an easy way to get a report on > multiple files. > I'd like to analyze all files in a folder, getting all problems found > using a single command. > > Any suggestions? >
Here's one way: --8<---------------cut here---------------start------------->8--- (defun org-lint-dir (directory) (let* ((files (directory-files directory t ".*\\.org$"))) (org-lint-list files))) (defun org-lint-list (files) (cond (files (org-lint-file (car files)) (org-lint-list (cdr files))))) (defun org-lint-file (file) (let ((buf) (lint)) (setq buf (find-file-noselect file)) (with-current-buffer buf (if (setq lint (org-lint)) (print (list file lint)))))) (org-lint-dir "/home/nick/lib/org") --8<---------------cut here---------------end--------------->8--- -- Nick