[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/ivy-explorer d69c816 19/25: Respect ivy-use-selectable-
From: |
Stefan Monnier |
Subject: |
[elpa] externals/ivy-explorer d69c816 19/25: Respect ivy-use-selectable-prompt |
Date: |
Tue, 8 Jan 2019 12:25:58 -0500 (EST) |
branch: externals/ivy-explorer
commit d69c816c366c198c49505e7495fd2ceb7d4fd914
Author: Clemera <address@hidden>
Commit: Clemera <address@hidden>
Respect ivy-use-selectable-prompt
---
ivy-explorer.el | 23 +++++++++++++++--------
1 file changed, 15 insertions(+), 8 deletions(-)
diff --git a/ivy-explorer.el b/ivy-explorer.el
index 562a265..76ae3a3 100644
--- a/ivy-explorer.el
+++ b/ivy-explorer.el
@@ -4,7 +4,7 @@
;; Author: Clemens Radermacher <address@hidden>
;; URL: https://github.com/clemera/ivy-explorer
-;; Version: 0.1.1
+;; Version: 0.1.2
;; Package-Requires: ((emacs "25") (ivy "0.10.0"))
;; Keywords: convenience, files, matching
@@ -320,11 +320,14 @@ If called from code ACTION is the action to trigger
afterwards."
(defun ivy-explorer-next (arg)
"Move cursor vertically down ARG candidates."
(interactive "p")
- (let ((n (* arg ivy-explorer--col-n))
- (max (1- ivy--length)))
+ (let* ((n (* arg ivy-explorer--col-n))
+ (max (1- ivy--length))
+ (colmax (- max (% (- max ivy--index) n))))
(ivy-set-index
- (min (- max (% (- max ivy--index) n))
- (+ ivy--index n)))))
+ (if (= ivy--index -1)
+ 0
+ (min colmax
+ (+ ivy--index n))))))
(defun ivy-explorer-next-and-call (arg)
"Move cursor down ARG candidates.
@@ -337,10 +340,14 @@ Call the permanent action if possible."
(defun ivy-explorer-previous (arg)
"Move cursor vertically up ARG candidates."
(interactive "p")
- (let ((n (* arg ivy-explorer--col-n)))
+ (let* ((n (* arg ivy-explorer--col-n))
+ (colmin (% ivy--index n)))
(ivy-set-index
- (max (% ivy--index n)
- (- ivy--index n)))))
+ (if (and (= ivy--index 0)
+ ivy-use-selectable-prompt)
+ -1
+ (max colmin
+ (- ivy--index n))))))
(defun ivy-explorer-previous-and-call (arg)
"Move cursor up ARG candidates.
- [elpa] externals/ivy-explorer 0139dad 03/25: Add demo and description, (continued)
- [elpa] externals/ivy-explorer 0139dad 03/25: Add demo and description, Stefan Monnier, 2019/01/08
- [elpa] externals/ivy-explorer d298de9 13/25: Change heading, Stefan Monnier, 2019/01/08
- [elpa] externals/ivy-explorer 4916592 22/25: Inherit separator face from `lv`, Stefan Monnier, 2019/01/08
- [elpa] externals/ivy-explorer 26b8bca 14/25: Improve description, Stefan Monnier, 2019/01/08
- [elpa] externals/ivy-explorer e5148ba 21/25: Address changes according to https://github.com/melpa/melpa/pull/5850#issuecomment-445474712, Stefan Monnier, 2019/01/08
- [elpa] externals/ivy-explorer bfcc67a 15/25: Rebind ivy-avy to ivy-explorer version, Stefan Monnier, 2019/01/08
- [elpa] externals/ivy-explorer a673278 24/25: Add melpa badges and install instructions, Stefan Monnier, 2019/01/08
- [elpa] externals/ivy-explorer 783816a 25/25: Fixes #2, Stefan Monnier, 2019/01/08
- [elpa] externals/ivy-explorer 016fca0 20/25: Add note about counsel, Stefan Monnier, 2019/01/08
- [elpa] externals/ivy-explorer 05477ee 09/25: Adjust according to checkdoc, Stefan Monnier, 2019/01/08
- [elpa] externals/ivy-explorer d69c816 19/25: Respect ivy-use-selectable-prompt,
Stefan Monnier <=
- [elpa] externals/ivy-explorer dd66fbf 17/25: Improve description, Stefan Monnier, 2019/01/08
- [elpa] externals/ivy-explorer 8bd4d0f 01/25: Initial commit, Stefan Monnier, 2019/01/08
- [elpa] externals/ivy-explorer 212f8d2 23/25: Use fallback to border face if lv not installed, Stefan Monnier, 2019/01/08
- [elpa] externals/ivy-explorer 18b11ba 11/25: Fix unused argument, Stefan Monnier, 2019/01/08