[elpa] externals/vertico 5f12a6f: vertico--exhibit: Disable undo list (Fix #55)
branch: externals/vertico commit 5f12a6f87703ddb32ca85d5f2d0a8ce61d25d6d8 Author: Daniel Mendler Commit: Daniel Mendler vertico--exhibit: Disable undo list (Fix #55) --- vertico.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/vertico.el b/vertico.el index 3f02682..ea52471 100644 --- a/vertico.el +++ b/vertico.el @@ -470,7 +470,8 @@ (defun vertico--exhibit () "Exhibit completion UI." (vertico--tidy-shadowed-file) - (let* ((pt (max 0 (- (point) (minibuffer-prompt-end + (let* ((buffer-undo-list t) ;; Overlays affect point position and undo list! + (pt (max 0 (- (point) (minibuffer-prompt-end (content (minibuffer-contents-no-properties)) (before (substring content 0 pt)) (after (substring content pt))
[elpa] externals/vertico 8d12bc2: vertico-next/previous, vertico-scroll-up/down: Add a prefix argument
branch: externals/vertico commit 8d12bc232eee05f6f575003dc6affce62b835f8a Author: Miha Rihtaršič Commit: Daniel Mendler vertico-next/previous, vertico-scroll-up/down: Add a prefix argument --- vertico.el | 50 +- 1 file changed, 25 insertions(+), 25 deletions(-) diff --git a/vertico.el b/vertico.el index ea52471..3a2f75b 100644 --- a/vertico.el +++ b/vertico.el @@ -520,31 +520,31 @@ (interactive) (vertico--goto (1- vertico--total))) -(defun vertico-scroll-down () - "Go back by one page." - (interactive) - (vertico--goto (max 0 (- vertico--index vertico-count - -(defun vertico-scroll-up () - "Go forward by one page." - (interactive) - (vertico--goto (+ vertico--index vertico-count))) - -(defun vertico-next () - "Go to next candidate." - (interactive) - (vertico--goto - (if (and vertico-cycle (= (1+ vertico--index) vertico--total)) - -1 - (1+ vertico--index - -(defun vertico-previous () - "Go to previous candidate." - (interactive) - (vertico--goto - (if (and vertico-cycle (= vertico--index (if (vertico--allow-prompt-selection-p) -1 0))) - (1- vertico--total) - (1- vertico--index +(defun vertico-scroll-down (&optional n) + "Go back by N pages." + (interactive "p") + (vertico--goto (max 0 (- vertico--index (* (or n 1) vertico-count) + +(defun vertico-scroll-up (&optional n) + "Go forward by N pages." + (interactive "p") + (vertico-scroll-down (- (or n 1 + +(defun vertico-next (&optional n) + "Go forward N candidates." + (interactive "p") + (let ((index (+ vertico--index (or n 1 +(vertico--goto + (cond + ((not vertico-cycle) index) + ((= vertico--total 0) -1) + ((vertico--allow-prompt-selection-p) (1- (mod (1+ index) (1+ vertico--total + (t (mod index vertico--total)) + +(defun vertico-previous (&optional n) + "Go backward N candidates." + (interactive "p") + (vertico-next (- (or n 1 (defun vertico-exit (&optional arg) "Exit minibuffer with current candidate or input if prefix ARG is given."
[elpa] externals/vertico d693499: vertico-next/previous-group: Add numeric prefix argument
branch: externals/vertico commit d69349908c9ff22a53b48de4d8932215c8246be0 Author: Daniel Mendler Commit: Daniel Mendler vertico-next/previous-group: Add numeric prefix argument --- vertico.el | 45 + 1 file changed, 25 insertions(+), 20 deletions(-) diff --git a/vertico.el b/vertico.el index 3a2f75b..d3a5238 100644 --- a/vertico.el +++ b/vertico.el @@ -561,31 +561,36 @@ (exit-minibuffer) (message "Match required" -(defun vertico--goto-group (next) - "Move to next group if NEXT is non-nil, otherwise move to previous group." +(defun vertico-next-group (&optional n) + "Move N groups forward." + (interactive "p") + (setq n (or n 1)) (let* ((end (minibuffer-prompt-end)) (metadata (completion-metadata (buffer-substring end (max end (point))) minibuffer-completion-table minibuffer-completion-predicate)) (group-fun (or (completion-metadata-get metadata 'group-function) #'ignore)) - (orig-index vertico--index)) -(while (let ((last-index vertico--index)) - (if next (vertico-next) (vertico-previous)) - (if (or (= vertico--index orig-index) (= vertico--index last-index)) - (and (vertico--goto orig-index) nil) - (and (> vertico--index 0) -(equal (funcall group-fun (nth (1- vertico--index) vertico--candidates) nil) - (funcall group-fun (nth vertico--index vertico--candidates) nil - -(defun vertico-next-group () - "Move to next group." - (interactive) - (vertico--goto-group 'next)) - -(defun vertico-previous-group () - "Move to previous group." - (interactive) - (vertico--goto-group nil)) + (step (if (> n 0) 1 -1)) + (start-index vertico--index) + last-index) +(setq n (abs n)) +(while (> n 0) + (setq last-index vertico--index) + (vertico-next step) + (cond + ((or (= vertico--index last-index) (= vertico--index start-index)) +(vertico--goto start-index) +(setq n 0)) + ((or (<= vertico--index 0) +(not (equal (funcall group-fun (nth (1- vertico--index) vertico--candidates) nil) +(funcall group-fun (nth vertico--index vertico--candidates) nil +(setq n (1- n) + start-index vertico--index)) + +(defun vertico-previous-group (&optional n) + "Move N groups backward." + (interactive "p") + (vertico-next-group (- (or n 1 (defun vertico-exit-input () "Exit minibuffer with input."
[nongnu] elpa/org-contrib 7d7e76b 1/2: lisp/org-velocity.el: Add a Homepage header
branch: elpa/org-contrib commit 7d7e76b6fd02f47b7ebc72a740b545da67f758a5 Author: Bastien Guerry Commit: Bastien Guerry lisp/org-velocity.el: Add a Homepage header --- lisp/org-velocity.el | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/lisp/org-velocity.el b/lisp/org-velocity.el index e018b54..5e6f4b4 100644 --- a/lisp/org-velocity.el +++ b/lisp/org-velocity.el @@ -3,7 +3,8 @@ ;; Copyright (C) 2010-2014, 2021 Paul M. Rodriguez ;; Author: Paul M. Rodriguez -;; Maintainer: Marco Wahl +;; Maintainer: Paul M. Rodriguez +;; Homepage: https://github.com/ruricolist/org-velocity ;; Created: 2010-05-05 ;; Version: 4.1
[nongnu] elpa/org-contrib updated (e489046 -> fc81309)
elpasync pushed a change to branch elpa/org-contrib. from e489046 lisp/ox-koma-letter.el: Add a maintainer new 7d7e76b lisp/org-velocity.el: Add a Homepage header new fc81309 Add org-velocity to the list of files to remove Summary of changes: README.md| 1 + README.org | 1 + lisp/org-velocity.el | 3 ++- 3 files changed, 4 insertions(+), 1 deletion(-)
[nongnu] elpa/org-contrib fc81309 2/2: Add org-velocity to the list of files to remove
branch: elpa/org-contrib commit fc81309cf6756607a836f93049a9393c2967c4e0 Author: Bastien Guerry Commit: Bastien Guerry Add org-velocity to the list of files to remove --- README.md | 1 + README.org | 1 + 2 files changed, 2 insertions(+) diff --git a/README.md b/README.md index 89c65d6..ab941e3 100644 --- a/README.md +++ b/README.md @@ -50,6 +50,7 @@ find after the "Homepage:" keyword in the files themselves: - **ob-clojure-literate.el:** Clojure's Org-mode Literate Programming - **ox-rss.el:** RSS 2.0 Back-End for Org Export Engine - **org-attach-embedded-images.el:** Transmute images to attachments +- **org-velocity.el:** something like Notational Velocity for Org # Other files diff --git a/README.org b/README.org index 0a373e0..baa011f 100644 --- a/README.org +++ b/README.org @@ -47,6 +47,7 @@ find after the "Homepage:" keyword in the files themselves: - ob-clojure-literate.el :: Clojure's Org-mode Literate Programming - ox-rss.el :: RSS 2.0 Back-End for Org Export Engine - org-attach-embedded-images.el :: Transmute images to attachments +- org-velocity.el :: something like Notational Velocity for Org ** Other files *** Org utils
[elpa] externals/corfu c67dbaf: Take window-tab-line-height into account (Fix #25)
branch: externals/corfu commit c67dbafdf7ab3efd61a34df4ab4bdee93723a852 Author: Daniel Mendler Commit: Daniel Mendler Take window-tab-line-height into account (Fix #25) --- corfu.el | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/corfu.el b/corfu.el index 84aa10d..8528962 100644 --- a/corfu.el +++ b/corfu.el @@ -222,7 +222,7 @@ Set to nil in order to disable confirmation." (x (max 0 (min (+ (car edge) x (- (alist-get 'child-frame-border-width corfu--frame-parameters))) (- (frame-pixel-width) width - (yb (+ (cadr edge) y lh)) + (yb (+ (cadr edge) (window-tab-line-height) y lh)) (y (if (> (+ yb height lh lh) (frame-pixel-height)) (- yb height lh 1) yb))
[elpa] externals/javaimp 09c93e4: * javaimp-parse.el: Improve handling of ws / comments
branch: externals/javaimp commit 09c93e43a246b04a9737f2aea558aeaa67dc8974 Author: Filipp Gunbin Commit: Filipp Gunbin * javaimp-parse.el: Improve handling of ws / comments --- javaimp-parse.el | 202 +++ javaimp-tests.el | 88 +++- 2 files changed, 172 insertions(+), 118 deletions(-) diff --git a/javaimp-parse.el b/javaimp-parse.el index 89f5e0d..df5df2a 100644 --- a/javaimp-parse.el +++ b/javaimp-parse.el @@ -45,12 +45,6 @@ present." "static";static initializer block )) -(defconst javaimp--parse-class-re - (concat - (regexp-opt javaimp--parse-class-keywords 'words) - (rx (and (+ (syntax whitespace)) -(group (+ (any alnum ?_))) - (defsubst javaimp--parse-is-class (scope) (member (symbol-name (javaimp-scope-type scope)) javaimp--parse-class-keywords)) @@ -74,67 +68,89 @@ present." (goto-char (point-max)) (ignore-errors (let (res) -(while (not (bobp)) +(while (progn + (javaimp--parse-skip-back-until) + (not (bobp))) (push (javaimp--parse-arglist-one-arg only-type) res) ;; move back to the previous argument, if any - (when (javaimp--parse-arglist-until (lambda () -(and (not (bobp)) - (= (char-before) ?, -(backward-char))) + (when (javaimp--parse-skip-back-until (lambda (last-what last-pos) + (and (not (bobp)) + (= (char-before) ?, +(backward-char))) ; skip comma res)) (defun javaimp--parse-arglist-one-arg (only-type) - ;; Parse one argument as type and name backwards starting from point - ;; and return it in the form (TYPE . NAME). Name is skipped if - ;; ONLY-TYPE is non-nil. Leave point at where the job is done: - ;; skipping further backwards is done by the caller. + "Parse one argument as type and name backwards starting from +point and return it in the form (TYPE . NAME). Name is skipped +if ONLY-TYPE is non-nil. Leave point at where the job is done: +skipping further backwards is done by the caller." (let ((limit (progn - (skip-syntax-backward "-") + (javaimp--parse-skip-back-until) (point))) name) ;; Parse name (unless only-type (if (= 0 (skip-syntax-backward "w_")) - (error "Cannot parse argument name")) - (setq name (buffer-substring-no-properties (point) limit)) - (skip-syntax-backward "-") - (setq limit (point))) + (error "Cannot parse argument name") +(setq name (buffer-substring-no-properties (point) limit)) +(javaimp--parse-skip-back-until) +(setq limit (point ;; Parse type: allow anything, but stop at the word boundary which ;; is not inside list (this is presumably the type start..) -(if (javaimp--parse-arglist-until (lambda () -(save-excursion - (skip-syntax-forward "-" limit) - (looking-at "\\_<" +(if-let ((last-skip + (javaimp--parse-skip-back-until (lambda (last-what last-pos) +(save-excursion + (if last-pos (goto-char last-pos)) + (looking-at "\\_<")) (progn - (skip-syntax-forward "-") ;undo skipping by ..-until + (unless (eq last-skip t) +(goto-char (cdr last-skip))) ;undo skipping by ..-until (let ((type (replace-regexp-in-string "[[:space:]\n]+" " " (buffer-substring-no-properties (point) limit (cons type name))) (error "Cannot parse argument type" -(defun javaimp--parse-arglist-until (stop-p) - ;; Goes backwards until position at which STOP-P returns non-nil. - ;; Returns non-nil if stopped on this condition, nil if reached bob. - ;; STOP-P is invoked (possibly at the bob) without arguments and - ;; should not move point. Backward movement also skips any - ;; whitespace, so STOP-P looking forward should be prepared to - ;; see leading whitespace. +(defun javaimp--parse-skip-back-until (&optional stop-p) + "Goes backwards until position at which STOP-P returns non-nil, or reaching bob. + +STOP-P is invoked with two arguments which describe the last +non-ws thing skipped: LAST-WHAT (symbol - either 'list' or +'char') and LAST-POS. If STOP-P returns non-nil, then the return +value is also non-nil: either (LAST-WHAT . LAST-PO
[elpa] externals/vc-hgcmd c00d792: Add ELPA badge
branch: externals/vc-hgcmd commit c00d792b34219a387832f8f9b4a689d7972f592a Author: Andrii Kolomoiets Commit: GitHub Add ELPA badge --- README.md | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/README.md b/README.md index 833d5ed..d494fee 100644 --- a/README.md +++ b/README.md @@ -1,4 +1,5 @@ [](http://www.gnu.org/copyleft/gpl.html) +[](http://elpa.gnu.org/packages/vc-hgcmd.html) [](http://melpa.org/#/vc-hgcmd) [](http://stable.melpa.org/#/vc-hgcmd) @@ -108,7 +109,7 @@ Command `vc-hgcmd-print-log-revset` allows to print log for revset, e.g. `branch ### 1. Install package -`vc-hgcmd` available on [MELPA](http://melpa.org): +`vc-hgcmd` available on [ELPA](http://elpa.gnu.org) and [MELPA](http://melpa.org): M-x `package-install` RET `vc-hgcmd` RET.
