feat: Add command to clean autoloads (#98)

* feat: Add command to clean autoloads

* Impls all

* add test

* supply sec

Author: jcs090218

CHANGELOG.md

@@ -31,6 +31,7 @@ Check [Keep a Changelog](http://keepachangelog.com/) for recommendations on how
 * Move command `activate` under test subcommand (#92)
 * Add command to create ELPA project (#94)
 * Add command to clean log files (#97)
+* Add command to clean autoloads file (#98)
 
 ## 0.7.x
 > Released Sep 08, 2022

cmds/clean/autoloads.js

@@ -0,0 +1,27 @@
+/**
+ * Copyright (C) 2023 Jen-Chieh Shen
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 3, or (at your option)
+ * any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with GNU Emacs; see the file COPYING.  If not, write to the
+ * Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+ * Boston, MA 02110-1301, USA.
+ */
+
+"use strict";
+
+exports.command = ['autoloads'];
+exports.desc = 'Remove generated autoloads file';
+
+exports.handler = async (argv) => {
+  await UTIL.e_call(argv, 'clean/autoloads', argv.dest);
+};

docs/content/en/Getting Started/Commands and options.md

@@ -356,6 +356,14 @@ $ eask [GLOBAL-OPTIONS] clean dist
 
 Alias: `distribution`
 
+## 🔍 eask clean autoloads
+
+Remove generated autoloads file.
+
+```sh
+$ eask [GLOBAL-OPTIONS] clean autoloads
+```
+
 ## 🔍 eask clean log-file
 
 Remove all generated log files.
@@ -371,6 +379,7 @@ This command is the combination of all other clean commands.
 - `clean workspace`
 - `clean elc`
 - `clean dist`
+- `clean autoloads`
 - `clean log-file`
 
 ```sh

lisp/clean/all.el

@@ -17,29 +17,29 @@
 (defvar eask-no-cleaning-operation-p nil
   "Set to non-nil if there is no cleaning operation done.")
 
+(defmacro eask--clean-section (title &rest body)
+  "Print clean up TITLE and execute BODY."
+  (declare (indent 1))
+  `(let (eask-no-cleaning-operation-p)
+     (eask-with-progress
+       (format "%s... \n" ,title)
+       (progn ,@body)
+       (if eask-no-cleaning-operation-p "skipped ✗" "done ✓"))))
+
 (eask-start
-  (let (eask-no-cleaning-operation-p)
-    (eask-with-progress
-      "Cleaning workspace... \n"
-      (eask-call "clean/workspace")
-      (if eask-no-cleaning-operation-p "skipped ✗" "done ✓")))
+  (eask--clean-section "Cleaning workspace"
+    (eask-call "clean/workspace"))
+  (eask-msg "")
+  (eask--clean-section "Cleaning byte-compile files"
+    (eask-call "clean/elc"))
   (eask-msg "")
-  (let (eask-no-cleaning-operation-p)
-    (eask-with-progress
-      "Cleaning byte-compile files... \n"
-      (eask-call "clean/elc")
-      (if eask-no-cleaning-operation-p "skipped ✗" "done ✓")))
+  (eask--clean-section "Cleaning dist"
+    (eask-call "clean/dist"))
   (eask-msg "")
-  (let (eask-no-cleaning-operation-p)
-    (eask-with-progress
-      "Cleaning dist... \n"
-      (eask-call "clean/dist")
-      (if eask-no-cleaning-operation-p "skipped ✗" "done ✓")))
+  (eask--clean-section "Cleaning autoloads file"
+    (eask-call "clean/autoloads"))
   (eask-msg "")
-  (let (eask-no-cleaning-operation-p)
-    (eask-with-progress
-      "Cleaning log files... \n"
-      (eask-call "clean/log-file")
-      (if eask-no-cleaning-operation-p "skipped ✗" "done ✓"))))
+  (eask--clean-section "Cleaning log files"
+    (eask-call "clean/log-file")))
 
 ;;; clean/all.el ends here

lisp/clean/autoloads.el

@@ -0,0 +1,27 @@
+;;; clean/autoloads.el --- Remove generated autoloads file  -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;;
+;; Remove generated autoloads file,
+;;
+;;   $ eask clean autoloads
+;;
+
+;;; Code:
+
+(load (expand-file-name
+       "../_prepare.el"
+       (file-name-directory (nth 1 (member "-scriptload" command-line-args))))
+      nil t)
+
+(eask-start
+  (let* ((name (eask-guess-package-name))
+         (autoloads-file (expand-file-name (concat name "-autoloads.el")))
+         (deleted (eask-delete-file autoloads-file)))
+    (eask-msg "")
+    (if deleted
+        (eask-info "(Total of 1 file deleted)")
+      (eask-info "(No autoloads file found in workspace)")
+      (setq eask-no-cleaning-operation-p t))))
+
+;;; clean/autoloads.el ends here

lisp/core/autoloads.el

@@ -18,6 +18,7 @@
   (let* ((name (eask-guess-package-name))
          (autoloads-file (expand-file-name (concat name "-autoloads.el"))))
     (package-generate-autoloads name default-directory)
+    (eask-msg "")
     (eask-info "Write file %s..." autoloads-file)))
 
 ;;; core/autoloads.el ends here

test/commands/local/run.sh

@@ -71,6 +71,7 @@ eask test activate
 eask clean .eask
 eask clean elc
 eask clean dist
+eask clean autoloads
 eask clean log-file
 eask clean all