diff --git a/core/defuns/defuns-workgroup.el b/core/defuns/defuns-workgroup.el index 0c764ea41..39e5a2644 100644 --- a/core/defuns/defuns-workgroup.el +++ b/core/defuns/defuns-workgroup.el @@ -53,7 +53,9 @@ configuration." ;;;###autoload (autoload 'doom:workgroup-new "defuns-workgroup" nil t) (evil-define-command doom:workgroup-new (bang name &optional silent) - "Create a new workgroup. If BANG, overwrite any workgroup named NAME." + "Create a new workgroup named NAME. If BANG, overwrite any workgroup named +NAME. If NAME is omitted, autogenerate a name. If SILENT, then don't show the +tabs in the minibuffer afterwards." (interactive "") (unless name (setq name (format "#%s" (1+ (length (wg-session-workgroup-list (wg-current-session t))))))) @@ -70,7 +72,9 @@ configuration." 'success))) ;;;###autoload (autoload 'doom:workgroup-rename "defuns-workgroup" nil t) -(evil-define-command doom:workgroup-rename (bang &optional new-name) +(evil-define-command doom:workgroup-rename (&optional bang new-name) + "Rename the current workgroup to NEW-NAME. If BANG and this workgroup has a +fixed name, un-fix it." (interactive "") (let* ((wg (wg-current-workgroup)) (wg-uid (wg-workgroup-uid wg)) @@ -85,6 +89,8 @@ configuration." ;;;###autoload (autoload 'doom:workgroup-delete "defuns-workgroup" nil t) (evil-define-command doom:workgroup-delete (&optional bang name) + "Delete the workgroup specified by NAME. If NAME is omitted, delete the +current workgroup. If BANG, prompts the user for which workgroup to delete." (interactive "") (let* ((current-wg (wg-current-workgroup)) (wg-name (or name (wg-workgroup-name current-wg))))