emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

refactor(ibuffer): move workspace functions

Browse source
This commit is contained in:
Henrik Lissner 2022-04-03 20:40:31 +02:00
parent 9e79aa3446
commit e9c088cf3b
No known key found for this signature in database
GPG key ID: B60957CA074D39A3
2 changed files with 16 additions and 12 deletions
Download patch file Download diff file Expand all files Collapse all files

14
modules/emacs/ibuffer/autoload/workspaces.el Normal file
View file

@ -0,0 +1,14 @@
;;; emacs/ibuffer/autoload/workspaces.el -*- lexical-binding: t; -*-
;;;###if (featurep! :ui workspaces)
;;;###autoload
(defun +ibuffer-workspace (workspace-name)
"Open an ibuffer window for a workspace"
(ibuffer nil (format "%s buffers" workspace-name)
(list (cons 'workspace-buffers (+workspace-get workspace-name)))))
;;;###autoload
(defun +ibuffer/open-for-current-workspace ()
"Open an ibuffer window for the current workspace"
(interactive)
(+ibuffer-workspace (+workspace-current-name)))

14
modules/emacs/ibuffer/config.el
View file

@ -44,20 +44,10 @@
"Filter for workspace buffers"
(:reader (+workspace-get (read-string "workspace name: "))
:description "workspace")
(memq buf (+workspace-buffer-list qualifier)))
(defun +ibuffer-workspace (workspace-name)
"Open an ibuffer window for a workspace"
(ibuffer nil (format "%s buffers" workspace-name)
(list (cons 'workspace-buffers (+workspace-get workspace-name)))))
(defun +ibuffer/open-for-current-workspace ()
"Open an ibuffer window for the current workspace"
(interactive)
(+ibuffer-workspace (+workspace-current-name))))
(memq buf (+workspace-buffer-list qualifier))))
(when (featurep! :completion ivy)
(defadvice! +ibuffer-use-counsel-maybe-a (_file &optional _wildcards)
(defadvice! +ibuffer--use-counsel-maybe-a (_file &optional _wildcards)
"Use `counsel-find-file' instead of `find-file'."
:override #'ibuffer-find-file
(interactive