chsrc/src/recipe/ware/Emacs.c
2024-11-22 09:08:32 +08:00

46 lines
1.4 KiB
C
Raw Blame History

This file contains ambiguous Unicode characters

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

/** ------------------------------------------------------------
* 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-11-21>
* ------------------------------------------------------------*/
static MirrorSite_t
EmacsChina = {
"emacschina", "EmacsChina", "Emacs China 社区", "https://elpamirror.emacs-china.org/",
{SKIP, ToFill, ToFill, NULL}
};
/**
* @update 2023-09-10
* @note Emacs用户往往只需要一次性换源只会极少次调用 chsrc我们只给用户提供文档
*/
Source_t
wr_emacs_sources[] = {
{&UpstreamProvider, 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)
{
chsrc_yield_source_and_confirm (wr_emacs);
chsrc_note2 ("Emacs换源涉及Elisp需要手动查阅并换源:");
say (source.url);
ProgMode_ChgType = ChgType_Manual;
chsrc_conclude (&source);
}
def_target_s (wr_emacs);