From c68b6e362d0a664dc927ded6905a440d4132c8e5 Mon Sep 17 00:00:00 2001
From: Jen-Chieh Shen <jcs090218@gmail.com>
Date: Sat, 23 Nov 2024 02:19:19 +0800
Subject: [PATCH] docs: clean all

---
 cmds/clean/all.lisp                           |  3 ++-
 .../Commands-and-options/_index.en.md         | 19 +++++++++++++++++++
 .../Commands-and-options/_index.zh-tw.md      | 19 +++++++++++++++++++
 src/utils.lisp                                |  7 ++++---
 4 files changed, 44 insertions(+), 4 deletions(-)

diff --git a/cmds/clean/all.lisp b/cmds/clean/all.lisp
index cabbd62..1d4a83d 100644
--- a/cmds/clean/all.lisp
+++ b/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."
diff --git a/docs/content/Getting-Started/Commands-and-options/_index.en.md b/docs/content/Getting-Started/Commands-and-options/_index.en.md
index 212e72a..7b41f5b 100644
--- a/docs/content/Getting-Started/Commands-and-options/_index.en.md
+++ b/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.
diff --git a/docs/content/Getting-Started/Commands-and-options/_index.zh-tw.md b/docs/content/Getting-Started/Commands-and-options/_index.zh-tw.md
index 24a5fd7..e5bd3a9 100644
--- a/docs/content/Getting-Started/Commands-and-options/_index.zh-tw.md
+++ b/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
+```
+
 # 🚩 實用工具
 
 其他輔助指令。
diff --git a/src/utils.lisp b/src/utils.lisp
index 54e6ff6..c269faf 100644
--- a/src/utils.lisp
+++ b/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."