diff --git a/.gitignore b/.gitignore index 28db626..454e633 100644 --- a/.gitignore +++ b/.gitignore @@ -55,4 +55,4 @@ tabsession.el /var/ /persp-confs/ /tree-sitter/ -/url/ \ No newline at end of file +/url/ diff --git a/lisp/init-better-default.el b/lisp/init-better-default.el index 04684ee..e1c7b01 100644 --- a/lisp/init-better-default.el +++ b/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 diff --git a/lisp/init-ui.el b/lisp/init-ui.el index 56e7c8c..5ad4ad1 100644 --- a/lisp/init-ui.el +++ b/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)) diff --git a/lisp/init-workspace.el b/lisp/init-workspace.el index bd268d8..1880fac 100644 --- a/lisp/init-workspace.el +++ b/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) +;; (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)) +;; (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 _) - "Delete all child frames." - (ignore-errors - (posframe-delete-all))) - (advice-add #'tabspaces-save-session :before #'my-tabspaces-delete-childframe) +;; (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))) +;; (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)