[nongnu] elpa/cider 0e55036a6c 1/7: Remove mismatched closing paren

[ELPA Syncer]

branch: elpa/cider
commit 0e55036a6c20d8ecbadf30bdc0f836ab1bdc6fd2
Author: Bozhidar Batsov 
Commit: Bozhidar Batsov 

Remove mismatched closing paren
---
 cider-stacktrace.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/cider-stacktrace.el b/cider-stacktrace.el
index 8d3f4ca67e..9ff1970b65 100644
--- a/cider-stacktrace.el
+++ b/cider-stacktrace.el
@@ -51,7 +51,7 @@ If nil, messages will not be wrapped.  If truthy but 
non-numeric,
   :type '(radio
   (integer :tag "Fill Column")
   (const :tag "None" nil)
-  (const :tag "Use default fill-column" t)))
+  (const :tag "Use default fill-column" t))
   :package-version '(cider . "0.7.0"))
 
 (defcustom cider-stacktrace-default-filters '(tooling dup)

[nongnu] elpa/cider 2d04e9e716 3/7: Fix a couple of indentation problems

[ELPA Syncer]

branch: elpa/cider
commit 2d04e9e7166b486a98496acdf98f4ba9c3ac776b
Author: Bozhidar Batsov 
Commit: Bozhidar Batsov 

Fix a couple of indentation problems
---
 cider-eldoc.el  | 2 +-
 nrepl-client.el | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/cider-eldoc.el b/cider-eldoc.el
index 3a04f1df95..1cc4674f21 100644
--- a/cider-eldoc.el
+++ b/cider-eldoc.el
@@ -455,7 +455,7 @@ This includes the arglist and ns and symbol name (if 
available)."
(equal name-or-member "q"))
   (let ((arglists (cider-plist-get eldoc-plist 
"arglists")))
 (cider-plist-put eldoc-plist "arglists"
-   
(cider--eldoc-add-datomic-query-inputs-to-arglists arglists
+ 
(cider--eldoc-add-datomic-query-inputs-to-arglists arglists
  ;; if none of the clauses is successful, do cache the 
eldoc
  (t (setq cider-eldoc-last-symbol (list thing 
eldoc-plist
   ;; middleware eldoc lookups are expensive, so we
diff --git a/nrepl-client.el b/nrepl-client.el
index 17b2acd803..f056ff8b21 100644
--- a/nrepl-client.el
+++ b/nrepl-client.el
@@ -432,7 +432,7 @@ raw strings, not alphanumerics).
 [1] https://www.bittorrent.org/beps/bep_0003.html#bencoding";
   (let* ((sorted-keys (sort (nrepl-dict-keys dict)
 (lambda (a b)
- (string< a b
+  (string< a b
  (sorted-dict (nrepl-dict)))
 (dolist (k sorted-keys sorted-dict)
   (nrepl-dict-put sorted-dict
@@ -1325,7 +1325,7 @@ described by `nrepl-message-buffer-name-template'."
 ;; the time-stamps are quite useful for debugging
 (setq msg (cons (car msg)
 (cider-plist-put (cdr msg) "time-stamp"
-   (format-time-string "%Y-%m-%0d 
%H:%M:%S.%N"
+ (format-time-string "%Y-%m-%0d 
%H:%M:%S.%N"
 (with-current-buffer (nrepl-messages-buffer (current-buffer))
   (setq buffer-read-only nil)
   (when (> (buffer-size) nrepl-message-buffer-max-size)

[nongnu] elpa/cider c7fab5077c 2/7: Run the clojure-ts-mode tests only on Emacs 30+

[ELPA Syncer]

branch: elpa/cider
commit c7fab5077cdc6c0adfcd0615d45d7e75f17e45b0
Author: Bozhidar Batsov 
Commit: Bozhidar Batsov 

Run the clojure-ts-mode tests only on Emacs 30+
---
 .github/workflows/test.yml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/.github/workflows/test.yml b/.github/workflows/test.yml
index 4009ac7186..7b012716bf 100644
--- a/.github/workflows/test.yml
+++ b/.github/workflows/test.yml
@@ -114,6 +114,6 @@ jobs:
 eldev -p -dtTC test --test-type enrich || eldev -p -dtTC test 
--test-type enrich
 
 - name: Test clojure-ts-mode
-  if: startsWith (matrix.emacs_version, '29')
+  if: startsWith (matrix.emacs_version, '30')
   run: |
 eldev -p -dtTC test --test-type clojure-ts-mode || eldev -p -dtTC test 
--test-type clojure-ts-mode

[nongnu] elpa/cider baddbc5305 4/7: [#3606] Fix a couple of defcustom :type attributes

[ELPA Syncer]

branch: elpa/cider
commit baddbc5305fcefedec32d695524071cf84ac17df
Author: Bozhidar Batsov 
Commit: Bozhidar Batsov 

[#3606] Fix a couple of defcustom :type attributes
---
 cider-client.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/cider-client.el b/cider-client.el
index 29d3c67160..32cc63b3e7 100644
--- a/cider-client.el
+++ b/cider-client.el
@@ -250,7 +250,7 @@ Assuming this is the Clojure map you want to use as 
`cljfmt' options:
 you need to encode it as the following plist:
 
   \\='((\"indents\" ((\"org.me/foo\" ((\"inner\" 0) (\"alias-map\" 
((\"me\" \"org.me\""
-  :type 'list
+  :type '(repeat sexp)
   :group 'cider
   :package-version '(cider . "1.1.0"))
 
@@ -317,7 +317,7 @@ nil."
 Here's an example for `pprint':
 
   \\='((\"length\" 50) (\"right-margin\" 70))"
-  :type 'list
+  :type '(repeat sexp)
   :group 'cider
   :package-version '(cider . "0.21.0"))
 

[nongnu] elpa/cider cf84f85464 7/7: Fix condition-case invocation

[ELPA Syncer]

branch: elpa/cider
commit cf84f854649b3f4634173b696c527c7133ecd5c2
Author: Bozhidar Batsov 
Commit: Bozhidar Batsov 

Fix condition-case invocation
---
 cider-common.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/cider-common.el b/cider-common.el
index e038d209f8..9ab1aed56e 100644
--- a/cider-common.el
+++ b/cider-common.el
@@ -123,8 +123,9 @@ Use CALLBACK as the completing read var callback."
 (defun cider-try-symbol-at-point (prompt callback)
   "Call CALLBACK with symbol at point.
 On failure, read a symbol name using PROMPT and call CALLBACK with that."
-  (condition-case nil (funcall callback (cider--kw-to-symbol 
(cider-symbol-at-point 'look-back)))
-('error (funcall callback (cider-read-from-minibuffer prompt)
+  (condition-case nil
+  (funcall callback (cider--kw-to-symbol (cider-symbol-at-point 
'look-back)))
+(error (funcall callback (cider-read-from-minibuffer prompt)
 
 (declare-function cider-mode "cider-mode")
 

[nongnu] elpa/cider updated (c920799bfb -> cf84f85464)

[ELPA Syncer]

elpasync pushed a change to branch elpa/cider.

  from  c920799bfb [#3606] Fix incorrect defcustom :type attribute
   new  0e55036a6c Remove mismatched closing paren
   new  c7fab5077c Run the clojure-ts-mode tests only on Emacs 30+
   new  2d04e9e716 Fix a couple of indentation problems
   new  baddbc5305 [#3606] Fix a couple of defcustom :type attributes
   new  2158a886f0 [#3606] Fix this :type for real!
   new  8bd39b9643 Tweak a docstring
   new  cf84f85464 Fix condition-case invocation


Summary of changes:
 .github/workflows/test.yml | 2 +-
 cider-client.el| 4 ++--
 cider-common.el| 5 +++--
 cider-eldoc.el | 2 +-
 cider-stacktrace.el| 6 +++---
 nrepl-client.el| 4 ++--
 6 files changed, 12 insertions(+), 11 deletions(-)

[nongnu] elpa/cider 2158a886f0 5/7: [#3606] Fix this :type for real!

[ELPA Syncer]

branch: elpa/cider
commit 2158a886f0e4abd25cd1e68e145d91bec59e70e3
Author: Bozhidar Batsov 
Commit: Bozhidar Batsov 

[#3606] Fix this :type for real!
---
 cider-stacktrace.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/cider-stacktrace.el b/cider-stacktrace.el
index 9ff1970b65..3ae48ff433 100644
--- a/cider-stacktrace.el
+++ b/cider-stacktrace.el
@@ -56,7 +56,7 @@ If nil, messages will not be wrapped.  If truthy but 
non-numeric,
 
 (defcustom cider-stacktrace-default-filters '(tooling dup)
   "Frame types to omit from initial stacktrace display."
-  :type '(list symbol)
+  :type '(repeat symbol)
   :package-version '(cider . "0.6.0"))
 
 (defcustom cider-stacktrace-navigate-to-other-window t

[nongnu] elpa/aidermacs 50be7d3351 1/2: Add project file picker

[ELPA Syncer]

branch: elpa/aidermacs
commit 50be7d3351533655dcba54da19b9f374d94add3e
Author: Vignesh Shankar 
Commit: Matthew Zeng 

Add project file picker
---
 aidermacs.el | 36 +++-
 1 file changed, 31 insertions(+), 5 deletions(-)

diff --git a/aidermacs.el b/aidermacs.el
index ad7a59fb01..98728ea9e0 100644
--- a/aidermacs.el
+++ b/aidermacs.el
@@ -64,7 +64,7 @@ Possible values: `code', `ask', `architect', `help'.")
 When set, Aidermacs will pass this to aider via --config flag,
 ignoring other configuration settings except `aidermacs-extra-args'."
   :type '(choice (const :tag "None" nil)
- (file :tag "Config file")))
+  (file :tag "Config file")))
 
 (define-obsolete-variable-alias 'aidermacs-args 'aidermacs-extra-args "0.5.0"
   "Old name for `aidermacs-extra-args', please update your config.")
@@ -177,6 +177,7 @@ This is the file name without path."
   ["File Actions"
["Add Files (C-u: read-only)"
 ("f" "Add File" aidermacs-add-file)
+("p" "Add Project File" aidermacs-add-project-file)
 ("F" "Add Current File" aidermacs-add-current-file)
 ("d" "Add From Directory (same type)" 
aidermacs-add-same-type-files-under-dir)
 ("w" "Add From Window" aidermacs-add-files-in-current-window)
@@ -197,7 +198,7 @@ This is the file name without path."
 ("r" "Architect Change" aidermacs-architect-this-code)]
["Question"
 ("q" "General Question" aidermacs-question-general)
-("p" "Question This Symbol" aidermacs-question-this-symbol)
+("*" "Question This Symbol" aidermacs-question-this-symbol)
 ("g" "Accept Proposed Changes" aidermacs-accept-change)]
["Others"
 ("i" "Implement TODO" aidermacs-implement-todo)
@@ -256,7 +257,7 @@ If supplied, SUFFIX is appended to the buffer name within 
the earmuffs."
   ;; Use closest parent if it exists
   (closest-parent
(if (<= (length (expand-file-name closest-parent))
-  (length (expand-file-name root)))
+   (length (expand-file-name root)))
root
  closest-parent))
   ;; Fall back to project root for new non-subtree 
session
@@ -330,7 +331,7 @@ This function sets up the appropriate arguments and 
launches the process."
  ;; Take the original aidermacs-extra-args instead of the flat ones
  (final-args (append backend-args aidermacs-extra-args)))
 (if (and (get-buffer buffer-name)
-(process-live-p (get-buffer-process buffer-name)))
+(process-live-p (get-buffer-process buffer-name)))
 (aidermacs-switch-to-buffer buffer-name)
   (aidermacs-run-backend aidermacs-program final-args buffer-name)
   (with-current-buffer buffer-name
@@ -604,7 +605,7 @@ Use highlighted region as context unless IGNORE-CONTEXT is 
set to non-nil."
 prompt-prefix
 context
 (unless (string-empty-p user-command)
-(concat ": " user-command)
+  (concat ": " user-command)
 
 (defun aidermacs-direct-change ()
   "Prompt the user for an input and send it to aidermacs prefixed with \"/code 
\"."
@@ -754,6 +755,19 @@ With prefix argument `C-u', add as read-only."
  (file-name-nondirectory buffer-file-name)
  (if read-only "read-only" "editable")
 
+(defun aidermacs--pick-project-file ()
+  "Prompt for a file in the current project using `completing-read`."
+  (let* ((project-root (aidermacs-project-root))
+ (files (when project-root
+  (directory-files-recursively project-root ".*" t
+(unless project-root
+  (user-error "No project root found"))
+(let ((file (completing-read "Select project file to add: "
+ (mapcar (lambda (f)
+   (file-relative-name f project-root))
+ files
+  (expand-file-name file project-root
+
 (defun aidermacs-add-file (&optional read-only)
   "Add file(s) to aidermacs interactively.
 With prefix argument `C-u', add as READ-ONLY.
@@ -779,6 +793,18 @@ Multiple files can be selected by calling the command 
multiple times."
(file-name-nondirectory file)
(if read-only "read-only" "editable")))
 
+(defun aidermacs-add-project-file (&optional read-only)
+  "Add a file from the current project to the aider session.
+With prefix argument `C-u', add as READ-ONLY."
+  (interactive "P")
+  (let ((file (aidermacs--pick-project-file)))
+(aidermacs--add-files-helper
+ (list file)
+ read-only
+ (format "Added %s from project as %s"
+ (file-name-nondirectory file)
+ (if read-only "read-only" "editable")
+
 (defun aidermacs-add-files-in-current-window (&optional read-only)
   "Add window file

[nongnu] elpa/aidermacs 07a47cfa78 2/2: project support

[ELPA Syncer]

branch: elpa/aidermacs
commit 07a47cfa7860ff39411c9c50919acd79a9b79338
Author: Vignesh Shankar 
Commit: Matthew Zeng 

project support
---
 aidermacs.el | 26 --
 1 file changed, 16 insertions(+), 10 deletions(-)

diff --git a/aidermacs.el b/aidermacs.el
index 98728ea9e0..93bca39f4c 100644
--- a/aidermacs.el
+++ b/aidermacs.el
@@ -757,16 +757,22 @@ With prefix argument `C-u', add as read-only."
 
 (defun aidermacs--pick-project-file ()
   "Prompt for a file in the current project using `completing-read`."
-  (let* ((project-root (aidermacs-project-root))
- (files (when project-root
-  (directory-files-recursively project-root ".*" t
-(unless project-root
-  (user-error "No project root found"))
-(let ((file (completing-read "Select project file to add: "
- (mapcar (lambda (f)
-   (file-relative-name f project-root))
- files
-  (expand-file-name file project-root
+  (let* ((curr-project-root (or (aidermacs-project-root) (user-error "No 
project root found")))
+ (files
+  (cond
+   ((and curr-project-root
+ ;; `project-files' can only be used in in Emacs 27.1+
+ (fboundp 'project-files))
+;; Ensure that `project-current' is the same as aidermacs
+(unless (string= (expand-file-name curr-project-root) 
(expand-file-name (cdr (project-current
+  (user-error "(project-current) does not match 
(aidermacs-project-root)"))
+(project-files (project-current)))
+   ;; Fallback to recursive directory listing
+   (t (directory-files-recursively curr-project-root ".*" t
+ (choices (mapcar (lambda (f) (file-relative-name f 
curr-project-root)) files))
+ (file (completing-read "Select project file to add: " choices))
+ (absolute-file (expand-file-name file curr-project-root)))
+absolute-file))
 
 (defun aidermacs-add-file (&optional read-only)
   "Add file(s) to aidermacs interactively.

[nongnu] elpa/aidermacs updated (9eef7a26e5 -> 07a47cfa78)

[ELPA Syncer]

elpasync pushed a change to branch elpa/aidermacs.

  from  9eef7a26e5 Bump to v1.3
   new  50be7d3351 Add project file picker
   new  07a47cfa78 project support


Summary of changes:
 aidermacs.el | 42 +-
 1 file changed, 37 insertions(+), 5 deletions(-)

[nongnu] elpa/cider 8bd39b9643 6/7: Tweak a docstring

[ELPA Syncer]

branch: elpa/cider
commit 8bd39b96434dabb8f79e45b7cfc0e3ea0bcfd8ae
Author: Bozhidar Batsov 
Commit: Bozhidar Batsov 

Tweak a docstring
---
 cider-stacktrace.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/cider-stacktrace.el b/cider-stacktrace.el
index 3ae48ff433..3ea309e2e3 100644
--- a/cider-stacktrace.el
+++ b/cider-stacktrace.el
@@ -76,7 +76,7 @@ Pick nil if you prefer the same window as *cider-error*."
 (defconst cider-error-buffer "*cider-error*")
 
 (defcustom cider-stacktrace-suppressed-errors '()
-  "Errors that won't make the stacktrace buffer 'pop-over' your active window.
+  "Errors that won't make the stacktrace buffer pop over your active window.
 The error types are represented as strings."
   :type '(list string)
   :package-version '(cider . "0.12.0"))

[nongnu] elpa/helm d83b218bbc 5/9: Advice command-excute after helm session

[ELPA Syncer]

branch: elpa/helm
commit d83b218bbca2e8207fff620fb630d17cc5b6068f
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Advice command-excute after helm session

otherwise command-execute is used inside helm session for
e.g. next-line etc..

Don't reset helm-M-x-prefix-argument too early with FLAGS.

Use directly helm-current-prefix-arg in advice instead of setting
current-prefix arg after helm session.

Set prefix-arg unconditionally in advice to either
helm-M-x-prefix-argument or helm-current-prefix-arg.
---
 helm-mode.el | 21 +++--
 1 file changed, 15 insertions(+), 6 deletions(-)

diff --git a/helm-mode.el b/helm-mode.el
index cb4ff19c18..b4f5c0c9dd 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -1047,7 +1047,6 @@ that use `helm-comp-read'.  See `helm-M-x' for example."
 (category . symbol-help)))
 (command-help . (metadata
  (prefix-arg . t)
- (flags . (helm-M-x-prefix-argument))
  (affixation-function . 
helm-symbol-completion-table-affixation)
  (category . symbol-help)))
 (eww-help . (metadata ;; Emacs-30 only
@@ -1550,10 +1549,13 @@ dynamically otherwise use 
`helm-completing-read-default-2'."
   helm--mode-line-display-prefarg pref-arg)
 (when pref-arg
   (setq helm-M-x--timer (run-at-time 1 0.1 #'helm-M-x--notify-prefix-arg))
+  (add-hook 'helm-move-selection-after-hook
+#'helm-M-x--move-selection-after-hook)
+  (add-hook 'helm-before-action-hook
+#'helm-M-x--before-action-hook)
   ;; Notify C-u entered before Hitting M-[xX].
   (setq helm-M-x-prefix-argument current-prefix-arg)
   (setq current-prefix-arg nil)
-  (advice-add 'command-execute :around #'helm--advice-command-execute)
   ;; Remove command-execute advice when execute-extended-command exit.
   (advice-add 'execute-extended-command :around 
#'helm--advice-execute-extended-command))
 (unwind-protect
@@ -1602,13 +1604,20 @@ dynamically otherwise use 
`helm-completing-read-default-2'."
   ;; when init is added to history, it will be unquoted by
   ;; helm-comp-read.
   :initial-input initial-input)
-   (when pref-arg (setq current-prefix-arg helm-current-prefix-arg)))
-  (when (timerp helm-M-x--timer)
-(cancel-timer helm-M-x--timer) (setq helm-M-x--timer nil))
+   (when pref-arg
+ (advice-add 'command-execute :around 
#'helm--advice-command-execute)))
+  (helm-M-x--unwind-forms)
   (dolist (f flags) (set f nil)
 
 (defun helm--advice-command-execute (old--fn &rest args)
-  (unless prefix-arg (setq prefix-arg current-prefix-arg))
+  (helm-M-x--unwind-forms 'done)
+  ;; `command-execute' is wrapped in a let with `prefix-arg' bound to the 
argument
+  ;; PREFIXARG of `execute-extended-command' so set this let-bounded 
`prefix-arg'
+  ;; to the value defined during helm completion.  We use
+  ;; helm-M-x-prefix-argument instead of initial PREFIXARG to allow changing 
the
+  ;; initial prefix arg during helm completion e.g. C-u M-X foo C-u 2 foo, in
+  ;; this case the initial C-u is replaced by C-u 2.
+  (setq prefix-arg (or helm-current-prefix-arg helm-M-x-prefix-argument))
   (apply old--fn args))
 
 (defun helm--advice-execute-extended-command (old--fn &rest args)

[nongnu] elpa/helm acfa5e1767 9/9: Update NEWS

[ELPA Syncer]

branch: elpa/helm
commit acfa5e1767a8359ff87609df773658d1a642c558
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Update NEWS
---
 NEWS.org | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/NEWS.org b/NEWS.org
index 7f119fcabb..31a73cd86a 100644
--- a/NEWS.org
+++ b/NEWS.org
@@ -2,6 +2,8 @@
 
 * NEWS
 ** Version 4.0.3
+*** Add a new completion metadata category command-help
+Handle helm-M-x prefix arg integration in this category.
 *** Allow filtering sources in current session
 It is bound to C-M-e in helm-map.
 *** Change `helm-current-directory-alist` default value

[nongnu] elpa/clojure-ts-mode 4bdd7f2111: Add unwind refactoring commands

[ELPA Syncer]

branch: elpa/clojure-ts-mode
commit 4bdd7f2111fe8fd32cff1256c1e7dc54c17d8552
Author: Roman Rudakov 
Commit: Bozhidar Batsov 

Add unwind refactoring commands
---
 CHANGELOG.md|   1 +
 README.md   |  22 +++
 clojure-ts-mode.el  | 196 +++-
 test/clojure-ts-mode-font-lock-test.el  |   6 +-
 test/clojure-ts-mode-refactor-threading-test.el | 166 
 test/clojure-ts-mode-util-test.el   |  64 
 test/samples/refactoring.clj|  37 +
 test/test-helper.el |   9 +-
 8 files changed, 461 insertions(+), 40 deletions(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index d40be97361..7dd9d56abf 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -10,6 +10,7 @@
   - Syntax highlighting of built-in keywords.
   - Consistent indentation with regular forms.
   - Support for automatic aligning forms.
+- [#88](https://github.com/clojure-emacs/clojure-ts-mode/pull/88): Introduce 
`clojure-ts-unwind` and `clojure-ts-unwind-all`.
 
 ## 0.3.0 (2025-04-15)
 
diff --git a/README.md b/README.md
index cf833756b7..f2d656c71b 100644
--- a/README.md
+++ b/README.md
@@ -372,6 +372,28 @@ following customization:
 (setopt clojure-ts-outline-variant 'imenu)
 ```
 
+## Refactoring support
+
+### Threading macros related features
+
+`clojure-unwind`: Unwind a threaded expression. Supports both `->>`/`some->>`
+and `->`/`some->`.
+
+`clojure-unwind-all`: Fully unwind a threaded expression removing the threading
+macro.
+
+### Default keybindings
+
+| Keybinding  | Command |
+|:|:|
+| `C-c SPC`   | `clojure-ts-align`  |
+| `C-c C-r u` | `clojure-ts-unwind` |
+
+### Customize refactoring commands prefix
+
+By default prefix for all refactoring commands is `C-c C-r`. It can be changed
+by customizing `clojure-ts-refactor-map-prefix` variable.
+
 ## Migrating to clojure-ts-mode
 
 If you are migrating to `clojure-ts-mode` note that `clojure-mode` is still
diff --git a/clojure-ts-mode.el b/clojure-ts-mode.el
index e4ac5e19f8..4559e60583 100644
--- a/clojure-ts-mode.el
+++ b/clojure-ts-mode.el
@@ -57,6 +57,7 @@
 
 (require 'treesit)
 (require 'align)
+(require 'subr-x)
 
 (declare-function treesit-parser-create "treesit.c")
 (declare-function treesit-node-eq "treesit.c")
@@ -144,6 +145,11 @@ three or more semicolons will be treated as outline 
headings.  If set to
  (const :tag "Use imenu" imenu))
   :package-version '(clojure-ts-mode . "0.4"))
 
+(defcustom clojure-ts-refactor-map-prefix "C-c C-r"
+  "Clojure refactor keymap prefix."
+  :type 'string
+  :package-version '(clojure-ts-mode . "0.4"))
+
 (defcustom clojure-ts-align-reader-conditionals nil
   "Whether to align reader conditionals, as if they were maps."
   :package-version '(clojure-ts-mode . "0.4")
@@ -1691,11 +1697,199 @@ Forms between BEG and END are aligned according to
 (when clojure-ts-align-forms-automatically
   (clojure-ts-align beg end
 
+;;; Refactoring
+
+(defun clojure-ts--threading-sexp-node ()
+  "Return list node at point which is a threading expression."
+  (when-let* ((node-at-point (treesit-node-at (point) 'clojure t)))
+;; We don't want to match `cond->' and `cond->>', so we should define a 
very
+;; specific regexp.
+(let ((sym-regex (rx bol (* "some") "->" (* ">") eol)))
+  (treesit-parent-until node-at-point
+(lambda (node)
+  (and (or (clojure-ts--list-node-p node)
+   (clojure-ts--anon-fn-node-p node))
+   (let ((first-child (treesit-node-child node 
0 t)))
+ (clojure-ts--symbol-matches-p sym-regex 
first-child
+t
+
+(defun clojure-ts--delete-and-extract-sexp ()
+  "Delete the surrounding sexp and return it."
+  (let* ((sexp-node (treesit-thing-at-point 'sexp 'nested))
+ (result (treesit-node-text sexp-node)))
+(delete-region (treesit-node-start sexp-node)
+   (treesit-node-end sexp-node))
+result))
+
+(defun clojure-ts--ensure-parens-around-function-name ()
+  "Insert parens around function name if necessary."
+  (unless (string= (treesit-node-text (treesit-node-at (point))) "(")
+(insert-parentheses 1)
+(backward-up-list)))
+
+(defun clojure-ts--multiline-sexp-p ()
+  "Return TRUE if s-expression at point is multiline."
+  (let ((sexp (treesit-thing-at-point 'sexp 'nested)))
+(not (= (line-number-at-pos (treesit-node-start sexp))
+(line-number-at-pos (treesit-node-end sexp))
+
+(defun clojure-ts--unwind-thread-first ()
+  "Unwind a thread first macro once."
+  (let* ((threading-sexp (clojure-ts--threading-sexp-node))
+ (first-child-start (thread-first threading-sexp
+ 

[nongnu] elpa/helm 51798e5155 4/9: Require helm-command and declare vars and fn

[ELPA Syncer]

branch: elpa/helm
commit 51798e51553ff8f3bdcea04686d499df81673049
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Require helm-command and declare vars and fn
---
 helm-mode.el | 7 +++
 1 file changed, 7 insertions(+)

diff --git a/helm-mode.el b/helm-mode.el
index e0c442c2fd..cb4ff19c18 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -37,6 +37,8 @@
 (defvar helm-info--files-cache)
 (defvar helm-info--files-doc-cache)
 (defvar Info-current-file)
+(defvar helm-M-x-prefix-argument)
+(defvar helm-M-x--timer)
 
 ;; No warnings in Emacs built --without-x
 (declare-function x-file-dialog "xfns.c")
@@ -56,6 +58,10 @@
 (declare-function find-library-name "find-func.el")
 (declare-function helm-info-file-doc "helm-info")
 (declare-function Info-find-file "info")
+(declare-function helm-M-x--notify-prefix-arg "helm-command")
+(declare-function helm-M-x--unwind-forms "helm-command")
+(declare-function helm-M-x--move-selection-after-hook "helm-command")
+(declare-function helm-M-x--before-action-hook "helm-command")
 
 (defgroup helm-mode nil
   "Enable helm completion."
@@ -1493,6 +1499,7 @@ handling properties, see `helm-comp-read'.
 
 This handler should be used when candidate list doesn't need to be rebuilt
 dynamically otherwise use `helm-completing-read-default-2'."
+  (require 'helm-command)
   (let* ((history (or (car-safe hist) hist))
  (initial-input (helm-acase init
   ((guard* (stringp it)) it)

[nongnu] elpa/helm updated (d8f260235b -> acfa5e1767)

[ELPA Syncer]

elpasync pushed a change to branch elpa/helm.

  from  d8f260235b Change default value of 
helm-M-x-exclude-unusable-commands-in-mode
   new  4477cebf4c Integrate helm-M-x prefix arg in helm-mode
   new  1ddef42e47 Use dst* in helm-acase
   new  7a405859d6 Notify C-u entered before Hitting M-[xX]
   new  51798e5155 Require helm-command and declare vars and fn
   new  d83b218bbc Advice command-excute after helm session
   new  8cdc5f3644 Call helm-M-x--unwind-forms only in command-help category
   new  004c81e400 Add persistent action for command category
   new  d8b9b42cf6 Comment only
   new  acfa5e1767 Update NEWS


Summary of changes:
 NEWS.org |   2 +
 helm-mode.el | 152 +--
 2 files changed, 109 insertions(+), 45 deletions(-)

[nongnu] elpa/helm d8b9b42cf6 8/9: Comment only

[ELPA Syncer]

branch: elpa/helm
commit d8b9b42cf6120ee493084deb10a107e12b61a46f
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Comment only
---
 helm-mode.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/helm-mode.el b/helm-mode.el
index 1ba8c75291..63424488a0 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -1530,6 +1530,7 @@ dynamically otherwise use 
`helm-completing-read-default-2'."
   (setq metadata it)
   (setq afun (completion-metadata-get metadata 'annotation-function)
 afix (completion-metadata-get metadata 'affixation-function)
+;; prefix-arg metadata is only in command-help category.
 pref-arg (completion-metadata-get metadata 'prefix-arg)
 popup-info (completion-metadata-get metadata 
'popup-info-function)
 flags (completion-metadata-get metadata 'flags

[nongnu] elpa/helm 4477cebf4c 1/9: Integrate helm-M-x prefix arg in helm-mode

[ELPA Syncer]

branch: elpa/helm
commit 4477cebf4c1d583b6a37c273b70fd04218b58172
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Integrate helm-M-x prefix arg in helm-mode

Add a new completion metadata category command-help to handle this feature.
---
 helm-mode.el | 130 ++-
 1 file changed, 85 insertions(+), 45 deletions(-)

diff --git a/helm-mode.el b/helm-mode.el
index 47b463ae93..965b66e409 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -1039,6 +1039,11 @@ that use `helm-comp-read'.  See `helm-M-x' for example."
 (symbol-help . (metadata
 (affixation-function . 
helm-symbol-completion-table-affixation)
 (category . symbol-help)))
+(command-help . (metadata
+ (prefix-arg . t)
+ (flags . (helm-M-x-prefix-argument))
+ (affixation-function . 
helm-symbol-completion-table-affixation)
+ (category . symbol-help)))
 (eww-help . (metadata ;; Emacs-30 only
  (affixation-function . helm-completion-eww-affixation)
  (category . eww-help)))
@@ -1106,7 +,7 @@ FLAGS is a list of variables to renitialize to nil when 
exiting or quitting.")
 ("describe-minor-mode" . symbol-help)
 ("where-is" . symbol-help)
 ("execute-extended-command" . symbol-help)
-("execute-extended-command-for-buffer" . symbol-help)
+("execute-extended-command-for-buffer" . command-help)
 ("info-lookup-symbol" . symbol-help)
 ("Info-goto-emacs-command-node" . symbol-help)
 ("find-library" . library)
@@ -1506,7 +1511,7 @@ dynamically otherwise use 
`helm-completing-read-default-2'."
   metadata 'display-sort-function)
  (lambda (candidates)
(sort candidates #'helm-generic-sort-fn)
- popup-info flags)
+ popup-info flags pref-arg keymap)
 (helm-aif (and (null category)
(assoc-default name 
helm-completing-read-command-categories))
 (setq metadata `(metadata (category . ,it))
@@ -1518,54 +1523,89 @@ dynamically otherwise use 
`helm-completing-read-default-2'."
   (setq metadata it)
   (setq afun (completion-metadata-get metadata 'annotation-function)
 afix (completion-metadata-get metadata 'affixation-function)
+pref-arg (completion-metadata-get metadata 'prefix-arg)
 popup-info (completion-metadata-get metadata 
'popup-info-function)
 flags (completion-metadata-get metadata 'flags
+(setq keymap (if pref-arg
+ (let ((map (make-sparse-keymap)))
+   (set-keymap-parent map helm-comp-read-map)
+   (define-key map (kbd "C-u") 
'helm-M-x-universal-argument)
+   map)
+   helm-comp-read-map)
+  prompt (if pref-arg
+ (concat (helm-acase helm-M-x-prefix-argument
+   (- "-")
+   ((guard* (and (consp it) (car it)))
+(if (eq guard 4) "C-u " (format "%d " guard)))
+   ((guard* (integerp it)) (format "%d " it)))
+ prompt)
+   prompt)
+  helm--mode-line-display-prefarg pref-arg)
+(when pref-arg
+  (setq helm-M-x--timer (run-at-time 1 0.1 #'helm-M-x--notify-prefix-arg))
+  (setq current-prefix-arg nil)
+  (advice-add 'command-execute :around #'helm--advice-command-execute)
+  ;; Remove command-execute advice when execute-extended-command exit.
+  (advice-add 'execute-extended-command :around 
#'helm--advice-execute-extended-command))
 (unwind-protect
- (helm-comp-read
-  prompt collection
-  :test test
-  :history history
-  :reverse-history helm-mode-reverse-history
-  :input-history history
-  :must-match require-match
-  :alistp alistp
-  :diacritics helm-mode-ignore-diacritics
-  :help-message #'helm-comp-read-help-message
-  :name name
-  :requires-pattern (if (and (stringp default)
- (string= default "")
- (memq require-match
-   '(confirm 
confirm-after-completion)))
-1 0)
-  :fc-transformer
-  ;; When afun afix and category are nil
-  ;; helm-completion--decorate returns
-  ;; candidates (COMPS) unmodified.
-  (append (list (lambda (candidates _source)
-  (helm-completion--decorate
-   (if (and sort-fn (> (length helm-pattern) 0))
-   (funcall sort-fn candidates)
- candidates)
-   afun afix

[nongnu] elpa/helm 1ddef42e47 2/9: Use dst* in helm-acase

[ELPA Syncer]

branch: elpa/helm
commit 1ddef42e47f4fd5dd89f3e6bd26d2bb1c5b879aa
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Use dst* in helm-acase
---
 helm-mode.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/helm-mode.el b/helm-mode.el
index 965b66e409..d11e4d762f 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -1535,8 +1535,8 @@ dynamically otherwise use 
`helm-completing-read-default-2'."
   prompt (if pref-arg
  (concat (helm-acase helm-M-x-prefix-argument
(- "-")
-   ((guard* (and (consp it) (car it)))
-(if (eq guard 4) "C-u " (format "%d " guard)))
+   ((dst* l &rest args)
+(if (eq l 4) "C-u " (format "%d " l)))
((guard* (integerp it)) (format "%d " it)))
  prompt)
prompt)

[nongnu] elpa/helm 004c81e400 7/9: Add persistent action for command category

[ELPA Syncer]

branch: elpa/helm
commit 004c81e400e47bf95bce53b78425200951503cd3
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Add persistent action for command category
---
 helm-mode.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/helm-mode.el b/helm-mode.el
index 04b889adc5..1ba8c75291 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -62,6 +62,7 @@
 (declare-function helm-M-x--unwind-forms "helm-command")
 (declare-function helm-M-x--move-selection-after-hook "helm-command")
 (declare-function helm-M-x--before-action-hook "helm-command")
+(declare-function helm-M-x-persistent-action "helm-command")
 
 (defgroup helm-mode nil
   "Enable helm completion."
@@ -1571,6 +1572,8 @@ dynamically otherwise use 
`helm-completing-read-default-2'."
   :alistp alistp
   :diacritics helm-mode-ignore-diacritics
   :help-message #'helm-comp-read-help-message
+  :persistent-action (and pref-arg #'helm-M-x-persistent-action)
+  :persistent-help (if pref-arg "Toggle Describe command" 
"DoNothing")
   :name name
   :requires-pattern (if (and (stringp default)
  (string= default "")

[nongnu] elpa/helm 8cdc5f3644 6/9: Call helm-M-x--unwind-forms only in command-help category

[ELPA Syncer]

branch: elpa/helm
commit 8cdc5f3644bce5093dbb84519ba9dbbec17222d4
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Call helm-M-x--unwind-forms only in command-help category
---
 helm-mode.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/helm-mode.el b/helm-mode.el
index b4f5c0c9dd..04b889adc5 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -1606,7 +1606,7 @@ dynamically otherwise use 
`helm-completing-read-default-2'."
   :initial-input initial-input)
(when pref-arg
  (advice-add 'command-execute :around 
#'helm--advice-command-execute)))
-  (helm-M-x--unwind-forms)
+  (when pref-arg (helm-M-x--unwind-forms))
   (dolist (f flags) (set f nil)
 
 (defun helm--advice-command-execute (old--fn &rest args)

[nongnu] elpa/helm 7a405859d6 3/9: Notify C-u entered before Hitting M-[xX]

[ELPA Syncer]

branch: elpa/helm
commit 7a405859d677ff6fdab6e159e9e235e7a3a485ff
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Notify C-u entered before Hitting M-[xX]
---
 helm-mode.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/helm-mode.el b/helm-mode.el
index d11e4d762f..e0c442c2fd 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -1543,6 +1543,8 @@ dynamically otherwise use 
`helm-completing-read-default-2'."
   helm--mode-line-display-prefarg pref-arg)
 (when pref-arg
   (setq helm-M-x--timer (run-at-time 1 0.1 #'helm-M-x--notify-prefix-arg))
+  ;; Notify C-u entered before Hitting M-[xX].
+  (setq helm-M-x-prefix-argument current-prefix-arg)
   (setq current-prefix-arg nil)
   (advice-add 'command-execute :around #'helm--advice-command-execute)
   ;; Remove command-execute advice when execute-extended-command exit.

[nongnu] elpa/cider updated (778bbe3c41 -> c46dc496d4)

[ELPA Syncer]

elpasync pushed a change to branch elpa/cider.

  from  778bbe3c41 Bump cider-nrepl to 0.55.6
   new  7985960ff3 Fix broken defcustom :type attributes
   new  c46dc496d4 Bump cider-nrepl to 0.55.7


Summary of changes:
 CHANGELOG.md   |  2 +-
 cider-eval.el  |  6 ++--
 cider-ns.el|  6 ++--
 cider.el   |  2 +-
 dev/docker-sample-project/project.clj  |  2 +-
 dev/tramp-sample-project/project.clj   |  2 +-
 .../ROOT/pages/basics/middleware_setup.adoc| 10 +++---
 doc/modules/ROOT/pages/basics/up_and_running.adoc  |  4 +--
 doc/modules/ROOT/pages/cljs/shadow-cljs.adoc   |  2 +-
 doc/modules/ROOT/pages/cljs/up_and_running.adoc|  2 +-
 test/cider-tests.el| 36 +++---
 11 files changed, 37 insertions(+), 37 deletions(-)

[nongnu] elpa/cider c46dc496d4 2/2: Bump cider-nrepl to 0.55.7

[ELPA Syncer]

branch: elpa/cider
commit c46dc496d4b9609f77aaf591a7d2ec91bd1e8a52
Author: Oleksandr Yakushev 
Commit: Oleksandr Yakushev 

Bump cider-nrepl to 0.55.7
---
 CHANGELOG.md   |  2 +-
 cider.el   |  2 +-
 dev/docker-sample-project/project.clj  |  2 +-
 dev/tramp-sample-project/project.clj   |  2 +-
 .../ROOT/pages/basics/middleware_setup.adoc| 10 +++---
 doc/modules/ROOT/pages/basics/up_and_running.adoc  |  4 +--
 doc/modules/ROOT/pages/cljs/shadow-cljs.adoc   |  2 +-
 doc/modules/ROOT/pages/cljs/up_and_running.adoc|  2 +-
 test/cider-tests.el| 36 +++---
 9 files changed, 31 insertions(+), 31 deletions(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index ced46caffb..1d8b2479d0 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -16,7 +16,7 @@
 - [#3793](https://github.com/clojure-emacs/cider/issues/3793): **(Breaking)** 
Remove features that relied on printed exception parsing:
   - `cider-stacktrace-analyze-string` and `cider-stacktrace-analyze-at-point` 
functions.
   - Automatic stacktrace parsing in log viewer.
-- Bump the injected `cider-nrepl` to 
[0.55.6](https://github.com/clojure-emacs/cider-nrepl/blob/master/CHANGELOG.md#0555-2025-04-28).
+- Bump the injected `cider-nrepl` to 
[0.55.7](https://github.com/clojure-emacs/cider-nrepl/blob/master/CHANGELOG.md#0557-2025-04-29).
   - 
[compliment#122](https://github.com/alexander-yakushev/compliment/pull/122): 
Completion: sort candidates by priority.
   - Inspector: add dedicated view for Exceptions.
   - Stop vendoring Haystack dependency.
diff --git a/cider.el b/cider.el
index a2ef0a..ebf5010d56 100644
--- a/cider.el
+++ b/cider.el
@@ -571,7 +571,7 @@ the artifact.")
 
 Used when `cider-jack-in-auto-inject-clojure' is set to `latest'.")
 
-(defconst cider-required-middleware-version "0.55.6"
+(defconst cider-required-middleware-version "0.55.7"
   "The CIDER nREPL version that's known to work properly with CIDER.")
 
 (defcustom cider-injected-middleware-version cider-required-middleware-version
diff --git a/dev/docker-sample-project/project.clj 
b/dev/docker-sample-project/project.clj
index 1fc75b079d..061d699872 100644
--- a/dev/docker-sample-project/project.clj
+++ b/dev/docker-sample-project/project.clj
@@ -2,4 +2,4 @@
   :dependencies [[org.clojure/clojure "1.11.1"]
  [clj-http "3.12.3"]]
   :source-paths ["src"]
-  :plugins [[cider/cider-nrepl "0.55.6"]])
+  :plugins [[cider/cider-nrepl "0.55.7"]])
diff --git a/dev/tramp-sample-project/project.clj 
b/dev/tramp-sample-project/project.clj
index 2c31bd104d..8cef2c0d0d 100644
--- a/dev/tramp-sample-project/project.clj
+++ b/dev/tramp-sample-project/project.clj
@@ -2,5 +2,5 @@
   :dependencies [[org.clojure/clojure "1.11.1"]
  [clj-http "3.12.3"]]
   :source-paths ["src"]
-  :plugins [[cider/cider-nrepl "0.55.6"]
+  :plugins [[cider/cider-nrepl "0.55.7"]
 [refactor-nrepl "3.9.0"]])
diff --git a/doc/modules/ROOT/pages/basics/middleware_setup.adoc 
b/doc/modules/ROOT/pages/basics/middleware_setup.adoc
index 3ed7178afa..02bb3762dd 100644
--- a/doc/modules/ROOT/pages/basics/middleware_setup.adoc
+++ b/doc/modules/ROOT/pages/basics/middleware_setup.adoc
@@ -20,14 +20,14 @@ Use the convenient plugin for defaults, either in your 
project's
 
 [source,clojure]
 
-:plugins [[cider/cider-nrepl "0.55.6"]]
+:plugins [[cider/cider-nrepl "0.55.7"]]
 
 
 A minimal `profiles.clj` for CIDER would be:
 
 [source,clojure]
 
-{:repl {:plugins [[cider/cider-nrepl "0.55.6"]]}}
+{:repl {:plugins [[cider/cider-nrepl "0.55.7"]]}}
 
 
 WARNING: Be careful not to place this in the `:user` profile, as this way 
CIDER's
@@ -43,11 +43,11 @@ run `cider-connect` or `cider-connect-cljs`.
 
 [source,clojure]
 
-  :cider-clj {:extra-deps {cider/cider-nrepl {:mvn/version "0.55.6"}}
+  :cider-clj {:extra-deps {cider/cider-nrepl {:mvn/version "0.55.7"}}
   :main-opts ["-m" "nrepl.cmdline" "--middleware" 
"[cider.nrepl/cider-middleware]"]}
 
   :cider-cljs {:extra-deps {org.clojure/clojurescript {:mvn/version "1.10.339"}
-cider/cider-nrepl {:mvn/version "0.55.6"}
+cider/cider-nrepl {:mvn/version "0.55.7"}
 cider/piggieback {:mvn/version "0.6.0"}}
:main-opts ["-m" "nrepl.cmdline" "--middleware"

"[cider.nrepl/cider-middleware,cider.piggieback/wrap-cljs-repl]"]}
@@ -66,7 +66,7 @@ NOTE: Make sure you're using 
https://github.com/clojurephant/clojurephant[Clojur
 
 dependencies {
   devImplementation 'nrepl:nrepl:0.9.0'
-  devImplementation 'cider:cider-nrepl:0.55.6'
+  devImplementation 'cider:cider-nrepl:0.55.7'
 }
 
 tasks.named('clojureRepl') {
diff --git a/doc/modules/ROOT/pages/basics/up_and_running.adoc 
b/doc/modules/ROOT/pages/basics/up_and_running.adoc
index 5852937c33.

[nongnu] elpa/cider 7985960ff3 1/2: Fix broken defcustom :type attributes

[ELPA Syncer]

branch: elpa/cider
commit 7985960ff3339ac0b5b79bed05542cb71eec9738
Author: Bozhidar Batsov 
Commit: Bozhidar Batsov 

Fix broken defcustom :type attributes
---
 cider-eval.el | 6 +++---
 cider-ns.el   | 6 +++---
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/cider-eval.el b/cider-eval.el
index 3a02dab8b8..21e1b39ef1 100644
--- a/cider-eval.el
+++ b/cider-eval.el
@@ -122,9 +122,9 @@ Only applies when the *cider-inspect* buffer is currently 
visible."
 If nil, files are not saved.
 If 'prompt, the user is prompted to save the file if it's been modified.
 If t, save the file without confirmation."
-  :type '(choice (const prompt :tag "Prompt to save the file if it's been 
modified")
- (const nil :tag "Don't save the file")
- (const t :tag "Save the file without confirmation"))
+  :type '(choice (const :tag "Prompt to save the file if it's been modified" 
prompt)
+ (const :tag "Don't save the file" nil)
+ (const :tag "Save the file without confirmation" t))
   :group 'cider
   :package-version '(cider . "0.6.0"))
 
diff --git a/cider-ns.el b/cider-ns.el
index 5379c4c1f3..4f64083737 100644
--- a/cider-ns.el
+++ b/cider-ns.el
@@ -72,9 +72,9 @@
 If nil, files are not saved.
 If 'prompt, the user is prompted to save files if they have been modified.
 If t, save the files without confirmation."
-  :type '(choice (const prompt :tag "Prompt to save files if they have been 
modified")
- (const nil :tag "Don't save the files")
- (const t :tag "Save the files without confirmation"))
+  :type '(choice (const :tag "Prompt to save files if they have been modified" 
prompt)
+ (const :tag "Don't save the files" nil)
+ (const :tag "Save the files without confirmation" t))
   :group 'cider
   :package-version '(cider . "0.15.0"))
 

[elpa] externals/ef-themes 544957214f 1/2: Make gnus "ancient" messages look the same as read messages

[ELPA Syncer]

branch: externals/ef-themes
commit 544957214fe4651f17183facb52dc19add9891d0
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Make gnus "ancient" messages look the same as read messages

This is because those "ancient" marks that Gnus adds basically mean "I
read this before."
---
 ef-themes.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ef-themes.el b/ef-themes.el
index 251daf7425..52cd152370 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -1644,7 +1644,7 @@ text should not be underlined as well) yet still blend 
in."
 `(gnus-summary-low-ticked ((,c :inherit italic :foreground ,err)))
 `(gnus-summary-low-undownloaded ((,c :inherit italic :foreground 
,warning)))
 `(gnus-summary-low-unread ((,c :inherit italic)))
-`(gnus-summary-normal-ancient (( )))
+`(gnus-summary-normal-ancient ((,c :foreground ,fg-dim)))
 `(gnus-summary-normal-read ((,c :inherit shadow)))
 `(gnus-summary-normal-ticked ((,c :foreground ,err)))
 `(gnus-summary-normal-undownloaded ((,c :foreground ,warning)))

[elpa] externals/ef-themes 2028e66d2f 2/2: Update to ef-themes version 1.10.0

[ELPA Syncer]

branch: externals/ef-themes
commit 2028e66d2f6e9e50105051d8e911ed0c4741db69
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Update to ef-themes version 1.10.0
---
 CHANGELOG.org | 74 +++
 README.org| 14 +--
 ef-themes.el  |  2 +-
 3 files changed, 82 insertions(+), 8 deletions(-)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index b94ba218aa..0b9ab98dcf 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -12,6 +12,80 @@ the manual: .
 
 #+toc: headlines 1 insert TOC here, with one headline level
 
+* Version 1.10.0 on 2025-04-29
+:PROPERTIES:
+:CUSTOM_ID: h:728b510a-3e93-433f-9c3c-582f716321f9
+:END:
+
+This version introduces minor refinements to an already stable
+package.
+
+** The palette preview uses a tabulated interface
+:PROPERTIES:
+:CUSTOM_ID: h:2db8bd88-b941-4c55-b8c3-f54a85666def
+:END:
+
+The commands ~ef-themes-preview-colors~ and ~ef-themes-preview-colors-current~
+produce a preview of the given theme's palette. In the past, we were
+using a bespoke buffer for this task, just how the built-in command
+~list-colors-display~ does it.
+
+Now we rely on the built-in ~tabulated-list-mode~ to get a cleaner
+tabulated view. Plus, users can sort by column.
+
+** Support for more faces or face groups
+:PROPERTIES:
+:CUSTOM_ID: h:296dadf4-a87d-4cf1-8058-959f65dfc2b4
+:END:
+
+- Added support for my ~tmr~ package. This will be especially
+  noticeable in its tabulated view (used to show timers, with the
+  command ~tmr-tabulated-view~ (alias ~tmr-list-timers~)).
+
+- Added explicit support for my ~spacious-padding~ package.
+  Specifically, this is for the faces 
~spacious-padding-subtle-mode-line-active~
+  and ~spacious-padding-subtle-mode-line-inactive~. Those can be
+  configured as part of the user option ~spacious-padding-subtle-mode-line~.
+
+  #+begin_src emacs-lisp
+  (setq spacious-padding-subtle-mode-line
+'( :mode-line-active spacious-padding-subtle-mode-line-active
+   :mode-line-inactive spacious-padding-subtle-mode-line-inactive))
+  #+end_src
+
+- Made the ~helpful~ headings use whatever the style of level 1
+  headings is, as defined by the user option ~ef-themes-heading~.
+  Thanks to John Haman for applying the relevant code we have for the
+  ~modus-themes~. The change is small (and comes from my ~modus-themes~,
+  anyway), meaning that John does not need to assign copyright to the
+  Free Software Foundation.
+
+- Added support for the ~howm~ package.
+
+- Extended support for the ~auto-dim-other-buffers~ package to include
+  its ~auto-dim-other-buffers-hide-face~.
+
+- Made sure that all new ~transient~ faces conform with the design
+  priorities of the themes. Concretely, this means that they do not
+  support any colour-coding: all keys look the same, regardless of
+  whether they mean "continue", "exit", or anything else.
+  Colour-coding with a full spectrum of colours cannot be accessible
+  (and I do not believe colour-coding alone even works because the
+  colours have nothing else to be associated with, like how a red line
+  in a diff buffer also goes together with the minus sign).
+
+  Thanks to Kevin Fleming for including the ~transient-key-stack~ face
+  that I had originally missed. This was done in pull request 54:
+  . The change is
+  small, meaning that Kevin does not need to assign copyright to the
+  Free Software Foundation
+
+- Extended support for ~adoc-mode~ courtesy of Leilei332. This was
+  done in pull request 52: .
+  
+  The change is within the ~15-line limit, meaning that its author does
+  not need to assign copyright to the Free Software Foundation.
+
 * Version 1.9.0 on 2024-11-16
 :PROPERTIES:
 :CUSTOM_ID: h:3c1baf6a-69f1-4109-9a5e-b587beda56bc
diff --git a/README.org b/README.org
index 613c78b775..8e14ab6c35 100644
--- a/README.org
+++ b/README.org
@@ -4,9 +4,9 @@
 #+language: en
 #+options: ':t toc:nil author:t email:t num:t
 #+startup: content
-#+macro: stable-version 1.9.0
-#+macro: release-date 2024-11-16
-#+macro: development-version 1.10.0-dev
+#+macro: stable-version 1.10.0
+#+macro: release-date 2025-04-29
+#+macro: development-version 1.11.0-dev
 #+export_file_name: ef-themes.texi
 #+texinfo_filename: ef-themes.info
 #+texinfo_dir_category: Emacs misc features
@@ -1412,11 +1412,11 @@ everything most users need.
 - git-gutter-fr
 - git-rebase
 - gnus
-- helpful [ Part of {{{development-version}}}. ]
+- helpful
 - hexl-mode
 - hi-lock (=M-x highlight-regexp=)
 - highlight-indentation
-- howm [ Part of {{{development-version}}}. ]
+- howm
 - ibuffer
 - image-dired
 - imenu-list
@@ -1467,14 +1467,14 @@ everything most users need.
 - show-paren-mode
 - shr
 - smerge
-- spacious-padding [ Part of {{{development-version}}}. ]
+- spacious-padding
 - tab-bar-mode
 - tab-line-mode
 - tempel
 - term
 - textsec
 - tl

[elpa] externals/ef-themes updated (db013c9d2d -> 2028e66d2f)

[ELPA Syncer]

elpasync pushed a change to branch externals/ef-themes.

  from  db013c9d2d Add support for tmr
   new  544957214f Make gnus "ancient" messages look the same as read 
messages
   new  2028e66d2f Update to ef-themes version 1.10.0


Summary of changes:
 CHANGELOG.org | 74 +++
 README.org| 14 +--
 ef-themes.el  |  4 ++--
 3 files changed, 83 insertions(+), 9 deletions(-)

[elpa] externals/spacious-padding cd33d70f6c: Bump version to trigger GNU ELPA rebuild

[ELPA Syncer]

branch: externals/spacious-padding
commit cd33d70f6cd9d8f3a2f6f7831711c8230d21649d
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Bump version to trigger GNU ELPA rebuild

This is because I messed up with the last release where some changes
where not part of the commit that was tagged as 0.6.0.
---
 spacious-padding.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/spacious-padding.el b/spacious-padding.el
index 0f313cf389..4221f57e58 100644
--- a/spacious-padding.el
+++ b/spacious-padding.el
@@ -5,7 +5,7 @@
 ;; Author: Protesilaos Stavrou 
 ;; Maintainer: Protesilaos Stavrou 
 ;; URL: https://github.com/protesilaos/spacious-padding
-;; Version: 0.6.0
+;; Version: 0.6.1
 ;; Package-Requires: ((emacs "28.1"))
 ;; Keywords: convenience, focus, writing, presentation
 

[elpa] externals/cape 5546a2db8e: Update issue template

[ELPA Syncer]

branch: externals/cape
commit 5546a2db8e3928d5a95e1174e69a5742ddf97c0f
Author: Daniel Mendler 
Commit: Daniel Mendler 

Update issue template
---
 .github/ISSUE_TEMPLATE/config.yml | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/.github/ISSUE_TEMPLATE/config.yml 
b/.github/ISSUE_TEMPLATE/config.yml
index 13ac3ceb1f..b25ebca281 100644
--- a/.github/ISSUE_TEMPLATE/config.yml
+++ b/.github/ISSUE_TEMPLATE/config.yml
@@ -18,6 +18,9 @@ contact_links:
 #  - name: "📝 Cape wiki"
 #url: https://github.com/minad/cape/wiki
 #about: Additional configuration tips are covered there. Feel free to edit!
+  - name: "📝 Corfu wiki"
+url: https://github.com/minad/corfu/wiki
+about: Additional configuration tips are covered there. Feel free to edit!
   - name: "📖 Cape manual"
 url: https://github.com/minad/cape/blob/main/README.org
 about: The manual covers the basic setup and workflow.

[elpa] externals/denote updated (aaa5d30a7c -> 807395fcb1)

[ELPA Syncer]

elpasync pushed a change to branch externals/denote.

  from  aaa5d30a7c Make obsolete the unused denote-link--expand-identifiers
   new  7d18f17a19 Make denote-link-return-links accept optional FILES
   new  807395fcb1 Add command denote-find-backlink-with-location


Summary of changes:
 README.org | 29 +++--
 denote.el  | 21 +++--
 2 files changed, 42 insertions(+), 8 deletions(-)

[elpa] externals/denote 807395fcb1 2/2: Add command denote-find-backlink-with-location

[ELPA Syncer]

branch: externals/denote
commit 807395fcb1ac79dbcbaa61112622354a53aaa9bc
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Add command denote-find-backlink-with-location

This is in response to issue 471 as reported by johkneisl:
.
---
 README.org | 24 +++-
 denote.el  | 14 ++
 2 files changed, 33 insertions(+), 5 deletions(-)

diff --git a/README.org b/README.org
index 659168df3f..bb6c443209 100644
--- a/README.org
+++ b/README.org
@@ -3042,7 +3042,8 @@ the current window.
 
 Backlinks to the current file can also be visited by using the
 minibuffer completion interface with the ~denote-find-backlink~
-command ([[#h:1bc2adad-dca3-4878-b9f0-b105d5dec6f4][Visiting linked files via 
the minibuffer]]).
+command or the more powerful ~denote-find-backlink-with-location~
+([[#h:1bc2adad-dca3-4878-b9f0-b105d5dec6f4][Visiting linked files via the 
minibuffer]]). [ The command ~denote-find-backlink-with-location~ is part of 
{{{development-version}}}. ]
 
 ** Writing metanotes
 :PROPERTIES:
@@ -3104,6 +3105,19 @@ To visit backlinks to the current note via the 
minibuffer, use
 ~denote-find-backlink~.  This is an alternative to placing backlinks
 in a dedicated buffer ([[#h:c73f1f68-e214-49d5-b369-e694f6a5d708][The 
backlinks' buffer]]).
 
+#+findex: denote-find-backlink-with-location
+As an alternative to ~denote-find-backlink~, the command
+~denote-find-backlink-with-location~ shows the complete results of all
+backlinks in their context, grouped by file. It prompts to pick one
+among them, using minibuffer completion, and then jumps to the
+corresponding file at that exact location where the link is.
+
+Think of the ~denote-find-backlink-with-location~ as the
+minibuffer-centric variant of the backlinks buffer: the backlinks
+buffer sticks around, whereas this one is only available for the
+duration of the command. Depending on the scenario, one is more
+appropriate than the other. [ The command ~denote-find-backlink-with-location~ 
is part of {{{development-version}}}. ]
+
 ** Fontify links in non-Org buffers
 :PROPERTIES:
 :CUSTOM_ID: h:156c5ea3-147b-4f9d-a404-86a00558c60a
@@ -6315,10 +6329,10 @@ Denote is meant to be a collective effort.  Every bit 
of help matters.
   Summer Emacs, Sven Seebeck, Taoufik, TJ Stankus, Vick (VicZz),
   Viktor Haag, Vineet C. Kulkarni, Wade Mealing, Wilf, Yi Liu, Ypot,
   atanasj, azegas, babusri, bdillahu, coherentstate, doolio, duli,
-  drcxd, elge70, elliottw, fingerknight, hpgisler, hyperfocus1337,
-  jtpavlock, juh, leafarbelm, mentalisttraceur, pRot0ta1p, rbenit68,
-  relict007, sarcom-sar, sienic, skissue, sundar bp,
-  yetanotherfossman, zadca123
+  drcxd, elge70, elliottw, fingerknight, hpgisler,
+  hyperfocus1337,johkneisl, jtpavlock, juh, leafarbelm,
+  mentalisttraceur, pRot0ta1p, rbenit68, relict007, sarcom-sar,
+  sienic, skissue, sundar bp, yetanotherfossman, zadca123
 
 Special thanks to Peter Povinec who helped refine the file-naming
 scheme, which is the cornerstone of this project.
diff --git a/denote.el b/denote.el
index 280bcc71eb..03d2c8acf9 100644
--- a/denote.el
+++ b/denote.el
@@ -5516,6 +5516,9 @@ Also see `denote-link-return-links'."
 ;;;###autoload
 (defun denote-find-backlink ()
   "Use minibuffer completion to visit backlink to current file.
+Visit the file itself, not the location where the link is.  For a
+context-sensitive operation, use `denote-find-backlink-with-location'.
+
 Alo see `denote-find-link'."
   (declare (interactive-only t))
   (interactive)
@@ -5524,6 +5527,17 @@ Alo see `denote-find-link'."
   (selected (denote-select-from-files-prompt links "Select among 
BACKLINKS")))
 (find-file selected)))
 
+;;;###autoload
+(defun denote-find-backlink-with-location ()
+  "Like `denote-find-backlink' but jump to the exact location of the link."
+  (declare (interactive-only t))
+  (interactive)
+  (when-let* ((current-file buffer-file-name)
+  (id (denote-retrieve-filename-identifier-with-error 
current-file))
+  (files (denote-directory-files nil :omit-current :text-only))
+  (fetcher (lambda () (xref-matches-in-files id files
+(xref-show-definitions-completing-read fetcher nil)))
+
 ;; Query links
 
 (defvar denote-query-link-history nil

[nongnu] elpa/clojure-ts-mode 2875629cbb 2/3: Improve a bit the design doc

[ELPA Syncer]

branch: elpa/clojure-ts-mode
commit 2875629cbb4cfa1b289c69345d615b6c492ef6a6
Author: Bozhidar Batsov 
Commit: Bozhidar Batsov 

Improve a bit the design doc
---
 doc/design.md | 78 ++-
 1 file changed, 45 insertions(+), 33 deletions(-)

diff --git a/doc/design.md b/doc/design.md
index 0d2df9c550..8afeaffee7 100644
--- a/doc/design.md
+++ b/doc/design.md
@@ -4,47 +4,50 @@ This document is still a work in progress.
 
 Clojure-ts-mode is based on the tree-sitter-clojure grammar.
 
-If you want to contribute to clojure-ts-mode, it is recommend that you 
familiarize yourself with how tree-sitter works.
-The official documentation is a great place to start: 
https://tree-sitter.github.io/tree-sitter/
-These guides for Emacs tree-sitter development are also useful
-- https://casouri.github.io/note/2023/tree-sitter-starter-guide/index.html
+If you want to contribute to clojure-ts-mode, it is recommend that you 
familiarize yourself with how Tree-sitter works.
+The official documentation is a great place to start: 

+These guides for Emacs Tree-sitter development are also useful
+
+- 
 - `Developing major modes with tree-sitter` (From the Emacs 29+ Manual, `C-h 
i`, search for `tree-sitter`)
 
 In short:
-Tree-sitter is a tool that generates parser libraries for programming 
languages, and provides an API for interacting with those parsers.
-The generated parsers can create syntax trees from source code text.
-The nodes of those trees are defined by the grammar.
-Emacs can use these generated parsers to provide major modes with things like 
syntax highlighting, indentation, navigation, structural editing, and many 
other things.
+
+- Tree-sitter is a tool that generates parser libraries for programming 
languages, and provides an API for interacting with those parsers.
+- The generated parsers can create syntax trees from source code text.
+- The nodes of those trees are defined by the grammar.
+- Emacs can use these generated parsers to provide major modes with things 
like syntax highlighting, indentation, navigation, structural editing, and many 
other things.
 
 ## Important Definitions
 
-- Parser: A dynamic library compiled from C source code that is generated by 
the tree-sitter tool. A parser reads source code for a particular language and 
produces a syntax tree.
-- Grammar: The rules that define how a parser will create the syntax tree for 
a language. The grammar is written in javascript. Tree-sitter tooling consumes 
the grammar as input and outputs C source (which can be compiled into a parser)
+- Parser: A dynamic library compiled from C source code that is generated by 
the Tree-sitter tool. A parser reads source code for a particular language and 
produces a syntax tree.
+- Grammar: The rules that define how a parser will create the syntax tree for 
a language. The grammar is written in JavaScript. Tree-sitter tooling consumes 
the grammar as input and outputs C source (which can be compiled into a parser)
 - Syntax Tree: a tree data structure comprised of syntax nodes that represents 
some source code text.
-- Concrete Syntax Tree: Syntax trees that contain nodes for every token in 
the source code, including things likes brackets and parentheses. Tree-sitter 
creates Concrete Syntax Trees.
-- Abstract Syntax Tree: A syntax tree with less important details removed. 
An AST may contain a node for a list, but not individual parentheses. 
Tree-sitter does not create Abstract Syntax Trees.
+  - Concrete Syntax Tree: Syntax trees that contain nodes for every token in 
the source code, including things likes brackets and parentheses. Tree-sitter 
creates Concrete Syntax Trees.
+  - Abstract Syntax Tree: A syntax tree with less important details removed. 
An AST may contain a node for a list, but not individual parentheses. 
Tree-sitter does not create Abstract Syntax Trees.
 - Syntax Node: A node in a syntax tree. It represents some subset of a source 
code text. Each node has a type, defined by the grammar used to produce it. 
Some common node types represent language constructs like strings, integers, 
operators.
-- Named Syntax Node: A node that can be identified by a name given to it 
in the tree-sitter Grammar. In clojure-ts-mode, `list_lit` is a named node for 
lists.
-- Anonymous Syntax Node: A node that cannot be identified by a name. In 
the Grammar these are identified by simple strings, not by complex Grammar 
rules. In clojure-ts-mode, `"("` and `")"` are anonymous nodes.
+  - Named Syntax Node: A node that can be identified by a name given to it in 
the Tree-sitter Grammar. In clojure-ts-mode, `list_lit` is a named node for 
lists.
+  - Anonymous Syntax Node: A node that cannot be identified by a name. In the 
Grammar these are identified by simple strings, not by complex Grammar rules. 
In clojure-ts

[nongnu] elpa/clojure-ts-mode b5c1b0787d 1/3: Update a few references to Tree-sitter

[ELPA Syncer]

branch: elpa/clojure-ts-mode
commit b5c1b0787d90851ef291c1b3a878202812d1fe76
Author: Bozhidar Batsov 
Commit: Bozhidar Batsov 

Update a few references to Tree-sitter
---
 README.md  |  8 
 clojure-ts-mode.el | 12 ++--
 2 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/README.md b/README.md
index 68812ce31a..cf833756b7 100644
--- a/README.md
+++ b/README.md
@@ -4,13 +4,13 @@
 [![License GPL 3][badge-license]][copying]
 [![Lint 
Status](https://github.com/clojure-emacs/clojure-ts-mode/actions/workflows/lint-emacs.yml/badge.svg)](https://github.com/clojure-emacs/clojure-ts-mode/actions/workflows/lint-emacs.yml)
 
-# Clojure Tree-Sitter Mode
+# Clojure Tree-sitter Mode
 
 `clojure-ts-mode` is an Emacs major mode that provides font-lock (syntax
 highlighting), indentation, and navigation support for the
 [Clojure(Script) programming language](http://clojure.org), powered by the
 [tree-sitter-clojure](https://github.com/sogaiu/tree-sitter-clojure)
-[tree-sitter](https://tree-sitter.github.io/tree-sitter/) grammar.
+[Tree-sitter](https://tree-sitter.github.io/tree-sitter/) grammar.
 
 ## Rationale
 
@@ -116,7 +116,7 @@ git clone 
https://github.com/clojure-emacs/clojure-ts-mode.git
 
 Once installed, evaluate `clojure-ts-mode.el` and you should be ready to go.
 
-### Install tree-sitter grammars
+### Install Tree-sitter grammars
 
 > [!NOTE]
 >
@@ -139,7 +139,7 @@ option to install it manually, Please, refer to the 
installation instructions of
 each required grammar and make sure you're install the versions expected. (see
 `clojure-ts-grammar-recipes` for details)
 
-### Upgrading tree-sitter grammars
+### Upgrading Tree-sitter grammars
 
 To reinstall or upgrade Tree-sitter grammars, you can execute:
 
diff --git a/clojure-ts-mode.el b/clojure-ts-mode.el
index 340e01625a..e4ac5e19f8 100644
--- a/clojure-ts-mode.el
+++ b/clojure-ts-mode.el
@@ -17,7 +17,7 @@
 ;; Provides font-lock, indentation, and navigation for the
 ;; Clojure programming language (http://clojure.org).
 
-;; For the tree-sitter grammar this mode is based on,
+;; For the Tree-sitter grammar this mode is based on,
 ;; see https://github.com/sogaiu/tree-sitter-clojure.
 
 ;; Using clojure-ts-mode with paredit or smartparens is highly recommended.
@@ -66,7 +66,7 @@
 (declare-function treesit-node-child-by-field-name "treesit.c")
 
 (defgroup clojure-ts nil
-  "Major mode for editing Clojure code with tree-sitter."
+  "Major mode for editing Clojure code with Tree-sitter."
   :prefix "clojure-ts-"
   :group 'languages
   :link '(url-link :tag "GitHub" 
"https://github.com/clojure-emacs/clojure-ts-mode";)
@@ -89,7 +89,7 @@ itself."
   :package-version '(clojure-ts-mode . "0.1.3"))
 
 (defcustom clojure-ts-ensure-grammars t
-  "When non-nil, ensure required tree-sitter grammars are installed."
+  "When non-nil, ensure required Tree-sitter grammars are installed."
   :safe #'booleanp
   :type 'boolean
   :package-version '(clojure-ts-mode . "0.2.0"))
@@ -1741,7 +1741,7 @@ Forms between BEG and END are aligned according to
 (dolist (recipe clojure-ts-grammar-recipes)
   (let ((grammar (car recipe)))
 (unless (treesit-language-available-p grammar nil)
-  (message "Installing %s tree-sitter grammar" grammar)
+  (message "Installing %s Tree-sitter grammar" grammar)
   ;; `treesit-language-source-alist' is dynamically scoped.
   ;; Binding it in this let expression allows
   ;; `treesit-install-language-gramamr' to pick up the grammar recipes
@@ -1757,7 +1757,7 @@ function can also be used to upgrade the grammars if they 
are outdated."
   (interactive)
   (dolist (recipe clojure-ts-grammar-recipes)
 (let ((grammar (car recipe)))
-  (message "Installing %s tree-sitter grammar" grammar)
+  (message "Installing %s Tree-sitter grammar" grammar)
   (let ((treesit-language-source-alist clojure-ts-grammar-recipes))
 (treesit-install-language-grammar grammar)
 
@@ -1932,7 +1932,7 @@ Useful if you want to switch to the `clojure-mode's mode 
mappings."
 ;; nbb scripts are ClojureScript source files
 (add-to-list 'interpreter-mode-alist '("nbb" . 
clojure-ts-clojurescript-mode))
 (clojure-ts--register-novel-modes)))
-  (message "Clojure TS Mode will not be activated as tree-sitter support is 
missing."))
+  (message "Clojure TS Mode will not be activated as Tree-sitter support is 
missing."))
 
 (defvar clojure-ts--find-ns-query
   (treesit-query-compile

[nongnu] elpa/clojure-ts-mode updated (43dbaddc50 -> ff3969c1ef)

[ELPA Syncer]

elpasync pushed a change to branch elpa/clojure-ts-mode.

  from  43dbaddc50 Fix some issues with short anonymous functions
   new  b5c1b0787d Update a few references to Tree-sitter
   new  2875629cbb Improve a bit the design doc
   new  ff3969c1ef Remove mentions of the mailing list


Summary of changes:
 CONTRIBUTING.md| 12 -
 README.md  |  8 +++---
 clojure-ts-mode.el | 12 -
 doc/design.md  | 78 +++---
 4 files changed, 55 insertions(+), 55 deletions(-)

[nongnu] elpa/clojure-ts-mode ff3969c1ef 3/3: Remove mentions of the mailing list

[ELPA Syncer]

branch: elpa/clojure-ts-mode
commit ff3969c1efb9a8b5651a94f0a78c166a904372a3
Author: Bozhidar Batsov 
Commit: Bozhidar Batsov 

Remove mentions of the mailing list

It was never used, so it seems safe to say we don't really need it.
---
 CONTRIBUTING.md | 12 
 1 file changed, 12 deletions(-)

diff --git a/CONTRIBUTING.md b/CONTRIBUTING.md
index b72898e27a..9a6a3fe6ff 100644
--- a/CONTRIBUTING.md
+++ b/CONTRIBUTING.md
@@ -35,21 +35,9 @@ clojure-ts-mode (version 2.1.1)
 * Open a [pull request][4] that relates to *only* one subject with a clear 
title
 and description in grammatically correct, complete sentences.
 
-## I don't have a github account
-
-or maybe you would rather use email. That is okay.
-
-If you prefer you can also send a message to the [mailing list][7].
-This mailing list is not the [primary issue tracker][1].
-All the same etiquette rules above apply to the mailing list as well.
-Submitted patches will be turned into pull requests.
-Any issues reported on the mailing list will be copied to the issue tracker
-where the primary work will take place.
-
 [1]: https://github.com/clojure-emacs/clojure-ts-mode/issues
 [2]: http://gun.io/blog/how-to-github-fork-branch-and-pull-request
 [3]: http://tbaggery.com/2008/04/19/a-note-about-git-commit-messages.html
 [4]: https://help.github.com/articles/using-pull-requests
 [5]: http://gitready.com/advanced/2009/02/10/squashing-commits-with-rebase.html
 [6]: https://github.com/clojure-emacs/clojure-ts-mode/blob/master/CHANGELOG.md
-[7]: https://lists.sr.ht/~dannyfreeman/clojure-ts-mode

[elpa] externals/jinx 22b8f2273d: jinx--save-dir: Do not switch to .dir-locals.el (Fix #236)

[ELPA Syncer]

branch: externals/jinx
commit 22b8f2273dac63b6231fab53fba8afb1a789ceb7
Author: Daniel Mendler 
Commit: Daniel Mendler 

jinx--save-dir: Do not switch to .dir-locals.el (Fix #236)

Note that the file .dir-locals.el is not saved automatically.
---
 jinx.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/jinx.el b/jinx.el
index e97a50b8c2..4545060047 100644
--- a/jinx.el
+++ b/jinx.el
@@ -957,7 +957,8 @@ action KEY."
  (declare-function project-root "project")
  (project-root proj))
default-directory)))
-  (add-dir-local-variable nil 'jinx-dir-local-words 
jinx-dir-local-words)))
+  (save-window-excursion
+(add-dir-local-variable nil 'jinx-dir-local-words 
jinx-dir-local-words
 (list key word "Directory")))
 
 (defun jinx--save-session (save key word)

[elpa] externals/denote 7d18f17a19 1/2: Make denote-link-return-links accept optional FILES

[ELPA Syncer]

branch: externals/denote
commit 7d18f17a1944a5c35b8256df840e224cb5d2e3ff
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Make denote-link-return-links accept optional FILES
---
 README.org | 5 -
 denote.el  | 7 +--
 2 files changed, 9 insertions(+), 3 deletions(-)

diff --git a/README.org b/README.org
index 6a6d693b92..659168df3f 100644
--- a/README.org
+++ b/README.org
@@ -5496,7 +5496,10 @@ The following sections cover the specifics.
 
 #+findex: denote-link-return-links
 + Function ~denote-link-return-links~ :: Return list of links in
-  current or optional =FILE=.  Also see ~denote-link-return-backlinks~.
+  current or optional =FILE=. With optional =FILES= consider only
+  those, otherwise use the return value of ~denote-directory-files~.
+  Also see ~denote-link-return-backlinks~. [ Optional =FILES= is part
+  of {{{development-version}}}. ]
 
 #+findex: denote-link-return-backlinks
 + Function ~denote-link-return-backlinks~ :: Return list of backlinks
diff --git a/denote.el b/denote.el
index 5b5f8e229a..280bcc71eb 100644
--- a/denote.el
+++ b/denote.el
@@ -4902,14 +4902,17 @@ the generic one."
 nil t nil 'denote-link-find-file-history)))
 (expand-file-name selected (denote-directory
 
-(defun denote-link-return-links (&optional file)
+(defun denote-link-return-links (&optional file files)
   "Return list of links in current or optional FILE.
+With optional FILES, consider only those, otherwise use the return value
+of `denote-directory-files'.
+
 Also see `denote-link-return-backlinks'."
   (when-let* ((current-file (or file (buffer-file-name)))
   ((denote-file-has-supported-extension-p current-file))
   (file-type (denote-filetype-heuristics current-file))
   (regexp (denote--link-in-context-regexp file-type))
-  (files (denote-directory-files))
+  (files (or files (denote-directory-files)))
   (file-identifiers
(with-temp-buffer
  (insert-file-contents current-file)

[elpa] externals/denote-org c7579f620d: Refactor denote-org-dblock--get-missing-links

[ELPA Syncer]

branch: externals/denote-org
commit c7579f620da02f356201f9f9b512efbec413c37b
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Refactor denote-org-dblock--get-missing-links

I removed the denote-link--expand-identifiers from denote.el because
we do not need it for this case. I also made denote-link-return-links
accept an optional FILES parameter, which is useful in this case.

The message we were producing before seems unnecessary, given that
this is done in the context of a dynamic blocks, whose results are
displayed right there. The user already gets the feedback they need.
---
 denote-org.el | 9 +++--
 1 file changed, 3 insertions(+), 6 deletions(-)

diff --git a/denote-org.el b/denote-org.el
index 8d98f7b4c7..fe29b22d39 100644
--- a/denote-org.el
+++ b/denote-org.el
@@ -411,12 +411,9 @@ Also see `denote-org-dblock--files-missing-only'."
   "Return list of missing links to all notes matching REGEXP.
 Missing links are those for which REGEXP does not have a match in
 the current buffer."
-  (let ((found-files (denote-directory-files regexp :omit-current))
-(linked-files (denote-link--expand-identifiers 
denote-org-link-in-context-regexp)))
-(if-let* ((final-files (seq-difference found-files linked-files)))
-final-files
-  (message "All links matching `%s' are present" regexp)
-  '(
+  (when-let* ((all-files (denote-directory-files regexp :omit-current))
+  (linked-files (denote-link-return-links nil all-files)))
+(seq-difference all-files linked-files)))
 
 (defun denote-org-dblock--files-missing-only (files-matching-regexp &optional 
sort-by-component reverse)
   "Return list of missing links to FILES-MATCHING-REGEXP.

[elpa] externals/org updated (e77ccd5046 -> 277344c5ef)

[ELPA Syncer]

elpasync pushed a change to branch externals/org.

  from  e77ccd5046 ox-md.el: New option `org-md-link-org-files-as-md'
  adds  79781bac69 Update version number for the 9.7.29 release
   new  5372790d28 Fix typo in df2b7ba46d
   new  277344c5ef Merge branch 'bugfix'


Summary of changes:
 lisp/org-macs.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

[elpa] externals-release/org 5372790d28: Fix typo in df2b7ba46d

[ELPA Syncer]

branch: externals-release/org
commit 5372790d2867fd354ddb35a622354bbca9103502
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

Fix typo in df2b7ba46d

* lisp/org-macs.el (org-current-text-column): s/warning/warn/
---
 lisp/org-macs.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/org-macs.el b/lisp/org-macs.el
index a966fcfb94..609b9c052a 100644
--- a/lisp/org-macs.el
+++ b/lisp/org-macs.el
@@ -1233,7 +1233,7 @@ indentation."
   `(progn
  (unless (= 8 tab-width)
(org--set-tab-width)
-   (warning "Tab width in Org files must be 8, not %d.  Setting back to 8. 
 Please adjust your `tab-width' settings for Org mode" tab-width))
+   (warn "Tab width in Org files must be 8, not %d.  Setting back to 8.  
Please adjust your `tab-width' settings for Org mode" tab-width))
  (string-width (buffer-substring-no-properties
 (line-beginning-position) (point)
 

[elpa] externals/org 277344c5ef: Merge branch 'bugfix'

[ELPA Syncer]

branch: externals/org
commit 277344c5ef17e2440d3a11b17fabd32519624563
Merge: e77ccd5046 5372790d28
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

Merge branch 'bugfix'
---
 lisp/org-macs.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/org-macs.el b/lisp/org-macs.el
index 15d91bbb20..152f19a817 100644
--- a/lisp/org-macs.el
+++ b/lisp/org-macs.el
@@ -1240,7 +1240,7 @@ indentation."
   `(progn
  (unless (= 8 tab-width)
(org--set-tab-width)
-   (warning "Tab width in Org files must be 8, not %d.  Setting back to 8. 
 Please adjust your `tab-width' settings for Org mode" tab-width))
+   (warn "Tab width in Org files must be 8, not %d.  Setting back to 8.  
Please adjust your `tab-width' settings for Org mode" tab-width))
  (string-width (buffer-substring-no-properties
 (line-beginning-position) (point)
 

[nongnu] elpa/cider c1d1efd8c9 1/3: [#3606] Replace usages of lax-plist-get and lax-plist-put

[ELPA Syncer]

branch: elpa/cider
commit c1d1efd8c98a51ea070934e66f6b9e791f33f9fa
Author: Bozhidar Batsov 
Commit: Bozhidar Batsov 

[#3606] Replace usages of lax-plist-get and lax-plist-put

They were deprecated in Emacs 29, but sadly there's clean way
to avoid their usage on Emacs 27 and 28. That's why I'm just
adding a couple of trivial wrappers, that will reduce the number
of complication warnings.
---
 cider-completion.el |  6 +++---
 cider-docstring.el  |  8 
 cider-eldoc.el  | 32 
 cider-repl.el   |  6 +++---
 cider-util.el   | 16 
 nrepl-client.el |  6 +++---
 nrepl-dict.el   |  5 +++--
 7 files changed, 48 insertions(+), 31 deletions(-)

diff --git a/cider-completion.el b/cider-completion.el
index 4a1437bbc4..23954ffd4a 100644
--- a/cider-completion.el
+++ b/cider-completion.el
@@ -249,9 +249,9 @@ in the buffer."
 (defun cider-company-docsig (thing)
   "Return signature for THING."
   (when-let ((eldoc-info (cider-eldoc-info thing)))
-(let* ((ns (lax-plist-get eldoc-info "ns"))
-   (symbol (lax-plist-get eldoc-info "symbol"))
-   (arglists (lax-plist-get eldoc-info "arglists")))
+(let* ((ns (cider-plist-get eldoc-info "ns"))
+   (symbol (cider-plist-get eldoc-info "symbol"))
+   (arglists (cider-plist-get eldoc-info "arglists")))
   (format "%s: %s"
   (cider-eldoc-format-thing ns symbol thing
 (cider-eldoc-thing-type eldoc-info))
diff --git a/cider-docstring.el b/cider-docstring.el
index 73b29ad24a..4b4430c320 100644
--- a/cider-docstring.el
+++ b/cider-docstring.el
@@ -101,15 +101,15 @@ Note that `cider-docstring' will trim thing smartly, for 
Java doc comments:
 
 (defun cider--render-docstring-first-sentence (eldoc-info)
   "Render the first sentence of the docstring extracted from ELDOC-INFO."
-  (when-let ((first-sentence-fragments (lax-plist-get eldoc-info 
"doc-first-sentence-fragments")))
+  (when-let ((first-sentence-fragments (cider-plist-get eldoc-info 
"doc-first-sentence-fragments")))
 (cider--fragments-to-s first-sentence-fragments)))
 
 (defun cider--render-docstring (eldoc-info)
   "Renders the docstring from ELDOC-INFO based on its length and content.
 Prioritize rendering as much as possible while staying within 
`cider-docstring-max-lines'."
-  (let* ((first-sentence-fragments (lax-plist-get eldoc-info 
"doc-first-sentence-fragments"))
- (body-fragments (lax-plist-get eldoc-info "doc-fragments"))
- (block-tags-fragments (lax-plist-get eldoc-info 
"doc-block-tags-fragments"))
+  (let* ((first-sentence-fragments (cider-plist-get eldoc-info 
"doc-first-sentence-fragments"))
+ (body-fragments (cider-plist-get eldoc-info "doc-fragments"))
+ (block-tags-fragments (cider-plist-get eldoc-info 
"doc-block-tags-fragments"))
  (block-tags-fragments-rendered (cider--fragments-to-s 
block-tags-fragments))
  (first-sentence-fragments-rendered) ;; mutable, for performance
  (first-attempt (when body-fragments
diff --git a/cider-eldoc.el b/cider-eldoc.el
index a787393ba9..3a04f1df95 100644
--- a/cider-eldoc.el
+++ b/cider-eldoc.el
@@ -214,15 +214,15 @@ Otherwise, only the docstring is returned."
 
 THING is the variable name.  ELDOC-INFO is a p-list containing the eldoc
 information."
-  (let* ((ns (lax-plist-get eldoc-info "ns"))
- (symbol (lax-plist-get eldoc-info "symbol"))
+  (let* ((ns (cider-plist-get eldoc-info "ns"))
+ (symbol (cider-plist-get eldoc-info "symbol"))
  (docstring (or (cider--render-docstring-first-sentence eldoc-info)
 (cider--render-docstring eldoc-info)
-(when-let (docstring (lax-plist-get eldoc-info 
"docstring"))
+(when-let (docstring (cider-plist-get eldoc-info 
"docstring"))
   (cider-docstring--trim
(cider-docstring--format docstring)
  ;; if it's a single class (and not multiple class candidates), that's 
it
- (maybe-class (car (lax-plist-get eldoc-info "class")))
+ (maybe-class (car (cider-plist-get eldoc-info "class")))
  (formatted-var (or (when maybe-class
   (cider-propertize maybe-class 'var))
 (cider-eldoc-format-thing ns symbol thing 'var
@@ -233,9 +233,9 @@ information."
   "Return the formatted eldoc string for a function.
 THING is the function name.  POS is the argument-index of the functions
 arglists.  ELDOC-INFO is a p-list containing the eldoc information."
-  (let ((ns (lax-plist-get eldoc-info "ns"))
-(symbol (lax-plist-get eldoc-info "symbol"))
-(arglists (lax-plist-get eldoc-info "arglists")))
+  (let ((ns (cider-plist-get eldoc-info "ns"))
+(symbol (cider-plist-get eldoc-info "symbol"))
+(arglists (cider-plist-get eldoc-info "arglists"

[nongnu] elpa/cider db6b05a9b6 2/3: [#3606] Fix incorrect defcustom :type attributes

[ELPA Syncer]

branch: elpa/cider
commit db6b05a9b6a95f3aee9f6fd4a912d0597b622230
Author: Bozhidar Batsov 
Commit: Bozhidar Batsov 

[#3606] Fix incorrect defcustom :type attributes
---
 cider-stacktrace.el | 9 ++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/cider-stacktrace.el b/cider-stacktrace.el
index 77ae4f938f..8d3f4ca67e 100644
--- a/cider-stacktrace.el
+++ b/cider-stacktrace.el
@@ -48,12 +48,15 @@
   "Fill column for error messages in stacktrace display.
 If nil, messages will not be wrapped.  If truthy but non-numeric,
 `fill-column' will be used."
-  :type 'list
+  :type '(radio
+  (integer :tag "Fill Column")
+  (const :tag "None" nil)
+  (const :tag "Use default fill-column" t)))
   :package-version '(cider . "0.7.0"))
 
 (defcustom cider-stacktrace-default-filters '(tooling dup)
   "Frame types to omit from initial stacktrace display."
-  :type 'list
+  :type '(list symbol)
   :package-version '(cider . "0.6.0"))
 
 (defcustom cider-stacktrace-navigate-to-other-window t
@@ -75,7 +78,7 @@ Pick nil if you prefer the same window as *cider-error*."
 (defcustom cider-stacktrace-suppressed-errors '()
   "Errors that won't make the stacktrace buffer 'pop-over' your active window.
 The error types are represented as strings."
-  :type 'list
+  :type '(list string)
   :package-version '(cider . "0.12.0"))
 
 ;; Faces

[nongnu] elpa/cider c920799bfb 3/3: [#3606] Fix incorrect defcustom :type attribute

[ELPA Syncer]

branch: elpa/cider
commit c920799bfbb69d773eabfc30371b009696d74110
Author: Bozhidar Batsov 
Commit: Bozhidar Batsov 

[#3606] Fix incorrect defcustom :type attribute
---
 cider-ns.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/cider-ns.el b/cider-ns.el
index 4f64083737..1f56c20998 100644
--- a/cider-ns.el
+++ b/cider-ns.el
@@ -83,8 +83,8 @@ If t, save the files without confirmation."
 If a list of modes, any buffers visiting files on the classpath whose major
 mode is derived from any of the modes might be saved.
 If t, all buffers visiting files on the classpath might be saved."
-  :type '(choice listp
- (const t))
+  :type '(choice (repeat :tag "Enable for specific modes" symbol)
+ (const :tag "Always" t))
   :group 'cider
   :package-version '(cider . "0.21.0"))
 

[nongnu] elpa/cider updated (c46dc496d4 -> c920799bfb)

[ELPA Syncer]

elpasync pushed a change to branch elpa/cider.

  from  c46dc496d4 Bump cider-nrepl to 0.55.7
   new  c1d1efd8c9 [#3606] Replace usages of lax-plist-get and lax-plist-put
   new  db6b05a9b6 [#3606] Fix incorrect defcustom :type attributes
   new  c920799bfb [#3606] Fix incorrect defcustom :type attribute


Summary of changes:
 cider-completion.el |  6 +++---
 cider-docstring.el  |  8 
 cider-eldoc.el  | 32 
 cider-ns.el |  4 ++--
 cider-repl.el   |  6 +++---
 cider-stacktrace.el |  9 ++---
 cider-util.el   | 16 
 nrepl-client.el |  6 +++---
 nrepl-dict.el   |  5 +++--
 9 files changed, 56 insertions(+), 36 deletions(-)