From 416a2311e3fcbe5fb38863d121e84c9708bb340b Mon Sep 17 00:00:00 2001 From: HallowDem <75336799+Cytrogen@users.noreply.github.com> Date: Tue, 13 Jan 2026 23:10:34 -0500 Subject: [PATCH] =?UTF-8?q?dev:=20=E6=B7=BB=E5=8A=A0=20gitignore?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- .gitignore | 6 + bookmarks | 17 - .../16/5cfccc-d7c6-455f-99ed-1f1e310ed979 | 2 - .../45/157a60-e5f5-4934-b910-fbea6feaf957 | 2 - .../46/f0a523-6bb4-42d2-9cce-c2f6cb599174 | 2 - .../b7/50fb89-4df4-4ea9-9074-48e231c0539a | 2 - .../bc/ac81bc-baa3-41b3-b765-7409b4e5da0c | 2 - .../c9/858381-8a0c-49af-8505-a771820bc7e2 | 2 - .../cd/61aad8-4e7e-4374-bfac-042337d84922 | 2 - .../fc/b2fb90-123c-4849-b13f-d499ba489b3a | 2 - org-persist/gc-lock.eld | 2 - org-persist/index.eld | 2 - ...trogen!AppData!Roaming!.emacs.d!bookmarks~ | 17 - ...Cytrogen!AppData!Roaming!.emacs.d!init.el~ | 1125 ----------------- ...AppData!Roaming!.emacs.d!mastodon.plstore~ | 24 - ...acs.d!snippets!org-mode!hugo-blog-monthly~ | 112 -- saves/!drive_d!Org!inbox.org~ | 25 - saves/!drive_d!Org!notes!projects.org~ | 2 - saves/!drive_d!Org!notes!reading.org~ | 76 -- saves/!drive_d!Org!personal.org~ | 2 - saves/!drive_d!Org!reading.org~ | 76 -- saves/!drive_d!Org!shopping.org~ | 5 - saves/!drive_d!Org!tech.org~ | 2 - saves/#d!!Org!inbox.org# | 17 - saves/#d!!Org!tech.org# | 8 - 25 files changed, 6 insertions(+), 1528 deletions(-) delete mode 100644 bookmarks delete mode 100644 org-persist/16/5cfccc-d7c6-455f-99ed-1f1e310ed979 delete mode 100644 org-persist/45/157a60-e5f5-4934-b910-fbea6feaf957 delete mode 100644 org-persist/46/f0a523-6bb4-42d2-9cce-c2f6cb599174 delete mode 100644 org-persist/b7/50fb89-4df4-4ea9-9074-48e231c0539a delete mode 100644 org-persist/bc/ac81bc-baa3-41b3-b765-7409b4e5da0c delete mode 100644 org-persist/c9/858381-8a0c-49af-8505-a771820bc7e2 delete mode 100644 org-persist/cd/61aad8-4e7e-4374-bfac-042337d84922 delete mode 100644 org-persist/fc/b2fb90-123c-4849-b13f-d499ba489b3a delete mode 100644 org-persist/gc-lock.eld delete mode 100644 org-persist/index.eld delete mode 100644 saves/!drive_c!Users!Cytrogen!AppData!Roaming!.emacs.d!bookmarks~ delete mode 100644 saves/!drive_c!Users!Cytrogen!AppData!Roaming!.emacs.d!init.el~ delete mode 100644 saves/!drive_c!Users!Cytrogen!AppData!Roaming!.emacs.d!mastodon.plstore~ delete mode 100644 saves/!drive_c!Users!Cytrogen!AppData!Roaming!.emacs.d!snippets!org-mode!hugo-blog-monthly~ delete mode 100644 saves/!drive_d!Org!inbox.org~ delete mode 100644 saves/!drive_d!Org!notes!projects.org~ delete mode 100644 saves/!drive_d!Org!notes!reading.org~ delete mode 100644 saves/!drive_d!Org!personal.org~ delete mode 100644 saves/!drive_d!Org!reading.org~ delete mode 100644 saves/!drive_d!Org!shopping.org~ delete mode 100644 saves/!drive_d!Org!tech.org~ delete mode 100644 saves/#d!!Org!inbox.org# delete mode 100644 saves/#d!!Org!tech.org# diff --git a/.gitignore b/.gitignore index d31b36a7ba4ac3c7e619439f2aa0242ce8058d08..07340850f2acf785b50185f06db2534feb87d0e2 100644 --- a/.gitignore +++ b/.gitignore @@ -2,3 +2,9 @@ .org-path mastodon.plstore auto-save-list/ + +org-persist/ + +saves/ + +bookmarks diff --git a/bookmarks b/bookmarks deleted file mode 100644 index 1bcb1306d7a461cceca6a535af9d3c767c15596d..0000000000000000000000000000000000000000 --- a/bookmarks +++ /dev/null @@ -1,17 +0,0 @@ -;;;; Emacs Bookmark Format Version 1;;;; -*- coding: utf-8-emacs; mode: lisp-data -*- -;;; This format is meant to be slightly human-readable; -;;; nevertheless, you probably don't want to edit it. -;;; -*- End Of Bookmark File Format Version Stamp -*- -(("org-refile-last-stored" - (filename . "d:/Org/reading.org") - (front-context-string . "** 世界没有你的时候也会继续运") - (rear-context-string . "1-05 Mon 12:08]\n") - (position . 2927) - (last-modified 26974 2343 828742 0)) -("org-capture-last-stored" - (filename . "d:/Org/notes/reading.org") - (front-context-string . "** 找到两个数的最大公约数\n如") - (rear-context-string . "1-05 Mon 12:08]\n") - (position . 1654) - (last-modified 26973 27640 735114 0)) -) diff --git a/org-persist/16/5cfccc-d7c6-455f-99ed-1f1e310ed979 b/org-persist/16/5cfccc-d7c6-455f-99ed-1f1e310ed979 deleted file mode 100644 index 8e2edff460f73c39a0feabaed2a0c3fe32b5e2bd..0000000000000000000000000000000000000000 --- a/org-persist/16/5cfccc-d7c6-455f-99ed-1f1e310ed979 +++ /dev/null @@ -1,2 +0,0 @@ -;; -*- mode: lisp-data; -*- -(((elisp org-element--headline-cache) . #s(avl-tree- [[[nil nil #9=(headline (:standard-properties [16 16 nil nil 30 0 #2=(:title) nil element t nil nil nil 1 nil #3=[org-element-deferred org-element--headline-deferred nil t] nil #4=(org-data (:standard-properties [1 1 1 219 219 0 nil org-data nil t nil 3 219 nil nil [org-element-deferred org-element--get-global-node-properties nil t] nil nil] :path "d:/Org/tech.org"))] :pre-blank 0 :raw-value #1=[org-element-deferred org-element--headline-parse-title (t) t] :title #1# :level #1# :priority #1# :tags #1# :todo-keyword #1# :todo-type #1# :footnote-section-p #1# :archivedp #1# :commentedp #1#)) 0] [nil nil #7=(headline (:standard-properties [49 49 183 208 208 0 #2# section element t nil 185 208 2 nil #3# nil #5=(headline (:standard-properties [38 38 49 208 208 0 #2# nil element t nil 51 208 1 nil #3# nil #4#] :pre-blank 0 :raw-value #1# :title #1# :level #1# :priority #1# :tags #1# :todo-keyword #1# :todo-type #1# :footnote-section-p #1# :archivedp #1# :commentedp #1#))] :pre-blank 0 :raw-value [org-element-deferred org-element--headline-raw-value (3 133) t] :title [org-element-deferred org-element-property-2 (:raw-value) nil] :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :footnote-section-p [org-element-deferred org-element--headline-footnote-section-p nil nil] :archivedp [org-element-deferred org-element--headline-archivedp nil nil] :commentedp nil)) 0] #5# 0] nil nil 0] org-element--cache-compare)) ((elisp org-element--cache) . #s(avl-tree- [[[[nil nil #4# 0] [nil nil (keyword (:standard-properties [1 1 nil nil 16 1 nil top-comment element t nil nil nil nil nil nil nil #6=(section (:standard-properties [1 1 1 16 16 0 nil first-section element t nil 1 16 nil nil nil nil #4#]))] :key "TITLE" :value "Tech")) 0] #6# 0] [[nil nil #5# 0] [nil [nil nil (paragraph (:standard-properties [183 183 183 208 208 0 nil planning element t nil nil nil nil nil nil nil #8=(section (:standard-properties [183 183 183 208 208 0 nil section element t nil 183 208 nil nil nil nil #7#]))])) 0] #8# 1] #7# 1] #9# 1] nil nil 0] org-element--cache-compare)) ((version "2.3"))) \ No newline at end of file diff --git a/org-persist/45/157a60-e5f5-4934-b910-fbea6feaf957 b/org-persist/45/157a60-e5f5-4934-b910-fbea6feaf957 deleted file mode 100644 index 32c93fcb757f35654919695a3948fbbb870bdd14..0000000000000000000000000000000000000000 --- a/org-persist/45/157a60-e5f5-4934-b910-fbea6feaf957 +++ /dev/null @@ -1,2 +0,0 @@ -;; -*- mode: lisp-data; -*- -(((elisp org-element--headline-cache) . #s(avl-tree- [[[nil nil #9=(headline (:standard-properties [60 60 69 90 90 0 (:title) nil element t nil 71 90 1 nil [org-element-deferred org-element--headline-deferred nil t] nil #1=(org-data (:standard-properties [1 1 1 197 197 0 nil org-data nil t nil 3 197 nil nil [org-element-deferred org-element--get-global-node-properties nil t] nil nil] :path "d:/Org/inbox.org" :fragile-cache nil))] :pre-blank 1 :raw-value [org-element-deferred org-element--headline-raw-value (2 7) t] :title [org-element-deferred org-element-property-2 (:raw-value) nil] :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :footnote-section-p [org-element-deferred org-element--headline-footnote-section-p nil nil] :archivedp [org-element-deferred org-element--headline-archivedp nil nil] :commentedp nil)) 0] [[nil nil #13=(headline (:standard-properties [114 114 131 153 153 0 #2=(:title) nil element t nil 133 153 1 nil #3=[org-element-deferred org-element--headline-deferred nil t] nil #1#] :pre-blank 1 :raw-value [org-element-deferred org-element--headline-raw-value (2 15) t] :title #4=[org-element-deferred org-element-property-2 (:raw-value) nil] :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :footnote-section-p #5=[org-element-deferred org-element--headline-footnote-section-p nil nil] :archivedp #6=[org-element-deferred org-element--headline-archivedp nil nil] :commentedp nil)) 0] [nil nil #16=(headline (:standard-properties [181 181 nil nil 197 0 #2# nil element t nil nil nil 1 nil #3# nil #1#] :pre-blank 0 :raw-value [org-element-deferred org-element--headline-raw-value (2 15) t] :title #4# :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :footnote-section-p #5# :archivedp #6# :commentedp nil)) 0] #14=(headline (:standard-properties [153 153 170 181 181 0 #2# nil element t nil 172 181 1 nil #3# nil #1#] :pre-blank 1 :raw-value [org-element-deferred org-element--headline-raw-value (2 15) t] :title #4# :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :footnote-section-p #5# :archivedp #6# :commentedp nil)) 0] #11=(headline (:standard-properties [90 90 99 114 114 0 #2# nil nil t nil 101 114 1 nil #3# nil #1#] :pre-blank 1 :raw-value #7=[org-element-deferred org-element--headline-parse-title (t) t] :title #7# :level #7# :priority #7# :tags #7# :todo-keyword #7# :todo-type #7# :footnote-section-p #7# :archivedp #7# :commentedp #7#)) 1] nil nil 0] org-element--cache-compare)) ((elisp org-element--cache) . #s(avl-tree- [[[[[nil nil #1# 0] [nil nil (keyword (:standard-properties [1 1 nil nil 20 0 nil top-comment element t nil nil nil nil nil nil nil #8=(section (:standard-properties [1 1 1 60 60 0 nil first-section element t nil 1 60 nil nil nil nil #1#]))] :key "TITLE" :value "GTD Inbox")) 0] #8# 0] [nil nil (keyword (:standard-properties [39 39 nil nil 60 1 nil nil element t nil nil nil nil nil nil nil #8#] :key "STARTUP" :value "overview")) 0] (keyword (:standard-properties [20 20 nil nil 39 0 nil nil element t nil nil nil nil nil nil nil #8#] :key "DATE" :value "2026-01-04")) -1] [[[[nil nil #10=(section (:standard-properties [69 69 69 90 90 0 nil section element t nil 69 90 nil nil nil nil #9#])) 0] nil (paragraph (:standard-properties [69 69 69 90 90 0 nil planning element t nil nil nil nil nil nil nil #10#])) -1] [[nil nil #12=(section (:standard-properties [99 99 99 114 114 0 nil section element t nil 99 114 nil nil nil nil #11#])) 0] nil (paragraph (:standard-properties [99 99 99 114 114 0 nil planning element t nil nil nil nil nil nil nil #12#])) -1] #11# 0] [[[nil nil #15=(section (:standard-properties [131 131 131 153 153 0 nil section element t nil 131 153 nil nil nil nil #13#])) 0] [nil nil #14# 0] (paragraph (:standard-properties [131 131 131 153 153 0 nil planning element t nil nil nil nil nil nil nil #15#])) 0] [nil [nil nil #16# 0] (paragraph (:standard-properties [170 170 170 181 181 0 nil planning element t nil nil nil nil nil nil nil #17=(section (:standard-properties [170 170 170 181 181 0 nil section element t nil 170 181 nil nil nil nil #14#]))])) 1] #17# 0] #13# 0] #9# 1] nil nil 0] org-element--cache-compare)) ((version "2.3"))) \ No newline at end of file diff --git a/org-persist/46/f0a523-6bb4-42d2-9cce-c2f6cb599174 b/org-persist/46/f0a523-6bb4-42d2-9cce-c2f6cb599174 deleted file mode 100644 index 09f8fc2fdb92c2028249ea2e1976e949300c4ede..0000000000000000000000000000000000000000 --- a/org-persist/46/f0a523-6bb4-42d2-9cce-c2f6cb599174 +++ /dev/null @@ -1,2 +0,0 @@ -;; -*- mode: lisp-data; -*- -(((elisp org-element--headline-cache) . #s(avl-tree- [nil nil nil 0] org-element--cache-compare)) ((elisp org-element--cache) . #s(avl-tree- [[[nil nil #1=(org-data (:standard-properties [1 1 1 124 124 0 nil org-data nil t nil 3 124 nil nil [org-element-deferred org-element--get-global-node-properties nil t] nil nil] :path "d:/Programs/blog/blog-local/org-drafts/test-post.org")) 0] [[nil nil (keyword (:standard-properties [1 1 nil nil 41 0 nil top-comment element t nil nil nil nil nil nil nil #2=(section (:standard-properties [1 1 1 117 117 0 nil first-section element t nil 1 117 nil nil nil nil #1#]))] :key "TITLE" :value "测试 Emacs & Org.mode 对接 Hexo 框架")) 0] [nil nil (keyword (:standard-properties [60 60 nil nil 93 0 nil nil element t nil nil nil nil nil nil nil #2#] :key "FILETAGS" :value ":hexo:emacs:org.mode")) 0] (keyword (:standard-properties [41 41 nil nil 60 0 nil nil element t nil nil nil nil nil nil nil #2#] :key "DATE" :value "2026-01-03")) 0] #2# 1] nil nil 0] org-element--cache-compare)) ((version "2.3"))) \ No newline at end of file diff --git a/org-persist/b7/50fb89-4df4-4ea9-9074-48e231c0539a b/org-persist/b7/50fb89-4df4-4ea9-9074-48e231c0539a deleted file mode 100644 index d53ec6ae9dae5cdd33460937db79e9864ba81032..0000000000000000000000000000000000000000 --- a/org-persist/b7/50fb89-4df4-4ea9-9074-48e231c0539a +++ /dev/null @@ -1,2 +0,0 @@ -;; -*- mode: lisp-data; -*- -(((elisp org-element--headline-cache) . #s(avl-tree- [[[nil nil #4=(headline (:standard-properties [20 20 37 275 275 0 #2=(:title) nil nil t nil 39 275 1 nil #3=[org-element-deferred org-element--headline-deferred nil t] nil #5=(org-data (:standard-properties [1 1 1 297 297 0 nil org-data nil t nil 3 297 nil nil [org-element-deferred org-element--get-global-node-properties nil t] nil nil] :path "d:/Org/shopping.org" :fragile-cache nil))] :pre-blank 0 :raw-value #1=[org-element-deferred org-element--headline-parse-title (t) t] :title #1# :level #1# :priority #1# :tags #1# :todo-keyword #1# :todo-type #1# :footnote-section-p #1# :archivedp #1# :commentedp #1#)) 0] [nil [nil nil #15=(headline (:standard-properties [224 224 264 275 275 0 #2# nil element t nil 266 275 2 nil #3# nil #4#] :pre-blank 0 :raw-value #1# :title #1# :level #1# :priority #1# :tags #1# :todo-keyword #1# :todo-type #1# :footnote-section-p #1# :archivedp #1# :commentedp #1#)) 0] #9=(headline (:standard-properties [150 150 190 224 224 0 #2# nil element t nil 192 224 2 nil #3# nil #4#] :pre-blank 0 :raw-value #1# :title #1# :level #1# :priority #1# :tags #1# :todo-keyword #1# :todo-type #1# :footnote-section-p #1# :archivedp #1# :commentedp #1#)) 1] #7=(headline (:standard-properties [37 37 104 150 150 0 #2# nil nil t nil 106 150 2 nil #3# nil #4#] :pre-blank 0 :raw-value #1# :title #1# :level #1# :priority #1# :tags #1# :todo-keyword #1# :todo-type #1# :footnote-section-p #1# :archivedp #1# :commentedp #1#)) 1] nil nil 0] org-element--cache-compare)) ((elisp org-element--cache) . #s(avl-tree- [[[[[nil nil #5# 0] [nil nil (keyword (:standard-properties [1 1 nil nil 20 1 nil top-comment element t nil nil nil nil nil nil nil #6=(section (:standard-properties [1 1 1 20 20 0 nil first-section element t nil 1 20 nil nil nil nil #5#]))] :key "TITLE" :value "Shopping")) 0] #6# 0] [[nil nil #7# 0] [nil nil (paragraph (:standard-properties [104 104 104 150 150 0 nil planning element t nil nil nil nil nil nil nil #8=(section (:standard-properties [104 104 104 150 150 0 nil section element t nil 104 150 nil nil nil nil #7#]))])) 0] #8# 0] #4# 0] [[[nil nil #11=(section (:standard-properties [190 190 190 224 224 0 nil section element t nil 190 224 nil nil nil nil #9#])) 0] [nil nil (item (:standard-properties [190 190 198 201 201 0 #13=(:tag) item element t nil nil nil nil nil nil #10=((190 2 "- " nil "[ ]" nil 201) (201 2 "- " nil "[ ]" nil 212) (212 2 "- " nil "[ ]" nil 224)) #12=(plain-list (:standard-properties [190 190 190 224 224 0 nil planning element t nil nil nil nil nil nil #10# #11#] :type unordered))] :bullet #14="- " :checkbox off :counter nil :pre-blank 0 :tag nil)) 0] #12# 0] [[nil nil (item (:standard-properties [212 212 220 224 224 0 #13# item element t nil nil nil nil nil nil #10# #12#] :bullet #14# :checkbox off :counter nil :pre-blank 0 :tag nil)) 0] [nil [nil nil (plain-list (:standard-properties [264 264 264 275 275 0 nil planning element t nil nil nil nil nil nil ((264 2 "- " nil "[ ]" nil 275)) #16=(section (:standard-properties [264 264 264 275 275 0 nil section element t nil 264 275 nil nil nil nil #15#]))] :type unordered)) 0] #16# 1] #15# 1] (item (:standard-properties [201 201 209 212 212 0 #13# item element t nil nil nil nil nil nil #10# #12#] :bullet #14# :checkbox off :counter nil :pre-blank 0 :tag nil)) 1] #9# 1] nil nil 0] org-element--cache-compare)) ((version "2.3"))) \ No newline at end of file diff --git a/org-persist/bc/ac81bc-baa3-41b3-b765-7409b4e5da0c b/org-persist/bc/ac81bc-baa3-41b3-b765-7409b4e5da0c deleted file mode 100644 index a73d4488330c94c0fee3b6ee02c6b0f112d8b08f..0000000000000000000000000000000000000000 --- a/org-persist/bc/ac81bc-baa3-41b3-b765-7409b4e5da0c +++ /dev/null @@ -1,2 +0,0 @@ -;; -*- mode: lisp-data; -*- -(((elisp org-element--headline-cache) . #s(avl-tree- [nil nil nil 0] org-element--cache-compare)) ((elisp org-element--cache) . #s(avl-tree- [[[[[nil nil #1=(org-data (:standard-properties [1 1 1 604 604 0 nil org-data nil t nil 3 604 nil nil [org-element-deferred org-element--get-global-node-properties nil t] nil nil] :path "d:/Programs/blog/blog-local/scaffolds/post-zh.org" :fragile-cache nil)) 0] [nil nil (keyword (:standard-properties [1 1 nil nil 37 0 nil top-comment element t nil nil nil nil nil nil nil #2=(section (:standard-properties [1 1 1 604 604 0 nil first-section element t nil 1 604 nil nil nil nil #1#] :fragile-cache nil))] :key "TITLE" :value "将 Emacs + Org.mode 接入 Hexo")) 0] #2# 0] [[nil nil (keyword (:standard-properties [65 65 nil nil 76 0 nil nil element t nil nil nil nil nil nil nil #2#] :key "LANG" :value "zh")) 0] [nil nil (keyword (:standard-properties [109 109 nil nil 128 0 nil nil element t nil nil nil nil nil nil nil #2#] :key "CATEGORIES" :value "编程笔记")) 0] (keyword (:standard-properties [76 76 nil nil 109 0 nil nil element t nil nil nil nil nil nil nil #2#] :key "FILETAGS" :value ":hexo:emacs:org.mode")) 0] (keyword (:standard-properties [37 37 nil nil 65 0 nil nil element t nil nil nil nil nil nil nil #2#] :key "DATE" :value "2026-01-03 00:38:30")) 0] [[[nil nil (keyword (:standard-properties [141 141 nil nil 158 0 nil nil element t nil nil nil nil nil nil nil #2#] :key "MATHJAX" :value "false")) 0] [nil nil (keyword (:standard-properties [173 173 nil nil 188 0 nil nil element t nil nil nil nil nil nil nil #2#] :key "DESCRIPTION" :value #3="")) 0] (keyword (:standard-properties [158 158 nil nil 173 0 nil nil element t nil nil nil nil nil nil nil #2#] :key "HIDDEN" :value "true")) 0] [nil nil (paragraph (:standard-properties [221 221 221 468 469 1 nil nil element t nil nil nil nil nil nil nil #2#])) 0] (keyword (:standard-properties [188 188 nil nil 221 1 nil nil element t nil nil nil nil nil nil nil #2#] :key "OPTIONS" :value "\\n:t toc:nil num:nil")) -1] (keyword (:standard-properties [128 128 nil nil 141 0 nil nil element t nil nil nil nil nil nil nil #2#] :key "ABBRLINK" :value #3#)) 0] nil nil 0] org-element--cache-compare)) ((version "2.3"))) \ No newline at end of file diff --git a/org-persist/c9/858381-8a0c-49af-8505-a771820bc7e2 b/org-persist/c9/858381-8a0c-49af-8505-a771820bc7e2 deleted file mode 100644 index cc1546dbb4421d3f2b823ccc598edc6dd95f9966..0000000000000000000000000000000000000000 --- a/org-persist/c9/858381-8a0c-49af-8505-a771820bc7e2 +++ /dev/null @@ -1,2 +0,0 @@ -;; -*- mode: lisp-data; -*- -(((elisp org-element--headline-cache) . #s(avl-tree- [[[[nil nil #10=(headline (:standard-properties [55 55 63 137 137 0 #1=(:title) nil nil t nil 65 137 1 nil #2=[org-element-deferred org-element--headline-deferred nil t] nil #3=(org-data (:standard-properties [1 1 1 2934 2934 0 nil org-data nil t nil 3 2934 nil nil nil nil nil] :path "d:/Org/reading.org" :fragile-cache nil :CATEGORY "reading"))] :pre-blank 0 :raw-value [org-element-deferred org-element--headline-raw-value (2 7) t] :title #4=[org-element-deferred org-element-property-2 (:raw-value) nil] :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :footnote-section-p #5=[org-element-deferred org-element--headline-footnote-section-p nil nil] :archivedp #6=[org-element-deferred org-element--headline-archivedp nil nil] :commentedp nil)) 0] [[nil nil #12=(headline (:standard-properties [145 145 160 1285 1285 0 #1# section element t nil 162 1285 2 nil #2# nil #7=(headline (:standard-properties [137 137 145 1285 1285 0 #1# nil element t nil 147 1285 1 nil #2# nil #3#] :pre-blank 1 :raw-value [org-element-deferred org-element--headline-raw-value (2 6) t] :title #4# :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :footnote-section-p #5# :archivedp #6# :commentedp nil))] :pre-blank 0 :raw-value [org-element-deferred org-element--headline-raw-value (3 14) t] :title #4# :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :footnote-section-p #5# :archivedp #6# :commentedp nil)) 0] nil #18=(headline (:standard-properties [1285 1285 nil nil 1293 1 #1# nil element t nil nil nil 1 nil #2# nil #3#] :pre-blank 0 :raw-value [org-element-deferred org-element--headline-raw-value (2 6) t] :title #4# :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :footnote-section-p #5# :archivedp #6# :commentedp nil)) -1] #7# 1] [[nil nil #19=(headline (:standard-properties [1301 1301 1438 1547 1547 0 #1# nil nil t nil 1440 1547 2 nil #2# nil #8=(headline (:standard-properties [1293 1293 1301 2927 2927 0 #1# nil nil t nil 1303 2927 1 nil #2# nil #3#] :pre-blank 1 :raw-value [org-element-deferred org-element--headline-raw-value (2 6) t] :title #4# :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :footnote-section-p #5# :archivedp #6# :commentedp nil))] :pre-blank 0 :raw-value [org-element-deferred org-element--headline-raw-value (3 136) t] :title #4# :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :footnote-section-p #5# :archivedp #6# :commentedp nil)) 0] [nil [nil nil #26=(headline (:standard-properties [2927 2927 nil nil 2934 0 #1# nil element t nil nil nil 1 nil #2# nil #3#] :pre-blank 0 :raw-value [org-element-deferred org-element--headline-raw-value (2 6) t] :title #4# :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :footnote-section-p #5# :archivedp #6# :commentedp nil)) 0] #23=(headline (:standard-properties [2645 2645 2670 2927 2927 0 #1# nil element t nil 2672 2925 2 nil nil nil #8#] :pre-blank 0 :raw-value [org-element-deferred org-element--headline-raw-value (3 24) t] :title #4# :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :footnote-section-p #5# :archivedp #6# :commentedp nil)) 1] #21=(headline (:standard-properties [1547 1547 1609 2645 2645 0 #1# nil nil t nil 1611 2645 2 nil #2# nil #8#] :pre-blank 0 :raw-value [org-element-deferred org-element--headline-raw-value (3 61) t] :title #4# :level 2 :priority nil :tags nil :todo-keyword nil :todo-type nil :footnote-section-p #5# :archivedp #6# :commentedp nil)) 1] #8# 0] nil nil 0] org-element--cache-compare)) ((elisp org-element--cache) . #s(avl-tree- [[[[[[[nil nil #3# 0] [nil nil (keyword (:standard-properties [1 1 nil nil 15 0 nil top-comment element t nil nil nil nil nil nil nil #9=(section (:standard-properties [1 1 1 55 55 0 nil first-section element t nil 1 55 nil nil nil nil #3#]))] :key "TITLE" :value "阅读笔记")) 0] #9# 0] [nil nil (keyword (:standard-properties [34 34 nil nil 55 1 nil nil element t nil nil nil nil nil nil nil #9#] :key "STARTUP" :value "overview")) 0] (keyword (:standard-properties [15 15 nil nil 34 0 nil nil element t nil nil nil nil nil nil nil #9#] :key "DATE" :value "2026-01-04")) -1] [[nil nil #11=(section (:standard-properties [63 63 63 137 137 0 nil section element t nil 63 137 nil nil nil nil #10#])) 0] [nil nil (paragraph (:standard-properties [115 115 115 137 137 0 nil nil element t nil nil nil nil nil nil nil #11#])) 0] (property-drawer (:standard-properties [63 63 78 106 115 1 nil planning element t nil nil nil nil nil nil nil #11#])) 0] #10# -1] [[[[nil nil #12# 0] nil #13=(section (:standard-properties [160 160 160 1285 1285 0 nil section element t nil 160 1285 nil nil nil nil #12#])) -1] [[nil nil (src-block (:standard-properties [181 181 nil nil 292 0 nil nil element t nil nil nil nil nil nil nil #13#] :language "python" :switches nil :parameters nil :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value [org-element-deferred org-element--unescape-substring (19 101) t])) 0] nil (paragraph (:standard-properties [292 292 292 787 787 0 nil nil element t nil nil nil nil nil nil nil #13#])) -1] (paragraph (:standard-properties [160 160 160 181 181 0 nil planning element t nil nil nil nil nil nil nil #13#])) 0] [[nil nil (paragraph (:standard-properties [1021 1021 1021 1125 1125 0 nil nil element t nil nil nil nil nil nil nil #13#])) 0] nil #15=(plain-list (:standard-properties [1125 1125 1125 1285 1285 0 nil nil element t nil nil nil nil nil nil #14=((1125 0 "1. " nil nil nil 1156) (1156 0 "2. " nil nil nil 1189) (1189 0 "3. " nil nil nil 1285)) #13#] :type ordered)) -1] (src-block (:standard-properties [787 787 nil nil 1021 0 nil nil element t nil nil nil nil nil nil nil #13#] :language "java" :switches nil :parameters nil :number-lines nil :preserve-indent nil :retain-labels t :use-labels t :label-fmt nil :value [org-element-deferred org-element--unescape-substring (17 224) t])) -1] #7# 0] [[[[nil nil (item (:standard-properties [1156 1156 1159 1189 1189 0 #16=(:tag) item element t nil nil nil nil nil nil #14# #15#] :bullet "2. " :checkbox nil :counter nil :pre-blank 0 :tag nil)) 0] nil #17=(item (:standard-properties [1189 1189 1192 1285 1285 0 #16# item element t nil nil nil nil nil nil #14# #15#] :bullet "3. " :checkbox nil :counter nil :pre-blank 0 :tag nil)) -1] [[nil [nil nil (paragraph (:standard-properties [1260 1260 1260 1285 1285 0 nil nil element t nil nil nil nil nil nil nil #17#])) 0] (drawer (:standard-properties [1219 1219 1234 1252 1260 0 nil nil element t nil nil nil nil nil nil nil #17#] :drawer-name #25="PROPERTIES")) 1] [nil nil #8# 0] #18# -1] (paragraph (:standard-properties [1192 1192 1192 1218 1219 1 nil nil element t nil nil nil nil nil nil nil #17#])) 1] [[[[nil nil #20=(section (:standard-properties [1438 1438 1438 1547 1547 0 nil section element t nil 1438 1547 nil nil nil nil #19#])) 0] [nil nil (paragraph (:standard-properties [1522 1522 1522 1547 1547 0 nil nil element t nil nil nil nil nil nil nil #20#])) 0] (property-drawer (:standard-properties [1438 1438 1453 1514 1522 0 nil planning element t nil nil nil nil nil nil nil #20#])) 0] [[nil [nil nil (paragraph (:standard-properties [1609 1609 1609 2534 2534 0 nil planning element t nil nil nil nil nil nil nil #22=(section (:standard-properties [1609 1609 1609 2645 2645 0 nil section element t nil 1609 2645 nil nil nil nil #21#]))])) 0] #22# 1] [nil nil #24=(section (:standard-properties [2670 2670 2670 2927 2927 0 nil section element t nil 2670 2927 nil nil nil nil #23#])) 0] #23# -1] #21# 1] [[nil nil #27=(drawer (:standard-properties [2789 2789 2804 2894 2902 0 nil nil element t nil nil nil nil nil nil nil #24#] :drawer-name #25#)) 0] [nil [nil nil #26# 0] (paragraph (:standard-properties [2902 2902 2902 2927 2927 0 nil nil element t nil nil nil nil nil nil nil #24#])) 1] (paragraph (:standard-properties [2804 2804 2804 2894 2894 0 nil nil element t nil nil nil nil nil nil nil #27#])) 1] (paragraph (:standard-properties [2670 2670 2670 2789 2789 0 nil planning element t nil nil nil nil nil nil nil #24#])) -1] #19# 1] (item (:standard-properties [1125 1125 1128 1156 1156 0 #16# item element t nil nil nil nil nil nil #14# #15#] :bullet "1. " :checkbox nil :counter nil :pre-blank 0 :tag nil)) 1] nil nil 0] org-element--cache-compare)) ((version "2.3"))) \ No newline at end of file diff --git a/org-persist/cd/61aad8-4e7e-4374-bfac-042337d84922 b/org-persist/cd/61aad8-4e7e-4374-bfac-042337d84922 deleted file mode 100644 index e5b1b06da05a51fe1c70a4e4c168e355be17371a..0000000000000000000000000000000000000000 --- a/org-persist/cd/61aad8-4e7e-4374-bfac-042337d84922 +++ /dev/null @@ -1,2 +0,0 @@ -;; -*- mode: lisp-data; -*- -(((index "3.2") . "c:/Users/Cytrogen/AppData/Roaming/.emacs.d/org-persist/index.eld")) \ No newline at end of file diff --git a/org-persist/fc/b2fb90-123c-4849-b13f-d499ba489b3a b/org-persist/fc/b2fb90-123c-4849-b13f-d499ba489b3a deleted file mode 100644 index ab7db3e0f2d925eb96425df244b012a50350c17f..0000000000000000000000000000000000000000 --- a/org-persist/fc/b2fb90-123c-4849-b13f-d499ba489b3a +++ /dev/null @@ -1,2 +0,0 @@ -;; -*- mode: lisp-data; -*- -(((elisp org-element--headline-cache) . #s(avl-tree- [[[nil nil #7=(headline (:standard-properties [20 20 nil nil 29 0 #1=(:title) nil element t nil nil nil 1 nil #2=[org-element-deferred org-element--headline-deferred nil t] nil #3=(org-data (:standard-properties [1 1 1 56 56 0 nil org-data nil t nil 3 56 nil nil [org-element-deferred org-element--get-global-node-properties nil t] nil nil] :path "d:/Org/personal.org"))] :pre-blank 0 :raw-value [org-element-deferred org-element--headline-raw-value (2 8) t] :title #4=[org-element-deferred org-element-property-2 (:raw-value) nil] :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :footnote-section-p #5=[org-element-deferred org-element--headline-footnote-section-p nil nil] :archivedp #6=[org-element-deferred org-element--headline-archivedp nil nil] :commentedp nil)) 0] [nil [nil nil #8=(headline (:standard-properties [48 48 nil nil 56 0 #1# nil element t nil nil nil 1 nil #2# nil #3#] :pre-blank 0 :raw-value [org-element-deferred org-element--headline-raw-value (2 7) t] :title #4# :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :footnote-section-p #5# :archivedp #6# :commentedp nil)) 0] #9=(headline (:standard-properties [39 39 nil nil 48 0 #1# nil element t nil nil nil 1 nil #2# nil #3#] :pre-blank 0 :raw-value [org-element-deferred org-element--headline-raw-value (2 8) t] :title #4# :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :footnote-section-p #5# :archivedp #6# :commentedp nil)) 1] #10=(headline (:standard-properties [29 29 nil nil 39 0 #1# nil element t nil nil nil 1 nil #2# nil #3#] :pre-blank 0 :raw-value [org-element-deferred org-element--headline-raw-value (2 9) t] :title #4# :level 1 :priority nil :tags nil :todo-keyword nil :todo-type nil :footnote-section-p #5# :archivedp #6# :commentedp nil)) 1] nil nil 0] org-element--cache-compare)) ((elisp org-element--cache) . #s(avl-tree- [[[[nil nil #3# 0] [nil nil #7# 0] (section (:standard-properties [1 1 1 20 20 0 nil first-section element t nil 1 20 nil nil nil nil #3#])) 0] [nil [nil nil #8# 0] #9# 1] #10# 0] nil nil 0] org-element--cache-compare)) ((version "2.3"))) \ No newline at end of file diff --git a/org-persist/gc-lock.eld b/org-persist/gc-lock.eld deleted file mode 100644 index a638c5a1e1f2738af0ab01e46567062f46caddfa..0000000000000000000000000000000000000000 --- a/org-persist/gc-lock.eld +++ /dev/null @@ -1,2 +0,0 @@ -;; -*- mode: lisp-data; -*- -(((26971 60430 129674 0) 26973 8568 544429 0)) \ No newline at end of file diff --git a/org-persist/index.eld b/org-persist/index.eld deleted file mode 100644 index 826c56e826d8547ec39251d152880f56e7bfd554..0000000000000000000000000000000000000000 --- a/org-persist/index.eld +++ /dev/null @@ -1,2 +0,0 @@ -;; -*- mode: lisp-data; -*- -((:container ((elisp org-element--headline-cache) (elisp org-element--cache) (version "2.3")) :persist-file "c9/858381-8a0c-49af-8505-a771820bc7e2" :associated (:hash "289a5b968ee27111af6c3f5ec8921358" :file "d:/Org/reading.org" :inode 8444249301604469) :expiry 30 :last-access 1767770328.823907 :last-access-hr "2026-01-07T02:18:48-0500") (:container ((elisp org-element--headline-cache) (elisp org-element--cache) (version "2.3")) :persist-file "fc/b2fb90-123c-4849-b13f-d499ba489b3a" :associated (:hash "8db4d80e65de12ae820115e8d528a759" :file "d:/Org/personal.org" :inode 1407374886699438) :expiry 30 :last-access 1767739881.859652 :last-access-hr "2026-01-06T17:51:21-0500") (:container ((elisp org-element--headline-cache) (elisp org-element--cache) (version "2.3")) :persist-file "b7/50fb89-4df4-4ea9-9074-48e231c0539a" :associated (:hash "23079ce53dba5afc3bb24db0df91311a" :file "d:/Org/shopping.org" :inode 54606145484068429) :expiry 30 :last-access 1767739881.846487 :last-access-hr "2026-01-06T17:51:21-0500") (:container ((elisp org-element--headline-cache) (elisp org-element--cache) (version "2.3")) :persist-file "16/5cfccc-d7c6-455f-99ed-1f1e310ed979" :associated (:hash "0eeee4074dec0c1e7278f821e464d923" :file "d:/Org/tech.org" :inode 35747322045399462) :expiry 30 :last-access 1767766893.861967 :last-access-hr "2026-01-07T01:21:33-0500") (:container ((elisp org-element--headline-cache) (elisp org-element--cache) (version "2.3")) :persist-file "45/157a60-e5f5-4934-b910-fbea6feaf957" :associated (:hash "c38f5e059b7c0dfcb4b2950428e1d379" :file "d:/Org/inbox.org" :inode 41095346599840470) :expiry 30 :last-access 1767766847.863775 :last-access-hr "2026-01-07T01:20:47-0500") (:container ((elisp org-element--headline-cache) (elisp org-element--cache) (version "2.3")) :persist-file "bc/ac81bc-baa3-41b3-b765-7409b4e5da0c" :associated (:hash "0afd7273fb233cc4e5889c7eb7e1e7e1" :file "d:/Programs/blog/blog-local/scaffolds/post-zh.org" :inode 20829148278818618) :expiry 30 :last-access 1767418015.494549 :last-access-hr "2026-01-03T00:26:55-0500") (:container ((elisp org-element--headline-cache) (elisp org-element--cache) (version "2.3")) :persist-file "46/f0a523-6bb4-42d2-9cce-c2f6cb599174" :associated (:hash "deb0afdca365fa892b9f481ca5b2ab23" :file "d:/Programs/blog/blog-local/org-drafts/test-post.org" :inode 1970324840096268) :expiry 30 :last-access 1767402078.04534 :last-access-hr "2026-01-02T20:01:18-0500") (:container ((index "3.2")) :persist-file "cd/61aad8-4e7e-4374-bfac-042337d84922" :associated nil :expiry never :last-access 1767395207.318254 :last-access-hr "2026-01-02T18:06:47-0500")) \ No newline at end of file diff --git a/saves/!drive_c!Users!Cytrogen!AppData!Roaming!.emacs.d!bookmarks~ b/saves/!drive_c!Users!Cytrogen!AppData!Roaming!.emacs.d!bookmarks~ deleted file mode 100644 index 6ada810ff44c0f5ff083f371c7eed7d5b18c81b7..0000000000000000000000000000000000000000 --- a/saves/!drive_c!Users!Cytrogen!AppData!Roaming!.emacs.d!bookmarks~ +++ /dev/null @@ -1,17 +0,0 @@ -;;;; Emacs Bookmark Format Version 1;;;; -*- coding: utf-8-emacs; mode: lisp-data -*- -;;; This format is meant to be slightly human-readable; -;;; nevertheless, you probably don't want to edit it. -;;; -*- End Of Bookmark File Format Version Stamp -*- -(("org-refile-last-stored" - (filename . "d:/Org/tech.org") - (front-context-string . "** Emacs 的缓存机制，让") - (rear-context-string . "ools\n* Learning\n") - (position . 49) - (last-modified 26973 64366 314531 0)) -("org-capture-last-stored" - (filename . "d:/Org/notes/reading.org") - (front-context-string . "** 找到两个数的最大公约数\n如") - (rear-context-string . "1-05 Mon 12:08]\n") - (position . 1654) - (last-modified 26973 27640 735114 0)) -) diff --git a/saves/!drive_c!Users!Cytrogen!AppData!Roaming!.emacs.d!init.el~ b/saves/!drive_c!Users!Cytrogen!AppData!Roaming!.emacs.d!init.el~ deleted file mode 100644 index ed1fc3ee8ca0ff68ae575ecc8ba7ed1692331cb2..0000000000000000000000000000000000000000 --- a/saves/!drive_c!Users!Cytrogen!AppData!Roaming!.emacs.d!init.el~ +++ /dev/null @@ -1,1125 +0,0 @@ -(set-language-environment "UTF-8") -(prefer-coding-system 'utf-8-unix) -(set-default-coding-systems 'utf-8-unix) -(set-terminal-coding-system 'utf-8-unix) -(set-keyboard-coding-system 'utf-8-unix) -(set-selection-coding-system 'utf-8-unix) -(set-file-name-coding-system 'utf-8-unix) -(set-clipboard-coding-system 'utf-8-unix) -(set-buffer-file-coding-system 'utf-8-unix) - -(if (eq system-type 'windows-nt) - (setq file-name-coding-system 'gbk)) - -;; Package Initialization - -(require 'package) -(add-to-list 'package-archives '("melpa" . "https://melpa.org/packages/") t) -(package-initialize) - -;; Theme Loading - -;; Fonts - -(defun my/setup-blog-fonts () - "Setup fonts with precise control over CJK, Punctuation, and Nerd Icons. -Refactored to strictly separate Fixed Pitch (Code) and Variable Pitch (Writing) faces." - (interactive) - (require 'org) - - ;; ================================================================= - ;; 1.【核心修复】脚本劫持 (保持不变) - ;; ================================================================= - (set-char-table-range char-script-table '(#x3000 . #x303F) 'han) - (set-char-table-range char-script-table '(#xFF00 . #xFFEF) 'han) - (set-char-table-range char-script-table '(#x2000 . #x206F) 'han) - - ;; ================================================================= - ;; 2. 基础字体 (Default Face) - Emacs 的基底 - ;; ================================================================= - ;; 英文/数字: 强制 JetBrains Mono - (set-face-attribute 'default nil :font "JetBrains Mono-13") - - ;; 中文: 强制 Source Han Sans SC (思源黑体) 用于 UI 和基础对齐 - (set-fontset-font t 'han (font-spec :family "Source Han Sans SC")) - (set-fontset-font t 'cjk-misc (font-spec :family "Source Han Sans SC")) - - ;; ================================================================= - ;; 3. 【关键修复】固定宽度字体 (Fixed Pitch) - ;; ================================================================= - ;; 专门用于代码块、表格、属性栏。这能解决 "Georgia + Courier" 的问题。 - (set-face-attribute 'fixed-pitch nil :family "JetBrains Mono" :height 1.0) - - ;; 为 fixed-pitch 补充中文部分，保持表格对齐 - (let ((fixed-fontset (face-attribute 'fixed-pitch :fontset))) - (when (eq fixed-fontset 'unspecified) - (setq fixed-fontset (create-fontset-from-fontset-spec - (font-xlfd-name (face-attribute 'default :font))))) - (set-fontset-font fixed-fontset 'han (font-spec :family "Source Han Sans SC"))) - - ;; ================================================================= - ;; 4. 变宽/阅读字体 (Variable Pitch) - 写作模式 - ;; ================================================================= - ;; 英文: 优先使用 Source Serif 4，如果没有则回退到 Georgia - (let* ((en-serif-font (if (find-font (font-spec :family "Source Serif 4")) - "Source Serif 4" - "Georgia")) - ;; 创建一个专属的 fontset，命名为 fontset-variable - (v-fontset-name "fontset-variable") - ;; 注意：create-fontset-from-fontset-spec 需要符合 XLFD 格式或特定的 fontset 描述 - ;; 这里我们更安全地基于标准 fontset 创建，或者直接定义它 - (v-fontset (create-fontset-from-fontset-spec - (font-xlfd-name - (font-spec :family en-serif-font - :registry "fontset-variable"))))) - - ;; 步骤 A: 设定 variable-pitch 面 - ;; 强制指定 slant 为 normal，防止英文也跟着变斜 - (set-face-attribute 'variable-pitch nil - :family en-serif-font - :height 1.1 - :weight 'regular - :slant 'normal - :fontset v-fontset-name) - - ;; 步骤 B: 针对您的系统环境精确配置中文 - ;; 您的列表显示字体名为 "思源宋体 CN"，必须精确匹配这个字符串 - (let ((cjk-serif-name "思源宋体 CN")) - (if (member cjk-serif-name (font-family-list)) - (progn - ;; 针对汉字 (han) - (set-fontset-font v-fontset-name 'han - (font-spec :family cjk-serif-name - :weight 'normal - :slant 'normal)) ;; 关键：显式禁止倾斜 - - ;; 针对中文标点 (#x3000 - #x303F) - (set-fontset-font v-fontset-name '(#x3000 . #x303F) - (font-spec :family cjk-serif-name - :weight 'normal - :slant 'normal))) - (message "Warning: CJK Serif font '%s' not found. Fallback might occur." cjk-serif-name)))) - - ;; ================================================================= - ;; 5. 标题字体 (Headings) - ;; ================================================================= - (let ((heading-font-family "Open Sans") - (heading-cjk-family "Noto Sans SC")) - (when (find-font (font-spec :family heading-font-family)) - (dolist (face '(org-level-1 org-level-2 org-level-3 org-level-4 - org-level-5 org-level-6 org-level-7 org-level-8)) - (when (facep face) - (set-face-attribute face nil :family heading-font-family :weight 'bold) - ;; 确保标题中文使用黑体 - (when (find-font (font-spec :family heading-cjk-family)) - (let ((face-fontset (face-attribute face :fontset))) - (when (eq face-fontset 'unspecified) - ;; 如果 face 没有独立的 fontset，创建一个 - (setq face-fontset (create-fontset-from-fontset-spec - (font-xlfd-name (face-attribute 'default :font))))) - (set-fontset-font face-fontset 'han - (font-spec :family heading-cjk-family :weight 'bold)))))))) - - ;; ================================================================= - ;; 6. Org 界面元素微调 - ;; ================================================================= - ;; 让 Org 的代码块、元数据、表格、引用块强制继承 fixed-pitch - (dolist (face '(org-block org-code org-table org-verbatim org-formula - org-checkbox org-date org-priority org-special-keyword - org-tag line-number)) - (when (facep face) - (set-face-attribute face nil :inherit 'fixed-pitch))) - - ;; 特殊处理：Meta line (如 #+TITLE) 通常需要更淡的颜色，但也需要等宽 - (when (facep 'org-meta-line) - (set-face-attribute 'org-meta-line nil :inherit '(font-lock-comment-face fixed-pitch))) - - ;; ================================================================= - ;; 7. 【Nerd Icons 修复】强制映射私有使用区 (PUA) - ;; ================================================================= - (let ((nerd-font (font-spec :family "Symbols Nerd Font Mono"))) - (when (find-font nerd-font) - (set-fontset-font t '(#xE000 . #xF8FF) nerd-font nil 'prepend))) - - ;; ================================================================= - ;; 8. 【Emoji 修复】 - ;; ================================================================= - (when (eq system-type 'windows-nt) - (let* ((emoji-candidates - '("Segoe UI Emoji" "Symbola" "Noto Emoji" "Apple Color Emoji")) - (primary-emoji-font (cl-find-if (lambda (f) (find-font (font-spec :family f))) emoji-candidates))) - (if primary-emoji-font - (progn - (let ((font-spec (font-spec :family primary-emoji-font))) - (set-fontset-font t 'emoji font-spec nil 'prepend) - (set-fontset-font t '(#x1F000 . #x1FFFF) font-spec nil 'prepend) - (set-fontset-font t '(#x2600 . #x27BF) font-spec nil 'prepend))) - (message "Warning: No suitable Emoji font found.")))) - - (message "Fonts setup: Default(JB Mono) | Writing(Source Serif 4/Georgia) | Fixed(JB Mono)")) - -(defun my/force-restore-fonts (&rest _args) - (message "Theme changed, re-applying fonts...") - (my/setup-blog-fonts)) - -(advice-add 'load-theme :after #'my/force-restore-fonts) - -(add-to-list 'custom-theme-load-path "~/.emacs.d/themes/") -(load-theme 'darcula t) - -;; Package Configs - -;; Ox-Hugo - -(unless (package-installed-p 'ox-hugo) - (package-refresh-contents) - (package-install 'ox-hugo)) - -(with-eval-after-load 'ox - (require 'ox-hugo) - (setq org-hugo-content-folder "D:/Programs/Blog/Blog-local/source")) - -;; YASnippet - -(unless (package-installed-p 'yasnippet) - (package-install 'yasnippet)) - -(with-eval-after-load 'yasnippet - (yas-global-mode 1) - (yas-reload-all)) - -;; Rainbow Delimiters - -(unless (package-installed-p 'rainbow-delimiters) - (package-refresh-contents) - (package-install 'rainbow-delimiters)) - -(add-hook 'prog-mode-hook #'rainbow-delimiters-mode) -(add-hook 'emacs-lisp-mode-hook #'rainbow-delimiters-mode) -(add-hook 'lisp-interaction-mode-hook #'rainbow-delimiters-mode) - -;; Built-in Paren Highlighting - -(show-paren-mode 1) -(electric-pair-mode 1) -(setq show-paren-delay 0) -(setq show-paren-style 'parenthesis) - -;; GPG Configuration (Fixed for Windows) - -(require 'cl-lib) ; 确保cl-some函数可用 - -(defun my/setup-gpg () - "配置GPG，优先查找Windows常见安装路径。" - (interactive) - (require 'epa-file) - - ;; 1. 定义查找列表：优先找用户实际安装位置 - (let* ((candidates '("D:/GnuPG/bin/gpg.exe" ; 用户实际安装位置 (最高优先级) - "C:/Program Files (x86)/GnuPG/bin/gpg.exe" ; Gpg4win 默认路径 (64位系统) - "C:/Program Files/GnuPG/bin/gpg.exe" ; Gpg4win 备选路径 - "gpg")) ; 系统 PATH - ;; 找到第一个存在的路径 - (found-gpg (cl-some (lambda (path) - (if (string-match-p "/" path) - (and (file-exists-p path) path) - (executable-find path))) - candidates))) - - (if found-gpg - (progn - ;; Add GPG path to exec-path for proper discovery - (let ((gpg-dir (file-name-directory found-gpg))) - (when (and gpg-dir (not (member gpg-dir exec-path))) - (add-to-list 'exec-path gpg-dir))) - - ;; Use custom-set-variables for EPA configuration (StackOverflow solution) - (custom-set-variables - `(epg-gpg-program ,found-gpg) - '(epa-pinentry-mode 'loopback) - '(epg-debug t) - `(epg-gpg-home-directory ,(or (getenv "GNUPGHOME") - (expand-file-name "~/.gnupg"))) - '(epa-file-cache-passphrase-for-symmetric-encryption t) - '(epa-file-select-keys 'silent) - '(epa-file-encrypt-to nil) - '(epa-armor t) - '(epg-user-id nil)) - - ;; Enable encrypted file support - (require 'epa-file) - (epa-file-enable) - - (message "GPG configured successfully. Path: %s" found-gpg)) - - ;; GPG not found handling - (message "Warning: GPG executable not found. Mastodon will not be able to save credentials securely.") - (message "Please check if Gpg4win is installed and confirm the installation path.")))) - -;; GPG密钥检测和创建函数 -(defun my/check-or-create-gpg-keys () - "检测GPG密钥，如果没有则提示创建。" - (interactive) - (when epg-gpg-program - (condition-case err - (let* ((context (epg-make-context)) - (keys (epg-list-keys context))) - (if keys - (progn - (message "Found %d GPG keys" (length keys)) - (dolist (key keys) - (let ((user-ids (epg-key-user-id-list key))) - (when user-ids - (message "Key: %s" (epg-user-id-string (car user-ids))))))) - ;; 没有密钥，提供创建选项 - (when (yes-or-no-p "未找到GPG密钥，是否创建新密钥对? ") - (my/create-gpg-keypair)))) - (error - (message "Error checking GPG keys: %s" (error-message-string err)))))) - -(defun my/create-gpg-keypair () - "创建新的GPG密钥对。" - (interactive) - (let* ((name (read-string "输入姓名: ")) - (email (read-string "输入邮箱: ")) - (passphrase (read-passwd "输入密码(可选，直接回车跳过): ")) - (batch-config (format "%%echo Generating GPG key -Key-Type: RSA -Key-Length: 2048 -Subkey-Type: RSA -Subkey-Length: 2048 -Name-Real: %s -Name-Email: %s -%s -Expire-Date: 0 -%%commit -%%echo Done" - name - email - (if (string-empty-p passphrase) - "%no-protection" - (format "Passphrase: %s" passphrase)))) - (temp-file (make-temp-file "gpg-batch" nil ".txt"))) - - (with-temp-file temp-file - (insert batch-config)) - - (message "Creating GPG keypair, please wait...") - (let ((result (shell-command (format "\"%s\" --batch --generate-key \"%s\"" - epg-gpg-program temp-file)))) - (delete-file temp-file) - (if (= result 0) - (progn - (message "GPG keypair created successfully!") - (my/check-or-create-gpg-keys)) - (message "Failed to create GPG keypair. Please check configuration"))))) - -;; GPG配置文件检查和修复 -(defun my/check-gpg-config () - "检查和修复GPG配置文件。" - (interactive) - (let* ((gpg-home (or (getenv "GNUPGHOME") - (expand-file-name "~/.gnupg"))) - (gpg-conf (expand-file-name "gpg.conf" gpg-home)) - (gpg-agent-conf (expand-file-name "gpg-agent.conf" gpg-home))) - - ;; 确保.gnupg目录存在 - (unless (file-directory-p gpg-home) - (make-directory gpg-home t) - (message "Created GPG home directory: %s" gpg-home)) - - ;; 检查和创建gpg.conf - (unless (file-exists-p gpg-conf) - (with-temp-file gpg-conf - (insert "# GPG配置文件\n") - (insert "use-agent\n") - (insert "armor\n") - (insert "keyid-format long\n")) - (message "Created gpg.conf configuration file")) - - ;; 检查和创建gpg-agent.conf (Windows需要) - (unless (file-exists-p gpg-agent-conf) - (with-temp-file gpg-agent-conf - (insert "# GPG Agent配置文件\n") - (insert "default-cache-ttl 28800\n") - (insert "max-cache-ttl 86400\n") - (when (eq system-type 'windows-nt) - (insert "pinentry-program C:/Program Files (x86)/Gpg4win/bin/pinentry-basic.exe\n"))) - (message "Created gpg-agent.conf configuration file")) - - (message "GPG configuration check completed"))) - -;; 一键修复EPA问题的函数 -(defun my/fix-epa-issues () - "一键诊断和修复EPA配置问题。" - (interactive) - (message "Starting EPA diagnostics and repair...") - - ;; 重新配置GPG - (my/setup-gpg) - - ;; 检查配置文件 - (my/check-gpg-config) - - ;; 检查密钥 - (my/check-or-create-gpg-keys) - - ;; 重新初始化EPA - (when (fboundp 'epa-file-disable) - (epa-file-disable)) - (epa-file-enable) - - ;; 测试EPA功能 - (run-with-timer 3 nil (lambda () - (condition-case err - (progn - (epg-make-context) - (message "EPA repair completed! Please test Mastodon functionality")) - (error - (message "EPA still has issues: %s" (error-message-string err)) - (message "Suggestion: manually check GPG installation and key configuration")))))) - -;; Simple EPA test function -(defun my/test-epa-quick () - "Quick EPA functionality test." - (interactive) - (condition-case err - (progn - (require 'epg) - (epg-make-context) - (message "EPA test passed - ready for Mastodon")) - (error - (message "EPA test failed: %s" (error-message-string err))))) - - -;; Initialize GPG configuration -(my/setup-gpg) -;; (run-with-timer 1 nil 'my/check-gpg-config) -;; (run-with-timer 2 nil 'my/check-or-create-gpg-keys) -;; (run-with-timer 3 nil 'my/test-epa-quick) - -;; Mastodon Client - -(unless (package-installed-p 'mastodon) - (package-install 'mastodon)) - -(with-eval-after-load 'mastodon - ;; 基础设置：请修改为您自己的实例和用户名 - (setq mastodon-instance-url "https://m.otter.homes" - mastodon-active-user "cytrogen") - - ;; 界面设置 - (setq mastodon-client-width-mode nil) - - ;; --- UI Modernization (Avatars & Images) --- - ;; 1. Enable Avatars - (setq mastodon-tl--show-avatars t) - ;; Note: 'mastodon-client-display-avatar-in-status' doesn't seem to be a std var in this version, - ;; checking source: mastodon-tl--show-avatars is the custom var for avatars. - - ;; 2. Optimize Image Preview - (setq mastodon-media-format-type 'preview) - - ;; 智能EPA绕过和错误隔离 - (defvar my/mastodon-encryption-attempted nil - "记录是否已尝试启用加密。") - - (defun my/test-mastodon-encryption () - "测试Mastodon是否能安全使用GPG加密。" - (condition-case err - (progn - (epg-make-context) - (epg-list-keys (epg-make-context)) - t) ; 成功返回t - (error nil))) ; 失败返回nil - - ;; 根据EPA功能自动选择加密方式 - (if (and (not my/mastodon-encryption-attempted) - (my/test-mastodon-encryption)) - (progn - (setq mastodon-client-file-encryption t) - (setq my/mastodon-encryption-attempted t) - (message "Mastodon enabled GPG encrypted storage")) - (progn - (setq mastodon-client-file-encryption nil) - (setq my/mastodon-encryption-attempted t) - (message "Mastodon using plaintext storage (EPA unavailable or problematic)"))) - - ;; 运行时错误隔离 - (condition-case gpg-err - (when mastodon-client-file-encryption - (when (and epg-gpg-program (file-exists-p epg-gpg-program)) - (message "Mastodon GPG configuration validation completed"))) - (error - (setq mastodon-client-file-encryption nil) ; 自动fallback到明文 - (message "Detected EPA issues, automatically switching to plaintext storage: %s" (error-message-string gpg-err))))) - -;; Mastodon UI Beautification (Nerd Icons & Modern Look) - -(unless (package-installed-p 'nerd-icons) - (package-install 'nerd-icons)) - -;; --- Nerd Icons Font Setup and Verification --- -;; Emacs needs to be able to find a suitable Nerd Font to display icons. -;; The recommended font is "Symbols Nerd Font Mono". -;; If you see empty squares instead of icons, you might need to install it. -;; Run `M-x nerd-icons-install-fonts` in Emacs, then manually install the font file. -;; If Emacs still doesn't see it, restart Emacs. - -(defun my/verify-nerd-font () - "Check if Symbols Nerd Font is available." - (interactive) - (let* ((font-name "Symbols Nerd Font Mono") - (font (find-font (font-spec :name font-name)))) - (if font - (message "✅ 成功! Emacs 已找到字体: %s" font) - (message "❌ 失败! Emacs 找不到 '%s'。请确认已选择'为所有用户安装'并重启了 Emacs。" font-name)))) - -;; If you already have another Nerd Font (e.g., "JetBrainsMono Nerd Font") and prefer to use it, -;; uncomment the line below and replace "Your Nerd Font Name" with its exact name. -(with-eval-after-load 'nerd-icons - ;; (setq nerd-icons-font-family "Your Nerd Font Name") - ) - -(with-eval-after-load 'mastodon - (require 'nerd-icons) - - ;; 1. Replace text symbols with Nerd Icons - (setq mastodon-tl--symbols - `((reply . (,(nerd-icons-faicon "nf-fa-reply") . "R")) - (boost . (,(nerd-icons-faicon "nf-fa-retweet") . "B")) - (reblog . (,(nerd-icons-faicon "nf-fa-retweet") . "B")) - (favourite . (,(nerd-icons-faicon "nf-fa-star") . "F")) - (bookmark . (,(nerd-icons-faicon "nf-fa-bookmark") . "K")) - (media . (,(nerd-icons-faicon "nf-fa-file_image_o") . "[media]")) - (verified . (,(nerd-icons-octicon "nf-oct-verified") . "V")) - (locked . (,(nerd-icons-faicon "nf-fa-lock") . "[locked]")) - (private . (,(nerd-icons-faicon "nf-fa-lock") . "[followers]")) - (mention . (,(nerd-icons-faicon "nf-fa-at") . "[mention]")) - (direct . (,(nerd-icons-faicon "nf-fa-envelope") . "[direct]")) - (edited . (,(nerd-icons-faicon "nf-fa-pencil") . "[edited]")) - (update . (,(nerd-icons-faicon "nf-fa-pencil") . "[edited]")) - (status . (,(nerd-icons-faicon "nf-fa-bell") . "[posted]")) - (poll . (,(nerd-icons-faicon "nf-fa-bar_chart") . "[poll]")) - (follow . (,(nerd-icons-faicon "nf-fa-user_plus") . "+")) - (follow_request . (,(nerd-icons-faicon "nf-fa-user_plus") . "+")) - (severed_relationships . (,(nerd-icons-faicon "nf-fa-chain_broken") . "//")) - (moderation_warning . (,(nerd-icons-faicon "nf-fa-exclamation_triangle") . "!!")) - (reply-bar . ("┃" . "|")))) - - ;; 2. Modernize Faces - ;; Use variable width font for main text (if desired) - (add-hook 'mastodon-mode-hook #'variable-pitch-mode) - - ;; Make headers stand out - (set-face-attribute 'mastodon-display-name-face nil :height 1.2 :weight 'bold) - (set-face-attribute 'mastodon-handle-face nil :height 0.9 :slant 'italic :foreground "gray60") - - ;; Improve metadata visibility - (set-face-attribute 'mastodon-toot-docs-face nil :height 0.85 :foreground "gray50") - - ;; Fix alignment for icons if needed - (when (display-graphic-p) - (setq mastodon-tl--enable-proportional-fonts t))) - -;; Universal Elisp Tags Filter - -(with-eval-after-load 'ox - (defun my/org-export-hexo-universal-block (block backend info) - (when (org-export-derived-backend-p backend 'md) - (let* ((type (downcase (org-element-property :type block))) - (content (org-export-data (org-element-contents block) info))) - (format "{%% %s %%}\n%s{%% end%s %%}" type content type)))) - (add-to-list 'org-export-filter-special-block-functions 'my/org-export-hexo-universal-block)) - -;; Visual Line Mode - -(add-hook 'org-mode-hook #'visual-line-mode) -(add-hook 'markdown-mode-hook #'visual-line-mode) - -(when (fboundp 'adaptive-wrap-prefix-mode) - (add-hook 'visual-line-mode-hook #'adaptive-wrap-prefix-mode)) - -;; Fonts - -(defun my/org-mode-visual-setup () - "Activate visual adjustments for Org mode writing." - (variable-pitch-mode 1) ; 开启变宽字体模式（正文使用 Source Serif 4/宋体） - (visual-line-mode 1)) ; 开启视觉折行（按词换行，而非按字符截断） - -(add-hook 'org-mode-hook 'my/org-mode-visual-setup) - -;; Apply Fonts - -(if (daemonp) - (add-hook 'after-make-frame-functions - (lambda (frame) (with-selected-frame - frame (my/setup-blog-fonts)))) - (my/setup-blog-fonts)) - -;; Org Directory (Dynamic Setting) - -(defvar my/org-path-config-file (concat user-emacs-directory ".org-path") - "File to store the user's Org directory path.") - -(defun my/setup-org-directory () - "Load Org directory from config file or prompt user to select one." - (let ((path nil)) - ;; 1. Try to read from file - (when (file-exists-p my/org-path-config-file) - (with-temp-buffer - (insert-file-contents my/org-path-config-file) - (setq path (string-trim (buffer-string))))) - - ;; 2. Validate path, if invalid/missing, prompt user - (unless (and path (file-directory-p path)) - (setq path (read-directory-name "请选择您的 Org 笔记根目录 (Please select Org root): " "D:/")) - (unless (file-directory-p path) - (make-directory path t)) - ;; Save for next time - (with-temp-file my/org-path-config-file - (insert path))) - - ;; 3. Apply setting - (setq org-directory (file-name-as-directory path)) - (setq org-default-notes-file (concat org-directory "inbox.org")) - (message "Org Directory loaded: %s" org-directory))) - -;; Execute setup immediately -(my/setup-org-directory) - -;; Set agenda files to include all org files in the directory -(setq org-agenda-files - (append (list org-directory) - (when (file-exists-p org-directory) - (directory-files org-directory t "\\.org$")))) - -;; Ensure Org directories exist immediately to prevent crashes during config load -(let ((notes-dir (concat org-directory "notes/"))) - (unless (file-exists-p notes-dir) - (make-directory notes-dir t) - (message "Created missing directory: %s" notes-dir))) - -;; --- Custom Dashboard / Startup Screen --- - -(defun my/show-dashboard () - "Render a custom GTD dashboard." - (interactive) - (let ((buf (get-buffer-create "*Cytrogen's Home*"))) - (with-current-buffer buf - (let ((inhibit-read-only t)) - (erase-buffer) - - ;; Header - (insert "#+TITLE: Cytrogen 的个人领地\n") - (insert "#+STARTUP: showall\n\n") - - (insert "\n") - (insert "Welcome back, Cytrogen.\n") - (insert "------------------------------------\n\n") - - ;; GTD Intro - (insert "* GTD 工作流指南\n\n") - (insert "1. Capture (收集): 大脑用来思考，不是用来记事的。\n") - (insert " 任何想法、任务、灵感，第一时间通过 Capture 放入 Inbox。\n") - (insert " - [C-c c] 唤起 Capture 面板\n") - (insert " - [C-c C-c] 确认保存\n") - (insert " - [C-c C-k] Abort (放弃/取消)\n\n") - - (insert "2. Process (整理): 清空 Inbox。\n") - (insert " 每天/每周定期检查 Inbox，将任务移动到具体的项目或归档。\n") - (insert " - [C-c w] Quick Refile (快速移动条目)\n\n") - - (insert "3. Do (执行): 专注当下。\n") - (insert " 通过 Agenda 查看今日待办。\n") - (insert " - [C-c a] 打开 Agenda 视图\n\n") - - ;; Keybindings Cheatsheet - (insert "* 常用命令\n\n") - (insert "| 快捷键 | 描述 | 命令 |\n") - (insert "|---|---|---|\n") - (insert "| ~C-c c~ | 快速记录 | org-capture |\n") - (insert "| ~C-c a~ | 日程/代办 | org-agenda |\n") - (insert "| ~C-c w~ | 快速归档 | my/quick-refile |\n") - (insert "| ~C-c o~ | 打开笔记 | my/open-org-file |\n") - (insert "| ~C-c m~ | 长毛象 | mastodon |\n") - (insert "| ~C-c i~ | 编辑配置 | my/open-init-file |\n") - (insert "| ~C-c r~ | 重载配置 | my/reload-init-file |\n") - - ;; Footer - (insert "\n\n/\"保持简单，保持流动。\"/\n") - - (org-mode) - (my/org-mode-visual-setup) - (org-indent-mode 1) - (visual-line-mode 1) - - (when (bound-and-true-p display-line-numbers-mode) - (display-line-numbers-mode -1)) - - (setq mode-line-format nil) - (setq-local org-hide-emphasis-markers t) - - (goto-char (point-min)) - (while (re-search-forward "^#\\+.*$" nil t) - (add-text-properties (match-beginning 0) (match-end 0) - '(invisible t))) - (add-to-list 'buffer-invisibility-spec '(t . t)) - - (setq buffer-read-only t) - (goto-char (point-min)) - - (while (get-char-property (point) 'invisible) - (forward-line 1)))) - - (switch-to-buffer buf))) - -;; Disable default startup screen and show ours -(setq inhibit-startup-screen t) -(add-hook 'emacs-startup-hook #'my/show-dashboard) - -(with-eval-after-load 'org - ;; --- Refile Configuration --- - ;; 强化 Refile 功能，允许将条目移动到项目或分类的具体标题下 - (setq org-refile-use-outline-path 'file) - (setq org-outline-path-complete-in-steps nil) - (setq org-refile-allow-creating-parent-nodes 'confirm) - - ;; 设定 Refile 的目标文件 - (setq org-refile-targets - `((nil :maxlevel . 3) ; 当前 buffer 的标题 (直到 3 级) - (org-agenda-files :maxlevel . 3) ; 所有 Agenda 文件 (直到 3 级) - ;; 添加 notes 目录下的所有 org 文件 - (,(directory-files-recursively (concat org-directory "notes/") "\\.org$") :maxlevel . 3))) - - ;; --- Capture Templates --- - ;; 强化 Capture 功能，快速捕获任务、笔记和博客想法 - (setq org-capture-templates - '(("t" "Todo [任务]" entry (file+headline "inbox.org" "Tasks") - "* TODO %?\n %U\n %a") - ("n" "Note [笔记/灵感]" entry (file+headline "inbox.org" "Notes") - "* %? \n %U\n") - ("b" "Blog Idea [写作灵感]" entry (file+headline "inbox.org" "Writing Ideas") - "* IDEA %?\n :PROPERTIES:\n :CAPTURED: %U\n :END:\n") - ("r" "Reading [阅读/学习]" entry (file+headline "notes/reading.org" "Inbox") - "* %? \n :PROPERTIES:\n :SOURCE: %^{Source}\n :END:\n %U\n") - ("j" "Journal [学习日志]" entry (file+olp+datetree "notes/journal.org") - "* %?\n %U\n") - ("s" "Snippet [代码片段]" entry (file+headline "notes/snippets.org" "新片段") - "* %^{Title}\n#+BEGIN_SRC %^{Language}\n%?\n#+END_SRC\n %U\n") - ("m" "Mastodon [长毛象]" entry (file+headline "inbox.org" "Notes") - "* %^{Title}\n:PROPERTIES:\n:SOURCE: %l\n:CAPTURED: %U\n:END:\n\n#+BEGIN_QUOTE\n%i\n#+END_QUOTE\n\n%?") - ("S" "Shopping" entry (file+olp "inbox.org" "Shopping List") - "* Shopping List %U\n - [ ] %?\n")))) - -;; Syncthing - -(setq backup-directory-alist `(("." . ,(concat user-emacs-directory "saves/")))) -(setq auto-save-file-name-transforms `((".*" ,(concat user-emacs-directory "saves/") t))) -(setq create-lockfiles nil) -(unless (file-exists-p (concat user-emacs-directory "saves/")) - (make-directory (concat user-emacs-directory "saves/"))) - -;; Custom Variables - -(custom-set-variables - ;; custom-set-variables was added by Custom. - ;; If you edit it by hand, you could mess it up, so be careful. - ;; Your init file should contain only one such instance. - ;; If there is more than one, they won't work right. - '(epa-armor t t) - '(epa-file-cache-passphrase-for-symmetric-encryption t) - '(epa-file-encrypt-to nil t) - '(epa-file-select-keys 'silent) - '(epg-debug t) - '(epg-gpg-home-directory "c:/Users/Cytrogen/AppData/Roaming/.gnupg") - '(epg-gpg-program "D:/GnuPG/bin/gpg.exe") - '(epg-pinentry-mode 'loopback) - '(epg-user-id nil t) - '(package-selected-packages - '(adaptive-wrap mastodon nerd-icons ox-hugo rainbow-delimiters - yasnippet))) -(custom-set-faces - ;; custom-set-faces was added by Custom. - ;; If you edit it by hand, you could mess it up, so be careful. - ;; Your init file should contain only one such instance. - ;; If there is more than one, they won't work right. - ) - -;; Global Keybindings - -(global-set-key (kbd "C-c c") 'org-capture) -(global-set-key (kbd "C-c a") 'org-agenda) -(global-set-key (kbd "C-c m") 'mastodon) -(global-set-key (kbd "C-c C-w") 'org-refile) -(global-set-key (kbd "C-c w") 'my/quick-refile) -(global-set-key (kbd "C-c i") 'my/open-init-file) -(global-set-key (kbd "C-c r") 'my/reload-init-file) -(global-set-key (kbd "C-c o") 'my/open-org-file) - -;; Custom Functions - -(require 'cl-lib) - -;; Quick Access to Configuration - -(defun my/open-init-file () - "快速打开init.el配置文件进行编辑。" - (interactive) - (find-file user-init-file) - (message "Opened configuration file: %s" user-init-file)) - -(defun my/reload-init-file () - "重新加载init.el配置文件。" - (interactive) - (load-file user-init-file) - (message "Configuration file reloaded: %s" user-init-file)) - -(defun my/open-org-file () - "交互式选择并打开 Org 目录下的文件。" - (interactive) - ;; 1. 确保 org-directory 存在 - (unless (and org-directory (file-directory-p org-directory)) - (user-error "Org directory not found or invalid: %s" org-directory)) - - (let* ((files (directory-files-recursively org-directory "\\.org$")) - ;; 2. 构建候选列表，如果列表为空则提示 - (candidates (if files - (mapcar (lambda (f) - (cons (file-relative-name f org-directory) f)) - files) - nil))) - - (if (not candidates) - (message "No .org files found in %s" org-directory) - ;; 3. 正常选择 - (let ((selection (completing-read "Open Org File: " (mapcar #'car candidates)))) - (when selection - (let ((full-path (cdr (assoc selection candidates)))) - (when full-path - (find-file full-path) - (message "Opened: %s" selection)))))))) - -;; Interactive Refile System - -(defvar my/refile-targets - '(("t" "Tech" - (("d" "Development" "tech.org" "Development") - ("l" "Tools" "tech.org" "Tools") - ("e" "Learning" "tech.org" "Learning") - ("p" "Projects" "tech.org" "Projects"))) - ("s" "Shopping" - (("l" "Shopping Lists" "shopping.org" "Shopping Lists") - ("b" "Budgets" "shopping.org" "Budgets") - ("p" "Purchases" "shopping.org" "Purchases"))) - ("p" "Personal" - (("h" "Health" "personal.org" "Health") - ("f" "Finance" "personal.org" "Finance") - ("m" "Family" "personal.org" "Family") - ("g" "Goals" "personal.org" "Goals"))) - ("n" "Notes" - (("r" "Reading" "notes/reading.org" "Inbox") - ("p" "Projects" "notes/projects.org" "Active") - ("a" "Archive Projects" "notes/projects.org" "Completed")))) - "Quick refile destinations in format: (key label ((subkey sublabel file heading)))") - -(defun my/quick-refile () - "Interactive refile with menu selection." - (interactive) - (unless (org-region-active-p) - (org-back-to-heading t)) - - ;; Display main categories - (let* ((categories (mapcar (lambda (cat) - (format "[%s] %s" (car cat) (cadr cat))) - my/refile-targets)) - (prompt (concat "Quick Refile to: " (mapconcat 'identity categories " ") " ")) - (choice (read-char-exclusive prompt))) - - ;; Find selected category - (let* ((choice-str (char-to-string choice)) - (selected-cat (cl-find-if (lambda (cat) (string= (car cat) choice-str)) - my/refile-targets))) - (if (not selected-cat) - (message "Invalid choice: %s" choice-str) - - ;; Display subcategories - (let* ((subcats (caddr selected-cat)) - (subcat-display (mapcar (lambda (sub) - (format "[%s] %s" (car sub) (cadr sub))) - subcats)) - (sub-prompt (concat "Choose destination: " - (mapconcat 'identity subcat-display " ") " ")) - (sub-choice (read-char-exclusive sub-prompt))) - - ;; Find selected subcategory and refile - (let* ((sub-choice-str (char-to-string sub-choice)) - (selected-sub (cl-find-if (lambda (sub) (string= (car sub) sub-choice-str)) - subcats))) - (if (not selected-sub) - (message "Invalid subcategory choice: %s" sub-choice-str) - - ;; Perform the refile - (let* ((file (caddr selected-sub)) - (heading (cadddr selected-sub)) - (target-path (expand-file-name file org-directory))) - - (if (not (file-exists-p target-path)) - (message "Target file does not exist: %s" target-path) - (let ((pos (save-excursion - (with-current-buffer (find-file-noselect target-path) - (org-find-exact-headline-in-buffer heading))))) - (if (not pos) - (message "Heading '%s' not found in %s" heading file) - (org-refile nil nil (list heading target-path nil pos)) - (message "Refiled to: %s -> %s" file heading)))))))))))) - -(defun my/ensure-org-infrastructure () - "Ensure all necessary Org files and base headings exist based on capture templates." - (interactive) - (require 'org) - (message "--- Org Infrastructure Check Start ---") - (message "Org Directory: %s" org-directory) - - ;; Define complete file structure for capture & refile system - (let ((file-configs '(;; Main files in root directory - ("inbox.org" . ("Tasks" "Notes" "Writing Ideas" "Shopping List")) - ("tech.org" . ("Development" "Tools" "Learning" "Projects")) - ("shopping.org" . ("Shopping Lists" "Budgets" "Purchases")) - ("personal.org" . ("Health" "Finance" "Family" "Goals")) - ;; Notes subdirectory files - ("notes/reading.org" . ("Inbox")) - ("notes/journal.org" . nil) ; Uses datetree, no specific headings needed - ("notes/snippets.org" . ("新片段")) - ("notes/projects.org" . ("Active" "Backlog" "Completed"))))) - - ;; 1. Ensure directories and files exist - (dolist (config file-configs) - (let* ((file (car config)) - (headings (cdr config)) - (path (expand-file-name file org-directory))) - (message "Checking file: %s" path) - - ;; Create file if it doesn't exist - (unless (file-exists-p path) - (message " [MISSING] Creating file...") - (condition-case err - (progn - (make-directory (file-name-directory path) t) - (with-temp-file path - (insert "#+TITLE: " (capitalize (file-name-base file)) "\n\n")) - (message " [SUCCESS] File created.")) - (error (message " [ERROR] Failed to create file: %s" err)))) - - ;; Check and create required headings - (when (and (file-exists-p path) headings) - (with-current-buffer (find-file-noselect path) - (save-excursion - (dolist (heading headings) - (goto-char (point-min)) - (unless (re-search-forward (format "^\\* %s" (regexp-quote heading)) nil t) - (message " [MISSING HEADING] Creating '%s' in %s" heading file) - (goto-char (point-max)) - (unless (bolp) (insert "\n")) - (insert "* " heading "\n")))) - (save-buffer))))) - - (message "--- Org Infrastructure Check End ---"))) - - -(defun my/check-gpg-status () - "检查并显示当前GPG配置状态。" - (interactive) - (with-output-to-temp-buffer "*GPG状态检查*" - (princ "=== GPG状态检查 ===\n\n") - - ;; 使用与my/setup-gpg相同的查找逻辑 - (princ "1. GPG程序检查（按优先级顺序）:\n") - (let* ((candidates '("D:/GnuPG/bin/gpg.exe" ; 用户实际安装位置 - "C:/Program Files (x86)/GnuPG/bin/gpg.exe" - "C:/Program Files/GnuPG/bin/gpg.exe" - "gpg")) - (found-paths '())) - - ;; 检查每个候选路径 - (dolist (path candidates) - (let ((exists (if (string-match-p "/" path) - (file-exists-p path) - (executable-find path)))) - (if exists - (progn - (princ (format " Found: %s\n" path)) - (push path found-paths)) - (princ (format " ✗ %s\n" path))))) - - ;; 显示当前使用的路径 - (princ "\n2. 当前Emacs配置:\n") - (if epg-gpg-program - (progn - (princ (format " Using path: %s\n" epg-gpg-program)) - (condition-case err - (let ((version (shell-command-to-string (format "\"%s\" --version" epg-gpg-program)))) - (princ (format " Version: %s" (car (split-string version "\n"))))) - (error (princ (format " Warning: version check failed: %s\n" (error-message-string err)))))) - (princ " ✗ epg-gpg-program 未设置\n")) - - (princ (format " epa-pinentry-mode: %s\n" epa-pinentry-mode)) - - ;; Mastodon相关设置 - (princ "\n3. Mastodon配置:\n") - (if (boundp 'mastodon-client-file-encryption) - (princ (format " Encryption setting: %s\n" - (if mastodon-client-file-encryption "GPG加密" "明文存储（当前设置）"))) - (princ " ✓ 加密设置: 默认（依赖GPG）\n")) - - ;; 给出建议 - (princ "\n=== 状态总结 ===\n") - (cond - ((not (boundp 'mastodon-client-file-encryption)) - (princ "⚠️ Mastodon包未加载，无法确定加密设置\n")) - ((not mastodon-client-file-encryption) - (princ "OK: Mastodon configured for plaintext storage, should work normally\n") - (princ " For GPG encryption, run M-x my/test-gpg-basic to diagnose issues\n")) - ((and epg-gpg-program (file-exists-p epg-gpg-program)) - (princ "OK: GPG configured, mastodon should work with encryption\n")) - (found-paths - (princ "Warning: Found GPG but not properly configured, please restart Emacs\n")) - (t - (princ "Error: GPG not found, suggest enabling plaintext storage\n")))) - - (princ "\nRun M-x my/setup-gpg to reconfigure GPG\n"))) - -(defun my/test-gpg-basic () - "Test basic GPG functionality to help troubleshoot issues." - (interactive) - (with-output-to-temp-buffer "*GPG Basic Test*" - (princ "=== GPG Basic Functionality Test ===\n\n") - - ;; 测试GPG版本 - (princ "1. GPG Version Test:\n") - (condition-case err - (let ((version-output (shell-command-to-string (format "\"%s\" --version" epg-gpg-program)))) - (princ (format " Version info:\n%s\n" version-output))) - (error (princ (format " Error: Version check failed: %s\n" (error-message-string err))))) - - ;; 测试密钥列表 - (princ "2. Key Check:\n") - (condition-case err - (let ((keys-output (shell-command-to-string (format "\"%s\" --list-keys" epg-gpg-program)))) - (if (string-match "gpg: error" keys-output) - (princ " Warning: Key list has warnings, but this is usually normal\n") - (princ " Key list access normal\n"))) - (error (princ (format " Error: Key check failed: %s\n" (error-message-string err))))) - - ;; 测试Emacs EPA - (princ "3. Emacs EPA Test:\n") - (condition-case err - (progn - (require 'epg) - (let ((context (epg-make-context))) - (princ " EPA context created successfully\n"))) - (error (princ (format " Error: EPA test failed: %s\n" (error-message-string err))))) - - ;; 给出建议 - (princ "\n=== Suggestions ===\n") - (princ "If GPG basic functionality works but mastodon still has issues:\n") - (princ "1. Plaintext storage is currently enabled, mastodon should work normally\n") - (princ "2. For full GPG support, you may need to generate GPG keypair\n") - (princ "3. Run: gpg --full-generate-key (in command line)\n") - (princ "4. Or continue using plaintext storage (usually secure enough for personal use)\n"))) - -;; Insert Newsletter TOC - -(defun my/slugify-title (title) - "Convert title to anchor-compatible slug, similar to the nodejs script." - (let ((slug title)) - ;; Remove 《》 brackets - (setq slug (replace-regexp-in-string "《\\|》" "" slug)) - ;; Remove punctuation, keep Unicode letters, numbers, spaces, hyphens - (setq slug (replace-regexp-in-string "[^[:alnum:]\\s-]" "" slug)) - ;; Replace spaces with hyphens - (setq slug (replace-regexp-in-string "\\s+" "-" slug)) - ;; Convert to lowercase - (downcase slug))) - -(defun my/generate-newsletter-toc () - "Generate TOC for newsletter, similar to the nodejs script." - (interactive) - (save-excursion - (goto-char (point-min)) - - ;; Find the end of details block - (if (not (re-search-forward "#+END_details" nil t)) - (message "Error: Could not find #+END_details block") - - (let ((toc-sections '()) - (current-section nil)) - - ;; Parse content after the details block - (while (not (eobp)) - (beginning-of-line) - (let ((line (thing-at-point 'line t))) - (cond - ;; Match H2 headings (exported as ## in markdown) - ((string-match "^\\* \\(.*\\)$" line) - (let ((section-title (match-string 1 line))) - (setq current-section (list :title section-title :articles '())) - (push current-section toc-sections))) - - ;; Match H4 headings with article links (exported as #### [...](url)) - ((and current-section - (string-match "^\\*\\*\\*\\* \\[\\[.*?\\]\\[《\\(.*?\\)》\\]\\]" line)) - (let ((article-title (match-string 1 line))) - (push article-title (plist-get current-section :articles)))))) - (forward-line 1)) - - ;; Reverse to get correct order - (setq toc-sections (reverse toc-sections)) - (dolist (section toc-sections) - (setq section (plist-put section :articles (reverse (plist-get section :articles))))) - - ;; Generate TOC markdown - (let ((toc-content "\n## 输入\n\n")) - (dolist (section toc-sections) - (let ((section-title (plist-get section :title)) - (articles (plist-get section :articles))) - (when articles - (setq toc-content - (concat toc-content - (format "### %s\n\n" section-title))) - (dolist (article articles) - (let ((display-title article) - (anchor (my/slugify-title article))) - (setq toc-content - (concat toc-content - (format "- [%s](#%s)\n" display-title anchor)))) - (setq toc-content (concat toc-content "\n"))))) - - ;; Find the details block and replace its content - (goto-char (point-min)) - (if (re-search-forward "#+BEGIN_details 本期导读" nil t) - (progn - (forward-line 4) ; Skip PROPERTIES block - (let ((start (point))) - (if (re-search-forward "#+END_details" nil t) - (progn - (beginning-of-line) - (delete-region start (point)) - (insert toc-content) - (message "Newsletter TOC generated and inserted!")) - (message "Error: Could not find #+END_details")))) - (message "Error: Could not find details block")))))))) - -(defun my/insert-newsletter-toc () - "Deprecated: Use my/generate-newsletter-toc instead." - (interactive) - (message "Please use M-x my/generate-newsletter-toc instead.")) - -;; Auto-save Refile -(defun my/save-after-refile (&rest _) - (org-save-all-org-buffers)) - -(advice-add 'org-refile :after #'my/save-after-refile) - -;; Run infrastructure check after all functions are defined -(my/ensure-org-infrastructure) diff --git a/saves/!drive_c!Users!Cytrogen!AppData!Roaming!.emacs.d!mastodon.plstore~ b/saves/!drive_c!Users!Cytrogen!AppData!Roaming!.emacs.d!mastodon.plstore~ deleted file mode 100644 index a0c27e6c6834314e13a3c965dc53f5b85c45e76e..0000000000000000000000000000000000000000 --- a/saves/!drive_c!Users!Cytrogen!AppData!Roaming!.emacs.d!mastodon.plstore~ +++ /dev/null @@ -1,24 +0,0 @@ -;;; public entries -*- mode: plstore -*- -(("user-cytrogen@m.otter.homes" :secret-client_id t - :secret-client_secret t :username "cytrogen@m.otter.homes" :instance - "https://m.otter.homes") - ("mastodon-https://m.otter.homes" :secret-client_id t - :secret-client_secret t :id "7544" :name "mastodon.el" :website - "https://codeberg.org/martianh/mastodon.el" :scopes - ["read" "write" "follow"] :redirect_uris - ["urn:ietf:wg:oauth:2.0:oob"] :vapid_key - "BAfijz4Pcl3l4QjyGDdOeKg2PZKqUNdUP54GZOxtUvDaPHyT_4TrIlK8FRWeSo1WinDXQnM4tA-Q-cP4i_5GTOc=" - :redirect_uri "urn:ietf:wg:oauth:2.0:oob" :client_secret_expires_at - 0)) -;;; secret entries -"-----BEGIN PGP MESSAGE----- - -jA0ECQMIQMa/qY6HMif60sAgARVlEN+0dChmv5dBz/dZXZNfs4CqlGXQ3E7oRTLm -zt2XnIj8f47A94N9UijcSWmWfraSGp3R2fwbCvYZpGqM+VZ4ctUBmtIK3cHyEdYL -tb6BI7sVAvNKLiaIKQ/+1FpJZbdmHQrSiz/IEEvxbZKMyP2eoC3Edt0DaVemK+sT -iaSKrybIykA6w2edF3qLRTXlngEyD4vXPwnU5zPSXDkbD4c5YI/HoKoAREMoQzar -rU3cKiLhQwB7dlhfvOrHqeBZ2/79w57Wl4dGaoLo78VznlpCFHJfF5+/8JK0jxeb -Y2o= -=tLYc ------END PGP MESSAGE----- -" diff --git a/saves/!drive_c!Users!Cytrogen!AppData!Roaming!.emacs.d!snippets!org-mode!hugo-blog-monthly~ b/saves/!drive_c!Users!Cytrogen!AppData!Roaming!.emacs.d!snippets!org-mode!hugo-blog-monthly~ deleted file mode 100644 index 22e7c26d2bebc6256a7eae321b56c1e95e5d70bd..0000000000000000000000000000000000000000 --- a/saves/!drive_c!Users!Cytrogen!AppData!Roaming!.emacs.d!snippets!org-mode!hugo-blog-monthly~ +++ /dev/null @@ -1,112 +0,0 @@ -# -*- mode: snippet -*- -# name: Blog Post / Newsletter -# key: nlblog -# -- -#+TITLE: ${1:`(capitalize (file-name-base (or (buffer-file-name) "Untitled")))`} -#+DATE: ${2:`(format-time-string "%Y-%m-%d")`} -#+LANG: zh -#+CATEGORIES: ${3:想法迭代} -#+FILETAGS: :${4:Org Mode Tags}: -#+TAGS: :${5:Hexo Tags}: -#+MATHJAX: false -#+HIDDEN: false -#+DESCRIPTION: - -$0 - -#+HTML: - -#+BEGIN_details 本期导读 -:PROPERTIES: -:CUSTOM_ID: 本期导读 -:END: - -${6:# 这里会生成TOC，完成写作后使用 M-x my/generate-newsletter-toc} - -#+END_details - -* 商业与社会 -:PROPERTIES: -:CUSTOM_ID: 商业与社会 -:END: - -[[#本期导读][↑ 返回导读]] - -* 心理与关系 -:PROPERTIES: -:CUSTOM_ID: 心理与关系 -:END: - -[[#本期导读][↑ 返回导读]] - -* 科学与自然 -:PROPERTIES: -:CUSTOM_ID: 科学与自然 -:END: - -[[#本期导读][↑ 返回导读]] - -* 技术与创造 -:PROPERTIES: -:CUSTOM_ID: 技术与创造 -:END: - -**** 有趣项目 -:PROPERTIES: -:CUSTOM_ID: 有趣项目 -:END: - -[[#本期导读][↑ 返回导读]] - ------ - -* 折腾博客 -:PROPERTIES: -:CUSTOM_ID: 折腾博客 -:END: - -[[#本期导读][↑ 返回导读]] - -* 我写的文章 -:PROPERTIES: -:CUSTOM_ID: 我写的文章 -:END: - -[[#本期导读][↑ 返回导读]] - -* 编程历程 -:PROPERTIES: -:CUSTOM_ID: 我的编程历程 -:END: - -[[#本期导读][↑ 返回导读]] - -* 书籍 -:PROPERTIES: -:CUSTOM_ID: 书籍 -:END: - -[[#本期导读][↑ 返回导读]] - -* 影视 -:PROPERTIES: -:CUSTOM_ID: 影视 -:END: - -[[#本期导读][↑ 返回导读]] - -* 音乐 -:PROPERTIES: -:CUSTOM_ID: 音乐 -:END: - -[[#本期导读][↑ 返回导读]] - -* 日记片段 -:PROPERTIES: -:CUSTOM_ID: 日记片段 -:END: - -#+BEGIN_EXPORT markdown -{% diary_aggregator %} -#+END_EXPORT \ No newline at end of file diff --git a/saves/!drive_d!Org!inbox.org~ b/saves/!drive_d!Org!inbox.org~ deleted file mode 100644 index 2b56bb76ae25de3073aedda2c040bc2cf764a86b..0000000000000000000000000000000000000000 --- a/saves/!drive_d!Org!inbox.org~ +++ /dev/null @@ -1,25 +0,0 @@ -#+TITLE: GTD Inbox -#+DATE: 2026-01-04 -#+STARTUP: overview - -* Tasks - -所有新的任务和待办事项都会在这里被捕获。 -** TODO 卷心菜、苹果泥（次要）、土豆、胡萝卜、咖喱粉（拍照）、蒜粉如果打折买蒜粉（次要）、蒜末（次要）、砂糖（主要）、青豆、 - [2026-01-04 Sun 14:45] - [[help:position:]] -* Notes - -快速记录的想法、笔记和灵感。 - -* Writing Ideas - -博客文章和Newsletter的写作想法。 -** IDEA Emacs 和 Org Mode 的使用，以及我是如何对接 Hexo 框架的 - :PROPERTIES: - :CAPTURED: [2026-01-03 Sat 23:24] - :END: -* Someday/Maybe - -未来可能要做的事情。 -* Shopping List diff --git a/saves/!drive_d!Org!notes!projects.org~ b/saves/!drive_d!Org!notes!projects.org~ deleted file mode 100644 index b8b23e61037bff969491d0845d29bfd043ecc512..0000000000000000000000000000000000000000 --- a/saves/!drive_d!Org!notes!projects.org~ +++ /dev/null @@ -1,2 +0,0 @@ -#+TITLE: Projects - diff --git a/saves/!drive_d!Org!notes!reading.org~ b/saves/!drive_d!Org!notes!reading.org~ deleted file mode 100644 index d253e390ef40936b901b11b8c7fdd6c8ebe80503..0000000000000000000000000000000000000000 --- a/saves/!drive_d!Org!notes!reading.org~ +++ /dev/null @@ -1,76 +0,0 @@ -#+TITLE: 阅读笔记 -#+DATE: 2026-01-04 -#+STARTUP: overview - -* Inbox - :PROPERTIES: - :CUSTOM_ID: reading-inbox - :END: - -快速记录的阅读笔记和学习内容将出现在这里。 -** 世界没有你的时候也会继续运转，你会怎么办？ -艰难时期有着两个糟糕的部分：一是认为自己是唯一一个经历这一切的人，二是发现世界继续向前，而你停滞不前。事实是，没有人会救我们。只有我们可以拯救自己——这听上去像是毒鸡汤，但确实如此。我们很小，是这个宇宙的无数尘埃之一，我们只能依靠自己。 - :PROPERTIES: - :SOURCE: https://tala.bearblog.dev/what-do-you-do-when-life-keeps-going-on-without-you/ - :END: - [2026-01-05 Mon 11:52] -** 作者比较了三个写作平台：Write.as、Pika.Page 以及 Bear Blog。我从未接触过这些写作平台。过去，我以为你要写博客只能是自己构建、部署一个。直到最近我才知道，其实早就有了这样的平台，可以帮助你构建网页样式，你只需要写……还有选择域名？应该吧。 - :PROPERTIES: - :SOURCE: https://commentingon.xyz/bear-vs-pika-vs-writeas/ - :END: - [2026-01-05 Mon 11:56] -** 作者聊了聊他眼里，从 90 年代到现在的这 30 年里，web 开发都发生了什么。这篇文章有点长，值得了解这段历史。 -我个人很羡慕从小就接触了计算机并去学习原理的人。我是疫情的时候才学习计算机相关的东西。当时我想要自己弄一个视觉小说游戏，接触了 OnScripter，后来想着反正闲着也是闲着，不如学习编程。当时入门学的是 C++，但是没有系统地学习，基础没有打好就开始做「C-c C-v战士」了。 -让我意外的是，WordPress 居然在03年就诞生了。后面想了想也合理，它的底层是 PHP，能用上这东西的怎么说也是老资历了。我只用过一次 WordPress，是因为甲方要求我用这个。感觉刚会 Web 开发不久，对这种低代码平台很是嗤之以鼻——又慢又难用，实在是不够优雅。现在看来技术栈什么的真的没有那么重要，业务才是最重要的。就像是个人博客网站，重点是展示自己，也就是内容。不过技术栈也可以或多或少代表一个人的某些特质，还是不能把话说死了。 -我了解过前端的历史，很多事情都要从那个手机开始说起——iPhone。智能手机的大众化让开发者不得不去考虑「如何让网站变成在移动设备上看也很正常」这个问题。答案是响应式设计。前端和后端就此正式分成了两派，你写你的 API，我渲染我的样式，我们不走同个道了～ -文章里提到了 MongoDB，并讲了这样的一个笑话：「初创公司会选择 MongoDB 因为他们会考虑到未来的百万用户，然后在用户只有几千人的情况下花费数年时间。」哦不，这说的根本就是我！ -Agile 和 Scrum，我认为它们是有趣的东西。Scrum 可以在现在的许多企业里看到，至于 Agile，就不太一定了。我在某个项目里曾经提起过 Agile，主要是因为那会儿功能都没有约定好，你个破登录做了这么久做不好，不如直接开始折腾后面的部署，先把 MVP 展示出来。结果那个同事以很鄙夷的语气问道：「你想要搞敏捷开发？」虽然后面登录做好了，但是没有保护路由，所以登录不登录根本不重要。而他也因为不太懂部署和前后端之间的关系，折腾了很久才部署成功。 - - :PROPERTIES: - :SOURCE: https://www.artmann.co/articles/30-years-of-br-tags - :END: - [2026-01-05 Mon 12:08] -** 找到两个数的最大公约数 -如果用 Python 来说的话，或许是： -#+BEGIN_SRC python -def gcd(p, q): - if q == 0: - return p - r = p % q - return gcd(q, r) -#+END_SRC -首先了解什么是公约数，其实就是 Common Factor，即可以整除这两个数字的数字。最大公约数顾名思义，是最大的公约数。 -如果数字 q 是 0 的话，最大的公约数只能是 p 了。 -但是我不理解后面的，为什么要得出余数 r，然后再获取 q 和 r 的最大公约数？ -这本书用的是 Java 语言来进行演示，不过作者也很努力地强调，算法和编程语言的选择关系不大，学会其原理后用什么来实现都可以。因为我对 Python 的语法更熟悉（不好意思 JavaScript 你真的很奇怪），所以我会用 Python 来演示。不过呢，使用 Java 语言的人去读这本书学到的肯定会更多，作者也教读者如何写 Java 代码，很是贴心。 -其实我做算法做的很糟糕，我都不知道我当年是如何通过的 CS50AI，里面多数都是算法题目，推荐一试。 -最初用 Python 入门编程的一个问题是，一时间想不起来 for 循环怎么写。Python 的 for 循环和其他语言的 for 循环很不一样，这也让我在写其他语言的 for 循环时，很难一下子就理解 i 和 j 到底是什么的位置。 -书中出现了一个我不明白的代码： -#+BEGIN_SRC java - public static double sqrt(double c) - { - if (c < 0) return Double.NaN; - double err = 1e-15; - double t = c; - while (Math.abs(t - c/t) > err * t) - t = (c/t + t) / 2.0; - return t; - } -#+END_SRC -说是牛顿迭代法，不过我不是很清楚这个法具体是什么东西。 -1.1.6.4 节要开始讲递归了。这是一个我很不明白的概念。当然我知道它的字面意义，但是脑子依然无法一时间想出来它是如何运作的。作者说递归代码有三点： -1. 方法的第一条语句总是一个包含 return 的条件语句 -2. 总是去尝试解决一个规模更小的子问题，需要收敛到最简单的情况 -3. 调用的父问题和尝试解决的子问题之间不应该有任何交集 - - :PROPERTIES: - :SOURCE: 算法·第四版 - :END: - [2026-01-06 Tue 11:20] -* 书籍笔记 - -* 课程笔记 - -* 文章笔记 - -* 视频笔记 diff --git a/saves/!drive_d!Org!personal.org~ b/saves/!drive_d!Org!personal.org~ deleted file mode 100644 index aa23993e35099c90c0ae766fc305bc20b0c6923c..0000000000000000000000000000000000000000 --- a/saves/!drive_d!Org!personal.org~ +++ /dev/null @@ -1,2 +0,0 @@ -#+TITLE: Personal - diff --git a/saves/!drive_d!Org!reading.org~ b/saves/!drive_d!Org!reading.org~ deleted file mode 100644 index 680d4f2fdbf845af43b412cf68ce5ff6654344bc..0000000000000000000000000000000000000000 --- a/saves/!drive_d!Org!reading.org~ +++ /dev/null @@ -1,76 +0,0 @@ -#+TITLE: 阅读笔记 -#+DATE: 2026-01-04 -#+STARTUP: overview - -* Inbox - :PROPERTIES: - :CUSTOM_ID: reading-inbox - :END: - -快速记录的阅读笔记和学习内容将出现在这里。 -** 作者比较了三个写作平台：Write.as、Pika.Page 以及 Bear Blog。我从未接触过这些写作平台。过去，我以为你要写博客只能是自己构建、部署一个。直到最近我才知道，其实早就有了这样的平台，可以帮助你构建网页样式，你只需要写……还有选择域名？应该吧。 - :PROPERTIES: - :SOURCE: https://commentingon.xyz/bear-vs-pika-vs-writeas/ - :END: - [2026-01-05 Mon 11:56] -** 作者聊了聊他眼里，从 90 年代到现在的这 30 年里，web 开发都发生了什么。这篇文章有点长，值得了解这段历史。 -我个人很羡慕从小就接触了计算机并去学习原理的人。我是疫情的时候才学习计算机相关的东西。当时我想要自己弄一个视觉小说游戏，接触了 OnScripter，后来想着反正闲着也是闲着，不如学习编程。当时入门学的是 C++，但是没有系统地学习，基础没有打好就开始做「C-c C-v战士」了。 -让我意外的是，WordPress 居然在03年就诞生了。后面想了想也合理，它的底层是 PHP，能用上这东西的怎么说也是老资历了。我只用过一次 WordPress，是因为甲方要求我用这个。感觉刚会 Web 开发不久，对这种低代码平台很是嗤之以鼻——又慢又难用，实在是不够优雅。现在看来技术栈什么的真的没有那么重要，业务才是最重要的。就像是个人博客网站，重点是展示自己，也就是内容。不过技术栈也可以或多或少代表一个人的某些特质，还是不能把话说死了。 -我了解过前端的历史，很多事情都要从那个手机开始说起——iPhone。智能手机的大众化让开发者不得不去考虑「如何让网站变成在移动设备上看也很正常」这个问题。答案是响应式设计。前端和后端就此正式分成了两派，你写你的 API，我渲染我的样式，我们不走同个道了～ -文章里提到了 MongoDB，并讲了这样的一个笑话：「初创公司会选择 MongoDB 因为他们会考虑到未来的百万用户，然后在用户只有几千人的情况下花费数年时间。」哦不，这说的根本就是我！ -Agile 和 Scrum，我认为它们是有趣的东西。Scrum 可以在现在的许多企业里看到，至于 Agile，就不太一定了。我在某个项目里曾经提起过 Agile，主要是因为那会儿功能都没有约定好，你个破登录做了这么久做不好，不如直接开始折腾后面的部署，先把 MVP 展示出来。结果那个同事以很鄙夷的语气问道：「你想要搞敏捷开发？」虽然后面登录做好了，但是没有保护路由，所以登录不登录根本不重要。而他也因为不太懂部署和前后端之间的关系，折腾了很久才部署成功。 -作者写到 AI 时代的时候，这种事实的冲击依然让人难以接受：原本感觉无限丰富的市场，居然收得这么快速。初创公司貌似变多了，但是岗位一直在减少，大家挤破了头都想进一个岗位——靠更好看的简历、更有噱头的项目、更硬的人脉…… - :PROPERTIES: - :SOURCE: https://www.artmann.co/articles/30-years-of-br-tags - :END: - [2026-01-05 Mon 12:08] -** 找到两个数的最大公约数 -如果用 Python 来说的话，或许是： -#+BEGIN_SRC python -def gcd(p, q): - if q == 0: - return p - r = p % q - return gcd(q, r) -#+END_SRC -首先了解什么是公约数，其实就是 Common Factor，即可以整除这两个数字的数字。最大公约数顾名思义，是最大的公约数。 -如果数字 q 是 0 的话，最大的公约数只能是 p 了。 -但是我不理解后面的，为什么要得出余数 r，然后再获取 q 和 r 的最大公约数？ -这本书用的是 Java 语言来进行演示，不过作者也很努力地强调，算法和编程语言的选择关系不大，学会其原理后用什么来实现都可以。因为我对 Python 的语法更熟悉（不好意思 JavaScript 你真的很奇怪），所以我会用 Python 来演示。不过呢，使用 Java 语言的人去读这本书学到的肯定会更多，作者也教读者如何写 Java 代码，很是贴心。 -其实我做算法做的很糟糕，我都不知道我当年是如何通过的 CS50AI，里面多数都是算法题目，推荐一试。 -最初用 Python 入门编程的一个问题是，一时间想不起来 for 循环怎么写。Python 的 for 循环和其他语言的 for 循环很不一样，这也让我在写其他语言的 for 循环时，很难一下子就理解 i 和 j 到底是什么的位置。 -书中出现了一个我不明白的代码： -#+BEGIN_SRC java - public static double sqrt(double c) - { - if (c < 0) return Double.NaN; - double err = 1e-15; - double t = c; - while (Math.abs(t - c/t) > err * t) - t = (c/t + t) / 2.0; - return t; - } -#+END_SRC -说是牛顿迭代法，不过我不是很清楚这个法具体是什么东西。 -1.1.6.4 节要开始讲递归了。这是一个我很不明白的概念。当然我知道它的字面意义，但是脑子依然无法一时间想出来它是如何运作的。作者说递归代码有三点： -1. 方法的第一条语句总是一个包含 return 的条件语句 -2. 总是去尝试解决一个规模更小的子问题，需要收敛到最简单的情况 -3. 调用的父问题和尝试解决的子问题之间不应该有任何交集 - - :PROPERTIES: - :SOURCE: 算法·第四版 - :END: - [2026-01-06 Tue 11:20] -** 世界没有你的时候也会继续运转，你会怎么办？ -艰难时期有着两个糟糕的部分：一是认为自己是唯一一个经历这一切的人，二是发现世界继续向前，而你停滞不前。事实是，没有人会救我们。只有我们可以拯救自己——这听上去像是毒鸡汤，但确实如此。我们很小，是这个宇宙的无数尘埃之一，我们只能依靠自己。 - :PROPERTIES: - :SOURCE: https://tala.bearblog.dev/what-do-you-do-when-life-keeps-going-on-without-you/ - :END: - [2026-01-05 Mon 11:52] -* 书籍笔记 - -* 课程笔记 - -* 文章笔记 - -* 视频笔记 diff --git a/saves/!drive_d!Org!shopping.org~ b/saves/!drive_d!Org!shopping.org~ deleted file mode 100644 index 9ab0db0f1037fb248236d9f42c232fb84e295b89..0000000000000000000000000000000000000000 --- a/saves/!drive_d!Org!shopping.org~ +++ /dev/null @@ -1,5 +0,0 @@ -#+TITLE: Shopping - -* Shopping Lists -* Budgets -* Purchases diff --git a/saves/!drive_d!Org!tech.org~ b/saves/!drive_d!Org!tech.org~ deleted file mode 100644 index 32f7ec3767619d68d6b2b64bb051d438d56f9ecf..0000000000000000000000000000000000000000 --- a/saves/!drive_d!Org!tech.org~ +++ /dev/null @@ -1,2 +0,0 @@ -#+TITLE: Tech - diff --git a/saves/#d!!Org!inbox.org# b/saves/#d!!Org!inbox.org# deleted file mode 100644 index 98f3c486bc00136baeaaa25d53b6d06295e364b0..0000000000000000000000000000000000000000 --- a/saves/#d!!Org!inbox.org# +++ /dev/null @@ -1,17 +0,0 @@ -#+TITLE: GTD Inbox -#+DATE: 2026-01-04 -#+STARTUP: overview - -* Tasks - -所有新的任务和待办事项都会在这里被捕获。 -* Notes - -快速记录的想法、笔记和灵感。 -* Writing Ideas - -博客文章和Newsletter的写作想法。 -* Someday/Maybe - -未来可能要做的事情。 -* Shopping List diff --git a/saves/#d!!Org!tech.org# b/saves/#d!!Org!tech.org# deleted file mode 100644 index ecf01614d2446bbb75f3a46d03faa5117329e6f9..0000000000000000000000000000000000000000 --- a/saves/#d!!Org!tech.org# +++ /dev/null @@ -1,8 +0,0 @@ -#+TITLE: Tech - -* Development -* Tools -* Learning -** Emacs 的缓存机制，让 C-c C-w 时将内容从 Buffer A 剪切粘贴到了 Buffer B，重点是它们都是内存，并不是硬盘修改。这意味着需要使用 C-x b，进入 Buffer B，保存才可以。可以将自动保存功能挂载到 refile 动作之后。 - [2026-01-05 Mon 11:46] -* Projects