wg: create group on :save-session if none exists

This commit is contained in:
Henrik Lissner 2016-03-23 12:00:53 -04:00
parent c89da6ed6c
commit f3d49eb1a8

View file

@ -9,6 +9,8 @@
;;;###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)
(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)))