docs: clean all

Author: jcs090218

cmds/clean/all.lisp

@@ -19,7 +19,8 @@
 
 (defun handler (cmd)
   "Handler for `clean all' command."
-  (qob-cli:call-script "clean/all" cmd))
+  (let ((qob-cli:inhibit-ql-download-p t))
+    (qob-cli:call-script "clean/all" cmd)))
 
 (defun command ()
   "The `clean all' command."

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

@@ -231,6 +231,25 @@ Alias: `.qob`
 $ qob [GLOBAL-OPTIONS] clean workspace
 ```
 
+## 🔍 qob clean dist
+
+Delete dist subdirectory.
+
+```sh
+$ qob [GLOBAL-OPTIONS] clean dist
+```
+
+## 🔍 qob clean all
+
+This command is the combination of all other clean commands.
+
+- `clean workspace`
+- `clean dist`
+
+```sh
+$ qob [GLOBAL-OPTIONS] clean all
+```
+
 # 🚩 Utilities
 
 Other helper commands.

docs/content/Getting-Started/Commands-and-options/_index.zh-tw.md

@@ -230,6 +230,25 @@ $ qob [GLOBAL-OPTIONS] link list
 $ qob [GLOBAL-OPTIONS] clean workspace
 ```
 
+## 🔍 qob clean dist
+
+刪除 dist 子目錄。
+
+```sh
+$ qob [GLOBAL-OPTIONS] clean dist
+```
+
+## 🔍 qob clean all
+
+此指令是所有其他清除指令的組合。
+
+- `clean workspace`
+- `clean dist`
+
+```sh
+$ qob [GLOBAL-OPTIONS] clean all
+```
+
 # 🚩 實用工具
 
 其他輔助指令。

src/utils.lisp

@@ -103,9 +103,10 @@ Argument CMD is used to extract positional arguments and options."
   (setf (uiop:getenv "QOB_TEMP_FILE") (el-lib:el-expand-file-name "tmp" (dot-global)))
   (setf (uiop:getenv "QOB_LISP_ROOT") (lisp-root))
   (setf (uiop:getenv "QOB_USER_INIT") (user-init cmd))
-  (if (quicklisp-installed-p cmd)
-      (setf (uiop:getenv "QOB_QUICKLISP_INSTALLED") "t")
-      (quicklisp-download cmd)))
+  (unless inhibit-ql-download-p
+    (if (quicklisp-installed-p cmd)
+        (setf (uiop:getenv "QOB_QUICKLISP_INSTALLED") "t")
+        (quicklisp-download cmd))))
 
 (defun program-name ()
   "Lisp program we target to run."