feature/workspaces: replace workgroups2 with persp-mode
This commit is contained in:
Henrik Lissner
parent
5090757f4a
commit
42eac3eaa8
4 changed files with 453 additions and 308 deletions
|
|
@ -1,273 +1,430 @@
|
|||
;;; feature/workspaces/autoload.el
|
||||
|
||||
;;;###autoload
|
||||
(defun +workspace-cleanup ()
|
||||
"Remove unsavable windows and buffers before we save the window
|
||||
configuration."
|
||||
(let (doom-buffer-inhibit-refresh)
|
||||
(doom/popup-close-all)
|
||||
(when (and (featurep 'neotree) (neo-global--window-exists-p))
|
||||
(neotree-hide))))
|
||||
(defvar +workspace-session-file "_sessions"
|
||||
"The file basename in which to store entire perspective sessions.")
|
||||
|
||||
(defvar +workspace-workspace-file "_workspaces"
|
||||
"The file basename in which to store single workspace perspectives.")
|
||||
|
||||
(defvar +workspace--counter 1
|
||||
"")
|
||||
(add-to-list 'savehist-additional-variables '+workspace-names)
|
||||
|
||||
(defface +workspace-tab-selected-face
|
||||
'((((class color) (background light))
|
||||
(:background "#333333" :foreground "#000000")) ;; FIXME
|
||||
(((class color) (background dark))
|
||||
(:background "#51afef" :foreground "#181e26")))
|
||||
"The face for selected tabs displayed by `+workspace/display'")
|
||||
|
||||
(defface +workspace-tab-face
|
||||
'((((class color) (background light))
|
||||
(:background "#333333" :foreground "#000000")) ;; FIXME
|
||||
(((type graphic) (class color) (background dark))
|
||||
(:background "#23272e" :foreground "#5B6268"))
|
||||
(((class color) (background dark))
|
||||
(:background "#262626" :foreground "#525252")))
|
||||
"The face for selected tabs displayed by `+workspace/display'")
|
||||
|
||||
;;;###autoload
|
||||
(defun +workspace-save (session-file)
|
||||
"Save the current workspace as SESSION-FILE. Ensure a workgroup exists to be
|
||||
saved."
|
||||
(+workspace-cleanup)
|
||||
(unless (wg-workgroup-list)
|
||||
(wg-create-workgroup wg-first-wg-name))
|
||||
(wg-save-session-as session-file))
|
||||
(defun +workspace-list (&optional exclude-nil-p)
|
||||
"Retrieve a list of names of open workspaces (strings)."
|
||||
(let ((persps (persp-names)))
|
||||
(if exclude-nil-p
|
||||
(delete persp-nil-name persps)
|
||||
persps)))
|
||||
|
||||
;;;###autoload
|
||||
(defun +workspace-load (session-file)
|
||||
"Load a workspace from SESSION-FILE."
|
||||
(+workspace-cleanup)
|
||||
(when (not (and session-file (file-exists-p session-file)))
|
||||
(user-error "No session found"))
|
||||
(wg-open-session session-file))
|
||||
(defun +workspace-p (obj)
|
||||
"Return t if OBJ is a perspective hash table."
|
||||
(and (hash-table-p obj)
|
||||
(perspective-p obj)))
|
||||
|
||||
;;;###autoload
|
||||
(defun +workspace-new (&optional session-name overwrite-p)
|
||||
"Create a new workspace, named SESSION-NAME (optional) and return it (without
|
||||
switching to it). Otherwise, it's named #N, where N is the number of current
|
||||
workgroups + 1."
|
||||
(unless session-name
|
||||
(setq session-name (format "#%s" (1+ (length (wg-session-workgroup-list (wg-current-session t)))))))
|
||||
(awhen (and overwrite-p (wg-get-workgroup session-name t))
|
||||
(wg-delete-workgroup new-wg))
|
||||
(let ((new-wg (wg-make-and-add-workgroup session-name t)))
|
||||
(add-to-list '+workspace-names (wg-workgroup-uid new-wg))
|
||||
new-wg))
|
||||
(defun +workspace-exists-p (name)
|
||||
"Returns t if NAME is the name of an existing workspace."
|
||||
(when (symbolp name)
|
||||
(setq name (symbol-name name)))
|
||||
(unless (stringp name)
|
||||
(error "Expected a string, got a %s" (type-of name)))
|
||||
(member name (+workspace-list)))
|
||||
|
||||
;;;###autoload
|
||||
(defun +workspace-rename (new-name)
|
||||
"Rename the current workspace to NEW-NAME."
|
||||
(unless new-name
|
||||
(user-error "You didn't enter in a name"))
|
||||
(let ((wg (wg-current-workgroup)))
|
||||
(wg-rename-workgroup new-name wg)
|
||||
(add-to-list '+workspace-names (wg-workgroup-uid wg))
|
||||
wg))
|
||||
(defun +workspace-get (name &optional noerror)
|
||||
"Returns a workspace (perspective hash table) named NAME."
|
||||
(unless (equal name persp-nil-name)
|
||||
(let ((persp (persp-get-by-name name)))
|
||||
(unless (or persp noerror)
|
||||
(error "%s is not an available workspace" name))
|
||||
persp)))
|
||||
|
||||
;;;###autoload
|
||||
(defun +workspace-delete (&optional session-name)
|
||||
"Delete the current workspace."
|
||||
(let* ((current-wg (wg-current-workgroup t))
|
||||
(wg (if session-name (wg-get-workgroup session-name t) current-wg)))
|
||||
(unless wg
|
||||
(user-error "No workgroup found with that name: %s" session-name))
|
||||
(setq +workspace-names (delete (wg-workgroup-uid wg) +workspace-names))
|
||||
(if (eq wg current-wg)
|
||||
(wg-kill-workgroup)
|
||||
(wg-delete-workgroup wg))))
|
||||
(defun +workspace-current-name ()
|
||||
"Get the name of the currently active workspace."
|
||||
(safe-persp-name (get-current-persp)))
|
||||
|
||||
;;;###autoload
|
||||
(defun +workspace-load (name)
|
||||
"Loads and inserts a single workspace (named NAME) into the current session.
|
||||
Can only retrieve perspectives that were explicitly saved with
|
||||
`+workspace-save'.
|
||||
|
||||
Returns t if successful, nil otherwise."
|
||||
(unless (+workspace-exists-p name)
|
||||
(persp-load-from-file-by-names +workspace-workspace-file *persp-hash* (list name)))
|
||||
(+workspace-exists-p name))
|
||||
|
||||
;;;###autoload
|
||||
(defun +workspace-load-session (&optional name)
|
||||
"Replace current session with the entire session named NAME. If NAME is nil,
|
||||
use `persp-auto-save-fname'."
|
||||
(persp-load-state-from-file (or name persp-auto-save-fname)))
|
||||
|
||||
;;;###autoload
|
||||
(defun +workspace-save (name)
|
||||
"Saves a single workspace (TARGET) from the current session. Can be loaded
|
||||
again with `+workspace-load'. TARGET can be the string name of a workspace or
|
||||
its perspective hash table.
|
||||
|
||||
Returns t on success, nil otherwise."
|
||||
(unless (+workspace-exists-p name)
|
||||
(error "%s is not an available workspace" name))
|
||||
(persp-save-to-file-by-names
|
||||
+workspace-workspace-file *persp-hash* (list name) t)
|
||||
(memq name (persp-list-persp-names-in-file +workspace-workspace-file)))
|
||||
|
||||
;;;###autoload
|
||||
(defun +workspace-save-session (&optional name)
|
||||
"Save a whole session as NAME. If NAME is nil, use `persp-auto-save-fname'.
|
||||
Return t on success, nil otherwise."
|
||||
(let ((fname (or name persp-auto-save-fname)))
|
||||
(and (persp-save-state-to-file fname) t)))
|
||||
|
||||
;;;###autoload
|
||||
(defun +workspace-new (name)
|
||||
"Create a new workspace named NAME. If one already exists, return nil.
|
||||
Otherwise return t on success, nil otherwise."
|
||||
(when (equal name persp-nil-name)
|
||||
(error "Can't create a new %s workspace" name))
|
||||
(unless (+workspace-exists-p name)
|
||||
(and (persp-add-new name) t)))
|
||||
|
||||
;;;###autoload
|
||||
(defun +workspace-rename (name new-name)
|
||||
"Rename the current workspace named NAME to NEW-NAME. Returns old name on
|
||||
success, nil otherwise."
|
||||
(when (equal name persp-nil-name)
|
||||
(error "Can't rename main workspace"))
|
||||
(persp-rename new-name (+workspace-get name)))
|
||||
|
||||
;;;###autoload
|
||||
(defun +workspace-delete (name)
|
||||
"Delete the workspace denoted by TARGET, which can be the name of a
|
||||
perspective or its hash table."
|
||||
(when (equal name persp-nil-name)
|
||||
(error "Can't delete main workspace"))
|
||||
(+workspace-get name) ;; error checking
|
||||
(persp-remove-by-name name))
|
||||
|
||||
;;;###autoload
|
||||
(defun +workspace-switch (name)
|
||||
"Switch to another workspace."
|
||||
(unless (+workspace-exists-p name)
|
||||
(error "%s is not an available workspace" name))
|
||||
(persp-frame-switch name))
|
||||
|
||||
(defun +workspace--generate-id ()
|
||||
(let ((numbers (--map (string-to-number (substring it 1))
|
||||
(--filter (string-match-p "^#[0-9]+$" it)
|
||||
(+workspace-list)))))
|
||||
(if numbers
|
||||
(1+ (-max numbers))
|
||||
1)))
|
||||
|
||||
|
||||
;;
|
||||
;; Interactive commands
|
||||
;;
|
||||
|
||||
;;;###autoload
|
||||
(defun +workspace/load (name)
|
||||
"Load a workspace and switch to it. If called with C-u, try to reload the
|
||||
current workspace (by name) from session files."
|
||||
(interactive
|
||||
(list
|
||||
(if current-prefix-arg
|
||||
(+workspace-current-name)
|
||||
(completing-read "Workspace to load: "
|
||||
(persp-list-persp-names-in-file
|
||||
+workspace-workspace-file)))))
|
||||
(if (not (+workspace-load name))
|
||||
(+workspace-error (format "Couldn't load workspace %s" name))
|
||||
(+workspace/switch-to name)
|
||||
(+workspace/display)))
|
||||
|
||||
;;;###autoload
|
||||
(defun +workspace/load-session (name)
|
||||
"Load a session and switch to it. If called with C-u, try to load the last
|
||||
session."
|
||||
(interactive
|
||||
(list
|
||||
(unless current-prefix-arg
|
||||
(completing-read
|
||||
"Session to load: "
|
||||
(-map 'f-filename
|
||||
(f--files persp-save-dir
|
||||
(not (string-prefix-p "_" (f-filename it)))))))))
|
||||
(+workspace-load-session name)
|
||||
(+workspace/display))
|
||||
|
||||
;;;###autoload
|
||||
(defun +workspace/save (name)
|
||||
"Save the current workspace. If called with C-u, autosave the current
|
||||
workspace."
|
||||
(interactive
|
||||
(list
|
||||
(if current-prefix-arg
|
||||
(+workspace-current-name)
|
||||
(completing-read "Workspace to save: " (+workspace-list)))))
|
||||
(if (+workspace-save name)
|
||||
(+workspace-message (format "%s workspace saved" name) 'success)
|
||||
(+workspace-error (format "Couldn't save workspace %s" name))))
|
||||
|
||||
;;;###autoload
|
||||
(defun +workspace/save-session (&optional name)
|
||||
"Save the current session. If called with C-u, prompt you for the name to save
|
||||
the session as."
|
||||
(interactive
|
||||
(list
|
||||
(when current-prefix-arg
|
||||
(completing-read
|
||||
"Save session as: "
|
||||
(-map 'f-filename
|
||||
(f--files persp-save-dir
|
||||
(not (string-prefix-p "_" (f-filename it)))))))))
|
||||
(condition-case ex
|
||||
(if (+workspace-save-session name)
|
||||
(+workspace-message (format "Saved session as %s" name) 'success)
|
||||
(error "Couldn't save session as %s" name))
|
||||
'(error (+workspace-error (cadr ex) t))))
|
||||
|
||||
;;;###autoload
|
||||
(defun +workspace/rename (new-name)
|
||||
"Rename the current workspace."
|
||||
(interactive)
|
||||
(condition-case ex
|
||||
(let* ((current-name (+workspace-current-name))
|
||||
(old-name (+workspace-rename current-name new-name)))
|
||||
(unless old-name
|
||||
(error "Failed to rename %s" current-name))
|
||||
(+workspace-message (format "Renamed '%s'->'%s'" old-name new-name) 'success))
|
||||
('error (+workspace-error (cadr ex) t))))
|
||||
|
||||
;;;###autoload
|
||||
(defun +workspace/delete (name)
|
||||
"Delete this workspace. If called with C-u, prompts you for the name of the
|
||||
workspace to delete."
|
||||
(interactive
|
||||
(let ((current-name (+workspace-current-name)))
|
||||
(list
|
||||
(if current-prefix-arg
|
||||
(completing-read (format "Delete workspace (default: %s): " current-name)
|
||||
(+workspace-list)
|
||||
nil nil current-name)
|
||||
current-name))))
|
||||
(condition-case ex
|
||||
(if (+workspace-delete name)
|
||||
(+workspace-message (format "Deleted %s workspace" name) 'success)
|
||||
(error "Couldn't delete %s workspace" name))
|
||||
('error (+workspace-error (cadr ex) t))))
|
||||
|
||||
;;;###autoload
|
||||
(defun +workspace/kill-session ()
|
||||
"Delete the current session, clears all workspaces, windows and buffers."
|
||||
(interactive)
|
||||
(unless (-all-p '+workspace-delete (+workspace-list t))
|
||||
(+workspace-error "Could not clear session"))
|
||||
(+workspace-switch persp-nil-name)
|
||||
(delete-other-windows-internal)
|
||||
(switch-to-buffer doom-fallback-buffer)
|
||||
(--each (unless (eq (buffer-name it) doom-fallback-buffer)
|
||||
(kill-buffer it))
|
||||
(buffer-list)))
|
||||
|
||||
;;;###autoload
|
||||
(defun +workspace/new (&optional name clone-p)
|
||||
"Create a new workspace named NAME. If OVERWRITE-P is non-nil, clear any
|
||||
pre-existing workspace."
|
||||
(interactive "iP")
|
||||
(unless name
|
||||
(setq name (format "#%s" (+workspace--generate-id))))
|
||||
(condition-case ex
|
||||
(let ((exists-p (+workspace-exists-p name)))
|
||||
(if exists-p
|
||||
(error "%s already exists" name)
|
||||
(persp-frame-switch name)
|
||||
(if clone-p
|
||||
(--each (persp-add-buffer (window-buffer it) persp nil)
|
||||
(window-list))
|
||||
(delete-other-windows-internal)
|
||||
(switch-to-buffer doom-fallback-buffer))
|
||||
(+workspace/display)))
|
||||
('error (+workspace-error (cadr ex) t))))
|
||||
|
||||
;;;###autoload
|
||||
(defun +workspace/switch-to (index)
|
||||
"Switch to a workspace at a given INDEX. A negative number will start from the
|
||||
end of the workspace list."
|
||||
(interactive
|
||||
(list (or current-prefix-arg
|
||||
(completing-read "Switch to workspace: " (+workspace-list)))))
|
||||
(when (and (stringp index) (s-numeric? index))
|
||||
(setq index (string-to-number index)))
|
||||
(condition-case ex
|
||||
(let ((names (+workspace-list)))
|
||||
(cond ((numberp index)
|
||||
(let ((dest (nth index names)))
|
||||
(unless dest
|
||||
(error "No workspace at #%s" (1+ index)))
|
||||
(persp-switch dest)))
|
||||
((stringp index)
|
||||
(unless (member index names)
|
||||
(error "No workspace named %s" index))
|
||||
(persp-frame-switch index)))
|
||||
(unless (called-interactively-p 'interactive)
|
||||
(+workspace/display)))
|
||||
('error (+workspace-error (cadr ex) t))))
|
||||
|
||||
;;;###autoload
|
||||
(defun +workspace/switch-to-last ()
|
||||
"Switch to the last workspace."
|
||||
(interactive)
|
||||
(+workspace/switch-to (car (reverse (+workspace-list)))))
|
||||
|
||||
;;;###autoload
|
||||
(defun +workspace/cycle (n)
|
||||
"Cycle n workspaces to the right (default) or left."
|
||||
(interactive (list 1))
|
||||
(condition-case ex
|
||||
(let ((spaces (+workspace-list))
|
||||
(current-name (+workspace-current-name))
|
||||
index new-index)
|
||||
(unless (and space current-name)
|
||||
(error "No spaces or current workspace to cycle to/from"))
|
||||
(setq index (--find-index (eq it current-name) spaces)
|
||||
new-index (mod (+ index n) (length spaces)))
|
||||
(unless (= index new-index)
|
||||
(+workspace-switch new-index))
|
||||
(unless (called-interactively-p 'interactive)
|
||||
(+workpace/display)))
|
||||
('error (+workspace-error (cadr ex) t))))
|
||||
|
||||
;;;###autoload
|
||||
(defun +workspace/close-window-or-workspace ()
|
||||
"Close the selected window. If it's the last window in the workspace, close
|
||||
the workspace and move to the next."
|
||||
(interactive)
|
||||
(if (doom-popup-p)
|
||||
(doom/popup-close)
|
||||
(let ((current-persp-name (+workspace-current-name)))
|
||||
(cond ((or (equal current-persp-name persp-nil-name)
|
||||
(not (one-window-p t)))
|
||||
(delete-window))
|
||||
((> (length (+workspace-list)) 1)
|
||||
(let* ((names (+workspace-list))
|
||||
(index (--find-index (equal current-persp-name it) names)))
|
||||
(+workspace/delete current-persp-name)
|
||||
(+workspace-switch (nth (1- index) names))))))))
|
||||
|
||||
|
||||
;;
|
||||
;; Tabs display in minibuffer
|
||||
;;
|
||||
|
||||
(defun +workspace--tabline (&optional names)
|
||||
(let ((names (or names (+workspace-list)))
|
||||
(current-name (+workspace-current-name)))
|
||||
(s-join
|
||||
" " (--map-indexed
|
||||
(propertize (format " [%s] %s " (1+ it-index) it)
|
||||
'face (if (equal current-name it)
|
||||
'+workspace-tab-selected-face
|
||||
'+workspace-tab-face))
|
||||
names))))
|
||||
|
||||
(defun +workspace--message-body (message &optional type)
|
||||
(concat (+workspace--tabline)
|
||||
(propertize " | " 'face 'font-lock-comment-face)
|
||||
(propertize message 'face (pcase type
|
||||
('error 'error)
|
||||
('warn 'warning)
|
||||
('success 'success)
|
||||
('info 'font-lock-comment-face)))))
|
||||
|
||||
;;;###autoload
|
||||
(defun +workspace-message (message &optional type)
|
||||
(message "%s" (+workspace--message-body message type)))
|
||||
|
||||
;;;###autoload
|
||||
(defun +workspace-error (message &optional noerror)
|
||||
(funcall (if noerror 'message 'error) "%s" (+workspace--message-body message 'error)))
|
||||
|
||||
;;;###autoload
|
||||
(defun +workspace/display ()
|
||||
(interactive)
|
||||
(message "%s" (+workspace--tabline)))
|
||||
|
||||
|
||||
;;
|
||||
;; Evil commands
|
||||
;;
|
||||
|
||||
;;;###autoload (autoload '+workspace:save-session "feature/workspaces/autoload" nil t)
|
||||
;;;###autoload (autoload '+workspace:load-session "feature/workspaces/autoload" nil t)
|
||||
;;;###autoload (autoload '+workspace:save "feature/workspaces/autoload" nil t)
|
||||
;;;###autoload (autoload '+workspace:load "feature/workspaces/autoload" nil t)
|
||||
;;;###autoload (autoload '+workspace:new "feature/workspaces/autoload" nil t)
|
||||
;;;###autoload (autoload '+workspace:rename "feature/workspaces/autoload" nil t)
|
||||
;;;###autoload (autoload '+workspace:delete "feature/workspaces/autoload" nil t)
|
||||
;;;###autoload (autoload '+workspace:jump-to "feature/workspaces/autoload" nil t)
|
||||
;;;###autoload (autoload '+workspace:switch-left "feature/workspaces/autoload" nil t)
|
||||
;;;###autoload (autoload '+workspace:switch-right "feature/workspaces/autoload" nil t)
|
||||
;;;###autoload (autoload '+workspace:switch-next "feature/workspaces/autoload" nil t)
|
||||
;;;###autoload (autoload '+workspace:switch-previous "feature/workspaces/autoload" nil t)
|
||||
|
||||
(after! evil
|
||||
(evil-define-command +workspace:save (&optional bang name)
|
||||
(interactive "<!><a>")
|
||||
(+workspace-save
|
||||
(cond (name (concat wg-workgroup-directory session-name))
|
||||
(bang (concat wg-workgroup-directory (f-filename (doom-project-root))))
|
||||
(t wg-session-file))))
|
||||
(evil-define-command +workspace:save-session (&optional name)
|
||||
"Ex wrapper around `+workspace/save-session'."
|
||||
(interactive "<a>") (+workspace/save-session name))
|
||||
|
||||
(evil-define-command +workspace:load (&optional bang name)
|
||||
(interactive "<!><a>")
|
||||
(+workspace-load
|
||||
(cond (name (concat wg-workgroup-directory session-name))
|
||||
(bang
|
||||
(concat wg-workgroup-directory (f-filename (doom-project-root))))
|
||||
(t wg-session-file)))
|
||||
(+workspace/display t))
|
||||
(evil-define-command +workspace:load-session (&optional name)
|
||||
"Ex wrapper around `+workspace/load-session'."
|
||||
(interactive "<a>") (+workspace/load-session name))
|
||||
|
||||
(evil-define-command +workspace:save (&optional name)
|
||||
"Ex wrapper around `+workspace/save-session'."
|
||||
(interactive "<a>") (+workspace/save name))
|
||||
|
||||
(evil-define-command +workspace:load (&optional name)
|
||||
"Ex wrapper around `+workspace/load-session'."
|
||||
(interactive "<a>") (+workspace/load name))
|
||||
|
||||
(evil-define-command +workspace:new (bang name)
|
||||
"Create a new workgroup named NAME. If BANG, overwrite any workgroup named
|
||||
NAME. If NAME is omitted, autogenerate a name."
|
||||
(interactive "<!><a>")
|
||||
(let* ((wg (+workspace-new name bang))
|
||||
(wg-name (wg-workgroup-name wg)))
|
||||
(wg-switch-to-workgroup wg)
|
||||
(workspace--display-inline (wg-previous-workgroup t)
|
||||
(format "Created %s" wg-name)
|
||||
'success)))
|
||||
"Ex wrapper around `+workspace/new'. If BANG, clone the current workspace."
|
||||
(interactive "<!><a>") (+workspace/new name bang))
|
||||
|
||||
(evil-define-command +workspace: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 "<!><a>")
|
||||
(let* ((wg (wg-current-workgroup))
|
||||
(wg-uid (wg-workgroup-uid wg))
|
||||
(old-name (wg-workgroup-name wg)))
|
||||
(if bang
|
||||
(progn
|
||||
(setq +workspace-names (delete wg-uid +workspace-names))
|
||||
(workspace--display-inline t (format "Unfixed '%s'" old-name) 'success))
|
||||
(+workspace-rename new-name)
|
||||
(workspace--display-inline nil (format "Renamed '%s'->'%s'" old-name new-name) 'success))))
|
||||
(evil-define-command +workspace:rename (new-name)
|
||||
"Ex wrapper around `+workspace/rename'."
|
||||
(interactive "<a>") (+workspace/rename new-name))
|
||||
|
||||
(evil-define-command +workspace: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 "<!><a>")
|
||||
(when bang
|
||||
(setq name (wg-read-workgroup-name))
|
||||
(unless name
|
||||
(user-error "You didn't select a workgroup.")))
|
||||
(let ((wg-name (ignore-errors (wg-workgroup-name (wg-current-workgroup t)))))
|
||||
(+workspace-delete name)
|
||||
(workspace--display-inline nil (format "Deleted %s" wg-name) 'success)))
|
||||
(evil-define-command +workspace:delete ()
|
||||
"Ex wrapper around `+workspace/delete'."
|
||||
(interactive "<a>") (+workspace/delete (+workspace-current-name)))
|
||||
|
||||
(evil-define-command +workspace:jump-to (&optional search)
|
||||
(interactive "<a>")
|
||||
(if search
|
||||
(progn) ;; TODO Fuzzy matching
|
||||
(awhen (wg-read-workgroup-name)
|
||||
(wg-switch-to-workgroup it))))
|
||||
|
||||
(evil-define-command +workspace:switch-left (&optional count)
|
||||
"Switch to the previous workspace on the right. If COUNT, switch to the workspace
|
||||
at that index counting from the end."
|
||||
(evil-define-command +workspace:switch-next (&optional count)
|
||||
"Switch to next workspace. If COUNT, switch to COUNT-th workspace."
|
||||
(interactive "<c>")
|
||||
(if count
|
||||
(+workspace/activate-at (- 0 count))
|
||||
(+workspace--switch-in-direction 'left)))
|
||||
(if count (+workspace/switch-to count) (+workspace/cycle +1)))
|
||||
|
||||
(evil-define-command +workspace:switch-right (&optional count)
|
||||
"Switch to the next workspace on the right. If COUNT, switch to the workspace
|
||||
at that index."
|
||||
(evil-define-command +workspace:switch-previous (&optional count)
|
||||
"Switch to previous workspace. If COUNT, switch to COUNT-th workspace."
|
||||
(interactive "<c>")
|
||||
(if count
|
||||
(+workspace/activate-at (max 0 (1- count)))
|
||||
(+workspace--switch-in-direction 'right))))
|
||||
(if count (+workspace/switch-to count) (+workspace/cycle -1))))
|
||||
|
||||
;;;###autoload
|
||||
(defun +workspace/kill-others ()
|
||||
"Kill all other workspaces, besides the current one."
|
||||
(interactive)
|
||||
(let (workgroup (wg-current-workgroup))
|
||||
(dolist (w (wg-session-workgroup-list (wg-current-session t)))
|
||||
(unless (wg-current-workgroup-p w)
|
||||
(wg-kill-workgroup w)))))
|
||||
|
||||
(defun workspace--display-inline (&optional suppress-update message message-face)
|
||||
(message "%s%s" (+workspace/display suppress-update t)
|
||||
(propertize message 'face message-face)))
|
||||
|
||||
;;;###autoload
|
||||
(defun +workspace/display (&optional suppress-update return-p message)
|
||||
"Display all the open workspaces in the minibuffer, like tabs."
|
||||
(interactive)
|
||||
(awhen (wg-current-session t)
|
||||
(unless (eq suppress-update t)
|
||||
(+workgroup--update-names (if (wg-workgroup-p suppress-update) suppress-update)))
|
||||
(let ((output (wg-display-internal
|
||||
(lambda (workgroup index)
|
||||
(if (not workgroup) wg-nowg-string
|
||||
(wg-element-display
|
||||
workgroup
|
||||
(format " [%d] %s " (1+ index) (wg-workgroup-name workgroup))
|
||||
'wg-current-workgroup-p)))
|
||||
(wg-session-workgroup-list it))))
|
||||
(if return-p
|
||||
output
|
||||
(message "%s%s" output (or message ""))))))
|
||||
|
||||
(defun +workgroup--update-names (&optional wg)
|
||||
(let ((wg (or wg (wg-current-workgroup))))
|
||||
(unless (member (wg-workgroup-uid wg) +workspace-names)
|
||||
(ignore-errors
|
||||
(let ((old-name (wg-workgroup-name wg))
|
||||
(new-name (f-filename (doom-project-root))))
|
||||
(unless (string= new-name old-name)
|
||||
(wg-rename-workgroup new-name wg)))))))
|
||||
|
||||
(defun +workspace--switch-in-direction (direction &optional count)
|
||||
(interactive "<c>")
|
||||
(assert (memq direction '(left right)))
|
||||
(condition-case err
|
||||
(progn
|
||||
(if count
|
||||
(wg-switch-to-workgroup-at-index (1- count))
|
||||
(funcall (intern (format "wg-switch-to-workgroup-%s" direction))))
|
||||
(+workspace/display t))
|
||||
(error (+workspace/display t nil (format "Nope! %s" (cadr err))))))
|
||||
|
||||
;;;###autoload
|
||||
(defun +workspace-switch-last ()
|
||||
"Switch to the last workspace."
|
||||
(interactive)
|
||||
(let ((count (length (wg-session-workgroup-list (wg-current-session t)))))
|
||||
(+workspace/activate-at (max 0 (1- count)))))
|
||||
|
||||
;;;###autoload
|
||||
(defun +workspace/activate-at (index)
|
||||
"Switch to a workspace at a given INDEX. A negative number will start from the
|
||||
end of the workspace list."
|
||||
(interactive)
|
||||
(+workgroup--update-names)
|
||||
(let ((wg-list (wg-workgroup-list-or-error)))
|
||||
(when (< index 0)
|
||||
(setq index (- (length wg-list) (abs index))))
|
||||
(let ((wg (nth index wg-list))
|
||||
msg)
|
||||
(if wg
|
||||
(unless (eq wg (wg-current-workgroup t))
|
||||
(wg-switch-to-workgroup-at-index index))
|
||||
(setq msg (format "No tab #%s" (1+ index))))
|
||||
(+workspace/display t nil msg))))
|
||||
|
||||
;;;###autoload
|
||||
(defun +workspace/undo ()
|
||||
(interactive)
|
||||
(call-interactively (if (wg-current-workgroup t) 'wg-undo-wconfig-change 'winner-undo)))
|
||||
|
||||
;;;###autoload
|
||||
(defun +workspace/redo ()
|
||||
(interactive)
|
||||
(call-interactively (if (wg-current-workgroup t) 'wg-redo-wconfig-change 'winner-redo)))
|
||||
|
||||
;;;###autoload
|
||||
(defun +workspace/new-frame ()
|
||||
"Create a new frame, and create a new, blank workgroup within it. Also ensure
|
||||
nlinum behaves in the process."
|
||||
(interactive)
|
||||
(let ((nlinum-p (and (featurep 'nlinum)
|
||||
(memq 'nlinum--setup-window window-configuration-change-hook))))
|
||||
;; Disable nlinum to fix elusive "invalid face linum" bug
|
||||
(remove-hook 'window-configuration-change-hook 'nlinum--setup-window t)
|
||||
(let ((frame (new-frame))
|
||||
(frame-name (format "*new-%s*" (length +workspace-frames))))
|
||||
(with-selected-frame frame
|
||||
(wg-create-workgroup frame-name t)
|
||||
(add-to-list '+workspace-frames (cons frame frame-name))))
|
||||
(when nlinum-p
|
||||
(add-hook 'window-configuration-change-hook 'nlinum--setup-window nil t))))
|
||||
|
||||
;;;###autoload
|
||||
(defun +workspace/close-frame ()
|
||||
(interactive)
|
||||
(let ((frame (assq (selected-frame) +workspace-frames)))
|
||||
(if frame
|
||||
(progn (wg-delete-workgroup (wg-get-workgroup (cdr frame)))
|
||||
(delete-frame (car frame)))
|
||||
(delete-frame))))
|
||||
|
||||
;;;###autoload
|
||||
(defun +workspace/or-window-close ()
|
||||
(interactive)
|
||||
(if (doom-popup-p)
|
||||
(doom/popup-close)
|
||||
(when (doom/kill-real-buffer)
|
||||
(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)
|
||||
(+workspace:delete))
|
||||
(evil-window-delete)))))
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue