64 lines
2.4 KiB
EmacsLisp
64 lines
2.4 KiB
EmacsLisp
|
;;; funcs.el --- Spacemacs Purpose Layer functions File
|
|||
|
|
;;
|
|||
|
|
;; Copyright (c) 2012-2016 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)))
|