61 lines
2.3 KiB
EmacsLisp
61 lines
2.3 KiB
EmacsLisp
;; -*- lexical-binding: t; -*-
|
|
|
|
|
|
;; (use-package project)
|
|
(use-package projectile
|
|
:hook after-init
|
|
:config
|
|
;; Recommended keymap prefix on macOS
|
|
(define-key projectile-mode-map (kbd "s-p") 'projectile-command-map)
|
|
;; Recommended keymap prefix on Windows/Linux
|
|
(define-key projectile-mode-map (kbd "C-x p") 'projectile-command-map))
|
|
|
|
(use-package ibuffer-projectile
|
|
:config
|
|
(add-hook 'ibuffer-hook
|
|
(lambda ()
|
|
(ibuffer-projectile-set-filter-groups)
|
|
(unless (eq ibuffer-sorting-mode 'alphabetic)
|
|
(ibuffer-do-sort-by-alphabetic)))))
|
|
|
|
;; (use-package consult-projectile
|
|
;; :bind (([remap projectile-find-file] . consult-projectile-find-file)
|
|
;; ([remap projectile-recentf] . consult-projectile-recentf)
|
|
;; ([remap projectile-switch-project] . consult-projectile-switch-project)
|
|
;; ([remap projectile-switch-to-buffer] . consult-projectile-switch-to-buffer)
|
|
;; ([remap projectile-find-dir] . consult-projectile-find-dir)))
|
|
|
|
(global-set-key (kbd "C-x C-b") #'ibuffer)
|
|
|
|
(use-package beframe
|
|
:hook after-init
|
|
:bind ("C-x f" . other-frame-prefix)
|
|
:config
|
|
(define-key global-map (kbd "C-c b") #'beframe-prefix-map)
|
|
(setq beframe-functions-in-frames '(projectile-switch-project)
|
|
beframe-rename-function #'ignore
|
|
beframe-global-buffers '("*scratch*" "*Messages*" "*Backtrace*"))
|
|
(use-package embark
|
|
:defer
|
|
:config
|
|
(define-key embark-buffer-map (kbd "fu")
|
|
(defun my/beframe-unassume-buffer (buf)
|
|
(interactive "bUnassume: ")
|
|
(beframe--unassume
|
|
(list (get-buffer buf)))))
|
|
(define-key embark-buffer-map (kbd "fa")
|
|
(defun my/beframe-assume-buffer (buf)
|
|
(interactive "bAssume: ")
|
|
(beframe--assume
|
|
(list (get-buffer buf))))))
|
|
|
|
(with-eval-after-load 'consult
|
|
(defun consult-beframe-buffer-list (&optional frame)
|
|
"Return the list of buffers from `beframe-buffer-names' sorted by visibility.
|
|
With optional argument FRAME, return the list of buffers of FRAME."
|
|
(beframe-buffer-list frame :sort #'beframe-buffer-sort-visibility))
|
|
|
|
(setq consult-buffer-list-function #'consult-beframe-buffer-list)))
|
|
|
|
(provide 'init-workspace)
|