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

Polish workgroups2 integration: tie frames to workgroups

Browse source
This commit is contained in:
Henrik Lissner 2015-11-08 17:57:41 -05:00
parent 1d4fea774d
commit 213c53f020
4 changed files with 38 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

2
core/core-workgroups.el
View file

@ -28,6 +28,8 @@
(candidates . wg-workgroup-names)
(action . narf/wg-helm-switch-to-workgroup)))
(defvar narf-wg-frames '())
(after! projectile
;; Turns projectile switch-project interface (or helm's interface to it)
;; create a new workgroup for the new project.

15
core/lib/defuns-workgroup.el
View file

@ -32,6 +32,7 @@
;;;###autoload (autoload 'narf:workgroup-new "defuns-workgroup" nil t)
(evil-define-command narf:workgroup-new (bang name)
"Create a new workgroup. If BANG, clone the current one to it."
(interactive "<!><a>")
(unless name
(user-error "No name specified for new workgroup"))
@ -44,6 +45,18 @@
(interactive "<a>")
(wg-rename-workgroup new-name))
;;;###autoload (autoload 'narf:workgroup-delete "defuns-workgroup" nil t)
(evil-define-command narf:workgroup-delete (bang &optional name)
(interactive "<!><a>")
(let ((wg-name name))
(when (or bang (eq name ""))
(setq wg-name (wg-read-workgroup-name)))
(let ((wg (wg-get-workgroup name)))
(if (eq wg (wg-current-workgroup))
(wg-kill-workgroup)
(wg-delete-workgroup wg))
(message "Deleted workgroup: %s" name))))
;;;###autoload
(defun narf:kill-other-workgroups ()
"Kill all other workgroups."
@ -63,7 +76,7 @@
(if (not workgroup) wg-nowg-string
(wg-element-display
workgroup
(format "%d %s" index (wg-workgroup-name workgroup))
(format "%d %s" (1+ index) (wg-workgroup-name workgroup))
'wg-current-workgroup-p
'wg-previous-workgroup-p)))
(wg-workgroup-list)))))