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

Fix remaining booleans

Browse Source
This commit is contained in:
Vasilij Schneidermann
2014-12-02 09:46:24 +01:00
parent c34a330509
commit cb80f990c9
2 changed files with 6 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
README.rst
View File

@ -67,7 +67,7 @@ Further Customization
Use ``M-x customize-group RET eyebrowse`` for a list of customizable Use ``M-x customize-group RET eyebrowse`` for a list of customizable
options. The more interesting ones would be options. The more interesting ones would be
``eyebrowse-wrap-around-p`` and ``eyebrowse-switch-back-and-forth-p`` ``eyebrowse-wrap-around`` and ``eyebrowse-switch-back-and-forth``
which affect both wrap around and lazier switching. which affect both wrap around and lazier switching.
The prefix for each binding defaults to ``C-c C-w``, but you can change The prefix for each binding defaults to ``C-c C-w``, but you can change

10
eyebrowse.el
View File

@ -280,7 +280,7 @@ The old element is identified by the first element of NEW-ELEMENT."
"Switch to the window config SLOT. "Switch to the window config SLOT.
This will save the current window config to This will save the current window config to
`eyebrowse-current-slot' first, then switch. If `eyebrowse-current-slot' first, then switch. If
`eyebrowse-switch-back-and-forth-p' is t and `eyebrowse-switch-back-and-forth' is t and
`eyebrowse-current-slot' equals SLOT, this will switch to the `eyebrowse-current-slot' equals SLOT, this will switch to the
last window config." last window config."
(interactive (list (eyebrowse-read-slot))) (interactive (list (eyebrowse-read-slot)))
@ -301,7 +301,7 @@ last window config."
(defun eyebrowse-next-window-config (count) (defun eyebrowse-next-window-config (count)
"Switch to the next available window config. "Switch to the next available window config.
If `eyebrowse-wrap-around-p' is t, this will switch from the last If `eyebrowse-wrap-around' is t, this will switch from the last
to the first one. When used with a numerical argument, switch to to the first one. When used with a numerical argument, switch to
window config COUNT." window config COUNT."
(interactive "P") (interactive "P")
@ -314,13 +314,13 @@ window config COUNT."
(if (< (1+ index) (length window-configs)) (if (< (1+ index) (length window-configs))
(eyebrowse-switch-to-window-config (eyebrowse-switch-to-window-config
(car (nth (1+ index) window-configs))) (car (nth (1+ index) window-configs)))
(when eyebrowse-wrap-around-p (when eyebrowse-wrap-around
(eyebrowse-switch-to-window-config (eyebrowse-switch-to-window-config
(caar window-configs)))))))) (caar window-configs))))))))
(defun eyebrowse-prev-window-config (count) (defun eyebrowse-prev-window-config (count)
"Switch to the previous available window config. "Switch to the previous available window config.
If `eyebrowse-wrap-around-p' is t, this will switch from the If `eyebrowse-wrap-around' is t, this will switch from the
first to the last one. When used with a numerical argument, first to the last one. When used with a numerical argument,
switch COUNT window configs backwards and always wrap around." switch COUNT window configs backwards and always wrap around."
(interactive "P") (interactive "P")
@ -336,7 +336,7 @@ switch COUNT window configs backwards and always wrap around."
(if (> index 0) (if (> index 0)
(eyebrowse-switch-to-window-config (eyebrowse-switch-to-window-config
(car (nth (1- index) window-configs))) (car (nth (1- index) window-configs)))
(when eyebrowse-wrap-around-p (when eyebrowse-wrap-around
(eyebrowse-switch-to-window-config (eyebrowse-switch-to-window-config
(caar (last window-configs))))))))) (caar (last window-configs)))))))))