Qualify emacs name

src/recipe/ware/Emacs.c

@@ -0,0 +1,43 @@
+/** ------------------------------------------------------------
+ * SPDX-License-Identifier: GPL-3.0-or-later
+ * -------------------------------------------------------------
+ * File Authors  : Aoran Zeng <ccmywish@qq.com>
+ * Contributors  :  Nil Null  <nil@null.org>
+ * Created On    : <2023-10-10>
+ * Last Modified : <2024-08-09>
+ * ------------------------------------------------------------*/
+
+static MirrorSite
+EmacsChina = {"emacschina",  "EmacsChina",   "Emacs China 社区",    "https://elpamirror.emacs-china.org/", NULL};
+
+/**
+ * @time 2023-09-10 更新
+ * @note Emacs用户往往只需要一次性换源，只会极少次调用 chsrc，我们只给用户提供文档
+ */
+SourceInfo
+wr_emacs_sources[] = {
+  {&Upstream,       NULL},
+  {&Sjtug_Zhiyuan,  "https://mirrors.sjtug.sjtu.edu.cn/docs/emacs-elpa"},
+  {&Tuna,           "https://mirrors.tuna.tsinghua.edu.cn/help/elpa/"},
+  {&Bfsu,           "https://mirrors.bfsu.edu.cn/help/elpa/"},
+  {&Ustc,           "https://mirrors.ustc.edu.cn/help/elpa.html"},
+  {&Zju,            "https://mirrors.zju.edu.cn/docs/elpa/"},
+  {&EmacsChina,     "https://elpamirror.emacs-china.org/"}
+};
+def_sources_n(wr_emacs);
+
+
+void
+wr_emacs_setsrc (char *option)
+{
+  SourceInfo source;
+  chsrc_yield_source (wr_emacs);
+  chsrc_confirm_source (&source);
+
+  chsrc_note2 ("Emacs换源涉及Elisp，需要手动查阅并换源:");
+  puts (source.url);
+
+  chsrc_say_lastly (&source, ChsrcTypeManual);
+}
+
+def_target_s (wr_emacs);