diff options
| author |  Tom Willemse | 2013-08-07 15:10:08 +0200 |
|---|---|---|
| committer | Tom Willemse | 2013-08-07 15:10:08 +0200 |
| commit | 2fffd8cc37ac7f506b0add172221a4b86fdc1332 (patch) | |
| tree | 2a309c7f59943af0ac7ca46e363fb4e2df244114 /desktop-registry.el | |
| parent | 395277047e36bf3135f019a83bca0d40acd2afde (diff) | |
| download | desktop-registry-2fffd8cc37ac7f506b0add172221a4b86fdc1332.tar.gz desktop-registry-2fffd8cc37ac7f506b0add172221a4b86fdc1332.zip | |
Add desktop-registry-rename-desktop
* desktop-registry.el (desktop-registry-rename-desktop): New function.
Diffstat (limited to 'desktop-registry.el')
| -rw-r--r-- | desktop-registry.el | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/desktop-registry.el b/desktop-registry.el index 71c8b4b..c4393b2 100644 --- a/desktop-registry.el +++ b/desktop-registry.el @@ -96,6 +96,18 @@ Returns an empty string when `desktop-dirname' is nil." (error "Unknown desktop: %s" desktop)))) ;;;###autoload +(defun desktop-registry-rename-desktop (old new) + "Rename DESKTOP." + (interactive (list (desktop-registry--completing-read) + (read-string "to: "))) + (let ((spec (assoc old desktop-registry-registry))) + (if (not spec) + (error "Unknown desktop: %s" old) + (setf (car spec) new) + (customize-save-variable 'desktop-registry-registry + desktop-registry-registry)))) + +;;;###autoload (defun desktop-registry-change-desktop (name) "Change to the desktop named NAME." (interactive (list (desktop-registry--completing-read))) |