[elpa] externals/ellama 5413e0a9a0 1/4: Improve semantic similarity response

[ELPA Syncer]

branch: externals/ellama
commit 5413e0a9a0d8e5539b9735ba8bddca13a98bf2bb
Author: Sergey Kostyaev 
Commit: Sergey Kostyaev 

Improve semantic similarity response

Updated the semantic similarity response to include a reasoning step.
Added a new property 'think' to explain the reasoning behind the
similarity decision. Also, expanded the test cases in integration
tests to cover more scenarios including definitions and explanations.
---
 ellama.el| 10 +++---
 tests/integration-test-ellama.el |  7 +--
 2 files changed, 12 insertions(+), 5 deletions(-)

diff --git a/ellama.el b/ellama.el
index f8d56e8e26..59b226766e 100644
--- a/ellama.el
+++ b/ellama.el
@@ -407,7 +407,10 @@ is not changed.
 %s
 
 
-{\"same\": true}
+{
+  \"think\": \"Think if texts have same meaning\",
+  \"same\": true
+}
 "
   "Extract string list template."
   :group 'ellama
@@ -2544,8 +2547,9 @@ otherwise prompt user for URL to summarize."
  (llm-make-chat-prompt
   (format ellama-semantic-identity-template text1 text2)
   :response-format '(:type object :properties
-  (:same (:type boolean))
-  :required ["same"])))
+  (:think (:type string)
+  :same (:type boolean))
+  :required ["think" "same"])))
 :object-type 'plist
 :false-object nil)
:same))
diff --git a/tests/integration-test-ellama.el b/tests/integration-test-ellama.el
index aaea94c719..e2c7d7466e 100644
--- a/tests/integration-test-ellama.el
+++ b/tests/integration-test-ellama.el
@@ -42,11 +42,14 @@
 (dolist (el '("How many r's in strawberry?"
   "How many times letter r appears in word strawberry?"
   "How many r's in strawberry?"
-  "How many times letter e appears in word 
strawberry?"))
+  "How many times letter e appears in word strawberry?"
+  "Define RAPTOR"
+  "What does mean RAPTOR?"))
   (cl-pushnew el res :test #'ellama-semantic-similar-p))
 (reverse res))
   '("How many r's in strawberry?"
-"How many times letter e appears in word strawberry?"
+"How many times letter e appears in word strawberry?"
+"Define RAPTOR"
 
 (ert-deftest ellama-semantic-similar-reasoning-test ()
   "Check if `ellama-make-semantic-similar-p-with-context' works correctly."

[elpa] externals/ellama 1e3b3210f0 4/4: Bump version

[ELPA Syncer]

branch: externals/ellama
commit 1e3b3210f0b553e7158065116a4d84adc7f3f1bd
Author: Sergey Kostyaev 
Commit: Sergey Kostyaev 

Bump version
---
 NEWS.org  | 2 ++
 ellama.el | 2 +-
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/NEWS.org b/NEWS.org
index 459acd14a3..5ca65a2415 100644
--- a/NEWS.org
+++ b/NEWS.org
@@ -1,3 +1,5 @@
+* Version 1.1.4
+- Improve the accuracy and reliability of the ~ellama-semantic-similar-p~ 
function.
 * Version 1.1.3
 - Ensure unique elements in session and global contexts.
 - Change default transient host and port to fix ollama provider setup.
diff --git a/ellama.el b/ellama.el
index 59b226766e..f4815acb06 100644
--- a/ellama.el
+++ b/ellama.el
@@ -6,7 +6,7 @@
 ;; URL: http://github.com/s-kostyaev/ellama
 ;; Keywords: help local tools
 ;; Package-Requires: ((emacs "28.1") (llm "0.22.0") (spinner "1.7.4") 
(transient "0.7") (compat "29.1") (posframe "1.4.0"))
-;; Version: 1.1.3
+;; Version: 1.1.4
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;; Created: 8th Oct 2023
 

[elpa] externals/ellama updated (6615a857d6 -> 1e3b3210f0)

[ELPA Syncer]

elpasync pushed a change to branch externals/ellama.

  from  6615a857d6 Merge pull request #217 from s-kostyaev/improve-ctx
   new  5413e0a9a0 Improve semantic similarity response
   new  9628f96f73 Add reasoning models and writing code GIFs to README
   new  480bb79a5d Merge pull request #218 from 
s-kostyaev/improve-semantic-similarity-test
   new  1e3b3210f0 Bump version


Summary of changes:
 NEWS.org |   2 ++
 README.org   |   2 ++
 ellama.el|  12 
 imgs/reasoning-models.gif| Bin 0 -> 7138749 bytes
 imgs/writing-code.gif| Bin 0 -> 5224686 bytes
 tests/integration-test-ellama.el |   7 +--
 6 files changed, 17 insertions(+), 6 deletions(-)
 create mode 100644 imgs/reasoning-models.gif
 create mode 100644 imgs/writing-code.gif

[elpa] externals/ellama 480bb79a5d 3/4: Merge pull request #218 from s-kostyaev/improve-semantic-similarity-test

[ELPA Syncer]

branch: externals/ellama
commit 480bb79a5d46bc5e5c73b2506b1ef4ed3d936c84
Merge: 6615a857d6 9628f96f73
Author: Sergey Kostyaev 
Commit: GitHub 

Merge pull request #218 from s-kostyaev/improve-semantic-similarity-test

Improve semantic similarity response

Add new GIFs to readme
---
 README.org   |   2 ++
 ellama.el|  10 +++---
 imgs/reasoning-models.gif| Bin 0 -> 7138749 bytes
 imgs/writing-code.gif| Bin 0 -> 5224686 bytes
 tests/integration-test-ellama.el |   7 +--
 5 files changed, 14 insertions(+), 5 deletions(-)

diff --git a/README.org b/README.org
index 54de73d9f2..e8be815f66 100644
--- a/README.org
+++ b/README.org
@@ -14,6 +14,7 @@ output, making it effortless to use with your preferred text 
editor.
 
 The name "ellama" is derived from "Emacs Large LAnguage Model
 Assistant". Previous sentence was written by Ellama itself.
+[[file:imgs/reasoning-models.gif]]
 
 ** Installation
 
@@ -197,6 +198,7 @@ Generate and insert new code based on description. This 
function
 prompts the user to describe the code they want to generate. If a
 region is active, it includes the selected text as context for code
 generation.
+[[file:imgs/writing-code.gif]]
 
 *** ellama-code-edit
 
diff --git a/ellama.el b/ellama.el
index f8d56e8e26..59b226766e 100644
--- a/ellama.el
+++ b/ellama.el
@@ -407,7 +407,10 @@ is not changed.
 %s
 
 
-{\"same\": true}
+{
+  \"think\": \"Think if texts have same meaning\",
+  \"same\": true
+}
 "
   "Extract string list template."
   :group 'ellama
@@ -2544,8 +2547,9 @@ otherwise prompt user for URL to summarize."
  (llm-make-chat-prompt
   (format ellama-semantic-identity-template text1 text2)
   :response-format '(:type object :properties
-  (:same (:type boolean))
-  :required ["same"])))
+  (:think (:type string)
+  :same (:type boolean))
+  :required ["think" "same"])))
 :object-type 'plist
 :false-object nil)
:same))
diff --git a/imgs/reasoning-models.gif b/imgs/reasoning-models.gif
new file mode 100644
index 00..cd56095ec1
Binary files /dev/null and b/imgs/reasoning-models.gif differ
diff --git a/imgs/writing-code.gif b/imgs/writing-code.gif
new file mode 100644
index 00..6d1c6a87ca
Binary files /dev/null and b/imgs/writing-code.gif differ
diff --git a/tests/integration-test-ellama.el b/tests/integration-test-ellama.el
index aaea94c719..e2c7d7466e 100644
--- a/tests/integration-test-ellama.el
+++ b/tests/integration-test-ellama.el
@@ -42,11 +42,14 @@
 (dolist (el '("How many r's in strawberry?"
   "How many times letter r appears in word strawberry?"
   "How many r's in strawberry?"
-  "How many times letter e appears in word 
strawberry?"))
+  "How many times letter e appears in word strawberry?"
+  "Define RAPTOR"
+  "What does mean RAPTOR?"))
   (cl-pushnew el res :test #'ellama-semantic-similar-p))
 (reverse res))
   '("How many r's in strawberry?"
