2024-04-28 12:26:05 +10:00
|
|
|
;; Copyright 2024 Google LLC
|
|
|
|
|
;;
|
|
|
|
|
;; Licensed under the Apache License, Version 2.0 (the "License");
|
|
|
|
|
;; you may not use this file except in compliance with the License.
|
|
|
|
|
;; You may obtain a copy of the License at
|
|
|
|
|
;;
|
|
|
|
|
;; http://www.apache.org/licenses/LICENSE-2.0
|
|
|
|
|
;;
|
|
|
|
|
;; Unless required by applicable law or agreed to in writing, software
|
|
|
|
|
;; distributed under the License is distributed on an "AS IS" BASIS,
|
|
|
|
|
;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
|
|
|
|
|
;; See the License for the specific language governing permissions and
|
|
|
|
|
;; limitations under the License.
|
|
|
|
|
|
2024-04-27 21:25:29 +10:00
|
|
|
;; Run with emacs --script
|
|
|
|
|
|
|
|
|
|
(let ((els))
|
|
|
|
|
(dolist (path load-path)
|
|
|
|
|
(dolist (el (file-expand-wildcards (expand-file-name "*.el" path)))
|
|
|
|
|
(unless (or (string-suffix-p "-pkg.el" el)
|
|
|
|
|
(string-suffix-p "-theme.el" el)
|
|
|
|
|
(string-suffix-p "-autoloads.el" el)
|
|
|
|
|
(file-exists-p (concat el "c"))
|
|
|
|
|
(with-temp-buffer
|
|
|
|
|
(insert-file-contents el)
|
|
|
|
|
;; This is wrong, but close enough for our purposes.
|
|
|
|
|
(search-forward "no-byte-compile: t" nil t)))
|
|
|
|
|
(push el els))))
|
|
|
|
|
(princ (string-join (seq-sort #'string< els) "\n")))
|
