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

Allow to specify the tag when renaming a workspace

Browse Source
This commit is contained in:
Vasilij Schneidermann
2015-11-20 22:25:59 +01:00
parent 63ccc2948f
commit 35b5c5b579
1 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
eyebrowse.el
View File

@ -380,8 +380,8 @@ another appropriate window config."
(eyebrowse-next-window-config nil)) (eyebrowse-next-window-config nil))
(eyebrowse--delete-window-config (eyebrowse--get 'last-slot))))) (eyebrowse--delete-window-config (eyebrowse--get 'last-slot)))))
(defun eyebrowse-rename-window-config (slot) (defun eyebrowse-rename-window-config (slot tag)
"Rename the window config at SLOT. "Rename the window config at SLOT to TAG.
When used interactively, default to the current window config, When used interactively, default to the current window config,
use the prefix argument to prompt for a slot or a numerical use the prefix argument to prompt for a slot or a numerical
prefix argument to select a slot by its number." prefix argument to select a slot by its number."
@ -390,11 +390,12 @@ prefix argument to select a slot by its number."
(eyebrowse--read-slot)) (eyebrowse--read-slot))
((numberp current-prefix-arg) ((numberp current-prefix-arg)
current-prefix-arg) current-prefix-arg)
(t (eyebrowse--get 'current-slot))))) (t (eyebrowse--get 'current-slot)))
nil))
(let* ((window-configs (eyebrowse--get 'window-configs)) (let* ((window-configs (eyebrowse--get 'window-configs))
(window-config (assoc slot window-configs)) (window-config (assoc slot window-configs))
(current-tag (nth 2 window-config)) (current-tag (nth 2 window-config))
(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)))
;; NOTE I've tried out generating the respective commands dynamically ;; NOTE I've tried out generating the respective commands dynamically