Commit ece19d9a3b5c

@@ -1,64 +0,0 @@
-;;; use-package-list.el --- List use-package declarations in config file
-
-;; Copyright (C) 2017 Matthew Bauer
-
-;; Author: Matthew Bauer <mjbauer95@gmail.com>
-
-;; This file is NOT part of GNU Emacs.
-
-;;; Commentary:
-
-;; ‘ensure’ packages at compile time.
-
-;;; Code:
-
-(require 'json)
-(require 'use-package)
-(require 'package)
-(eval-when-compile
-  (require 'cl))
-
-(defun use-package-list (script)
-  "Count use-package declarations listed in SCRIPT."
-
-  (defvar use-package-list--is-running t)
-  (lexical-let ((use-package-verbose t)
-                (use-package-debug t)
-                (use-package-always-ensure nil)
-                (use-package-always-defer t)
-                (use-package-list--packages nil)
-                (use-package-ensure-function 'ignore))
-    (advice-add 'use-package
-                :before (lambda (name &rest args)
-                          (unless (or (and (member :disabled args)
-                                           (plist-get args :disabled))
-                                      (and (member :ensure args)
-                                           (not (plist-get args :ensure)))
-                                      (and (not (member :ensure args))
-                                           (package-built-in-p name)))
-                            (when (and (member :ensure args)
-                                       (not (eq (plist-get args :ensure) t))
-                                       (symbolp (plist-get args :ensure)))
-                              (setq name (plist-get args :ensure)))
-                            (add-to-list 'use-package-list--packages name))))
-
-    (advice-add 'use-package-handler/:defer
-                :around (lambda (x name keyword arg rest state)
-                          (let ((body (use-package-process-keywords name rest
-                                        (plist-put state :deferred t)))
-                                (name-string (use-package-as-string name)))
-                            (dolist (command
-                                     (delete-dups (plist-get state :commands)))
-                              (fset command (lambda (&rest args))))
-                            body)))
-
-    (advice-add 'use-package-load-name :override #'ignore)
-
-    (load script nil nil t)
-
-    (princ (json-encode use-package-list--packages))
-
-    use-package-list--packages))
-
-(provide 'use-package-list)
-;;; use-package-list.el ends here