fix: toutiao/csdn-publish require 改为可选加载，CI 环境中跳过

Co-Authored-By: Claude Opus 4.6 <noreply@anthropic.com>

Author: lujun9972

auto_publish.el

@@ -33,7 +33,7 @@ There are two things you can do about this warning:
 (require 'log-edit)
 (require 'htmlize)
 (require 'ego)
-(require 'toutiao)
+(require 'toutiao nil t)
 (setq ego-project-config-alist
  `(("blog" :repository-directory ,(or (getenv "REPO_DIR") "~/source") :site-domain "https://lujun9972.github.io/" :site-main-title "暗无天日" :site-sub-title "=============>DarkSun的个人博客" :theme
     (DarkSun)
@@ -56,27 +56,28 @@ There are two things you can do about this warning:
 (require 'cl-lib)
 (require 'request)
 ;; publish CSDN
-(require 'csdn-publish)
-(setq csdn-publish-open-url nil)
+(when (require 'csdn-publish nil t)
+  (setq csdn-publish-open-url nil))
 
-(defun get-origin-link (filename)
-  (let* ((vc-root (file-name-as-directory (file-truename (vc-git-root filename))))
-         (project (cl-find-if (lambda (project)
-                                (let* ((properties (cdr project))
-                                       (repository-directory (plist-get properties :repository-directory))
-                                       (abs-path (file-name-as-directory (file-truename repository-directory))))
-                                  (string= vc-root abs-path)))
-                              ego-project-config-alist)))
-    (if project
-        (let* ((site-domain  "https://www.lujun9972.win")
-               (ego-current-project-name (car project))
-               (options (car (ego--get-org-file-options filename vc-root nil)))
-               (uri (plist-get options :uri)))
-          (concat (replace-regexp-in-string "/?$" ""  site-domain) uri))
-      (csdn-publish-convert-link filename))))
+(when (featurep 'csdn-publish)
+  (defun get-origin-link (filename)
+    (let* ((vc-root (file-name-as-directory (file-truename (vc-git-root filename))))
+           (project (cl-find-if (lambda (project)
+                                  (let* ((properties (cdr project))
+                                         (repository-directory (plist-get properties :repository-directory))
+                                         (abs-path (file-name-as-directory (file-truename repository-directory))))
+                                    (string= vc-root abs-path)))
+                                ego-project-config-alist)))
+      (if project
+          (let* ((site-domain  "https://www.lujun9972.win")
+                 (ego-current-project-name (car project))
+                 (options (car (ego--get-org-file-options filename vc-root nil)))
+                 (uri (plist-get options :uri)))
+            (concat (replace-regexp-in-string "/?$" ""  site-domain) uri))
+        (csdn-publish-convert-link filename))))
 
 
-(setq csdn-publish-original-link-getter #'get-origin-link)
+  (setq csdn-publish-original-link-getter #'get-origin-link))
 
 (let* ((ego-current-project-name "blog")
        (repo-dir (ego--get-repository-directory))