;;; -*- lexical-binding: t -*-
;;
;; this file:
;;   https://dataswamp.org/~incal/emacs-init/native.el
;;
;; required:
;;   https://dataswamp.org/~incal/emacs-init/search-regexp-in-files.el

(require 'comp)
(require 'dired)
(require 'search-regexp-in-files)

(let ((npath))
  (defun find-native-compile-dir ()
    (interactive)
    (or npath (setq npath native-comp-eln-load-path))
    (let*((path (file-name-as-directory (car npath)))
          (dir  (file-name-as-directory (concat path comp-native-version-dir)))
          (curr (and dired-subdir-alist (dired-current-directory))) )
      (if (not (string= dir curr))
          (find-file dir)
        (pop npath)
        (find-native-compile-dir) )))
  (declare-function find-native-compile-dir nil) )

(defun native-compile-all (files)
  (dolist (f files)
    (native-compile f) ))

;; do this first if needed:
;;   sudo find / -name \*.el.gz -exec gunzip -f -k {} \;

(defun native-compile-all-all ()
  (native-compile-all (files-as-list "/usr/local/share/emacs/30.0.50/etc/**/*.el"))
  (native-compile-all (files-as-list "/usr/local/share/emacs/30.0.50/lisp/**/*.el"))
  (native-compile-all (files-as-list "/usr/local/share/emacs/30.0.50/site-lisp/**/*.el"))
  (native-compile-all (files-as-list "~/.emacs.d/elpa/**/*.el"))
  (native-compile-all (files-as-list "~/.emacs.d/emacs-init/**/*.el")) )

;; (native-compile-all-all)

(provide 'native)