63 lines
2.4 KiB
EmacsLisp
63 lines
2.4 KiB
EmacsLisp
;;; funcs.el --- Spacemacs Purpose Layer functions File
|
||
;;
|
||
;; Copyright (c) 2012-2017 Sylvain Benner & Contributors
|
||
;;
|
||
;; Author: Bar Magal
|
||
;; URL: https://github.com/syl20bnr/spacemacs
|
||
;;
|
||
;; This file is not part of GNU Emacs.
|
||
;;
|
||
;;; License: GPLv3
|
||
|
||
|
||
;; eyebrowse integration
|
||
|
||
(defun spacemacs/window-purpose-sync-eyebrowse ()
|
||
"Synchronize window-purpose layer with eyebrowse.
|
||
Set `eyebrowse-new-workspace' value depending on the state of `purpose-mode'."
|
||
(defvar spacemacs--window-purpose-eyebrowse-new-workspace
|
||
eyebrowse-new-workspace
|
||
"Internal backup of `eyebrowse-new-workspace'.")
|
||
(if purpose-mode
|
||
(setq eyebrowse-new-workspace #'spacemacs//window-purpose-new-workspace)
|
||
(setq eyebrowse-new-workspace
|
||
spacemacs--window-purpose-eyebrowse-new-workspace)))
|
||
|
||
(defun spacemacs//window-purpose-new-workspace ()
|
||
"Create a new eyebrowse workspace.
|
||
Replacement for `eyebrowse-new-workspace' that handles purpose-dedicated
|
||
windows correctly."
|
||
;; call original `eyebrowse-new-workspace' (partially copied from
|
||
;; `eyebrowse-switch-to-window-config')
|
||
(cond
|
||
((stringp spacemacs--window-purpose-eyebrowse-new-workspace)
|
||
(switch-to-buffer (get-buffer-create
|
||
spacemacs--window-purpose-eyebrowse-new-workspace)))
|
||
((functionp spacemacs--window-purpose-eyebrowse-new-workspace)
|
||
(funcall spacemacs--window-purpose-eyebrowse-new-workspace))
|
||
(t (switch-to-buffer "*scratch*")))
|
||
|
||
;; in case opening the new buffer splitted the frame (e.g.
|
||
;; `eyebrowse-switch-to-window-config' was called from a purpose-dedicated
|
||
;; buffer)
|
||
(delete-other-windows))
|
||
|
||
|
||
;; Popwin integration
|
||
|
||
(defun spacemacs/window-purpose-sync-popwin ()
|
||
"Synchronize window-purpose layer with popwin.
|
||
Enable or disable advices to popwin, according to the state of `purpose-mode'."
|
||
(if purpose-mode
|
||
(progn
|
||
(ad-enable-advice 'popwin:create-popup-window
|
||
'before 'window-purpose/save-dedicated-windows)
|
||
(ad-enable-advice 'popwin:create-popup-window
|
||
'after 'window-purpose/restore-dedicated-windows)
|
||
(ad-update 'popwin:create-popup-window)
|
||
(ad-activate 'popwin:create-popup-window))
|
||
(ad-disable-advice 'popwin:create-popup-window
|
||
'before 'window-purpose/save-dedicated-windows)
|
||
(ad-disable-advice 'popwin:create-popup-window
|
||
'after 'window-purpose/restore-dedicated-windows)
|
||
(ad-update 'popwin:create-popup-window)))
|