Update

lisp/init-better-default.el

@@ -55,6 +55,10 @@
 (setq frame-title-format "Emacs: %b")
 (setq custom-safe-themes t)
 
+(setq-default tab-width 4
+	          compilation-scroll-output t
+	          indent-tabs-mode nil)
+
 (setq ring-bell-function 'ignore)
 (setq undo-limit 80000000
       auto-save-default t

lisp/init-ui.el

@@ -44,6 +44,7 @@
       inhibit-startup-echo-area-message user-login-name
       inhibit-default-init t
       initial-scratch-message nil)
+
 (unless (daemonp)
   (advice-add #'display-startup-echo-area-message :override #'ignore))
 

lisp/init-workspace.el

@@ -1,51 +1,53 @@
 ;; -*- lexical-binding: t; -*-
 
-(use-package tabspaces
-  :functions tabspaces-mode
-  :hook (elpaca-after-init . tabspaces-mode)
-  :custom
-  (tab-bar-show nil)
 
-  (tabspaces-use-filtered-buffers-as-default t)
-  (tabspaces-default-tab "Default")
-  (tabspaces-remove-to-default t)
-  (tabspaces-include-buffers '("*scratch*" "*Messages*"))
-  (tabspaces-exclude-buffers '("*eat*" "*vterm*" "*shell*" "*eshell*"))
-  ;; sessions
-  (tabspaces-session t)
-  (tabspaces-session-auto-restore t)
-  (tabspaces-keymap-prefix "C-c w")
-  :config
-  (with-no-warnings
-    ;; Filter Buffers for Consult-Buffer
-    (with-eval-after-load 'consult
-      ;; hide full buffer list (still available with "b" prefix)
-      (consult-customize consult--source-buffer :hidden t :default nil)
-      ;; set consult-workspace buffer list
-      (defvar consult--source-workspace
-        (list :name     "Workspace Buffer"
-              :narrow   ?w
-              :history  'buffer-name-history
-              :category 'buffer
-              :state    #'consult--buffer-state
-              :default  t
-              :items    (lambda () (consult--buffer-query
-                               :predicate #'tabspaces--local-buffer-p
-                               :sort 'visibility
-                               :as #'buffer-name)))
-        "Set workspace buffer list for consult-buffer.")
-      (add-to-list 'consult-buffer-sources 'consult--source-workspace))
   
-    (defun my-tabspaces-delete-childframe (&rest _)
+;; (use-package tabspaces
-      "Delete all child frames."
+;;   :functions tabspaces-mode
-      (ignore-errors
+;;   :hook (elpaca-after-init . tabspaces-mode)
-        (posframe-delete-all)))
+;;   :custom
-    (advice-add #'tabspaces-save-session :before #'my-tabspaces-delete-childframe)
+;;   (tab-bar-show nil)
 
-    (defun my-tabspaces-burry-window (&rest _)
+;;   (tabspaces-use-filtered-buffers-as-default t)
-      "Burry *Messages* buffer."
+;;   (tabspaces-default-tab "Default")
-      (ignore-errors
+;;   (tabspaces-remove-to-default t)
-        (quit-windows-on messages-buffer-name)))
+;;   (tabspaces-include-buffers '("*scratch*" "*Messages*"))
-    (advice-add #'tabspaces-restore-session :after #'my-tabspaces-burry-window)))
+;;   (tabspaces-exclude-buffers '("*eat*" "*vterm*" "*shell*" "*eshell*"))
+;;   ;; sessions
+;;   (tabspaces-session t)
+;;   (tabspaces-session-auto-restore t)
+;;   (tabspaces-keymap-prefix "C-c w")
+;;   :config
+;;   (with-no-warnings
+;;     ;; Filter Buffers for Consult-Buffer
+;;     (with-eval-after-load 'consult
+;;       ;; hide full buffer list (still available with "b" prefix)
+;;       (consult-customize consult--source-buffer :hidden t :default nil)
+;;       ;; set consult-workspace buffer list
+;;       (defvar consult--source-workspace
+;;         (list :name     "Workspace Buffer"
+;;               :narrow   ?w
+;;               :history  'buffer-name-history
+;;               :category 'buffer
+;;               :state    #'consult--buffer-state
+;;               :default  t
+;;               :items    (lambda () (consult--buffer-query
+;;                                :predicate #'tabspaces--local-buffer-p
+;;                                :sort 'visibility
+;;                                :as #'buffer-name)))
+;;         "Set workspace buffer list for consult-buffer.")
+;;       (add-to-list 'consult-buffer-sources 'consult--source-workspace))
+
+;;     (defun my-tabspaces-delete-childframe (&rest _)
+;;       "Delete all child frames."
+;;       (ignore-errors
+;;         (posframe-delete-all)))
+;;     (advice-add #'tabspaces-save-session :before #'my-tabspaces-delete-childframe)
+
+;;     (defun my-tabspaces-burry-window (&rest _)
+;;       "Burry *Messages* buffer."
+;;       (ignore-errors
+;;         (quit-windows-on messages-buffer-name)))
+;;     (advice-add #'tabspaces-restore-session :after #'my-tabspaces-burry-window)))
 
 (provide 'init-workspace)