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

Refactor lib defuns

Browse Source
This commit is contained in:
Henrik Lissner
2015-11-17 02:12:39 -05:00
parent 2b96795761
commit 0596a0cb23
3 changed files with 29 additions and 46 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
core/lib/defuns-workgroup.el
View File

@@ -100,8 +100,13 @@
;;;###autoload
(defun narf:switch-to-workgroup-at-index (index)
(interactive)
(wg-switch-to-workgroup-at-index index)
(narf:workgroup-display))
(narf:workgroup-display)
(let ((wgs (wg-workgroup-list-or-error)))
(unless (eq (nth index wgs) (wg-current-workgroup t))
(when (and IS-MAC window-system)
(mac-start-animation (window-frame (get-buffer-window)) :type 'fade-out :duration 0.75))
(wg-switch-to-workgroup-at-index index)
(narf:workgroup-display))))
(provide 'defuns-workgroup)
;;; defuns-workgroup.el ends here