alx/eyebrowse
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Functions to move & consolidate window configs

Browse Source 
Add `eyebrowse-move-window-config` to move an existing window config
from one slot to another, and `eyebrowse-consolidate-window-configs` to
defrag existing slots if there are any gaps left after closing some.
The latter is suitable to use as a hook:

    (add-hook 'eyebrowse-post-window-delete-hook 'eyebrowse-consolidate-window-configs)
This commit is contained in:
Jim Wisniewski
2023-02-05 01:50:53 -05:00
committed by Seth Ladygo
parent 4e4fe84202
commit 551eb152f8
1 changed files with 46 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

46
eyebrowse.el
View File

@ -501,6 +501,52 @@ prefix argument to select a slot by its number."
(tag (or tag (read-string "Tag: " current-tag)))) (tag (or tag (read-string "Tag: " current-tag))))
(setf (nth 2 window-config) tag))) (setf (nth 2 window-config) tag)))
(defun eyebrowse-move-window-config (old-slot new-slot &optional overwrite-existing)
"Move a window config from OLD-SLOT to NEW-SLOT.
Signal an error if OLD-SLOT is not occupied, or if NEW-SLOT is
already occupied and OVERWRITE-EXISTING is nil.
When used interactively, move the current window config to the
slot given as a numerical prefix argument, or in response to the
prompt shown if none is given."
(interactive (list (eyebrowse--get 'current-slot)
(if (numberp current-prefix-arg)
current-prefix-arg
(read-number "Move to slot: "
(eyebrowse-free-slot
(mapcar 'car (eyebrowse--get 'window-configs)))))))
(when (/= old-slot new-slot)
(let ((new-slot-exists (eyebrowse--window-config-present-p new-slot)))
(unless (eyebrowse--window-config-present-p old-slot)
(user-error "No window configuration in slot %d" old-slot))
(when (and new-slot-exists (not overwrite-existing))
(user-error "Window configuration already exists in slot %d" new-slot))
(let* ((current-slot (eyebrowse--get 'current-slot))
(last-slot (eyebrowse--get 'last-slot))
(window-configs (eyebrowse--get 'window-configs))
(old-config-element (assoc old-slot window-configs))
(new-config-element (cons new-slot (cdr old-config-element))))
;; write existing config+tag to new-slot
(if new-slot-exists
(eyebrowse--update-window-config-element new-config-element)
(eyebrowse--insert-in-window-config-list new-config-element))
;; update current-slot if equal to old-slot
(when (= current-slot old-slot)
(eyebrowse--set 'current-slot new-slot))
;; update last-slot if equal to old-slot
(when (= last-slot old-slot)
(eyebrowse--set 'last-slot new-slot))
;; remove element from old-slot
(eyebrowse--delete-window-config old-slot)))))
(defun eyebrowse-consolidate-window-configs ()
"Renumber existing window configs in integer order starting at 1,
maintaining the same relative order and tags."
(interactive)
(let* ((window-configs (eyebrowse--get 'window-configs))
(slots (mapcar 'car window-configs)))
(--each-indexed slots (eyebrowse-move-window-config it (1+ it-index)))))
;; NOTE I've tried out generating the respective commands dynamically ;; NOTE I've tried out generating the respective commands dynamically
;; with a macro, but this ended in unreadable code and Emacs not being ;; with a macro, but this ended in unreadable code and Emacs not being
;; able to locate the generated commands, using lexical binding and a ;; able to locate the generated commands, using lexical binding and a