Update

early-init.el

@@ -38,7 +38,7 @@
 (push '(vertical-scroll-bars) default-frame-alist)
 (when (featurep 'ns)
   (push '(ns-transparent-titlebar . t) default-frame-alist))
-  ;; (push '(ns-appearance . dark) default-frame-alist))
+  ;; (push '(ns-appearance . light) default-frame-alist))
 
 ;; Prevent flash of unstyled mode line
 ;; (setq mode-line-format nil)

lisp/init-better-default.el

@@ -55,11 +55,9 @@
 (setq-default cursor-type 'bar)
 (setq make-backup-files nil)
 (setq use-short-answers t)
-(setq frame-title-format "\n")
+;; (setq frame-title-format "\n")
 (setq custom-safe-themes t)
 
-;; 隐藏 title bar
-(setq default-frame-alist '((undecorated-round . t)))
 (add-to-list 'default-frame-alist '(drag-internal-border . 1))
 (add-to-list 'default-frame-alist '(internal-border-width . 5))
 

lisp/init-ui.el

@@ -13,6 +13,9 @@
 (setq frame-inhibit-implied-resize t
       frame-resize-pixelwise t)
 
+;; 隐藏 title bar
+(setq default-frame-alist '((undecorated-round . t)))
+
 (use-package solaire-mode
   :hook (elpaca-after-init . solaire-global-mode))
 

lisp/init-workspace.el

@@ -63,8 +63,8 @@
   :hook elpaca-after-init
   :bind (("C-x b" . beframe-switch-buffer)
          ("C-x C-b" . beframe-buffer-menu)
-         ("C-x f" . other-frame-prefix)))
+         ("C-x f" . other-frame-prefix))
-  ;; :config
+  :config
-  ;; (setq beframe-functions-in-frames '(project-prompt-project-dir)))
+  (define-key global-map (kbd "C-c b") #'beframe-prefix-map))
 
 (provide 'init-workspace)