;; -*- 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)