awesome-emacs/doomemacs
1
0
Fork 0
mirror of https://github.com/doomemacs/doomemacs synced 2025-09-08 15:23:35 -05:00
Code Issues Packages Projects Releases Wiki Activity

Remove some anaphoric forms

Browse Source
This commit is contained in:
Henrik Lissner
2016-10-02 23:28:02 +02:00
parent cd9654d637
commit eacfc39fb3
3 changed files with 18 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
core/defuns/defuns-buffers.el
View File

@@ -44,10 +44,10 @@ workgroup."
(let ((buffers (if (wg-current-workgroup t)
(doom/get-buffers-in-workgroup)
(buffer-list)))
project-root)
(append (aif (and (not all-p) (doom/project-root t))
(project-root (and (not all-p) (doom/project-root t))))
(append (if project-root
(funcall (if (eq all-p 'not) '-remove '-filter)
(lambda (b) (projectile-project-buffer-p b it))
(lambda (b) (projectile-project-buffer-p b project-root))
buffers)
buffers)
(list doom-buffer))))

9
core/defuns/defuns-window.el
View File

@@ -79,10 +79,11 @@ evil-window-move-* (e.g. `evil-window-move-far-left')"
;;;###autoload
(defun doom/close-frame ()
(interactive)
(aif (assq (selected-frame) doom-wg-frames)
(progn (wg-delete-workgroup (wg-get-workgroup (cdr it)))
(delete-frame (car it)))
(delete-frame)))
(let ((frame (assq (selected-frame) doom-wg-frames)))
(if frame
(progn (wg-delete-workgroup (wg-get-workgroup (cdr frame)))
(delete-frame (car frame)))
(delete-frame))))
;;;###autoload
(defun doom/evil-window-resize (direction &optional count)