From 1c4c31f6da3b53aa530e8eba141e00a13cb07cbc Mon Sep 17 00:00:00 2001 From: Cytrogen Date: Wed, 11 Mar 2026 19:23:11 -0400 Subject: [PATCH] =?UTF-8?q?feat(utils):=20=E9=87=8D=E6=9E=84=20Dashboard?= =?UTF-8?q?=20=E4=B8=BA=20manual.org=20=E9=A9=B1=E5=8A=A8?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit - 修正 Copyright 年份为 2026 - Dashboard 改为加载 manual.org 文件内容，替代硬编码的快捷键表格 - 简化 my/show-dashboard 函数 --- config/utils.el | 131 ++++++------------------------------------------ 1 file changed, 14 insertions(+), 117 deletions(-) diff --git a/config/utils.el b/config/utils.el index d2f6ae55a9a931f852eb6a4a3e02deef232726a8..6ec68a2400c4fbcec7f9885fd40b789f97abcbb9 100644 --- a/config/utils.el +++ b/config/utils.el @@ -1,6 +1,6 @@ ;;; utils.el --- Utility functions and dashboard -*- lexical-binding: t -*- -;; Copyright (C) 2024 Cytrogen +;; Copyright (C) 2026 Cytrogen ;; This file contains: ;; - Custom dashboard and startup screen @@ -31,132 +31,29 @@ ;; Custom Dashboard ;; GTD-focused startup screen (defun my/show-dashboard () - "Render a custom GTD dashboard." + "Display comprehensive Emacs manual/dashboard from manual.org." (interactive) - (let ((buf (get-buffer-create "*Cytrogen's Home*"))) + (let ((buf (get-buffer-create "*Cytrogen's Home*")) + (manual-file (expand-file-name "manual.org" user-emacs-directory))) (with-current-buffer buf (let ((inhibit-read-only t)) (erase-buffer) - - ;; Header - (insert "#+TITLE: Emacs 使用指南\n") - (insert "#+STARTUP: showall\n\n") - - (insert "Welcome back, Cytrogen.\n\n") - - ;; ══════════════════════════════════════════════════════════════ - ;; Quick Reference - 快捷键速查 - ;; ══════════════════════════════════════════════════════════════ - (insert "* 快捷键速查\n\n") - - (insert "** 笔记与任务 (Org-mode)\n\n") - (insert "| 快捷键 | 功能 | 说明 |\n") - (insert "|-----------+--------------+--------------------------------|\n") - (insert "| =C-c c= | 快速记录 | 打开 Capture 面板，选择模板 |\n") - (insert "| =C-c a= | 日程视图 | 查看待办事项和日历 |\n") - (insert "| =C-c w= | 快速归档 | 将当前条目移动到指定位置 |\n") - (insert "| =C-c o= | 打开笔记 | 浏览并打开 Org 文件 |\n") - (insert "| =C-c C-c= | 确认 | 在 Capture 中保存条目 |\n") - (insert "| =C-c C-k= | 取消 | 在 Capture 中放弃当前编辑 |\n\n") - - (insert "** 博客发布\n\n") - (insert "| 快捷键 | 功能 | 说明 |\n") - (insert "|-------------+------------+--------------------------------|\n") - (insert "| =C-c b c= | 创建月刊 | 创建新的月刊文件 |\n") - (insert "| =C-c b o= | 打开月刊 | 打开当前月刊 |\n") - (insert "| =C-c b m= | 导出月刊 | 将当前月刊导出为 Markdown |\n") - (insert "| =C-c b p= | 导出文章 | 导出 posts/ 目录下的单篇文章 |\n") - (insert "| =C-c b n= | 条目转文章 | 将笔记条目转为独立博客文章 |\n") - (insert "| =C-c b i= | 插入图片 | 插入博客图片链接 |\n\n") - - (insert "** 阅读与订阅\n\n") - (insert "| 快捷键 | 功能 | 说明 |\n") - (insert "|-----------+------------+--------------------------------|\n") - (insert "| =C-c f= | RSS 阅读器 | 打开 elfeed 查看订阅 |\n") - (insert "| =C-c e= | 邮件 | 打开 mu4e 邮件客户端 |\n\n") - (insert "OPDS 浏览器: =M-x my/opds-browse= 浏览 Calibre 书库\n\n") - - (insert "** 社交\n\n") - (insert "| 快捷键 | 功能 | 说明 |\n") - (insert "|-----------+------------+--------------------------------|\n") - (insert "| =C-c m= | Mastodon | 打开长毛象客户端 |\n\n") - - (insert "** 系统管理\n\n") - (insert "| 快捷键 | 功能 | 说明 |\n") - (insert "|-----------+------------+--------------------------------|\n") - (insert "| =C-c i= | 编辑配置 | 打开 init.el 配置文件 |\n") - (insert "| =C-c r= | 重载配置 | 重新加载 Emacs 配置 |\n\n") - - ;; ══════════════════════════════════════════════════════════════ - ;; Workflows - 工作流程 - ;; ══════════════════════════════════════════════════════════════ - (insert "* 工作流程\n\n") - - (insert "** GTD 三步法\n\n") - (insert "#+begin_quote\n") - (insert "大脑用来思考，不是用来记事的。\n") - (insert "#+end_quote\n\n") - (insert "1. *Capture（收集）* → =C-c c=\n") - (insert " 任何想法、任务、灵感，第一时间放入 Inbox。\n\n") - (insert "2. *Process（整理）* → =C-c w=\n") - (insert " 定期清空 Inbox，将条目归档到具体项目。\n\n") - (insert "3. *Do（执行）* → =C-c a=\n") - (insert " 通过 Agenda 查看今日待办，专注当下。\n\n") - - (insert "** 博客写作流程\n\n") - (insert "*** 记录灵感\n") - (insert "=C-c c= → =m= (Monthly 子菜单) → 选择分类:\n") - (insert "- =ma= 商业与社会\n") - (insert "- =mb= 心理与关系\n") - (insert "- =mc= 技术与创造\n") - (insert "- =md= 生活与文娱\n\n") - - (insert "*** 发布内容\n") - (insert "- 月刊: 在月刊文件中按 =C-c b m= 导出\n") - (insert "- 单篇: 在 posts/ 文章中按 =C-c b p= 导出\n") - (insert "- 转换: 光标在条目上按 =C-c b n= 创建独立文章\n\n") - - ;; ══════════════════════════════════════════════════════════════ - ;; Useful Commands - 常用命令 - ;; ══════════════════════════════════════════════════════════════ - (insert "* 常用命令 (M-x)\n\n") - (insert "** 博客\n") - (insert "- =my/blog-create-monthly= - 创建新月刊\n") - (insert "- =my/blog-open-current-monthly= - 打开当前月刊\n\n") - (insert "** 阅读\n") - (insert "- =my/opds-browse= - 浏览 Calibre OPDS 书库\n") - (insert "- =elfeed-update= - 更新 RSS 订阅\n\n") - (insert "** 系统\n") - (insert "- =my/show-dashboard= - 显示此帮助页面\n") - (insert "- =my/reload-org-structure= - 重载 Org 结构配置\n") - (insert "- =my/check-gpg-status= - 检查 GPG 状态\n") - (insert "- =my/fix-epa-issues= - 修复 GPG/EPA 问题\n\n") - - ;; Footer - (insert "-----\n") - (insert "/保持简单，保持流动。/\n") - + (if (file-exists-p manual-file) + (insert-file-contents manual-file) + (insert "#+TITLE: Emacs 使用指南\n\n") + (insert (format "manual.org 文件未找到: %s\n" manual-file))) (org-mode) (when (fboundp 'my/org-mode-visual-setup) (my/org-mode-visual-setup)) (org-indent-mode 1) (visual-line-mode 1) - - ;; 跳过被隐藏的元数据行，将视图定位到第一行可见文本 - (while (get-char-property (point) 'invisible) + (read-only-mode 1) + (org-overview) + (goto-char (point-min)) + (while (and (not (eobp)) + (get-char-property (point) 'invisible)) (forward-line 1)))) - - (switch-to-buffer buf) - - ;; 延迟定位到第一行可见内容 - (run-with-idle-timer 0.1 nil - (lambda () - (when (and (get-buffer "*Cytrogen's Home*") - (string= (buffer-name (current-buffer)) "*Cytrogen's Home*")) - (goto-char (point-min)) - (while (and (not (eobp)) - (get-char-property (point) 'invisible)) - (forward-line 1))))))) + (switch-to-buffer buf))) ;; Dashboard startup configuration (setq inhibit-startup-screen t)