-"How many times letter e appears in word strawberry?"
+"How many times letter e appears in word strawberry?"
+"Define RAPTOR"
 
 (ert-deftest ellama-semantic-similar-reasoning-test ()
   "Check if `ellama-make-semantic-similar-p-with-context' works correctly."

[elpa] externals/debbugs 69f4dc14e8 2/2: doc: Update manual names in the directory node

[Michael Albinus via]

branch: externals/debbugs
commit 69f4dc14e8cbffbada422fe4e2d5640692a63425
Author: Morgan Smith 
Commit: Michael Albinus 

doc: Update manual names in the directory node

This should help the user select the correct manual from the name
alone (such as when using `Info-menu' to select the node).

* debbugs-ug.texi: Debbugs UG -> Debbugs User Guide
* debbugs.texi: Debbugs UG -> Debbugs Library
---
 debbugs-ug.texi | 2 +-
 debbugs.texi| 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/debbugs-ug.texi b/debbugs-ug.texi
index 0cd89177ce..ef2f20b081 100644
--- a/debbugs-ug.texi
+++ b/debbugs-ug.texi
@@ -4,7 +4,7 @@
 
 @dircategory Emacs
 @direntry
-* Debbugs UG: (debbugs-ug).  Debbugs User Interface in Emacs.
+* Debbugs User Guide: (debbugs-ug).  Debbugs User Interface in Emacs.
 @end direntry
 
 @copying
diff --git a/debbugs.texi b/debbugs.texi
index d682077ee0..f5024c5c36 100644
--- a/debbugs.texi
+++ b/debbugs.texi
@@ -4,7 +4,7 @@
 
 @dircategory Emacs
 @direntry
-* Debbugs: (debbugs).  A library for communication with Debbugs.
+* Debbugs Library: (debbugs).  A library for communication with Debbugs.
 @end direntry
 
 @copying

[elpa] externals/debbugs updated (c2f34b2379 -> 69f4dc14e8)

[Michael Albinus via]

albinus pushed a change to branch externals/debbugs.

  from  c2f34b2379 Use consequently `when-let*' and `if-let*
   new  7f0e390dd5 Makefile: Add build targets for info manuals
   new  69f4dc14e8 doc: Update manual names in the directory node


Summary of changes:
 Makefile| 11 +--
 debbugs-ug.texi |  2 +-
 debbugs.texi|  2 +-
 3 files changed, 11 insertions(+), 4 deletions(-)

[elpa] externals/debbugs 7f0e390dd5 1/2: Makefile: Add build targets for info manuals

[Michael Albinus via]

branch: externals/debbugs
commit 7f0e390dd56adf651c1d7329314a01f7c84101e5
Author: Morgan Smith 
Commit: Michael Albinus 

Makefile: Add build targets for info manuals

* Makefile: Add built targets for debbugs.info and debbugs-ug.info.
---
 Makefile | 11 +--
 1 file changed, 9 insertions(+), 2 deletions(-)

diff --git a/Makefile b/Makefile
index 3d54c2c7b6..a7b6b0c7f3 100644
--- a/Makefile
+++ b/Makefile
@@ -1,10 +1,12 @@
 EMACS ?= emacs
+MAKEINFO ?= makeinfo
 
 SOURCE=$(wildcard *.el)
 TESTSOURCE=$(wildcard test/*.el)
 TARGET=$(filter-out debbugs-pkg.elc,$(patsubst %.el,%.elc,$(SOURCE)))
 TESTTARGET=$(patsubst %.el,%.elc,$(TESTSOURCE))
 
+INFOMANUALS=debbugs.info debbugs-ug.info
 
 .PHONY: all build check clean
 .PRECIOUS: %.elc
@@ -12,7 +14,12 @@ TESTTARGET=$(patsubst %.el,%.elc,$(TESTSOURCE))
 %.elc: %.el
@$(EMACS) -Q -batch -L . -f batch-byte-compile $<
 
-all: build
+%.info: %.texi
+   $(MAKEINFO) --error-limit=0 --no-split $< -o $@
+
+all: build doc
+
+doc: $(INFOMANUALS)
 
 build: $(TARGET)
 
@@ -20,4 +27,4 @@ check: build $(TESTTARGET)
@$(EMACS) -Q --batch -L . -l $(TESTSOURCE) -f 
ert-run-tests-batch-and-exit
 
 clean:
-   -rm -f $(TARGET) $(TESTTARGET)
+   -rm -f $(TARGET) $(TESTTARGET) $(INFOMANUALS)

[nongnu] elpa/loopy d00aa7d8ed: Deprecate the behavior of `set` with no values. (#229)

[ELPA Syncer]

branch: elpa/loopy
commit d00aa7d8edab5f48f6acc6bd984c6667c7ec25fd
Author: okamsn <28612288+oka...@users.noreply.github.com>
Commit: GitHub 

Deprecate the behavior of `set` with no values. (#229)

Currently, `(set VAR)` will set `VAR` to `nil`.  Because this is likely a
mistake and because `nil` is a short word to type for greater clarity, 
deprecate
this behavior and signal a warning.
---
 CHANGELOG.md   | 10 ++
 README.org |  3 +++
 doc/loopy-doc.org  |  7 ++-
 doc/loopy.texi | 27 ---
 lisp/loopy-commands.el |  7 +--
 5 files changed, 32 insertions(+), 22 deletions(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index ecd00691f0..2560894ace 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -4,6 +4,16 @@ This document describes the user-facing changes to Loopy.
 
 For Loopy Dash, see .
 
+## Unreleased
+
+### Breaking Changes
+
+- `set` now warns when it is not given a value ([#229]).  Currently, `(set 
VAR)`
+  binds `VAR` to `nil`, but since this form is indistinguishable from a 
mistake,
+  and since `nil` is a short word to write, this behavior is deprecated.
+
+[#229]: https://github.com/okamsn/loopy/PR/229
+
 ## 0.14.0
 
 ### Commands for Generic (`seq.el`) Sequences
diff --git a/README.org b/README.org
index 6af181fb66..3046c03c34 100644
--- a/README.org
+++ b/README.org
@@ -35,6 +35,9 @@ please let me know.
 -
 
  _Recent breaking changes:_
+ - Unreleased:
+   - =set= now warns when it is not given a value.  In the future, it will
+ signal an error.
  - Version 0.14.0:
- Conflicting initialization values for accumulation variables now signal
  a warning.  In the future, they will signal an error.
diff --git a/doc/loopy-doc.org b/doc/loopy-doc.org
index 9fa7d1488d..c02e5cdca9 100644
--- a/doc/loopy-doc.org
+++ b/doc/loopy-doc.org
@@ -1324,11 +1324,8 @@ value and do no affect how the loop iterates.
 
 #+findex: set
 #+findex: setting
-#+findex: expr
-#+findex: exprs
-- =(set VAR [EXPRS])= :: Bind =VAR= to each =EXPR= in order.  Once the last
-  =EXPR= is reached, it is used repeatedly for the rest of the loop.  With no
-  =EXPR=, =VAR= is bound to ~nil~ during each iteration of the loop.
+- =(set VAR EXPR [EXPRS])= :: Bind =VAR= to each =EXPR= in order.  Once the 
last
+  =EXPR= is reached, it is used repeatedly for the rest of the loop.
 
   This command also has the aliases =setting=.
 
diff --git a/doc/loopy.texi b/doc/loopy.texi
index 75f7726c61..1556b0f8c0 100644
--- a/doc/loopy.texi
+++ b/doc/loopy.texi
@@ -705,7 +705,7 @@ You should keep in mind that commands are evaluated in 
order.  This means that
 attempting something like the below example might not do what you expect, as 
@samp{i}
 is assigned a value from the list after collecting @samp{i} into @samp{coll}.
 
-@float Listing,org98ed280
+@float Listing,org3151e6b
 @lisp
 ;; => (nil 1 2)
 (loopy (collect coll i)
@@ -887,7 +887,7 @@ the flag @samp{dash} provided by the package 
@samp{loopy-dash}.
 
 Below are two examples of destructuring in @code{cl-loop} and @code{loopy}.
 
-@float Listing,org68c72e4
+@float Listing,org7bf92c8
 @lisp
 ;; => (1 2 3 4)
 (cl-loop for (i . j) in '((1 . 2) (3 . 4))
@@ -902,7 +902,7 @@ Below are two examples of destructuring in @code{cl-loop} 
and @code{loopy}.
 @caption{Destructuring values in a list.}
 @end float
 
-@float Listing,orgebc9f13
+@float Listing,org0853253
 @lisp
 ;; => (1 2 3 4)
 (cl-loop for elem in '((1 . 2) (3 . 4))
@@ -1473,13 +1473,10 @@ expressions.  Currently, this command is only useful 
when used within the
 
 @findex set
 @findex setting
-@findex expr
-@findex exprs
 @table @asis
-@item @samp{(set VAR [EXPRS])}
+@item @samp{(set VAR EXPR [EXPRS])}
 Bind @samp{VAR} to each @samp{EXPR} in order.  Once the last
-@samp{EXPR} is reached, it is used repeatedly for the rest of the loop.  With 
no
-@samp{EXPR}, @samp{VAR} is bound to @code{nil} during each iteration of the 
loop.
+@samp{EXPR} is reached, it is used repeatedly for the rest of the loop.
 
 This command also has the aliases @samp{setting}.
 
@@ -1637,7 +1634,7 @@ cases, which has a minor speed cost.
  collect num into nums-2
  finally return (list num nums-1 nums-2))
 
-;; => (4 (nil 2 3 4) (1 2 3 4))
+;; => (4 (nil 1 2 3) (1 2 3 4))
 (loopy (list elem (list 1 2 3 4))
(collect nums-1 num)
(numbers num :from 1)
@@ -1647,12 +1644,12 @@ cases, which has a minor speed cost.
 
 Generally, iteration commands with conditions check whether to terminate the
 loop @emph{before} the next iteration is run.  They do not check their 
conditions
-while running the current iteration.  In the below example, note that the final
-value of @code{i} is 2 and not 3, even though the @samp{do} command (similar to
+while running the current iteration step.  In the below example, note that the
+final value of @code{i} is 2 and not 3, even though the @samp{do} command 
(similar to
 @c

[nongnu] elpa/gptel f02c03c647: gptel-transient: Handle read-only regions when replacing

[ELPA Syncer]

branch: elpa/gptel
commit f02c03c6473a520f6fab096e347fc3a038678c70
Author: Karthik Chikmagalur 
Commit: Karthik Chikmagalur 

gptel-transient: Handle read-only regions when replacing

* gptel-transient.el (gptel--suffix-send): When replacing the
prompt, watch out for read-only text.  Also handle replacement
regions that are partially read-only, like the minibuffer with a
prompt.
---
 gptel-transient.el | 31 ++-
 1 file changed, 14 insertions(+), 17 deletions(-)

diff --git a/gptel-transient.el b/gptel-transient.el
index d2c686932c..3dbd97e311 100644
--- a/gptel-transient.el
+++ b/gptel-transient.el
@@ -1327,23 +1327,20 @@ This sets the variable `gptel-include-tool-results', 
which see."
   ;; The HTTP request callback might modify the buffer before the in-place
   ;; text is killed below.
   (when in-place
-;; Kill the latest prompt
-(let ((beg
-   (if (use-region-p)
-   (region-beginning)
- (save-excursion
-   (text-property-search-backward
-'gptel 'response
-(when (get-char-property (max (point-min) (1- (point)))
- 'gptel)
-  t))
-   (point
-  (end (if (use-region-p) (region-end) (point
-  (unless output-to-other-buffer-p
-;; store the killed text in gptel-history
-(gptel--attach-response-history
- (list (buffer-substring-no-properties beg end
-  (kill-region beg end)))
+(if (or buffer-read-only (get-char-property (point) 'read-only))
+(message "Not replacing prompt: region is read-only")
+  (let ((beg (if (use-region-p)
+ (region-beginning)
+   (max (previous-single-property-change
+ (point) 'gptel nil (point-min))
+(previous-single-property-change
+ (point) 'read-only nil (point-min)
+(end (if (use-region-p) (region-end) (point
+(unless output-to-other-buffer-p
+  ;; store the killed text in gptel-history
+  (gptel--attach-response-history
+   (list (buffer-substring-no-properties beg end
+(kill-region beg end
 
   (when output-to-other-buffer-p
 (message (concat "Prompt sent to buffer: "

[elpa] externals-release/org 971b057740: Add workaround to make yank-media work under GNOME for Emacs 29

[ELPA Syncer]

branch: externals-release/org
commit 971b0577402c3aeff8e1e27f5de3c7332a45dba6
Author: Visuwesh 
Commit: Ihor Radchenko 

Add workaround to make yank-media work under GNOME for Emacs 29

* lisp/org-compat.el: Add workaround proposed by Robert Pluim
 to make yank-media work under GNOME reliably for
Emacs 29.

Link: https://list.orgmode.org/orgmode/87ed7kttoa@k-7.ch
Reported-by: Sébastien Gendre 
---
 lisp/org-compat.el | 20 
 1 file changed, 20 insertions(+)

diff --git a/lisp/org-compat.el b/lisp/org-compat.el
index 4c4178dbc8..011d012355 100644
--- a/lisp/org-compat.el
+++ b/lisp/org-compat.el
@@ -1815,6 +1815,26 @@ key."
 "configure `org-speed-commands' instead." "9.5")
 (provide 'org-compat)
 
+ yank-media
+;; Emacs 29's pgtk port has a bug where it might fail to return the
+;; right TARGET.  Install a workaround for Emacs <=29 since the fix
+;; went to Emacs 30.  See bug#72254.
+;; Org bug report link: https://list.orgmode.org/orgmode/87ed7kttoa@k-7.ch
+;; This should be removed once we drop Emacs 29 support.
+(when (and (fboundp 'pgtk-get-selection-internal)
+   (<= emacs-major-version 29))
+  ;; Only define the method if it hasn't been previously defined.
+  (unless (cl-find-method 'gui-backend-get-selection nil
+  '((eql 'CLIPBOARD) (eql 'TARGETS)
+((&context . window-system) eql 'pgtk)))
+(cl-defmethod gui-backend-get-selection ((selection-symbol (eql 
'CLIPBOARD))
+ (target-type (eql 'TARGETS))
+ &context (window-system pgtk))
+  (let ((sel (pgtk-get-selection-internal selection-symbol target-type)))
+(if (vectorp sel)
+sel
+  (vector sel))
+
 ;; Local variables:
 ;; generated-autoload-file: "org-loaddefs.el"
 ;; End:

[elpa] externals/ellama 9628f96f73 2/4: Add reasoning models and writing code GIFs to README

[ELPA Syncer]

branch: externals/ellama
commit 9628f96f7380027b35a8a10f32d152a4d47df530
Author: Sergey Kostyaev 
Commit: Sergey Kostyaev 

Add reasoning models and writing code GIFs to README

Added two new GIF images, `reasoning-models.gif` and
`writing-code.gif`, to the README.org file. These images provide
visual demonstrations of the ellama tool's capabilities in reasoning
with models and generating/editing code. Updated the README to include
references to these new images.
---
 README.org|   2 ++
 imgs/reasoning-models.gif | Bin 0 -> 7138749 bytes
 imgs/writing-code.gif | Bin 0 -> 5224686 bytes
 3 files changed, 2 insertions(+)

diff --git a/README.org b/README.org
index 54de73d9f2..e8be815f66 100644
--- a/README.org
+++ b/README.org
@@ -14,6 +14,7 @@ output, making it effortless to use with your preferred text 
editor.
 
 The name "ellama" is derived from "Emacs Large LAnguage Model
 Assistant". Previous sentence was written by Ellama itself.
+[[file:imgs/reasoning-models.gif]]
 
 ** Installation
 
@@ -197,6 +198,7 @@ Generate and insert new code based on description. This 
function
 prompts the user to describe the code they want to generate. If a
 region is active, it includes the selected text as context for code
 generation.
+[[file:imgs/writing-code.gif]]
 
 *** ellama-code-edit
 
diff --git a/imgs/reasoning-models.gif b/imgs/reasoning-models.gif
new file mode 100644
index 00..cd56095ec1
Binary files /dev/null and b/imgs/reasoning-models.gif differ
diff --git a/imgs/writing-code.gif b/imgs/writing-code.gif
new file mode 100644
index 00..6d1c6a87ca
Binary files /dev/null and b/imgs/writing-code.gif differ

[nongnu] elpa/clojure-ts-mode ee8baed643: Add custom fill-paragraph function to respect docstrings

[ELPA Syncer]

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

Add custom fill-paragraph function to respect docstrings
---
 CHANGELOG.md|  2 +
 README.md   | 11 +
 clojure-ts-mode.el  | 37 +
 test/clojure-ts-mode-fill-paragraph-test.el | 62 +
 4 files changed, 112 insertions(+)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index c1679109b2..3f0f61a824 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -10,6 +10,8 @@
 - [#42]: Fix font locking of definitions with metadata
 - [#42]: Fix indentation of definitions with metadata
 - Fix semantic indentation of quoted functions
+- Add custom `fill-paragraph-function` which respects docstrings similar to
+  `clojure-mode`.
 
 ## 0.2.2 (2024-02-16)
 
diff --git a/README.md b/README.md
index 62d8414ccf..a3d762ccb9 100644
--- a/README.md
+++ b/README.md
@@ -52,6 +52,17 @@ To make forms inside of `(comment ...)` forms appear as 
top-level forms for eval
 (setq clojure-ts-toplevel-inside-comment-form t)
 ```
 
+### Fill paragraph
+
+To change the maximal line length used by `M-x prog-fill-reindent-defun` (also
+bound to `M-q` by default) to reformat docstrings and comments it's possible to
+customize `clojure-ts-fill-paragraph` variable (by default set to the value of
+Emacs' `fill-paragraph` value).
+
+Every new line in the docstrings is indented by
+`clojure-ts-docstring-fill-prefix-width` number of spaces (set to 2 by default
+which matches the `clojure-mode` settings).
+
 ## Rationale
 
 [clojure-mode](https://github.com/clojure-emacs/clojure-mode) has served us 
well
diff --git a/clojure-ts-mode.el b/clojure-ts-mode.el
index 2c56c19fe4..1d6fa215e7 100644
--- a/clojure-ts-mode.el
+++ b/clojure-ts-mode.el
@@ -97,6 +97,21 @@ itself."
   :safe #'booleanp
   :package-version '(clojure-ts-mode . "0.2.1"))
 
+(defcustom clojure-ts-docstring-fill-column fill-column
+  "Value of `fill-column' to use when filling a docstring."
+  :type 'integer
+  :safe #'integerp
+  :package-version '(clojure-ts-mode . "0.2.3"))
+
+(defcustom clojure-ts-docstring-fill-prefix-width 2
+  "Width of `fill-prefix' when filling a docstring.
+The default value conforms with the de facto convention for
+Clojure docstrings, aligning the second line with the opening
+double quotes on the third column."
+  :type 'integer
+  :safe #'integerp
+  :package-version '(clojure-ts-mode . "0.2.3"))
+
 (defvar clojure-ts--debug nil
   "Enables debugging messages, shows current node in mode-line.
 Only intended for use at development time.")
@@ -863,6 +878,27 @@ forms like deftype, defrecord, reify, proxy, etc."
 '(semantic fixed)
 clojure-ts-indent-style)
 
+(defun clojure-ts--docstring-fill-prefix ()
+  "The prefix string used by `clojure-ts--fill-paragraph'.
+It is simply `clojure-ts-docstring-fill-prefix-width' number of spaces."
+  (make-string clojure-ts-docstring-fill-prefix-width ? ))
+
+(defun clojure-ts--fill-paragraph (&optional justify)
+  "Like `fill-paragraph', but can handler Clojure docstrings.
+If JUSTIFY is non-nil, justify as well as fill the paragraph."
+  (let ((current-node (treesit-node-at (point
+(if (clojure-ts--match-docstring nil current-node nil)
+(let ((fill-column (or clojure-ts-docstring-fill-column fill-column))
+  (fill-prefix (clojure-ts--docstring-fill-prefix))
+  (beg-doc (treesit-node-start current-node))
+  (end-doc (treesit-node-end current-node)))
+  (save-restriction
+(narrow-to-region beg-doc end-doc)
+(fill-paragraph justify)))
+  (or (fill-comment-paragraph justify)
+  (fill-paragraph justify)))
+t))
+
 (defconst clojure-ts--sexp-nodes
   '("#_" ;; transpose-sexp near a discard macro moves it around.
 "num_lit" "sym_lit" "kwd_lit" "nil_lit" "bool_lit"
@@ -963,6 +999,7 @@ See `clojure-ts--font-lock-settings' for usage of 
MARKDOWN-AVAILABLE."
 (keyword string char symbol builtin type)
 (constant number quote metadata doc)
 (bracket deref function regex tagged-literals)))
+  (setq-local fill-paragraph-function #'clojure-ts--fill-paragraph)
   (when (boundp 'treesit-thing-settings) ;; Emacs 30+
 (setq-local treesit-thing-settings clojure-ts--thing-settings)))
 
diff --git a/test/clojure-ts-mode-fill-paragraph-test.el 
b/test/clojure-ts-mode-fill-paragraph-test.el
new file mode 100644
index 00..a7e2dde53c
--- /dev/null
+++ b/test/clojure-ts-mode-fill-paragraph-test.el
@@ -0,0 +1,62 @@
+;;; clojure-ts-mode-fill-paragraph-test.el ---   -*- lexical-binding: t; 
-*-
+
+;; Copyright (C) 2025  Roman Rudakov
+
+;; This file is not part of GNU Emacs.
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; t

[elpa] externals/elisp-benchmarks 94d1d747cd: Provide consistent features in benchmarks

[Andrea Corallo]

branch: externals/elisp-benchmarks
commit 94d1d747cdf9b37b1634019208594b0d366638be
Author: Andrea Corallo 
Commit: Andrea Corallo 

Provide consistent features in benchmarks

* benchmarks/pack-unpack.el (elb-pack-unpack): Provide.
* benchmarks/nbody.el (elb-nbody): Likewise.
---
 benchmarks/nbody.el   | 2 +-
 benchmarks/pack-unpack.el | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/benchmarks/nbody.el b/benchmarks/nbody.el
index 6871ca4cc9..e248d262c8 100644
--- a/benchmarks/nbody.el
+++ b/benchmarks/nbody.el
@@ -139,5 +139,5 @@
 (defun elb-nbody-entry ()
   (elb-nbody 30))
 
-(provide 'benchmarks/nbody)
+(provide 'elb-nbody)
 ;;; benchmarks/nbody.el ends here
diff --git a/benchmarks/pack-unpack.el b/benchmarks/pack-unpack.el
index f43c01f0be..2ff27203c4 100644
--- a/benchmarks/pack-unpack.el
+++ b/benchmarks/pack-unpack.el
@@ -124,5 +124,5 @@
 (bindat-unpack packet-bindat-type
(bindat-pack packet-bindat-type struct-bindat
 
-(provide 'benchmarks/pack-unpack)
+(provide 'elb-pack-unpack)
 ;;; benchmarks/pack-unpack.el ends here

[elpa] externals/modus-themes 0d7203256a 1/2: Revert "Do not make Magit diff file heading bold unless selected (see 55dd768)"

[ELPA Syncer]

branch: externals/modus-themes
commit 0d7203256a6486d4a53073220125a357ff7a228c
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Revert "Do not make Magit diff file heading bold unless selected (see 
55dd768)"

This reverts commit 13ff52a8eb829dde4ba13e8811b28c663aa226dd.
---
 modus-themes.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/modus-themes.el b/modus-themes.el
index 3772c0fbcc..93cb75cbf4 100644
--- a/modus-themes.el
+++ b/modus-themes.el
@@ -2950,7 +2950,7 @@ FG and BG are the main colors."
 `(magit-diff-base-highlight ((,c :background ,bg-changed :foreground 
,fg-changed)))
 `(magit-diff-context ((,c :inherit shadow)))
 `(magit-diff-context-highlight ((,c :background ,bg-diff-context)))
-`(magit-diff-file-heading (( )))
+`(magit-diff-file-heading ((,c :inherit bold)))
 `(magit-diff-file-heading-highlight ((,c :inherit (bold 
magit-diff-file-heading) :background ,bg-inactive)))
 `(magit-diff-file-heading-selection ((,c :inherit bold :background 
,bg-hover-secondary)))
 `(magit-diff-hunk-heading ((,c :background ,bg-inactive)))

[elpa] externals/ef-themes 7a1933c03a: Revert "Remove the colour+bold from Magit diff file heading and make them bold only when highlighted"

[ELPA Syncer]

branch: externals/ef-themes
commit 7a1933c03a97957eda900b2063617f76f6c389e9
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Revert "Remove the colour+bold from Magit diff file heading and make them 
bold only when highlighted"

This reverts commit 4d30a80c5e8f691bae5f858e5afc041c240a917c.
---
 ef-themes.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/ef-themes.el b/ef-themes.el
index c20e6fbcf3..e8d2365943 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -1785,8 +1785,8 @@ text should not be underlined as well) yet still blend 
in."
 `(magit-diff-base-highlight ((,c :background ,bg-changed :foreground 
,fg-changed)))
 `(magit-diff-context ((,c :inherit shadow)))
 `(magit-diff-context-highlight ((,c :background ,bg-dim)))
-`(magit-diff-file-heading (( )))
-`(magit-diff-file-heading-highlight ((,c :inherit (bold 
magit-diff-file-heading) :background ,bg-inactive)))
+`(magit-diff-file-heading ((,c :inherit bold :foreground ,accent-0)))
+`(magit-diff-file-heading-highlight ((,c :inherit magit-diff-file-heading 
:background ,bg-alt)))
 `(magit-diff-file-heading-selection ((,c :inherit bold :background 
,bg-hover-secondary :foreground ,fg-intense)))
 `(magit-diff-hunk-heading ((,c :background ,bg-alt)))
 `(magit-diff-hunk-heading-highlight ((,c :inherit bold :background 
,bg-active :foreground ,fg-intense)))

[elpa] externals-release/org 2f5add467c 1/2: Update version number for the 9.7.22 release

[ELPA Syncer]

branch: externals-release/org
commit 2f5add467c0c20c9f2427cc77597c9aa1b742a75
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

Update version number for the 9.7.22 release
---
 lisp/org.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/org.el b/lisp/org.el
index 595a2dcc4c..61186f4611 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -9,7 +9,7 @@
 ;; URL: https://orgmode.org
 ;; Package-Requires: ((emacs "26.1"))
 
-;; Version: 9.7.21
+;; Version: 9.7.22
 
 ;; This file is part of GNU Emacs.
 ;;

[elpa] externals/modus-themes updated (5e834b6fcf -> ab56e2888b)

[ELPA Syncer]

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

  from  5e834b6fcf Add explicit support for howm package
   new  0d7203256a Revert "Do not make Magit diff file heading bold unless 
selected (see 55dd768)"
   new  ab56e2888b Revert "Remove the colour from Magit diff file heading 
and make them bold when highlighted"


Summary of changes:
 modus-themes.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

[elpa] externals-release/org updated (3a05048238 -> 91f3590d79)

[ELPA Syncer]

elpasync pushed a change to branch externals-release/org.

  from  3a05048238 org-file-name-concat: Fix implementation for Emacs 27
   new  2f5add467c Update version number for the 9.7.22 release
   new  91f3590d79 Fix custom types to use const instead of symbol


Summary of changes:
 lisp/org-agenda.el |  8 
 lisp/org-clock.el  |  2 +-
 lisp/org-table.el  | 10 +-
 lisp/org.el|  2 +-
 4 files changed, 11 insertions(+), 11 deletions(-)

[elpa] externals/org 96530b7b46: Merge branch 'bugfix'

[ELPA Syncer]

branch: externals/org
commit 96530b7b46e7fcf438a3c880e7d3d29956ff4c73
Merge: 9a3b22098e 91f3590d79
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

Merge branch 'bugfix'
---
 lisp/org-agenda.el |  8 
 lisp/org-clock.el  |  2 +-
 lisp/org-table.el  | 10 +-
 3 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 8143fd97a7..2a09a6a191 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -2829,7 +2829,7 @@ type."
   :version "24.4"
   :package-version '(Org . "8.0")
   :group 'org-agenda-custom-commands
-  :type '(choice (symbol :tag "No limit" nil)
+  :type '(choice (const :tag "No limit" nil)
 (integer :tag "Max number of entries")
 (repeat
  (cons (choice :tag "Agenda type"
@@ -2847,7 +2847,7 @@ type."
   :version "24.4"
   :package-version '(Org . "8.0")
   :group 'org-agenda-custom-commands
-  :type '(choice (symbol :tag "No limit" nil)
+  :type '(choice (const :tag "No limit" nil)
 (integer :tag "Max number of TODOs")
 (repeat
  (cons (choice :tag "Agenda type"
@@ -2865,7 +2865,7 @@ type."
   :version "24.4"
   :package-version '(Org . "8.0")
   :group 'org-agenda-custom-commands
-  :type '(choice (symbol :tag "No limit" nil)
+  :type '(choice (const :tag "No limit" nil)
 (integer :tag "Max number of tagged entries")
 (repeat
  (cons (choice :tag "Agenda type"
@@ -2883,7 +2883,7 @@ to limit entries to in this type."
   :version "24.4"
   :package-version '(Org . "8.0")
   :group 'org-agenda-custom-commands
-  :type '(choice (symbol :tag "No limit" nil)
+  :type '(choice (const :tag "No limit" nil)
 (integer :tag "Max number of minutes")
 (repeat
  (cons (choice :tag "Agenda type"
diff --git a/lisp/org-clock.el b/lisp/org-clock.el
index 5fd0580d05..933c054874 100644
--- a/lisp/org-clock.el
+++ b/lisp/org-clock.el
@@ -144,7 +144,7 @@ out time will be 14:50."
   :package-version '(Org . "8.0")
   :type '(choice
  (integer :tag "Minutes (0 for no rounding)")
- (symbol  :tag "Use `org-time-stamp-rounding-minutes'" 
'same-as-time-stamp)))
+ (const   :tag "Use `org-time-stamp-rounding-minutes'" 
same-as-time-stamp)))
 
 (defcustom org-clock-out-remove-zero-time-clocks nil
   "Non-nil means remove the clock line when the resulting time is zero."
diff --git a/lisp/org-table.el b/lisp/org-table.el
index 39115bb5f5..0147fe4408 100644
--- a/lisp/org-table.el
+++ b/lisp/org-table.el
@@ -344,11 +344,11 @@ The `U' flag in a table formula will select this specific 
format for
 a single formula."
   :group 'org-table-calculation
   :version "24.1"
-  :type '(choice (symbol :tag "Seconds" seconds)
-(symbol :tag "Minutes" minutes)
-(symbol :tag "Hours  " hours)
-(symbol :tag "Days   " days)
-(symbol :tag "HH:MM  " hh:mm)))
+  :type '(choice (const :tag "Seconds" seconds)
+(const :tag "Minutes" minutes)
+(const :tag "Hours  " hours)
+(const :tag "Days   " days)
+(const :tag "HH:MM  " hh:mm)))
 
 (defcustom org-table-duration-hour-zero-padding t
   "Non-nil means hours in table duration computations should be zero-padded.

[elpa] externals/standard-themes 3b27e40471: Revert "Remove the colour+bold from Magit diff file heading and make them bold only when highlighted"

[ELPA Syncer]

branch: externals/standard-themes
commit 3b27e404710aa10c4e07acb312c3c94ce528c638
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Revert "Remove the colour+bold from Magit diff file heading and make them 
bold only when highlighted"

This reverts commit 63801e4ad3980c0b6ab29a3adeb3574c8a6c6487.
---
 standard-themes.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/standard-themes.el b/standard-themes.el
index 5d6fb0f235..9e431f1e8e 100644
--- a/standard-themes.el
+++ b/standard-themes.el
@@ -1647,8 +1647,8 @@ color mappings instead of the complete palette."
 `(magit-diff-base-highlight ((,c :background ,bg-changed  :foreground 
,fg-changed)))
 `(magit-diff-context ((,c :inherit shadow)))
 `(magit-diff-context-highlight ((,c :inherit shadow :background ,bg-dim)))
-`(magit-diff-file-heading (( )))
-`(magit-diff-file-heading-highlight ((,c :inherit (bold 
magit-diff-file-heading) :background ,bg-inactive)))
+`(magit-diff-file-heading ((,c :inherit bold :foreground ,accent-0)))
+`(magit-diff-file-heading-highlight ((,c :inherit magit-diff-file-heading 
:background ,bg-alt)))
 `(magit-diff-file-heading-selection ((,c :inherit bold :background 
,bg-hover-alt :foreground ,fg-main)))
 `(magit-diff-hunk-heading ((,c :background ,bg-alt)))
 `(magit-diff-hunk-heading-highlight ((,c :background ,bg-active 
:foreground ,fg-main)))

[elpa] externals/modus-themes ab56e2888b 2/2: Revert "Remove the colour from Magit diff file heading and make them bold when highlighted"

[ELPA Syncer]

branch: externals/modus-themes
commit ab56e2888b2fc77af2824afcc7b77d5dd854fd05
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Revert "Remove the colour from Magit diff file heading and make them bold 
when highlighted"

This reverts commit 55dd76805fbbef4341e8a1a61a506134c2c5d448.
---
 modus-themes.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/modus-themes.el b/modus-themes.el
index 93cb75cbf4..8b2bb8131f 100644
--- a/modus-themes.el
+++ b/modus-themes.el
@@ -2950,8 +2950,8 @@ FG and BG are the main colors."
 `(magit-diff-base-highlight ((,c :background ,bg-changed :foreground 
,fg-changed)))
 `(magit-diff-context ((,c :inherit shadow)))
 `(magit-diff-context-highlight ((,c :background ,bg-diff-context)))
-`(magit-diff-file-heading ((,c :inherit bold)))
-`(magit-diff-file-heading-highlight ((,c :inherit (bold 
magit-diff-file-heading) :background ,bg-inactive)))
+`(magit-diff-file-heading ((,c :inherit bold :foreground ,accent-0)))
+`(magit-diff-file-heading-highlight ((,c :inherit magit-diff-file-heading 
:background ,bg-inactive)))
 `(magit-diff-file-heading-selection ((,c :inherit bold :background 
,bg-hover-secondary)))
 `(magit-diff-hunk-heading ((,c :background ,bg-inactive)))
 `(magit-diff-hunk-heading-highlight ((,c :inherit bold :background 
,bg-active)))

[elpa] externals/org updated (9a3b22098e -> 96530b7b46)

[ELPA Syncer]

elpasync pushed a change to branch externals/org.

  from  9a3b22098e Merge branch 'bugfix'
   new  2f5add467c Update version number for the 9.7.22 release
   new  91f3590d79 Fix custom types to use const instead of symbol
   new  96530b7b46 Merge branch 'bugfix'


Summary of changes:
 lisp/org-agenda.el |  8 
 lisp/org-clock.el  |  2 +-
 lisp/org-table.el  | 10 +-
 3 files changed, 10 insertions(+), 10 deletions(-)

[nongnu] elpa/helm 0630ef0962 1/5: Change default value of helm-locate-recursive-dirs-command

[ELPA Syncer]

branch: elpa/helm
commit 0630ef0962933a1c444ef88f4f526a7a191bf6b3
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Change default value of helm-locate-recursive-dirs-command

The old locate command seems broken now.
---
 helm-locate.el | 27 ++-
 1 file changed, 22 insertions(+), 5 deletions(-)

diff --git a/helm-locate.el b/helm-locate.el
index a33ec7144f..a14a691059 100644
--- a/helm-locate.el
+++ b/helm-locate.el
@@ -114,17 +114,34 @@ When set, allow browsing recursively files in all 
directories of
 this list with `helm-projects-find-files'."
   :type '(repeat string))
 
-(defcustom helm-locate-recursive-dirs-command "locate -i -e -A --regex '^%s' 
'%s.*$'"
+(defcustom helm-locate-recursive-dirs-command "find %s -type d -regex .*%s.*$"
   "Command used for recursive directories completion in `helm-find-files'.
 
 For Windows and `es' use something like \"es -r ^%s.*%s.*$\"
 
 The two format specs are mandatory.
 
-If for some reasons you can't use locate because your filesystem
-doesn't have a database, you can use find command from findutils
-but be aware that it will be much slower.  See `helm-find-files'
-embedded help for more infos."
+We were using locate command in the past like this:
+
+\"locate -i -e -A --regex '^%s' '%s.*$'\"
+
+But it seems broken in last versions of locate, so we use now the find shell
+command by default which is available on most distributions.
+Here the possible values you can use:
+
+\"find %s -type d -regex .*%s.*$\"
+\"find %s -type d -name '*%s*'\"
+
+You can use also the \"fdfind\" command which may be slow at first call because
+it creates an index, but is then very fast on subsequent calls, here is the
+command you can use:
+
+\"fdfind --hidden --type d --glob '*%s*' %s\"
+
+NOTE: The \"fdfind\" executable name may change on some systems,
+it can be \"fd\" or whatever.
+
+See `helm-find-files' embedded help for more infos."
   :type 'string
   :group 'helm-files)
 

[nongnu] elpa/helm fac8463cc0 3/5: Update documentation

[ELPA Syncer]

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

Update documentation
---
 helm-help.el | 38 +-
 1 file changed, 17 insertions(+), 21 deletions(-)

diff --git a/helm-help.el b/helm-help.el
index afaa1baf7f..83210bd9dc 100644
--- a/helm-help.el
+++ b/helm-help.el
@@ -557,30 +557,22 @@ you want to go to 
\"/home/you/foo/bar/baz/somewhere/else\", simply type
 the final \"/\".  Helm will then list all possible directories under \"foo\"
 matching \"else\".
 
-Note: Completion on subdirectories uses \"locate\" as backend, you can 
configure
-the command with `helm-locate-recursive-dirs-command'.  Because this completion
-uses an index, the directory tree displayed may be out-of-date and not reflect
-the latest change until you update the index (using \"updatedb\" for 
\"locate\").
+You can use either find, locate or fdfind as backend, see the variable
+`helm-locate-recursive-dirs-command', the default is to use find as backend.
 
-If for some reason you cannot use an index, the \"find\" command from
-\"findutils\" can be used instead.  It will be slower though.  You need to pass
-the basedir as first argument of \"find\" and the subdir as the value for
-'-(i)regex' or '-(i)name' with the two format specs that are mandatory in
-`helm-locate-recursive-dirs-command'.
+NOTE: When using `locate' as backend which uses an index, the
+directory tree displayed may be out-of-date and not reflect the
+latest change until you update the index (using \"updatedb\" for
+\"locate\").
+On recent systems, the updatedb command doesn't
+index anymore user directories, see the option PRUNE_BIND_MOUNTS
+in the updatedb man page.
 
-Examples:
-- \"find %s -type d -name '*%s*'\"
-- \"find %s -type d -regex .*%s.*$\"
+If a locale db file is found under current directory it will be
+used instead of the global updatedb index.
 
-[[https://github.com/sharkdp/fd][Fd]] command is now also
-supported which is regexp based and very fast.  Here is the command
-line to use:
-
-- \"fd --hidden --type d .*%s.*$ %s\"
-
-You can use also a glob based search, in this case use the --glob option:
-
-- \"fd --hidden --type d --glob '*%s*' %s\"
+To create a locale db file under current directory, use `C-u C-u
+C-x C-f' from helm-find-files.
 
 *** Insert filename at point or complete filename at point
 
@@ -1768,6 +1760,10 @@ match regexp (i.e. \"helm\" will match \"helm\" but 
\"hlm\" will *not* match
 NOTE: On Windows use Everything with its command line ~es~ as a replacement of 
locate.
 See [[https://github.com/emacs-helm/helm/wiki/Locate#windows][Locate on 
Windows]]
 
+On recent systems, the updatedb command doesn't
+index anymore user directories, see the option PRUNE_BIND_MOUNTS
+in the updatedb man page.
+
 *** Browse project
 
 When the current directory is not under version control, don't forget to 
refresh

[nongnu] elpa/helm a65af07eff 5/5: Remove the ability of switching to recursive search with C-j

[ELPA Syncer]

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

Remove the ability of switching to recursive search with C-j
---
 helm-files.el | 11 ---
 1 file changed, 11 deletions(-)

diff --git a/helm-files.el b/helm-files.el
index 5ad533fd31..bcc92c221a 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -5019,17 +5019,6 @@ file."
(cons (lambda (_candidate)
(funcall insert-in-minibuffer (concat candidate "#/")))
  'never-split))
-  ;; File doesn't exists and basename starts with ".." or "  ",
-  ;; Start a recursive search for directories.
-  ((and (not (file-exists-p candidate))
-(not (file-remote-p candidate))
-(string-match-p "\\`\\([.]\\|\\s-\\)\\{2\\}[^/]+"
-(helm-basename candidate)))
-   ;; As soon as the final "/" is added the job is passed
-   ;; to `helm-ff-auto-expand-to-home-or-root'.
-   (cons (lambda (_candidate)
-   (funcall insert-in-minibuffer (concat candidate "/")))
- 'never-split))
   ;; File is not existing and have no basedir, typically when
   ;; user hit C-k (minibuffer is empty) and then write foo and
   ;; hit C-j. This make clear that when no basedir, helm will

[nongnu] elpa/helm updated (4193cde3fb -> a65af07eff)

[ELPA Syncer]

elpasync pushed a change to branch elpa/helm.

  from  4193cde3fb Remove unuseful cond clause
   new  0630ef0962 Change default value of 
helm-locate-recursive-dirs-command
   new  f8db77a33d Use locate db file when available
   new  fac8463cc0 Update documentation
   new  b03d21fa0b Fix HFF documentation
   new  a65af07eff Remove the ability of switching to recursive search with 
C-j


Summary of changes:
 helm-files.el  | 11 -
 helm-help.el   | 56 +++--
 helm-locate.el | 72 ++
 3 files changed, 82 insertions(+), 57 deletions(-)

[nongnu] elpa/helm b03d21fa0b 4/5: Fix HFF documentation

[ELPA Syncer]

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

Fix HFF documentation
---
 helm-help.el | 26 --
 1 file changed, 16 insertions(+), 10 deletions(-)

diff --git a/helm-help.el b/helm-help.el
index 83210bd9dc..c24e624826 100644
--- a/helm-help.el
+++ b/helm-help.el
@@ -533,7 +533,7 @@ Same but the cache is refreshed.
 
  You can start a recursive search with \"locate\", \"find\" or 
[[https://github.com/sharkdp/fd][Fd]]
 
-See \"Note\" in the [[Recursive completion on subdirectories][section on 
subdirectories]].
+See \"NOTE\" in the [[Recursive completion on subdirectories][section on 
subdirectories]].
 
 Using \"locate\", you can enable the local database with a prefix argument. If 
the
 local database doesn't already exists, you will be prompted for its creation.
@@ -548,14 +548,18 @@ locate search with this pattern.  If you want Helm to 
automatically do this, add
 NOTE: On Windows use Everything with its command line ~es~ as a replacement of 
locate.
 See [[https://github.com/emacs-helm/helm/wiki/Locate#windows][Locate on 
Windows]]
 
+If your system use plocate as backend and you have no results when searching,
+see [[Recursive completion on subdirectories][section on subdirectories]].
+
  Recursive completion on subdirectories
 
-Starting from the directory you are currently browsing, it is possible to have
-completion of all directories underneath.  Say you are at \"/home/you/foo/\" 
and
-you want to go to \"/home/you/foo/bar/baz/somewhere/else\", simply type
-\"/home/you/foo/..else\" and hit `\\[helm-execute-persistent-action]' or enter
-the final \"/\".  Helm will then list all possible directories under \"foo\"
-matching \"else\".
+Starting from the directory you are currently browsing, it is
+possible to have completion of all directories underneath.  Say
+you are at \"/home/you/foo/\" and you want to go to
+\"/home/you/foo/bar/baz/somewhere/else\", simply type
+\"/home/you/foo/..else\" and enter the final \"/\".  Helm will
+then list all possible directories under \"foo\" matching
+\"else\".
 
 You can use either find, locate or fdfind as backend, see the variable
 `helm-locate-recursive-dirs-command', the default is to use find as backend.
@@ -564,9 +568,11 @@ NOTE: When using `locate' as backend which uses an index, 
the
 directory tree displayed may be out-of-date and not reflect the
 latest change until you update the index (using \"updatedb\" for
 \"locate\").
-On recent systems, the updatedb command doesn't
-index anymore user directories, see the option PRUNE_BIND_MOUNTS
-in the updatedb man page.
+
+On recent systems plocate is used instead of mlocate and the
+corresponding updatedb command doesn't index anymore user
+directories, see the option PRUNE_BIND_MOUNTS in the updatedb man
+page.
 
 If a locale db file is found under current directory it will be
 used instead of the global updatedb index.

[nongnu] elpa/helm f8db77a33d 2/5: Use locate db file when available

[ELPA Syncer]

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

Use locate db file when available

When locate command is used for recursive searchs in HFF, use a local
db file if some.
---
 helm-locate.el | 53 +++--
 1 file changed, 35 insertions(+), 18 deletions(-)

diff --git a/helm-locate.el b/helm-locate.el
index a14a691059..1dbaffe5ef 100644
--- a/helm-locate.el
+++ b/helm-locate.el
@@ -121,13 +121,19 @@ For Windows and `es' use something like \"es -r 
^%s.*%s.*$\"
 
 The two format specs are mandatory.
 
-We were using locate command in the past like this:
+We were using locate command as default in the past like this:
 
 \"locate -i -e -A --regex '^%s' '%s.*$'\"
 
-But it seems broken in last versions of locate, so we use now the find shell
-command by default which is available on most distributions.
-Here the possible values you can use:
+But in most distributions updatedb is not indexing user dirs
+among others (see PRUNE_BIND_MOUNTS in updatedb.conf man page).
+However if you use a local db file, it will be used instead of
+the global updatedb cache and will be very fast.
+
+So we use now the find shell command by default which is available on most
+distributions and doesn't suffer of these indexing problems.  It
+is however slower than locate.  Here the possible values you can
+use:
 
 \"find %s -type d -regex .*%s.*$\"
 \"find %s -type d -name '*%s*'\"
@@ -445,21 +451,32 @@ Sort is done on basename of CANDIDATES."
(group :initform 'helm-locate)))
 
 (defun helm-locate-init-subdirs ()
+  (let ((cmd (cond ((string-match-p "\\`fd" helm-locate-recursive-dirs-command)
+(format helm-locate-recursive-dirs-command
+;; fd pass path at end.
+(helm-get-attr 'subdir) (helm-get-attr 'basedir)))
+   ((string-match-p "\\`es" helm-locate-recursive-dirs-command)
+(format helm-locate-recursive-dirs-command
+   (replace-regexp-in-string
+ "/" "" (helm-get-attr 'basedir))
+   (helm-get-attr 'subdir)))
+   ((string-match-p "\\`locate" 
helm-locate-recursive-dirs-command)
+(let* ((db (locate-dominating-file (helm-get-attr 
'basedir) "locate.db"))
+   (lcmd (if (and db (not (string-match-p
+   "-d" 
helm-locate-recursive-dirs-command)))
+ (mapconcat
+  #'identity
+  (helm-append-at-nth
+   (split-string 
helm-locate-recursive-dirs-command)
+   (format "-d %s" (expand-file-name 
"locate.db" db)) 1)
+  " ")
+   helm-locate-recursive-dirs-command)))
+(format lcmd (helm-get-attr 'basedir) (helm-get-attr 
'subdir
+   (t (format helm-locate-recursive-dirs-command
+  (helm-get-attr 'basedir) (helm-get-attr 
'subdir))
   (with-temp-buffer
-(call-process-shell-command
- (if (string-match-p "\\`fd" helm-locate-recursive-dirs-command)
- (format helm-locate-recursive-dirs-command
- ;; fd pass path at end.
- (helm-get-attr 'subdir) (helm-get-attr 'basedir))
-   (format helm-locate-recursive-dirs-command
-  (if (string-match-p "\\`es" helm-locate-recursive-dirs-command)
-   ;; Fix W32 paths.
-  (replace-regexp-in-string
-"/" "" (helm-get-attr 'basedir))
- (helm-get-attr 'basedir))
-  (helm-get-attr 'subdir)))
- nil t nil)
-(buffer-string)))
+(call-process-shell-command cmd nil t nil)
+(buffer-string
 
 ;;;###autoload
 (defun helm-projects-find-files (update)

[elpa] externals-release/org 91f3590d79 2/2: Fix custom types to use const instead of symbol

[ELPA Syncer]

branch: externals-release/org
commit 91f3590d791156139992569f3167c3a7452575f4
Author: Robert Pluim 
Commit: Ihor Radchenko 

Fix custom types to use const instead of symbol

* lisp/org-agenda.el (org-agenda-max-entries): Use const instead
of symbol.
(org-agenda-max-todos, org-agenda-max-tags)
org-agenda-max-effort): Likewise.
* lisp/org-clock.el (org-clock-rounding-minutes): Remove extra
quote and use const.
* lisp/org-table.el (org-table-duration-custom-format): Use
const instead of symbol.
---
 lisp/org-agenda.el |  8 
 lisp/org-clock.el  |  2 +-
 lisp/org-table.el  | 10 +-
 3 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index fb75c36169..02f72aad22 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -2835,7 +2835,7 @@ type."
   :version "24.4"
   :package-version '(Org . "8.0")
   :group 'org-agenda-custom-commands
-  :type '(choice (symbol :tag "No limit" nil)
+  :type '(choice (const :tag "No limit" nil)
 (integer :tag "Max number of entries")
 (repeat
  (cons (choice :tag "Agenda type"
@@ -2853,7 +2853,7 @@ type."
   :version "24.4"
   :package-version '(Org . "8.0")
   :group 'org-agenda-custom-commands
-  :type '(choice (symbol :tag "No limit" nil)
+  :type '(choice (const :tag "No limit" nil)
 (integer :tag "Max number of TODOs")
 (repeat
  (cons (choice :tag "Agenda type"
@@ -2871,7 +2871,7 @@ type."
   :version "24.4"
   :package-version '(Org . "8.0")
   :group 'org-agenda-custom-commands
-  :type '(choice (symbol :tag "No limit" nil)
+  :type '(choice (const :tag "No limit" nil)
 (integer :tag "Max number of tagged entries")
 (repeat
  (cons (choice :tag "Agenda type"
@@ -2889,7 +2889,7 @@ to limit entries to in this type."
   :version "24.4"
   :package-version '(Org . "8.0")
   :group 'org-agenda-custom-commands
-  :type '(choice (symbol :tag "No limit" nil)
+  :type '(choice (const :tag "No limit" nil)
 (integer :tag "Max number of minutes")
 (repeat
  (cons (choice :tag "Agenda type"
diff --git a/lisp/org-clock.el b/lisp/org-clock.el
index 5fd0580d05..933c054874 100644
--- a/lisp/org-clock.el
+++ b/lisp/org-clock.el
@@ -144,7 +144,7 @@ out time will be 14:50."
   :package-version '(Org . "8.0")
   :type '(choice
  (integer :tag "Minutes (0 for no rounding)")
- (symbol  :tag "Use `org-time-stamp-rounding-minutes'" 
'same-as-time-stamp)))
+ (const   :tag "Use `org-time-stamp-rounding-minutes'" 
same-as-time-stamp)))
 
 (defcustom org-clock-out-remove-zero-time-clocks nil
   "Non-nil means remove the clock line when the resulting time is zero."
diff --git a/lisp/org-table.el b/lisp/org-table.el
index a210448b36..e1daf563c5 100644
--- a/lisp/org-table.el
+++ b/lisp/org-table.el
@@ -344,11 +344,11 @@ The `U' flag in a table formula will select this specific 
format for
 a single formula."
   :group 'org-table-calculation
   :version "24.1"
-  :type '(choice (symbol :tag "Seconds" seconds)
-(symbol :tag "Minutes" minutes)
-(symbol :tag "Hours  " hours)
-(symbol :tag "Days   " days)
-(symbol :tag "HH:MM  " hh:mm)))
+  :type '(choice (const :tag "Seconds" seconds)
+(const :tag "Minutes" minutes)
+(const :tag "Hours  " hours)
+(const :tag "Days   " days)
+(const :tag "HH:MM  " hh:mm)))
 
 (defcustom org-table-duration-hour-zero-padding t
   "Non-nil means hours in table duration computations should be zero-padded.

[elpa] externals/colorful-mode d6d093e55e: Release 1.2.0

[ELPA Syncer]

branch: externals/colorful-mode
commit d6d093e55ea63ce3c2b7524f4ffb9ff7cf10cfc9
Author: Elijah Gabe <163072436+developmentcool2...@users.noreply.github.com>
Commit: GitHub 

Release 1.2.0

Changes:
* Support for highlighting css @define_color variables
  and css var() colors.
* Support for changing colors at regions.

* Remove highlighting colors in comments.
---
 colorful-mode.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/colorful-mode.el b/colorful-mode.el
index 54fc98ff25..e9b23e9b64 100644
--- a/colorful-mode.el
+++ b/colorful-mode.el
@@ -9,7 +9,7 @@
 ;; Package-Requires: ((emacs "28.1") (compat "29.1.4.4"))
 ;; Homepage: https://github.com/DevelopmentCool2449/colorful-mode
 ;; Keywords: faces, tools, matching, convenience
-;; Version: 1.1.0
+;; Version: 1.2.0
 
 ;; This file is part of GNU Emacs.
 

[nongnu] elpa/helm 807a7ef45f 2/2: Use helm-acase in helm-locate-init-subdirs

[ELPA Syncer]

branch: elpa/helm
commit 807a7ef45fc01388cfcbc3f2622efb50d117126c
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Use helm-acase in helm-locate-init-subdirs
---
 helm-locate.el | 62 +++---
 1 file changed, 33 insertions(+), 29 deletions(-)

diff --git a/helm-locate.el b/helm-locate.el
index f2afd5c140..b1f64d6fac 100644
--- a/helm-locate.el
+++ b/helm-locate.el
@@ -451,35 +451,39 @@ Sort is done on basename of CANDIDATES."
(group :initform 'helm-locate)))
 
 (defun helm-locate-init-subdirs ()
-  (let ((cmd (cond ((string-match-p "\\`fd" helm-locate-recursive-dirs-command)
-(format helm-locate-recursive-dirs-command
-;; fd pass path at end.
-(helm-get-attr 'subdir) (helm-get-attr 'basedir)))
-   ((string-match-p "\\`es" helm-locate-recursive-dirs-command)
-(format helm-locate-recursive-dirs-command
-   (replace-regexp-in-string
- "/" "" (helm-get-attr 'basedir))
-   (helm-get-attr 'subdir)))
-   ((string-match-p "\\`locate" 
helm-locate-recursive-dirs-command)
-(let* ((db (locate-dominating-file (helm-get-attr 'basedir)
-   
helm-ff-locate-db-filename))
-   (lcmd (if (and db (not (string-match-p
-   "-d" 
helm-locate-recursive-dirs-command)))
- (mapconcat
-  #'identity
-  (helm-append-at-nth
-   (split-string 
helm-locate-recursive-dirs-command)
-   (format "-d %s" (expand-file-name
-
helm-ff-locate-db-filename db))
-   1)
-  " ")
-   helm-locate-recursive-dirs-command)))
-(format lcmd (helm-get-attr 'basedir) (helm-get-attr 
'subdir
-   (t (format helm-locate-recursive-dirs-command
-  (helm-get-attr 'basedir) (helm-get-attr 
'subdir))
-  (with-temp-buffer
-(call-process-shell-command cmd nil t nil)
-(buffer-string
+  (let ((cmd (helm-acase helm-locate-recursive-dirs-command
+   (;; Fd
+(guard* (string-match-p "\\`fd" it))
+;; fd pass path at end.
+(format it (helm-get-attr 'subdir) (helm-get-attr 'basedir)))
+   (;; Es
+(guard* (string-match-p "\\`es" it))
+(format it (replace-regexp-in-string
+"/" "" (helm-get-attr 'basedir))
+   (helm-get-attr 'subdir)))
+   (;; Locate
+(guard* (string-match-p "\\`locate" it))
+;; Try to use a locale DB if some.
+(let* ((db (locate-dominating-file
+(helm-get-attr 'basedir)
+helm-ff-locate-db-filename))
+   (lcmd (if (and db (not (string-match-p "-d" it)))
+ (mapconcat
+  #'identity
+  (helm-append-at-nth
+   (split-string it)
+   (format "-d %s"
+   (expand-file-name
+helm-ff-locate-db-filename db))
+   1)
+  " ")
+   it)))
+  (format lcmd (helm-get-attr 'basedir) (helm-get-attr 
'subdir
+   ;; Find
+   (t (format it (helm-get-attr 'basedir) (helm-get-attr 
'subdir))
+(with-temp-buffer
+  (call-process-shell-command cmd nil t nil)
+  (buffer-string
 
 ;;;###autoload
 (defun helm-projects-find-files (update)

[nongnu] elpa/helm 38ef5b4eb5 1/2: Add header-name to recursive dirs source

[ELPA Syncer]

branch: elpa/helm
commit 38ef5b4eb5f2fd9de3b1f7d78cf66b0a40b3b55f
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Add header-name to recursive dirs source
---
 helm-files.el | 5 +
 1 file changed, 5 insertions(+)

diff --git a/helm-files.el b/helm-files.el
index bcc92c221a..226709739b 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -5338,6 +5338,11 @@ image file in `helm-ff-image-dired-thumbnails-cache'."
 (helm :sources
   (helm-make-source
   "Recursive directories" 'helm-locate-subdirs-source
+:header-name
+(lambda (name)
+  (format "%s from `%s'"
+  name
+  (abbreviate-file-name helm-ff-default-directory)))
 :basedir (if (string-match-p
   "\\`es" helm-locate-recursive-dirs-command)
  directory

[nongnu] elpa/helm updated (b304bd39b4 -> 807a7ef45f)

[ELPA Syncer]

elpasync pushed a change to branch elpa/helm.

  from  b304bd39b4 Don't hardcode locate.db
   new  38ef5b4eb5 Add header-name to recursive dirs source
   new  807a7ef45f Use helm-acase in helm-locate-init-subdirs


Summary of changes:
 helm-files.el  |  5 +
 helm-locate.el | 62 +++---
 2 files changed, 38 insertions(+), 29 deletions(-)

[nongnu] elpa/treesit-fold 8969ff883d: docs: Add NonGNU ELPA badge

[ELPA Syncer]

branch: elpa/treesit-fold
commit 8969ff883dbfb5bceabe2e8d4497c85aa0e59d75
Author: Jen-Chieh Shen 
Commit: GitHub 

docs: Add NonGNU ELPA badge
---
 README.md | 1 +
 1 file changed, 1 insertion(+)

diff --git a/README.md b/README.md
index 394f0b..6804ffe696 100644
--- a/README.md
+++ b/README.md
@@ -1,4 +1,5 @@
 [![License: GPL 
v3](https://img.shields.io/badge/License-GPL%20v3-blue.svg)](https://www.gnu.org/licenses/gpl-3.0)
+[![NonGNU 
ELPA](https://elpa.nongnu.org/nongnu/treesit-fold.svg)](https://elpa.nongnu.org/nongnu/treesit-fold.html)
 
[![JCS-ELPA](https://raw.githubusercontent.com/jcs-emacs/badges/master/elpa/v/treesit-fold.svg)](https://jcs-emacs.github.io/jcs-elpa/#/treesit-fold)
 
 # treesit-fold

[elpa] externals/org 71c7c885eb: Merge branch 'bugfix'

[ELPA Syncer]

branch: externals/org
commit 71c7c885eb7eed01ba74e9068db222fbe438e846
Merge: 96530b7b46 971b057740
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

Merge branch 'bugfix'
---
 lisp/org-compat.el | 20 
 1 file changed, 20 insertions(+)

diff --git a/lisp/org-compat.el b/lisp/org-compat.el
index 1a00e9a896..a6d52f5ddb 100644
--- a/lisp/org-compat.el
+++ b/lisp/org-compat.el
@@ -1992,6 +1992,26 @@ key."
 "configure `org-speed-commands' instead." "9.5")
 (provide 'org-compat)
 
+ yank-media
+;; Emacs 29's pgtk port has a bug where it might fail to return the
+;; right TARGET.  Install a workaround for Emacs <=29 since the fix
+;; went to Emacs 30.  See bug#72254.
+;; Org bug report link: https://list.orgmode.org/orgmode/87ed7kttoa@k-7.ch
+;; This should be removed once we drop Emacs 29 support.
+(when (and (fboundp 'pgtk-get-selection-internal)
+   (<= emacs-major-version 29))
+  ;; Only define the method if it hasn't been previously defined.
+  (unless (cl-find-method 'gui-backend-get-selection nil
+  '((eql 'CLIPBOARD) (eql 'TARGETS)
+((&context . window-system) eql 'pgtk)))
+(cl-defmethod gui-backend-get-selection ((selection-symbol (eql 
'CLIPBOARD))
+ (target-type (eql 'TARGETS))
+ &context (window-system pgtk))
+  (let ((sel (pgtk-get-selection-internal selection-symbol target-type)))
+(if (vectorp sel)
+sel
+  (vector sel))
+
 ;; Local variables:
 ;; generated-autoload-file: "org-loaddefs.el"
 ;; End:

[elpa] externals/popper c0dced3cdf: popper-echo: Use dispatch-actions correctly (#77)

[ELPA Syncer]

branch: externals/popper
commit c0dced3cdff15d3ebfc56a52d7616b390255eb76
Author: Karthik Chikmagalur 
Commit: Karthik Chikmagalur 

popper-echo: Use dispatch-actions correctly (#77)

* popper-echo.el (popper-echo--activate-keymap): Only enable actions if
`popper-echo-dispatch-actions' is non-nil.
---
 popper-echo.el | 9 +
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/popper-echo.el b/popper-echo.el
index ef80f8f92e..cbb82d8c71 100644
--- a/popper-echo.el
+++ b/popper-echo.el
@@ -192,10 +192,11 @@ Each command in the keymap calls the function REPEAT 
afterwards."
(t keybind))
 do
 (define-key map (kbd rawkey) (popper-echo--dispatch-toggle i 
buffers repeat))
-(define-key map (kbd (concat "k " rawkey))
-(popper-echo--dispatch-kill i buffers repeat))
-(define-key map (kbd (concat "^ " rawkey))
-(popper-echo--dispatch-raise i buffers repeat))
+(when popper-echo-dispatch-actions
+  (define-key map (kbd (concat "k " rawkey))
+  (popper-echo--dispatch-kill i buffers repeat))
+  (define-key map (kbd (concat "^ " rawkey))
+  (popper-echo--dispatch-raise i buffers repeat)))
 finally return map)))
 
 ;;; Notify in echo area:

[elpa] externals/vertico 5b9b80386c 1/2: README: crm-prompt is available on Emacs 31

[ELPA Syncer]

branch: externals/vertico
commit 5b9b80386cfe0e99492432a3e32cd1d2a966070e
Author: Daniel Mendler 
Commit: Daniel Mendler 

README: crm-prompt is available on Emacs 31

See Emacs bug#76028
---
 README.org | 21 +++--
 1 file changed, 11 insertions(+), 10 deletions(-)

diff --git a/README.org b/README.org
index d549335d5c..c453bb2e69 100644
--- a/README.org
+++ b/README.org
@@ -108,16 +108,17 @@ to take advantage of ~use-package~. Here is an example 
configuration:
   ;; Vertico.
   (read-extended-command-predicate #'command-completion-default-include-p)
   :init
-  ;; Emacs bug#76028: Add prompt indicator to `completing-read-multiple'.
-  ;; We display [CRM], e.g., [CRM,] if the separator is a comma.
-  (defun crm-indicator (args)
-(cons (format "[CRM%s] %s"
-  (replace-regexp-in-string
-   "\\`\\[.*?]\\*\\|\\[.*?]\\*\\'" ""
-   crm-separator)
-  (car args))
-  (cdr args)))
-  (advice-add #'completing-read-multiple :filter-args #'crm-indicator)
+  ;; Prompt indicator for `completing-read-multiple'.  Available out of the box
+  ;; on Emacs 31, see `crm-prompt'.
+  (when (< emacs-major-version 31)
+(advice-add #'completing-read-multiple :filter-args
+(lambda (args)
+  (cons (format "[CRM%s] %s"
+(replace-regexp-in-string
+ "\\`\\[.*?]\\*\\|\\[.*?]\\*\\'" ""
+ crm-separator)
+(car args))
+(cdr args)
 
   ;; Do not allow the cursor in the minibuffer prompt
   (setq minibuffer-prompt-properties

[elpa] externals/org updated (96530b7b46 -> 71c7c885eb)

[ELPA Syncer]

elpasync pushed a change to branch externals/org.

  from  96530b7b46 Merge branch 'bugfix'
   new  971b057740 Add workaround to make yank-media work under GNOME for 
Emacs 29
   new  71c7c885eb Merge branch 'bugfix'


Summary of changes:
 lisp/org-compat.el | 20 
 1 file changed, 20 insertions(+)

[nongnu] elpa/helm b304bd39b4 2/2: Don't hardcode locate.db

[ELPA Syncer]

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

Don't hardcode locate.db
---
 helm-locate.el | 7 +--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/helm-locate.el b/helm-locate.el
index 1dbaffe5ef..f2afd5c140 100644
--- a/helm-locate.el
+++ b/helm-locate.el
@@ -461,14 +461,17 @@ Sort is done on basename of CANDIDATES."
  "/" "" (helm-get-attr 'basedir))
(helm-get-attr 'subdir)))
((string-match-p "\\`locate" 
helm-locate-recursive-dirs-command)
-(let* ((db (locate-dominating-file (helm-get-attr 
'basedir) "locate.db"))
+(let* ((db (locate-dominating-file (helm-get-attr 'basedir)
+   
helm-ff-locate-db-filename))
(lcmd (if (and db (not (string-match-p
"-d" 
helm-locate-recursive-dirs-command)))
  (mapconcat
   #'identity
   (helm-append-at-nth
(split-string 
helm-locate-recursive-dirs-command)
-   (format "-d %s" (expand-file-name 
"locate.db" db)) 1)
+   (format "-d %s" (expand-file-name
+
helm-ff-locate-db-filename db))
+   1)
   " ")
helm-locate-recursive-dirs-command)))
 (format lcmd (helm-get-attr 'basedir) (helm-get-attr 
'subdir

[nongnu] elpa/gptel 65846e7ebd 1/2: gptel: Linting and formatting, use when-let*

[ELPA Syncer]

branch: elpa/gptel
commit 65846e7ebdf08483d63386ba53c631a0fcc0ee8a
Author: Karthik Chikmagalur 
Commit: Karthik Chikmagalur 

gptel: Linting and formatting, use when-let*

* gptel.el (gptel--url-get-response, gptel--handle-error,
gptel--fsm-transition, gptel--restore-state, gptel-auto-scroll,
gptel--get-api-key, gptel-api-key-from-auth-source): Use `when-let*'
and `if-let*' everywhere.  `when-let' and `if-let' have been
obsoleted in Emacs 30+.

* gptel-transient.el (gptel--read-crowdsourced-prompt,
gptel--transient-read-number): Ditto.

* gptel-rewrite.el (gptel--rewrite-merge, gptel--rewrite-ediff,
gptel--rewrite-diff): Ditto.

* gptel-org.el (gptel-org--restore-state): Ditto.

* gptel-openai.el (gptel-make-openai, gptel--wrap-user-prompt):
Ditto.

* gptel-openai-extras.el (gptel-make-perplexity,
gptel-make-privategpt): Ditto.

* gptel-kagi.el (gptel--parse-buffer): Ditto.

* gptel-gemini.el (gptel--wrap-user-prompt): Ditto.

* gptel-curl.el (gptel-curl--stream-filter, gptel-curl--get-args): Ditto.

* gptel-context.el (gptel-context-confirm,
gptel-context--buffer-setup, gptel-context-remove): Ditto.

* gptel-anthropic.el (gptel-make-anthropic,
gptel--wrap-user-prompt): Ditto.
---
 gptel-anthropic.el |  8 
 gptel-context.el   | 28 ++--
 gptel-curl.el  | 14 +++---
 gptel-gemini.el|  4 ++--
 gptel-kagi.el  |  4 ++--
 gptel-openai-extras.el | 12 ++--
 gptel-openai.el|  6 +++---
 gptel-org.el   | 10 +-
 gptel-rewrite.el   |  6 +++---
 gptel-transient.el |  8 
 gptel.el   | 38 +++---
 11 files changed, 69 insertions(+), 69 deletions(-)

diff --git a/gptel-anthropic.el b/gptel-anthropic.el
index bc610929f3..3565893ad5 100644
--- a/gptel-anthropic.el
+++ b/gptel-anthropic.el
@@ -358,7 +358,7 @@ If INJECT-MEDIA is non-nil wrap it with base64-encoded media
 files in the context."
   (if inject-media
   ;; Wrap the first user prompt with included media files/contexts
-  (when-let ((media-list (gptel-context--collect-media)))
+  (when-let* ((media-list (gptel-context--collect-media)))
 (cl-callf (lambda (current)
 (vconcat
  (gptel--anthropic-parse-multipart media-list)
@@ -371,13 +371,13 @@ files in the context."
 (cl-callf (lambda (current)
 (cl-etypecase current
   (string (gptel-context--wrap current))
-  (vector (if-let ((wrapped (gptel-context--wrap nil)))
+  (vector (if-let* ((wrapped (gptel-context--wrap nil)))
   (vconcat `((:type "text" :text ,wrapped))
current)
 current
 (plist-get (car (last prompts)) :content
 
-;; (if-let ((context-string (gptel-context--string gptel-context--alist)))
+;; (if-let* ((context-string (gptel-context--string gptel-context--alist)))
 ;; (cl-callf (lambda (previous)
 ;; (cl-typecase previous
 ;;   (string (concat context-string previous))
@@ -462,7 +462,7 @@ comparison table:
 (cl-defun gptel-make-anthropic
 (name &key curl-args stream key request-params
   (header
-   (lambda () (when-let (key (gptel--get-api-key))
+   (lambda () (when-let* ((key (gptel--get-api-key)))
`(("x-api-key" . ,key)
  ("anthropic-version" . "2023-06-01")
  ("anthropic-beta" . "pdfs-2024-09-25")
diff --git a/gptel-context.el b/gptel-context.el
index 24a2bbea22..bae1748cfc 100644
--- a/gptel-context.el
+++ b/gptel-context.el
@@ -248,12 +248,12 @@ If CONTEXT is a directory, recursively removes all files 
in it."
   (setf (alist-get context gptel-context--alist nil 'remove #'equal) nil)
   (message "File \"%s\" removed from context." context)))
((region-active-p)
-(when-let ((contexts (gptel-context--in-region (current-buffer)
-   (region-beginning)
-   (region-end
+(when-let* ((contexts (gptel-context--in-region (current-buffer)
+(region-beginning)
+(region-end
   (cl-loop for ctx in contexts do (delete-overlay ctx
(t
-(when-let ((ctx (gptel-context--at-point)))
+(when-let* ((ctx (gptel-context--at-point)))
   (delete-overlay ctx)
 
 (defun gptel-context-remove-all (&optional verbose)
@@ -481,14 +481,14 @@ context overlays, see `gptel-context--alist'."
 (insert (propertize (format "In file %s:\n\n" 
(file-name-nondirectory buf))
 'face 'bold))
  

[nongnu] elpa/gptel updated (a502ca547c -> c7fa45a500)

[ELPA Syncer]

elpasync pushed a change to branch elpa/gptel.

  from  a502ca547c gptel-transient: Report what is being sent from 
kill-ring (#642)
   new  65846e7ebd gptel: Linting and formatting, use when-let*
   new  c7fa45a500 test: Update test module


Summary of changes:
 gptel-anthropic.el |  8 
 gptel-context.el   | 28 ++--
 gptel-curl.el  | 14 +++---
 gptel-gemini.el|  4 ++--
 gptel-kagi.el  |  4 ++--
 gptel-openai-extras.el | 12 ++--
 gptel-openai.el|  6 +++---
 gptel-org.el   | 10 +-
 gptel-rewrite.el   |  6 +++---
 gptel-transient.el |  8 
 gptel.el   | 38 +++---
 test   |  2 +-
 12 files changed, 70 insertions(+), 70 deletions(-)

[nongnu] elpa/helm updated (a65af07eff -> b304bd39b4)

[ELPA Syncer]

elpasync pushed a change to branch elpa/helm.

  from  a65af07eff Remove the ability of switching to recursive search with 
C-j
   new  979b9e252d Update NEWS
   new  b304bd39b4 Don't hardcode locate.db


Summary of changes:
 NEWS.org   | 7 +++
 helm-locate.el | 7 +--
 2 files changed, 12 insertions(+), 2 deletions(-)

[nongnu] elpa/helm 979b9e252d 1/2: Update NEWS

[ELPA Syncer]

branch: elpa/helm
commit 979b9e252d4f580c85dc4259a587e2d8d93d0406
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

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

diff --git a/NEWS.org b/NEWS.org
index e32a1226f8..2a486e6af6 100644
--- a/NEWS.org
+++ b/NEWS.org
@@ -1,6 +1,13 @@
 #+STARTUP:showall
 
 * NEWS
+** Version 4.0.2-pre
+*** Change default value of `helm-locate-recursive-dirs-command'
+It is no more using `locate` but `find`, this because locate is not
+working anymore out of the box without some tweaks (plocate backend).
+It is still anyway the faster alternative once tweaked, see HFF
+documentation.
+*** Provide icons in find and fdfind
 ** Version 4.0.1
 *** Provide icons in some more places (helm-for-files.el)
 *** Package-vc-* commands have now affixations (package category)

[nongnu] elpa/gptel c7fa45a500 2/2: test: Update test module

[ELPA Syncer]

branch: elpa/gptel
commit c7fa45a5f0f4071520bc907c0c687f26260a
Author: Karthik Chikmagalur 
Commit: Karthik Chikmagalur 

test: Update test module
---
 test | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test b/test
index 2b02687cfc..c625fea021 16
--- a/test
+++ b/test
@@ -1 +1 @@
-Subproject commit 2b02687cfc907a83896160e94c3f07f0186dea27
+Subproject commit c625fea0214d6d607d6d96ea3f62e60a8e28fefb

[elpa] externals/vertico updated (e69ef62ffa -> 000668cb6c)

[ELPA Syncer]

elpasync pushed a change to branch externals/vertico.

  from  e69ef62ffa vertico-repeat-next: Fix completion predicate
   new  5b9b80386c README: crm-prompt is available on Emacs 31
   new  000668cb6c README: Simplify crm indicator


Summary of changes:
 README.org | 19 +--
 1 file changed, 9 insertions(+), 10 deletions(-)

[elpa] externals/vertico 000668cb6c 2/2: README: Simplify crm indicator

[ELPA Syncer]

branch: externals/vertico
commit 000668cb6c611f009d9c98168ae68cb70734cbad
Author: Daniel Mendler 
Commit: Daniel Mendler 

README: Simplify crm indicator
---
 README.org | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/README.org b/README.org
index c453bb2e69..f61ec2b0ea 100644
--- a/README.org
+++ b/README.org
@@ -114,9 +114,7 @@ to take advantage of ~use-package~. Here is an example 
configuration:
 (advice-add #'completing-read-multiple :filter-args
 (lambda (args)
   (cons (format "[CRM%s] %s"
-(replace-regexp-in-string
- "\\`\\[.*?]\\*\\|\\[.*?]\\*\\'" ""
- crm-separator)
+(string-replace "[ \t]*" "" crm-separator)
 (car args))
 (cdr args)
 

[elpa] externals/modus-themes 5e834b6fcf: Add explicit support for howm package

[ELPA Syncer]

branch: externals/modus-themes
commit 5e834b6fcfc56cb9cd32f45a5c2cd953b4e6d2fa
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Add explicit support for howm package
---
 doc/modus-themes.info | 304 ++
 doc/modus-themes.org  |  40 +--
 modus-themes.el   |  24 
 3 files changed, 157 insertions(+), 211 deletions(-)

diff --git a/doc/modus-themes.info b/doc/modus-themes.info
index bb7a8df0bb..85cd8430ad 100644
--- a/doc/modus-themes.info
+++ b/doc/modus-themes.info
@@ -149,7 +149,6 @@ Advanced customization
 * DIY Add support for solaire-mode::
 * DIY Add support for meow-mode::
 * DIY Add support for combobulate::
-* DIY Add support for howm::
 * DIY Use a hook at the post-load-theme phase::
 
 DIY Stylistic variants using palette overrides
@@ -1647,7 +1646,6 @@ such, they are labeled as “do-it-yourself” or “DIY”.
 * DIY Add support for solaire-mode::
 * DIY Add support for meow-mode::
 * DIY Add support for combobulate::
-* DIY Add support for howm::
 * DIY Use a hook at the post-load-theme phase::
 
 
@@ -4144,7 +4142,7 @@ styles to use.  The following is but a basic attempt to 
get started.
 the post-load-theme phase.
 
 
-File: modus-themes.info,  Node: DIY Add support for combobulate,  Next: DIY 
Add support for howm,  Prev: DIY Add support for meow-mode,  Up: Advanced 
customization
+File: modus-themes.info,  Node: DIY Add support for combobulate,  Next: DIY 
Use a hook at the post-load-theme phase,  Prev: DIY Add support for meow-mode,  
Up: Advanced customization
 
 7.23 DIY Add support for combobulate
 
@@ -4195,47 +4193,9 @@ try this instead:
 the post-load-theme phase.
 
 
-File: modus-themes.info,  Node: DIY Add support for howm,  Next: DIY Use a 
hook at the post-load-theme phase,  Prev: DIY Add support for combobulate,  Up: 
Advanced customization
+File: modus-themes.info,  Node: DIY Use a hook at the post-load-theme phase,  
Prev: DIY Add support for combobulate,  Up: Advanced customization
 
-7.24 DIY Add support for howm
-=
-
-The ‘howm’ package is a note-taking solution for Emacs.  Users can add
-support for its faces with something like the following.
-
- (defun my-modus-themes-custom-faces (&rest _)
-   (modus-themes-with-colors
- (custom-set-faces
-  `(action-lock-face ((,c :inherit button)))
-  `(howm-mode-keyword-face (( )))
-  `(howm-mode-ref-face ((,c :inherit link)))
-  `(howm-mode-title-face ((,c :inherit modus-themes-heading-0)))
-  `(howm-mode-wiki-face ((,c :inherit link)))
-  `(howm-reminder-deadline-face ((,c :foreground ,date-deadline)))
-  `(howm-reminder-late-deadline-face ((,c :inherit bold :foreground 
,date-deadline)))
-  `(howm-reminder-defer-face ((,c :foreground ,date-scheduled)))
-  `(howm-reminder-scheduled-face ((,c :foreground ,date-scheduled)))
-  `(howm-reminder-done-face ((,c :foreground ,prose-done)))
-  `(howm-reminder-todo-face ((,c :foreground ,prose-todo)))
-  `(howm-reminder-normal-face ((,c :foreground ,date-common)))
-  `(howm-reminder-today-face ((,c :inherit bold :foreground 
,date-common)))
-  `(howm-reminder-tomorrow-face ((,c :inherit bold :foreground 
,date-scheduled)))
-  `(howm-simulate-todo-mode-line-face ((,c :inherit bold)))
-  `(howm-view-empty-face (( )))
-  `(howm-view-hilit-face ((,c :inherit match)))
-  `(howm-view-name-face ((,c :inherit bold)))
-  `(iigrep-counts-face1 ((,c :foreground ,rainbow-1)))
-  `(iigrep-counts-face2 ((,c :foreground ,rainbow-2)))
-  `(iigrep-counts-face3 ((,c :foreground ,rainbow-3)))
-  `(iigrep-counts-face4 ((,c :foreground ,rainbow-4)))
-  `(iigrep-counts-face5 ((,c :foreground ,rainbow-5))
-
- (add-hook 'enable-theme-functions #'my-modus-themes-custom-faces)
-
-
-File: modus-themes.info,  Node: DIY Use a hook at the post-load-theme phase,  
Prev: DIY Add support for howm,  Up: Advanced customization
-
-7.25 DIY Use a hook at the post-load-theme phase
+7.24 DIY Use a hook at the post-load-theme phase
 
 
 Many of the Do-It-Yourself (DIY) snippets provided herein make use of a
@@ -4283,7 +4243,7 @@ it will not use them (in plain terms, the code works with 
or without
 
 File: modus-themes.info,  Node: DIY A theme-agnostic hook for theme loading,  
Up: DIY Use a hook at the post-load-theme phase
 
-7.25.1 DIY A theme-agnostic hook for theme loading
+7.24.1 DIY A theme-agnostic hook for theme loading
 --
 
 [ NOTE: The following is for versions of Emacs before 29.  For Emacs 29
@@ -4472,6 +4432,7 @@ have lots of extensions, so the “full support” may not be 
100% true…
• hl-fill-column
• hl-line-mode
• hl-todo
+   • howm [ Part of 4.7.0-dev.  ]
• hydra
•

[elpa] externals/ef-themes f5bfc1af82: Add explicit support for howm package

[ELPA Syncer]

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

Add explicit support for howm package
---
 README.org   |  1 +
 ef-themes.el | 24 
 2 files changed, 25 insertions(+)

diff --git a/README.org b/README.org
index f9a34460ff..84c916a95d 100644
--- a/README.org
+++ b/README.org
@@ -1416,6 +1416,7 @@ everything most users need.
 - hexl-mode
 - hi-lock (=M-x highlight-regexp=)
 - highlight-indentation
+- howm [ Part of {{{development-version}}}. ]
 - ibuffer
 - image-dired
 - imenu-list
diff --git a/ef-themes.el b/ef-themes.el
index 53545c2ad4..c20e6fbcf3 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -1677,6 +1677,30 @@ text should not be underlined as well) yet still blend 
in."
   :background "black" :foreground "#faea00" :inverse-video t)))
  highlight-indentation mode
 `(highlight-indentation-face ((,c :background ,bg-dim)))
+ howm
+`(action-lock-face ((,c :inherit button)))
+`(howm-mode-keyword-face (( )))
+`(howm-mode-ref-face ((,c :inherit link)))
+`(howm-mode-title-face ((,c :inherit ef-themes-heading-0)))
+`(howm-mode-wiki-face ((,c :inherit link)))
+`(howm-reminder-deadline-face ((,c :foreground ,date-deadline)))
+`(howm-reminder-late-deadline-face ((,c :inherit bold :foreground 
,date-deadline)))
+`(howm-reminder-defer-face ((,c :foreground ,date-scheduled)))
+`(howm-reminder-scheduled-face ((,c :foreground ,date-scheduled)))
+`(howm-reminder-done-face ((,c :foreground ,prose-done)))
+`(howm-reminder-todo-face ((,c :foreground ,prose-todo)))
+`(howm-reminder-normal-face ((,c :foreground ,date-common)))
+`(howm-reminder-today-face ((,c :inherit bold :foreground ,date-common)))
+`(howm-reminder-tomorrow-face ((,c :inherit bold :foreground 
,date-scheduled)))
+`(howm-simulate-todo-mode-line-face ((,c :inherit bold)))
+`(howm-view-empty-face (( )))
+`(howm-view-hilit-face ((,c :inherit match)))
+`(howm-view-name-face ((,c :inherit bold)))
+`(iigrep-counts-face1 ((,c :foreground ,rainbow-1)))
+`(iigrep-counts-face2 ((,c :foreground ,rainbow-2)))
+`(iigrep-counts-face3 ((,c :foreground ,rainbow-3)))
+`(iigrep-counts-face4 ((,c :foreground ,rainbow-4)))
+`(iigrep-counts-face5 ((,c :foreground ,rainbow-5)))
  ibuffer
 `(ibuffer-locked-buffer ((,c :foreground ,warning)))
  image-dired

[elpa] externals/dired-preview 39141635b2: Make stylistic change to dired-preview--display-buffer

[ELPA Syncer]

branch: externals/dired-preview
commit 39141635b2454212cb905a664253e9fe9e844964
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Make stylistic change to dired-preview--display-buffer
---
 dired-preview.el | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/dired-preview.el b/dired-preview.el
index 1d1a53e836..ad2d7c0c5e 100644
--- a/dired-preview.el
+++ b/dired-preview.el
@@ -652,9 +652,7 @@ Only do it with the current major mode is Dired."
   (let ((action-alist (cond
((functionp dired-preview-display-action-alist)
 (funcall dired-preview-display-action-alist))
-   (dired-preview-display-action-alist)
-   (t
-(dired-preview-display-action-alist-dwim)
+   (dired-preview-display-action-alist
 (display-buffer buffer action-alist)))
 
 (defun dired-preview--remove-preview-indicator (name)

[elpa] externals/standard-themes 9dafec47c3: Add explicit support for howm package

[ELPA Syncer]

branch: externals/standard-themes
commit 9dafec47c3bd8019bc1f5b13eb3470c041530d74
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Add explicit support for howm package
---
 README.org |  1 +
 standard-themes.el | 24 
 2 files changed, 25 insertions(+)

diff --git a/README.org b/README.org
index 45c17ae969..efe78245bd 100644
--- a/README.org
+++ b/README.org
@@ -1167,6 +1167,7 @@ everything most users need.
 - git-rebase
 - gnus
 - hi-lock (=M-x highlight-regexp=)
+- howm [ Part of {{{development-version}}}. ]
 - ibuffer
 - image-dired
 - info
diff --git a/standard-themes.el b/standard-themes.el
index 7b948f3801..5d6fb0f235 100644
--- a/standard-themes.el
+++ b/standard-themes.el
@@ -1549,6 +1549,30 @@ color mappings instead of the complete palette."
   :background "white" :foreground "#af6f00" :inverse-video t)
  (((class color) (min-colors 88) (background dark))
   :background "black" :foreground "#faea00" :inverse-video t)))
+ howm
+`(action-lock-face ((,c :inherit button)))
+`(howm-mode-keyword-face (( )))
+`(howm-mode-ref-face ((,c :inherit link)))
+`(howm-mode-title-face ((,c :inherit standard-themes-heading-0)))
+`(howm-mode-wiki-face ((,c :inherit link)))
+`(howm-reminder-deadline-face ((,c :foreground ,date-deadline)))
+`(howm-reminder-late-deadline-face ((,c :inherit bold :foreground 
,date-deadline)))
+`(howm-reminder-defer-face ((,c :foreground ,date-scheduled)))
+`(howm-reminder-scheduled-face ((,c :foreground ,date-scheduled)))
+`(howm-reminder-done-face ((,c :foreground ,prose-done)))
+`(howm-reminder-todo-face ((,c :foreground ,prose-todo)))
+`(howm-reminder-normal-face ((,c :foreground ,date-common)))
+`(howm-reminder-today-face ((,c :inherit bold :foreground ,date-common)))
+`(howm-reminder-tomorrow-face ((,c :inherit bold :foreground 
,date-scheduled)))
+`(howm-simulate-todo-mode-line-face ((,c :inherit bold)))
+`(howm-view-empty-face (( )))
+`(howm-view-hilit-face ((,c :inherit match)))
+`(howm-view-name-face ((,c :inherit bold)))
+`(iigrep-counts-face1 ((,c :foreground ,rainbow-1)))
+`(iigrep-counts-face2 ((,c :foreground ,rainbow-2)))
+`(iigrep-counts-face3 ((,c :foreground ,rainbow-3)))
+`(iigrep-counts-face4 ((,c :foreground ,rainbow-4)))
+`(iigrep-counts-face5 ((,c :foreground ,rainbow-5)))
  ibuffer
 `(ibuffer-locked-buffer ((,c :foreground ,warning)))
  image-dired

[nongnu] elpa/dirvish fa6fe6ac03: chore: use `project-root` from Emacs-28

[ELPA Syncer]

branch: elpa/dirvish
commit fa6fe6ac03d098d9a71816ea91a4dbdc7c3946d6
Author: Alex Lu 
Commit: Alex Lu 

chore: use `project-root` from Emacs-28
---
 dirvish.el   | 6 +++---
 extensions/dirvish-fd.el | 6 --
 2 files changed, 7 insertions(+), 5 deletions(-)

diff --git a/dirvish.el b/dirvish.el
index 9e5783bb6c..66025607bf 100644
--- a/dirvish.el
+++ b/dirvish.el
@@ -27,7 +27,7 @@
 (declare-function ansi-color-apply-on-region "ansi-color")
 (declare-function dirvish-fd-find "dirvish-fd")
 (declare-function dirvish-tramp-noselect "dirvish-tramp")
-(declare-function project-roots "project")
+(declare-function project-root "project")
 
  User Options
 
@@ -439,8 +439,8 @@ ALIST is window arguments passed to 
`window--display-buffer'."
 (defun dirvish--get-project-root (&optional directory)
   "Get project root path of DIRECTORY."
   (when-let* ((pj (project-current nil directory))
-  (pj-roots (project-roots pj)))
-(expand-file-name (car pj-roots
+  (pj-root (project-root pj)))
+(expand-file-name pj-root)))
 
 (defun dirvish--get-parent-path (path)
   "Get parent directory of PATH."
diff --git a/extensions/dirvish-fd.el b/extensions/dirvish-fd.el
index 94392fe2e0..35d6780d38 100644
--- a/extensions/dirvish-fd.el
+++ b/extensions/dirvish-fd.el
@@ -254,8 +254,10 @@ Raise an error if fd executable is not available."
 ;;;###autoload
 (defun dirvish-fd-jump (&optional current-dir-p)
   "Browse directories using `fd' command.
-This command takes a while to index all the directories the first
-time you run it.  After the indexing, it fires up instantly.
+This command takes a while to index all the directories the first time
+you run it.  After the indexing, it fires up instantly except for those
+huge directories such as root.  It is recommended to setup your
+.fdignore properly before using this command.
 
 If called with \\`C-u' or if CURRENT-DIR-P holds the value 4,
 search for directories in the current directory.  Otherwise,

[nongnu] elpa/projectile 30c55d19b9: [Docs] Update Antora instructions

[ELPA Syncer]

branch: elpa/projectile
commit 30c55d19b9488dcddc9195c9acb7f625d472d96d
Author: Bozhidar Batsov 
Commit: Bozhidar Batsov 

[Docs] Update Antora instructions
---
 doc/modules/ROOT/pages/contributing.adoc | 14 +++---
 1 file changed, 7 insertions(+), 7 deletions(-)

diff --git a/doc/modules/ROOT/pages/contributing.adoc 
b/doc/modules/ROOT/pages/contributing.adoc
index 6b7cbf2136..4d23b3c427 100644
--- a/doc/modules/ROOT/pages/contributing.adoc
+++ b/doc/modules/ROOT/pages/contributing.adoc
@@ -53,7 +53,6 @@ Tests should run fine in `shell-mode` or `term-mode`. It's 
also possible to use
 == Documentation
 
 Good documentation is just as important as good code.
-
 Consider improving and extending this manual and the
 https://github.com/bbatsov/projectile/wiki[community wiki].
 
@@ -61,7 +60,7 @@ https://github.com/bbatsov/projectile/wiki[community wiki].
 
 The manual is generated from the AsciiDoc files in the 
https://github.com/bbatsov/projectile/tree/master/doc[doc] folder of 
Projectile's GitHub repo and is published to https://docs.projectile.mx.
 https://antora.org[Antora] is used to convert the manual into HTML.
-The filesystem layout is described at 
https://docs.antora.org/antora/2.0/component-structure/.
+The filesystem layout is described at 
https://docs.antora.org/antora/latest/component-structure/.
 
 To make changes to the manual you simply have to change the files under `doc`.
 The manual will be regenerated manually periodically.
@@ -74,10 +73,11 @@ Installing the Antora is super simple:
 
 [source]
 
-$ npm i -g @antora/cli@2.0 @antora/site-generator-default@2.0
+$ cd docs.projectile.mx
+$ npm install
 
 
-Check out https://docs.antora.org/antora/2.0/install/install-antora/[the 
detailed installation instructions]
+Check out https://docs.antora.org/antora/latest/install/install-antora/[the 
detailed installation instructions]
 if you run into any problems.
 
  Building the Site
@@ -87,14 +87,14 @@ You can build the documentation locally from the 
https://github.com/bbatsov/docs
 [source]
 
 $ cd docs.projectile.mx
-$ antora --pull antora-playbook.yml
+$ make build
 
 
-After you're done with the initial setup you can use the `deploy` script to 
push changes to the site:
+After you're done with the initial setup you can use the `make` to push 
changes to the site:
 
 [source]
 
-./deploy
+$ make deploy
 
 
 NOTE: You'll need commit access to the repository for this to work.

[nongnu] elpa/gptel a502ca547c: gptel-transient: Report what is being sent from kill-ring (#642)

[ELPA Syncer]

branch: elpa/gptel
commit a502ca547c22e51c9c6a21227c5744b17c4fd1c3
Author: Henrik Ahlgren 
Commit: GitHub 

gptel-transient: Report what is being sent from kill-ring (#642)

* gptel-transient.el (gptel--describe-suffix-send): Show a snippet
(max 20 chars): of text being send from kill-ring.  For longer kills,
report the human-readable length in characters (not necessarely bytes)
using SI units (1 k = 1000).  Indicate "empty" in case kill-ring does
not have anything.
---
 gptel-transient.el | 18 +-
 1 file changed, 17 insertions(+), 1 deletion(-)

diff --git a/gptel-transient.el b/gptel-transient.el
index bf8e78eee7..eba2eda53b 100644
--- a/gptel-transient.el
+++ b/gptel-transient.el
@@ -346,7 +346,23 @@ which see."
  (if dest (concat (pth ", response to ") dest)
(concat (pth ", insert response at point")
 ((member "y" args)
- (concat (pth "Send prompt from ") (ptv "kill-ring")
+ (concat (pth "Send prompt from ")
+(concat (ptv "kill-ring (")
+(if-let* ((val (car-safe kill-ring))
+  (val (substring-no-properties val))
+  (len (length val)))
+(ptv (concat
+   "\"" (string-replace
+"\n" "⮐"
+(truncate-string-to-width
+ val 20 nil nil t))
+  "\"" (when (> len 20)
+ (concat
+  ", "
+  (file-size-human-readable len 
'si " ")
+  " chars"
+(propertize "empty" 'face 'error))
+  (ptv ")"))
  context
  (if dest (concat (pth ", response to ") dest)
(concat (pth ", insert response at point")

[nongnu] elpa/treesit-fold 6162769f76: fix(indicators): refresh indicators only when the mode is enabled (#23)

[ELPA Syncer]

branch: elpa/treesit-fold
commit 6162769f7642946c5cfb54c92fedc8b13f7fb7ac
Author: ISouthRain <65887663+isouthr...@users.noreply.github.com>
Commit: GitHub 

fix(indicators): refresh indicators only when the mode is enabled (#23)

fix function is void question without using treesit-fold-indicators.
---
 treesit-fold.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/treesit-fold.el b/treesit-fold.el
index 55d6fd4801..daaa864842 100644
--- a/treesit-fold.el
+++ b/treesit-fold.el
@@ -588,7 +588,9 @@ If the current syntax node is not foldable, do nothing."
 
 (defun treesit-fold--after-command (&rest _)
   "Function call after interactive commands."
-  (treesit-fold-indicators-refresh))
+  (when (and (boundp 'treesit-fold-indicators-mode)
+ treesit-fold-indicators-mode)
+(treesit-fold-indicators-refresh)))
 
 (let ((commands '(treesit-fold-close
   treesit-fold-open