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 ;; remove element from old-slot
(eyebrowse--delete-window-config 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, "Renumber existing window configs in integer order starting at 1,
maintaining the same relative order and tags." maintaining the same relative order and tags."
(interactive) (interactive)
(let* ((window-configs (eyebrowse--get 'window-configs)) (let* ((window-configs (eyebrowse--get 'window-configs))
(slots (mapcar 'car window-configs))) (slots (mapcar 'car window-configs))
(--each-indexed slots (eyebrowse-move-window-config it (1+ it-index))))) ;; 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 ;; 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