Skip to content

Use ido-mode when loading desktops #8

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Open
TobiMarg wants to merge 3 commits into
base: master
Choose a base branch
from
Open

Use ido-mode when loading desktops #8

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
3 commits
Select commit Hold shift + click to select a range
ef517fa
Add support for ido-mode
TobiMarg Dec 21, 2015
36f68c9
Update documentation to mention `desktop+-use-ido`
TobiMarg Dec 21, 2015
9849e1d
Fix misspelled variable name
TobiMarg Dec 21, 2015
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
2 changes: 2 additions & 0 deletions README.md
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -117,6 +117,8 @@ $ emacs-desktop
indirect-buffer))
```

- `desktop+-use-ido`: whether to use ido-mode for completing desktop names. The default is not to use ido (`nil`). To enable it you can use: `(setq desktop+-use-ido t)`.


## API

Expand Down
16 changes: 12 additions & 4 deletions desktop+.el
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -72,6 +72,9 @@ This function must accept the desktop name as a string argument
and return a frame title format suitable for setting
`frame-title-format'")

(defvar desktop+-use-ido nil
"Whether to use ido-mode.")

;; ** Entry points

;;;###autoload
Expand Down Expand Up @@ -109,10 +112,15 @@ As a special case, if NAME is left blank, the session is
automatically named after the current working directory."
(interactive
(list
(completing-read "Desktop name: "
(remove "."
(remove ".."
(directory-files desktop+-base-dir))))))
(if desktop+-use-ido
(ido-completing-read "Desktop name: "
(remove "."
(remove ".."
(directory-files desktop+-base-dir))))
(completing-read "Desktop name: "
(remove "."
(remove ".."
(directory-files desktop+-base-dir)))))))
(desktop-change-dir (desktop+--dirname name))
(desktop+--set-frame-title)
(desktop-save-mode 1))
Expand Down