;;; -*- lexical-binding: t; -*-
(require 'json)

(defun nix-straight-get-used-packages (init-file)
  (let ((nix-straight--packages nil))
    (advice-add 'straight-use-package
                :override (lambda (recipe &rest r)
                            (let ((pkg (if (listp recipe)
                                              (car recipe)
                                         recipe)))
                              (message "[nix-straight.el] Collectiong package '%s' from recipe '%s'" pkg recipe)
                              (add-to-list 'nix-straight--packages pkg))))

    (load init-file nil nil t)
    (princ (if (null nix-straight--packages)
               "[]"
             (json-encode nix-straight--packages)))

    nix-straight--packages))

(defun nix-straight-build-packages (init-file)
  (setq straight-default-files-directive '("*" (:exclude "*.elc")))
  (advice-add 'straight-use-package
              :around (lambda (orig-fn &rest r)
                        (message "     [nix-straight.el] Overriding recipe for '%s'" (car r))
                        (let* ((pkg (car r))
                               (pkg-name (symbol-name pkg))
                               (recipe (if (file-exists-p (straight--repos-dir pkg-name))
                                           (list pkg :local-repo pkg-name :repo pkg-name :type 'git)
                                         (list pkg :type 'built-in))))
                          (message "     --> [nix-straight.el] Recipe generated: %s" recipe)
                          (straight-override-recipe recipe))
                        (apply orig-fn r)))
  (load init-file nil nil t))

(advice-add 'straight--executable-find
            ;; straight doesn't use git in this setup
            :override (lambda (name) (eq name "git")))

(provide 'setup)
;;; setup.el ends here