feat: Add command clean pkg-file (#99)

* feat: Add command clean pkg-file

* changelog

* impls all

Author: jcs090218

CHANGELOG.md

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

cmds/clean/pkg-file.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 = ['pkg-file'];
+exports.desc = 'Remove generated pkg-file';
+
+exports.handler = async (argv) => {
+  await UTIL.e_call(argv, 'clean/pkg-file');
+};

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

@@ -364,6 +364,14 @@ Remove generated autoloads file.
 $ eask [GLOBAL-OPTIONS] clean autoloads
 ```
 
+## 🔍 eask clean pkg-file
+
+Remove generated pkg-file.
+
+```sh
+$ eask [GLOBAL-OPTIONS] clean pkg-file
+```
+
 ## 🔍 eask clean log-file
 
 Remove all generated log files.
@@ -380,6 +388,7 @@ This command is the combination of all other clean commands.
 - `clean elc`
 - `clean dist`
 - `clean autoloads`
+- `clean pkg-file`
 - `clean log-file`
 
 ```sh

lisp/clean/all.el

@@ -39,6 +39,9 @@
   (eask--clean-section "Cleaning autoloads file"
     (eask-call "clean/autoloads"))
   (eask-msg "")
+  (eask--clean-section "Cleaning pkg-file"
+    (eask-call "clean/pkg-file"))
+  (eask-msg "")
   (eask--clean-section "Cleaning log files"
     (eask-call "clean/log-file")))
 

lisp/clean/pkg-file.el

@@ -0,0 +1,27 @@
+;;; clean/pkg-file.el --- Remove generated pkg-file  -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;;
+;; Remove generated pkg-file,
+;;
+;;   $ eask clean pkg-file
+;;
+
+;;; 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))
+         (pkg-file (expand-file-name (concat name "-pkg.el")))
+         (deleted (eask-delete-file pkg-file)))
+    (eask-msg "")
+    (if deleted
+        (eask-info "(Total of 1 file deleted)")
+      (eask-info "(No pkg-file found in workspace)")
+      (setq eask-no-cleaning-operation-p t))))
+
+;;; clean/pkg-file.el ends here

test/commands/local/run.sh

@@ -72,6 +72,7 @@ eask clean .eask
 eask clean elc
 eask clean dist
 eask clean autoloads
+eask clean pkg-file
 eask clean log-file
 eask clean all