#!/usr/bin/env doomscript
;; see https://github.com/doomemacs/doomemacs/issues/6494#issuecomment-1162483877
(defcli! org-lint-tasks (org-file)
  (require 'core-start) ; load your user config
  (add-hook 'org-mode-hook
    (lambda ()
      (let* ((file-name (current-buffer))
             (Col1 'Line)
             (Col2 'Trust)
             (Col3 'Warning)
             (lint-report (org-lint)))
        (print! "file: %s\n%6s%6s%8s\n" file-name Col1 Col2 Col3)
        (dolist (element lint-report)
          (setq report (car (cdr element)))
          (print! "%6s%6s %7s\n" (seq-elt report 0) (seq-elt report 1) (seq-elt report 2)))
        )))
  (find-file org-file)
)
(run! "org-lint-tasks" (cdr (member "--" argv)))
(kill-emacs)