feat: Add root command

Author: jcs090218

cmds/util/root.js

@@ -0,0 +1,17 @@
+/**
+ * $File: root.js $
+ * $Date: 2025-12-27 20:29:35 $
+ * $Revision: $
+ * $Creator: Jen-Chieh Shen $
+ * $Notice: See LICENSE.txt for modification and distribution information
+ *                   Copyright © 2025 by Shen, Jen-Chieh $
+ */
+
+"use strict";
+
+exports.command = ['root'];
+exports.desc = 'Display the effective installation directory of your Emacs packages';
+
+exports.handler = async (argv) => {
+  await UTIL.e_call(argv, 'util/root');
+};

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

@@ -992,6 +992,14 @@ Show the location where Eask is installed.
 eask [GLOBAL-OPTIONS] locate
 ```
 
+## 🔍 eask root
+
+Display the effective installation directory of your Emacs packages.
+
+```sh
+eask [GLOBAL-OPTIONS] root
+```
+
 # 🚩 Checker
 
 Commands to check your Eask-file.

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

@@ -978,6 +978,14 @@ eask [GLOBAL-OPTIONS] upgrade-eask
 eask [GLOBAL-OPTIONS] locate
 ```
 
+## 🔍 eask root
+
+顯示包的安裝目錄。
+
+```sh
+eask [GLOBAL-OPTIONS] root
+```
+
 # 🚩 檢查器
 
 檢查您的 Eask 文件的命令。

lisp/_prepare.el

@@ -197,7 +197,8 @@ workspace has no valid Eask-file; it will load global workspace instead."
                     "create/package" "create/elpa" "create/el-project"
                     "bump" "cat" "keywords" "repl"
                     "generate/ignore" "generate/license"
-                    "test/melpazoid")))
+                    "test/melpazoid"
+                    "util/root")))
 
 (defun eask-execution-p ()
   "Return t if the command is the execution command.

lisp/util/root.el

@@ -0,0 +1,20 @@
+;;; util/root.el --- Display the effective installation directory  -*- lexical-binding: t; -*-
+
+;;; Commentary:
+;;
+;; Command use to display the effective installation directory,
+;;
+;;   $ eask root
+;;
+
+;;; Code:
+
+(let ((dir (file-name-directory (nth 1 (member "-scriptload" command-line-args)))))
+  (load (expand-file-name "_prepare.el"
+                          (locate-dominating-file dir "_prepare.el"))
+        nil t))
+
+(eask-start
+  (eask-println "%s\n" user-emacs-directory))
+
+;;; util/root.el ends here