70 lines
2.5 KiB
EmacsLisp
70 lines
2.5 KiB
EmacsLisp
;; -*- lexical-binding: t; -*-
|
|
|
|
|
|
(use-package project)
|
|
|
|
;; (use-package tab-bar
|
|
;; :ensure nil
|
|
;; :init
|
|
;; (tab-bar-mode t)
|
|
;; (setq tab-bar-new-tab-choice "*scratch*") ;; buffer to show in new tabs
|
|
;; (setq tab-bar-close-button-show nil) ;; hide tab close / X button
|
|
;; (setq tab-bar-show t) ;; hide bar if <= 1 tabs open
|
|
;; (setq tab-bar-format '(tab-bar-format-tabs tab-bar-separator))
|
|
|
|
;; (setq tab-bar-tab-hints t))
|
|
|
|
(global-set-key (kbd "C-x C-b") #'ibuffer)
|
|
|
|
;; (use-package tabspaces
|
|
;; :functions tabspaces-mode
|
|
;; :commands (tabspaces-switch-or-create-workspace
|
|
;; tabspaces-open-or-create-project-and-workspace)
|
|
;; :hook (elpaca-after-init . tabspaces-mode)
|
|
;; :bind (:map tabspaces-mode-map
|
|
;; ([remap project-switch-project] . tabspaces-project-switch-project-open-file))
|
|
;; :bind (:map tabspaces-command-map
|
|
;; ("l" . tabspaces-restore-session)
|
|
;; ("s" . tabspaces-save-session)
|
|
;; ("TAB" . tabspaces-switch-or-create-workspace))
|
|
|
|
;; :custom
|
|
;; (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 o")
|
|
;; (tab-bar-new-tab-choice "default")
|
|
|
|
;; (with-eval-after-load 'consult
|
|
;; ;; hide full buffer list (still available with "b" prefix)
|
|
;; (consult-customize consult--source-buffer :hidden nil :default nil)
|
|
;; ;; set consult-workspace buffer list
|
|
;; (defvar consult--source-workspace
|
|
;; (list :name "Workspace Buffers"
|
|
;; :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)))
|
|
|
|
(use-package beframe
|
|
:hook elpaca-after-init
|
|
:bind (("C-x b" . beframe-switch-buffer)
|
|
("C-x C-b" . beframe-buffer-menu)))
|
|
;; :config
|
|
;; (setq beframe-functions-in-frames '(project-prompt-project-dir)))
|
|
|
|
(provide 'init-workspace)
|