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

Improve :ss and narf/close-window-or-workgroup

Browse source
This commit is contained in:
Henrik Lissner 2016-03-28 21:40:21 -04:00
parent 910c15ac3e
commit f2344f1d8b
2 changed files with 13 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

14
core/defuns/defuns-workgroup.el
View file

@ -7,13 +7,13 @@
(helm-projectile-find-file)))
;;;###autoload (autoload 'narf:save-session "defuns-workgroup" nil t)
(evil-define-command narf:save-session (&optional bang session-name)
(interactive "<!><a>")
(unless (wg-current-workgroup t)
(evil-define-command narf:save-session (&optional session-name)
(interactive "<a>")
(unless (wg-workgroup-list)
(wg-create-workgroup wg-first-wg-name))
(if session-name
(wg-save-session-as (concat wg-workgroup-directory session-name) (not bang))
(wg-save-session)))
(wg-save-session-as (if session-name
(concat wg-workgroup-directory session-name)
wg-session-file)))
;;;###autoload (autoload 'narf:load-session "defuns-workgroup" nil t)
(evil-define-command narf:load-session (&optional session-name)
@ -176,7 +176,7 @@
(defun narf/close-window-or-workgroup ()
(interactive)
(narf/kill-real-buffer)
(if (and (= (length (window-list)) 1)
(if (and (one-window-p t)
(> (length (wg-workgroup-list)) 1))
(if (string= (wg-workgroup-name (wg-current-workgroup)) wg-first-wg-name)
(evil-window-delete)