Config: streamline config structure and reorganize modules

- Remove init-workspace.el and redundant UI/font/autothemer setup
- Add init-prog.el for programming language configs (treesit, lua, scheme, etc.)
- Defer org-refile loading via org-mode hook
- Adjust load order in init.el, add init-proxy
- Fix indentation and formatting issues

lisp/init-package.el

@@ -31,7 +31,7 @@
     (setq show-trailing-whitespace t)
     (add-hook 'before-save-hook #'delete-trailing-whitespace nil t))
 
-    ;; Prettify the process list
+  ;; Prettify the process list
   (with-no-warnings
     (defun my/list-processes--prettify ()
       "Prettify process list."
@@ -191,20 +191,16 @@ targets."
          'embark-collect-mode-hook
          #'consult-preview-at-point-mode))))
 
-;; nerd-icon
-;; (use-package nerd-icons)
-
 ;; 启用savehist，保存命令顺序
 (use-package savehist
-  ;; :hook (after-init . savehist-mode)
   :init (setq enable-recursive-minibuffers t
-	      history-length 50
-	      savehist-additional-variables '(mark-ring
-					      global-mark-ring
-					      search-ring
-					      regexp-search-ring
-					      extended-command-history)
-	      savehist-autosave-interval 300)
+	          history-length 50
+	          savehist-additional-variables '(mark-ring
+					                          global-mark-ring
+					                          search-ring
+					                          regexp-search-ring
+					                          extended-command-history)
+	          savehist-autosave-interval 300)
   (savehist-mode))
 
 ;; saveplace，保存光标位置
@@ -220,8 +216,8 @@ targets."
 ;; vundop，撤回树
 (use-package vundo
   :init (setq undo-limit 800000
-	      undo-strong-limit 1200000
-	      undo-outer-limit 12000000))
+	          undo-strong-limit 1200000
+	          undo-outer-limit 12000000))
 
 ;; expand-region，快速展开选中
 (use-package expand-region)
@@ -256,9 +252,9 @@ targets."
                        (#x3000 . #x303F)
                        (#xFF00 . #xFFEF)
                        (#x20000 . #x2A6DF)))
-	(let ((start (car range))
+	    (let ((start (car range))
               (end (cdr range)))
-	  (dotimes (i (- end start))
+	      (dotimes (i (- end start))
             (modify-syntax-entry (+ start i) "_" jinx--syntax-table)))))
     (require 'init-jinx)))
 
@@ -267,18 +263,11 @@ targets."
 
 (use-package flycheck-guile
   :hook (scheme-mode . (lambda ()
-                     (require 'flycheck-guile))))
+                         (require 'flycheck-guile))))
 
 ;; consult-flycheck
 (use-package consult-flycheck)
 
-;; markdown
-(use-package markdown-mode
-  :mode ("README\\.md\\'" . gfm-mode)
-  :init (setq markdown-command "multimarkdown")
-  :bind (:map markdown-mode-map
-         ("C-c C-e" . markdown-do)))
-
 ;; vterm
 (unless *is-windows*
   (use-package vterm))
@@ -286,6 +275,24 @@ targets."
 ;; general
 (use-package general)
 
+;; perspective
+(use-package perspective
+  :bind
+  ("C-x M-b" . persp-list-buffers)         ; or use a nicer switcher, see below
+  :custom
+  (persp-mode-prefix-key (kbd "C-c p"))  ; pick your own prefix key here
+  :init
+  (persp-mode)
+  :config
+  (setq persp-switch-to-buffer-behavior 'switch)
+  (with-eval-after-load 'consult
+    (consult-customize consult-source-buffer :hidden t :default nil)
+    (add-to-list 'consult-buffer-sources persp-consult-source))
+  (setq switch-to-prev-buffer-skip
+        (lambda (win buff bury-or-kill)
+          (not (persp-is-current-buffer buff))))
+  (setq persp-initial-frame-name "desktop"))
+
 (provide 'init-package)
 
 ;;; init-package.el ends here