Skip to content

Handle Dired(+) buffers #45

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
juergenhoetzel wants to merge 8 commits into
base: master
Choose a base branch
from
Open

Handle Dired(+) buffers #45

Show file tree
Hide file tree
Changes from all commits
Commits
Show all changes
8 commits
Select commit Hold shift + click to select a range
f343220
Handle Dired buffers correctly
juergenhoetzel May 28, 2013
dacdd8e
Keep wg-list in MRU order
juergenhoetzel May 28, 2013
2edc64d
Merge pull request #1 from juergenhoetzel/master
juergenhoetzel May 28, 2013
0559dd3
Fix Repository URLs
juergenhoetzel May 29, 2013
39bc0d7
correct a typo
got-dna Feb 12, 2013
b70b419
Revert dacdd8e (Keep wg-list) in MRU order
juergenhoetzel May 29, 2013
dbdf557
`wg-read-workgroup': Start list of choices with wg-previous-workgroup
juergenhoetzel May 29, 2013
101d954
`wg-switch-to-window-buffer': use unique buffer names
juergenhoetzel May 30, 2013
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
8 changes: 4 additions & 4 deletions README.md
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -67,9 +67,9 @@ things like frame morphing, window moving, frame reversing and other operations.
## Getting Workgroups

The latest version of Workgroups can always be found
[here](http://github.com/tlh/workgroups.el). You can clone the repo by running:
[here](http://github.com/workgroups/workgroups.el). You can clone the repo by running:

git clone git://github.com/tlh/workgroups.el
git clone git://github.com/workgroups/workgroups.el

Workgroups is being actively developed. Later on, when you want to update to
the latest:
Expand Down Expand Up @@ -366,13 +366,13 @@ To bring up a help buffer listing all the commands and their bindings, hit
## Feature Requests

Feature requests, like other parameters you'd like Workgroups to persist, should
be added to the [wiki](http://github.com/tlh/workgroups.el/wiki)
be added to the [wiki](http://github.com/workgroups/workgroups.el/wiki)


## Reporting Bugs

If you encounter a bug in Workgroups, please file an issue
[here](http://github.com/tlh/workgroups.el/issues). If possible, please include
[here](http://github.com/workgroups/workgroups.el/issues). If possible, please include
a stack-trace and the value of `wg-list`.


Expand Down
16 changes: 11 additions & 5 deletions workgroups.el
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -941,7 +941,7 @@ EWIN should be an Emacs window object."
`((type . window)
(edges . ,(window-edges ewin))
(bname . ,(buffer-name))
(fname . ,(buffer-file-name))
(fname . ,(or (buffer-file-name) default-directory))
(point . ,(wg-window-point ewin))
(mark . ,(mark))
(markx . ,mark-active)
Expand Down Expand Up @@ -1003,7 +1003,7 @@ Return the buffer if it was found, nil otherwise."
(wg-abind win (fname bname)
(cond ((and fname (file-exists-p fname))
(find-file fname)
(rename-buffer bname)
(rename-buffer bname t)
(current-buffer))
((wg-awhen (get-buffer bname) (switch-to-buffer it)))
(t (switch-to-buffer wg-default-buffer) nil))))
Expand Down Expand Up @@ -1471,7 +1471,11 @@ Query to overwrite if a workgroup with the same name exists."
(defun wg-read-workgroup (&optional noerror)
"Read a workgroup with `wg-completing-read'."
(wg-get-workgroup
'name (wg-completing-read "Workgroup: " (wg-names))
'name (wg-completing-read "Workgroup: "
;; move previous workgroup on front of choices
(wg-aif (wg-previous-workgroup t)
(wg-move-elt (wg-name it) (wg-names) 0)
(wg-names)))
noerror))

(defun wg-read-buffer-name ()
Expand Down Expand Up @@ -2048,13 +2052,15 @@ The string is passed through a format arg to escape %'s."
(defun wg-help ()
"Display Workgroups' help buffer."
(interactive)
(with-output-to-temp-buffer "*workroups help*"
(let ((wg-help-buffer-name "*workgroups help*"))
(with-output-to-temp-buffer wg-help-buffer-name
(princ "Workgroups' keybindings:\n\n")
(dolist (elt (wg-partition wg-help 2))
(wg-dbind (cmd help-string) elt
(princ (format "%15s %s\n"
(substitute-command-keys cmd)
help-string))))))
help-string)))))
(pop-to-buffer (get-buffer wg-help-buffer-name))))


;;; keymap
Expand Down