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

Rename and improve renumber command

Browse Source
This commit is contained in:
Vasilij Schneidermann
2024-04-07 15:40:42 +02:00
committed by Seth Ladygo
parent 551eb152f8
commit 67047df970
1 changed files with 7 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
eyebrowse.el
View File

@ -539,13 +539,17 @@ prompt shown if none is given."
;; remove element from old-slot
(eyebrowse--delete-window-config old-slot)))))
(defun eyebrowse-consolidate-window-configs ()
(defun eyebrowse-renumber-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)))))
(slots (mapcar 'car window-configs))
;; NOTE: pick either the smallest slot or 1, whichever is lower
(slot-index (min (or (car slots) 1) 1)))
(dolist (slot slots)
(eyebrowse-move-window-config slot slot-index)
(setq slot-index (1+ slot-index)))))
;; NOTE I've tried out generating the respective commands dynamically
;; with a macro, but this ended in unreadable code and Emacs not being