[elpa] externals/hyperbole updated (63ed77a7ba -> 0176666b61)

[ELPA Syncer]

elpasync pushed a change to branch externals/hyperbole.

  from  63ed77a7ba Set pipefail so that makes error code is propagated to 
the shell (#523)
   new  45b36530fc Add Emacs 30 closure support and tests (#526)
   new  017b61 Add quotes so make is executed in the container (#525)


Summary of changes:
 ChangeLog  | 11 +++
 Makefile   |  4 ++--
 hact.el|  6 --
 test/MANIFEST  |  1 +
 test/hact-tests.el | 38 ++
 5 files changed, 56 insertions(+), 4 deletions(-)
 create mode 100644 test/hact-tests.el

[elpa] externals/hyperbole 45b36530fc 1/2: Add Emacs 30 closure support and tests (#526)

[ELPA Syncer]

branch: externals/hyperbole
commit 45b36530fc81ba67b39db06274f72997796217ac
Author: Mats Lidell 
Commit: GitHub 

Add Emacs 30 closure support and tests (#526)
---
 ChangeLog  |  7 +++
 hact.el|  6 --
 test/MANIFEST  |  1 +
 test/hact-tests.el | 38 ++
 4 files changed, 50 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index e03a662e7d..b3d962b649 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,10 @@
+2024-05-16  Mats Lidell  
+
+* test/hact-tests.el (hact-tests--action-params-with-lambdas)
+   (hact-tests--actype-act-with-lambdas): Verify closures.
+
+* hact.el (actype:act): Add Emacs 30 closure support.
+
 2024-04-20  Bob Weiner  
 
 * hui-select.el (hui-c++-defun-prompt-regexp): Add to eliminate an Emacs
diff --git a/hact.el b/hact.el
index 4833778ada..46fabbeb72 100644
--- a/hact.el
+++ b/hact.el
@@ -3,7 +3,7 @@
 ;; Author:   Bob Weiner
 ;;
 ;; Orig-Date:18-Sep-91 at 02:57:09
-;; Last-Mod: 14-Apr-24 at 01:33:24 by Bob Weiner
+;; Last-Mod: 16-May-24 at 23:00:41 by Mats Lidell
 ;;
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;;
@@ -411,7 +411,9 @@ performing ACTION."
   (setq args (hpath:absolute-arguments actype args)))
   (let ((hist-elt (hhist:element)))
(run-hooks 'action-act-hook)
-   (prog1 (or (if (or (symbolp action) (listp action)
+   (prog1 (or (when (and (fboundp #'closurep) (closurep action))
+(apply action args))
+  (if (or (symbolp action) (listp action)
   (byte-code-function-p action)
   (subrp action)
   (and (stringp action) (not (integerp action))
diff --git a/test/MANIFEST b/test/MANIFEST
index 0eb68c930e..85d9f695dc 100644
--- a/test/MANIFEST
+++ b/test/MANIFEST
@@ -1,5 +1,6 @@
 --- HYPERBOLE TEST CASES ---
 demo-tests.el   - unit tests from examples in the DEMO
+hact-tests.el   - hact unit tests
 hactypes-tests.el   - Ert tests for hactypes
 hargs-tests.el  - hargs unit tests
 hbut-tests.el   - hbut unit tests
diff --git a/test/hact-tests.el b/test/hact-tests.el
new file mode 100644
index 00..00c37b1e0c
--- /dev/null
+++ b/test/hact-tests.el
@@ -0,0 +1,38 @@
+;;; hact-tests.el --- unit tests for hact-*- lexical-binding: 
t; -*-
+;;
+;; Author:   Mats Lidell
+;;
+;; Orig-Date:16-May-24 at 00:29:22
+;; Last-Mod: 16-May-24 at 23:51:18 by Mats Lidell
+;;
+;; SPDX-License-Identifier: GPL-3.0-or-later
+;;
+;; Copyright (C) 2021-2022  Free Software Foundation, Inc.
+;; See the "HY-COPY" file for license information.
+;;
+;; This file is part of GNU Hyperbole.
+
+;;; Commentary:
+;;
+
+;;; Code:
+
+(require 'ert)
+(require 'hact)
+
+(ert-deftest hact-tests--action-params-with-lambdas ()
+  "Lambda used with `action:params' should return the lambda parameters."
+  (should (equal nil (action:params (lambda () nil
+  (should (equal '(x) (action:params (lambda (x) nil
+  (should (equal '(x y) (action:params (lambda (x y) nil)
+
+(ert-deftest hact-tests--actype-act-with-lambdas ()
+  "Lambda with `actype:act' should work over versions of Emacs.
+Covers backwards incompatible change in Emacs 30."
+  (should (= 2 (actype:act (lambda () 2
+  (should (= 2 (actype:act (lambda (x) x) 2)))
+  (should (= 2 (actype:act (lambda (x) (1+ x)) 1)))
+  (should (= 2 (actype:act (lambda (x y) (+ x y)) 1 1
+
+(provide 'hact-tests)
+;;; hact-tests.el ends here

[elpa] externals/hyperbole 0176666b61 2/2: Add quotes so make is executed in the container (#525)

[ELPA Syncer]

branch: externals/hyperbole
commit 017b6125be769e17f20dc80085b3a9975a09
Author: Mats Lidell 
Commit: GitHub 

Add quotes so make is executed in the container (#525)
---
 ChangeLog | 4 
 Makefile  | 4 ++--
 2 files changed, 6 insertions(+), 2 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index b3d962b649..fe7a36b0bc 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,7 @@
+2024-05-17  Mats Lidell  
+
+* Makefile (dockerized): Add quotes so make is executed in the container.
+
 2024-05-16  Mats Lidell  
 
 * test/hact-tests.el (hact-tests--action-params-with-lambdas)
diff --git a/Makefile b/Makefile
index 940d0100d1..5c69528ac8 100644
--- a/Makefile
+++ b/Makefile
@@ -3,7 +3,7 @@
 # Author:   Bob Weiner
 #
 # Orig-Date:15-Jun-94 at 03:42:38
-# Last-Mod: 14-Apr-24 at 23:00:20 by Bob Weiner
+# Last-Mod:  6-May-24 at 00:25:45 by Mats Lidell
 #
 # Copyright (C) 1994-2023  Free Software Foundation, Inc.
 # See the file HY-COPY for license information.
@@ -561,7 +561,7 @@ DOCKER_VERSION = master-ci
 endif
 
 dockerized:
-   docker run -v $$(pwd):/hyperbole -it silex/emacs:${DOCKER_VERSION} bash 
-c cd hyperbole && make ${DOCKER_TARGETS}
+   docker run -v $$(pwd):/hyperbole -it silex/emacs:${DOCKER_VERSION} bash 
-c "make -C hyperbole ${DOCKER_TARGETS}"
 
 # Run with coverage. Run tests given by testspec and monitor the
 # coverage for the specified file.

[nongnu] elpa/hyperdrive 0885f59d69 1/2: Docs: Update to hyper-gateway-ushin 3.7.1

[ELPA Syncer]

branch: elpa/hyperdrive
commit 0885f59d69d8911496627396163e5c8e83f49bd4
Author: Joseph Turner 
Commit: Joseph Turner 

Docs: Update to hyper-gateway-ushin 3.7.1
---
 doc/hyperdrive.org  | 4 ++--
 doc/hyperdrive.texi | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/doc/hyperdrive.org b/doc/hyperdrive.org
index b26d086aae..1869ebdf5a 100644
--- a/doc/hyperdrive.org
+++ b/doc/hyperdrive.org
@@ -1195,8 +1195,8 @@ If you run into issues, please first try resetting the 
values of
 #+end_src
 
 Please ensure that your version of ~hyper-gateway-ushin~ (~M-x
-hyperdrive-hyper-gateway-ushin-version~) is version `3.7.0`
-([downloads](https://git.sr.ht/~ushin/hyper-gateway-ushin/refs/v3.7.0)).
+hyperdrive-hyper-gateway-ushin-version~) is version `3.7.1`
+([downloads](https://git.sr.ht/~ushin/hyper-gateway-ushin/refs/v3.7.1)).
 
 * Contributing/Getting help
 
diff --git a/doc/hyperdrive.texi b/doc/hyperdrive.texi
index d90cc2a1c2..448f9b5844 100644
--- a/doc/hyperdrive.texi
+++ b/doc/hyperdrive.texi
@@ -1623,8 +1623,8 @@ If you run into issues, please first try resetting the 
values of
 @end lisp
 
 Please ensure that your version of @code{hyper-gateway-ushin} (@code{M-x
-hyperdrive-hyper-gateway-ushin-version}) is version `3.7.0`
-([downloads](@uref{https://git.sr.ht/~ushin/hyper-gateway-ushin/refs/v3.7.0})).
+hyperdrive-hyper-gateway-ushin-version}) is version `3.7.1`
+([downloads](@uref{https://git.sr.ht/~ushin/hyper-gateway-ushin/refs/v3.7.1})).
 
 @node Contributing/Getting help
 @chapter Contributing/Getting help

[nongnu] elpa/hyperdrive 0b86eb5002 2/2: Docs: Update to hyper-gateway-ushin 3.7.2

[ELPA Syncer]

branch: elpa/hyperdrive
commit 0b86eb50021b630746c933d91f391bc09bc17f4b
Author: Joseph Turner 
Commit: Joseph Turner 

Docs: Update to hyper-gateway-ushin 3.7.2
---
 doc/hyperdrive.org  | 4 ++--
 doc/hyperdrive.texi | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/doc/hyperdrive.org b/doc/hyperdrive.org
index 1869ebdf5a..5dceae82ce 100644
--- a/doc/hyperdrive.org
+++ b/doc/hyperdrive.org
@@ -1195,8 +1195,8 @@ If you run into issues, please first try resetting the 
values of
 #+end_src
 
 Please ensure that your version of ~hyper-gateway-ushin~ (~M-x
-hyperdrive-hyper-gateway-ushin-version~) is version `3.7.1`
-([downloads](https://git.sr.ht/~ushin/hyper-gateway-ushin/refs/v3.7.1)).
+hyperdrive-hyper-gateway-ushin-version~) is version `3.7.2`
+([downloads](https://git.sr.ht/~ushin/hyper-gateway-ushin/refs/v3.7.2)).
 
 * Contributing/Getting help
 
diff --git a/doc/hyperdrive.texi b/doc/hyperdrive.texi
index 448f9b5844..0884fb0314 100644
--- a/doc/hyperdrive.texi
+++ b/doc/hyperdrive.texi
@@ -1623,8 +1623,8 @@ If you run into issues, please first try resetting the 
values of
 @end lisp
 
 Please ensure that your version of @code{hyper-gateway-ushin} (@code{M-x
-hyperdrive-hyper-gateway-ushin-version}) is version `3.7.1`
-([downloads](@uref{https://git.sr.ht/~ushin/hyper-gateway-ushin/refs/v3.7.1})).
+hyperdrive-hyper-gateway-ushin-version}) is version `3.7.2`
+([downloads](@uref{https://git.sr.ht/~ushin/hyper-gateway-ushin/refs/v3.7.2})).
 
 @node Contributing/Getting help
 @chapter Contributing/Getting help

[nongnu] elpa/hyperdrive updated (23f47f6f78 -> 0b86eb5002)

[ELPA Syncer]

elpasync pushed a change to branch elpa/hyperdrive.

  from  23f47f6f78 Fix: Export only body in README.html Make target
   new  0885f59d69 Docs: Update to hyper-gateway-ushin 3.7.1
   new  0b86eb5002 Docs: Update to hyper-gateway-ushin 3.7.2


Summary of changes:
 doc/hyperdrive.org  | 4 ++--
 doc/hyperdrive.texi | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

[elpa] externals/cape 826701cfc3: README: Recommend add-hook instead

[ELPA Syncer]

branch: externals/cape
commit 826701cfc36dcc429ecb7174921be2085d04c1b9
Author: Daniel Mendler 
Commit: Daniel Mendler 

README: Recommend add-hook instead
---
 README.org | 26 +-
 1 file changed, 13 insertions(+), 13 deletions(-)

diff --git a/README.org b/README.org
index 5cb33ca192..1e935458ed 100644
--- a/README.org
+++ b/README.org
@@ -108,18 +108,18 @@ information.
   ;; used by `completion-at-point'.  The order of the functions matters, the
   ;; first function returning a result wins.  Note that the list of 
buffer-local
   ;; completion functions takes precedence over the global list.
-  (add-to-list 'completion-at-point-functions #'cape-dabbrev)
-  (add-to-list 'completion-at-point-functions #'cape-file)
-  (add-to-list 'completion-at-point-functions #'cape-elisp-block)
-  ;;(add-to-list 'completion-at-point-functions #'cape-history)
-  ;;(add-to-list 'completion-at-point-functions #'cape-keyword)
-  ;;(add-to-list 'completion-at-point-functions #'cape-tex)
-  ;;(add-to-list 'completion-at-point-functions #'cape-sgml)
-  ;;(add-to-list 'completion-at-point-functions #'cape-rfc1345)
-  ;;(add-to-list 'completion-at-point-functions #'cape-abbrev)
-  ;;(add-to-list 'completion-at-point-functions #'cape-dict)
-  ;;(add-to-list 'completion-at-point-functions #'cape-elisp-symbol)
-  ;;(add-to-list 'completion-at-point-functions #'cape-line)
+  (add-hook 'completion-at-point-functions #'cape-dabbrev)
+  (add-hook 'completion-at-point-functions #'cape-file)
+  (add-hook 'completion-at-point-functions #'cape-elisp-block)
+  ;;(add-hook 'completion-at-point-functions #'cape-history)
+  ;;(add-hook 'completion-at-point-functions #'cape-keyword)
+  ;;(add-hook 'completion-at-point-functions #'cape-tex)
+  ;;(add-hook 'completion-at-point-functions #'cape-sgml)
+  ;;(add-hook 'completion-at-point-functions #'cape-rfc1345)
+  ;;(add-hook 'completion-at-point-functions #'cape-abbrev)
+  ;;(add-hook 'completion-at-point-functions #'cape-dict)
+  ;;(add-hook 'completion-at-point-functions #'cape-elisp-symbol)
+  ;;(add-hook 'completion-at-point-functions #'cape-line)
 )
 #+end_src
 
@@ -299,7 +299,7 @@ personal configuration.
 ;; pressing RET.
 (defun my-cape-dabbrev-accept-all ()
   (cape-wrap-accept-all #'cape-dabbrev))
-(add-to-list 'completion-at-point-functions #'my-cape-dabbrev-accept-all)
+(add-hook 'completion-at-point-functions #'my-cape-dabbrev-accept-all)
 
 ;; Example 6: Define interactive Capf which can be bound to a key.  Here we 
wrap
 ;; the `elisp-completion-at-point' such that we can complete Elisp code

[elpa] externals/consult 21d87b9f40: Update changelog

[ELPA Syncer]

branch: externals/consult
commit 21d87b9f4066d662c18cc27e14636724c9f46b16
Author: Daniel Mendler 
Commit: Daniel Mendler 

Update changelog
---
 CHANGELOG.org | 9 -
 1 file changed, 8 insertions(+), 1 deletion(-)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index 2fddca96f6..91cccf1b55 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -4,7 +4,14 @@
 
 * Development
 
-- Bugfixes
+- Emacs 30 bug fix: Ensure that font locking is enabled when previewing files.
+- ~consult-preview-allowed-hooks~: Global minor modes, which should be enabled
+  during preview, can be added to this list. See the README for examples.
+- ~consult-xref~: Bug fix: Do not error when project root directory is nil.
+- ~consult-fd~: Bug fix: Avoid confusion of input pattern with options by
+  prefixing the input pattern with ~--and~.
+- ~consult--buffer-sort-visibility~: Bug fix: Only add current buffer to sorted
+  list, if already present in the original list.
 
 * Version 1.6 (2024-05-15)
 

[elpa] externals/denote 23d268a156: Fix regression caused by commit f08bed0

[ELPA Syncer]

branch: externals/denote
commit 23d268a15675cc7175ad74f463d1575b098dc24c
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Fix regression caused by commit f08bed0

We want the title prompt to do the following:

1. Find the title from the file's front matter.
2. Find the title from the relevant Denote file name component.
3. Fall back to the name of the file UNLESS it already has an
   identifier. In this case, the file does not have a Denote title
   component, so we do not want to put the rest of the file name (e.g.
   identifier plus signature/keywords) as the initial title as that
   will duplicate the contents of the file name.

We had this before, but point 3 was failing.

Thanks to Alan Schmitt for bringing this matter to my attention in
discussion 353: .
---
 denote.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/denote.el b/denote.el
index 8980441860..eb4e5089a4 100644
--- a/denote.el
+++ b/denote.el
@@ -1795,7 +1795,9 @@ This is a wrapper for 
`denote-retrieve-front-matter-title-value' and
(title (denote-retrieve-front-matter-title-value file type))
((not (string-blank-p title
   title
-(denote-retrieve-filename-title file)))
+(or (denote-retrieve-filename-title file)
+(and (not (denote-file-has-identifier-p file))
+ (file-name-base file)
 
 (defun denote--retrieve-location-in-xrefs (identifier)
   "Return list of xrefs for IDENTIFIER with their respective location.

[elpa] externals/exwm 9b130b2e9a: ; Fix single quote docstring warning

[ELPA Syncer]

branch: externals/exwm
commit 9b130b2e9a4e59a4422dcbe8162a06084d88696d
Author: Daniel Mendler 
Commit: Daniel Mendler 

; Fix single quote docstring warning

* exwm-input.el (exwm-input-prefix-keys): Fix docstring.
---
 exwm-input.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/exwm-input.el b/exwm-input.el
index f1f035c91a..eac0ef6a37 100644
--- a/exwm-input.el
+++ b/exwm-input.el
@@ -46,7 +46,7 @@
   '(?\C-x ?\C-u ?\C-h ?\M-x ?\M-` ?\M-& ?\M-:)
   "List of prefix keys EXWM should forward to Emacs when in `line-mode'.
 
-The point is to make keys like 'C-x C-f' forwarded to Emacs in `line-mode'.
+The point is to make keys like `C-x C-f' forwarded to Emacs in `line-mode'.
 There is no need to add prefix keys for global/simulation keys or those
 defined in `exwm-mode-map' here."
   :type '(repeat key-sequence)

[nongnu] elpa/cider caa2a2c2e1 3/3: Update CHANGELOG

[ELPA Syncer]

branch: elpa/cider
commit caa2a2c2e1b2761573b2a8a8b211a5654b731d7c
Author: Oleksandr Yakushev 
Commit: Bozhidar Batsov 

Update CHANGELOG
---
 CHANGELOG.md | 8 +++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index 910d818f94..fa326e5391 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -19,12 +19,18 @@
 - [#3628](https://github.com/clojure-emacs/cider/issues/3628): 
`cider-ns-refresh`: summarize errors as an overlay.
 - [#3660](https://github.com/clojure-emacs/cider/issues/3660): Fix 
`cider-inspector-def-current-val` always defining in `user` namespace.
 - [#3661](https://github.com/clojure-emacs/cider/issues/3661): Truncate echo 
area output ahead of time.
+- [#3664](https://github.com/clojure-emacs/cider/issues/3664): Add 
customization inspector op to change max nested collection depth.
 - Bump the injected `enrich-classpath` to 
[1.19.3](https://github.com/clojure-emacs/enrich-classpath/compare/v1.19.0...v1.19.3).
 - Bump the injected nREPL to 
[1.1.1](https://github.com/nrepl/nrepl/blob/v1.1.1/CHANGELOG.md#111-2024-02-20).
 - Bump the injected `cider-nrepl` to 
[0.48.0](https://github.com/clojure-emacs/cider-nrepl/blob/v0.48.0/CHANGELOG.md#0480-2024-05-13).
   - Updates 
[Orchard](https://github.com/clojure-emacs/orchard/blob/v0.23.2/CHANGELOG.md#0232-2024-03-10).
+- Bump the injected `cider-nrepl` to 
[0.48.0](https://github.com/clojure-emacs/cider-nrepl/blob/master/CHANGELOG.md#0480-2024-05-13).
+  - Updates 
[clj-reload](https://github.com/tonsky/clj-reload/blob/0.6.0/CHANGELOG.md#060---may-3-2024).
+  - Updates 
[tools.reader](https://github.com/clojure/tools.reader/blob/master/CHANGELOG.md).
+  - Updates 
[nREPL](https://github.com/nrepl/nrepl/blob/master/CHANGELOG.md#111-2024-02-20).
+  - Updates 
[Orchard](https://github.com/clojure-emacs/orchard/blob/master/CHANGELOG.md#0250-2024-05-03).
   - Updates 
[Logjam](https://github.com/clojure-emacs/logjam/blob/v0.3.0/CHANGELOG.md#030-2024-03-03).
-  - Updates 
[Compliment](https://github.com/alexander-yakushev/compliment/blob/951604/CHANGELOG.md#master-unreleased).
+  - Updates 
[Compliment](https://github.com/alexander-yakushev/compliment/blob/master/CHANGELOG.md#055-2024-05-06).
 - [orchard#245](https://github.com/clojure-emacs/orchard/pull/245), 
[cider-nrepl#868](https://github.com/clojure-emacs/cider-nrepl/pull/868): Drop 
support for Clojure 1.9.
 
 ### Bugs fixed

[nongnu] elpa/cider updated (cbd40f78d6 -> caa2a2c2e1)

[ELPA Syncer]

elpasync pushed a change to branch elpa/cider.

  from  cbd40f78d6 Fix cider-interactive-eval-override invocation
   new  3584e32cd1 [inspector] Add configuration for max-nested-depth and 
spacious
   new  7b02614a6e Update docs
   new  caa2a2c2e1 Update CHANGELOG


Summary of changes:
 CHANGELOG.md|  8 +++-
 cider-inspector.el  | 61 ++---
 doc/modules/ROOT/pages/debugging/inspector.adoc | 11 +++--
 3 files changed, 60 insertions(+), 20 deletions(-)

[nongnu] elpa/cider 7b02614a6e 2/3: Update docs

[ELPA Syncer]

branch: elpa/cider
commit 7b02614a6e45aecfcaf841d281b2749abe28c172
Author: Oleksandr Yakushev 
Commit: Bozhidar Batsov 

Update docs
---
 doc/modules/ROOT/pages/debugging/inspector.adoc | 11 ---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/doc/modules/ROOT/pages/debugging/inspector.adoc 
b/doc/modules/ROOT/pages/debugging/inspector.adoc
index 6f4c4cd94c..fc82481dc9 100644
--- a/doc/modules/ROOT/pages/debugging/inspector.adoc
+++ b/doc/modules/ROOT/pages/debugging/inspector.adoc
@@ -68,6 +68,10 @@ You'll have access to additional keybindings in the 
inspector buffer
 | `cider-inspector-set-max-coll-size`
 | Set a new maximum size above which nested collections are truncated
 
+| kbd:[C]
+| `cider-inspector-set-max-nested-depth
+| Set a new maximum nesting level above which the collections are truncated
+
 | kbd:[a]
 | `cider-inspector-set-max-atom-length`
 | Set a new maximum length above which nested atoms (non-collections) are 
truncated
@@ -118,9 +122,10 @@ can disable the auto selection with the variable
 `cider-inspector-auto-select-buffer`.
 
 You can set the amount of data shown by default with the variables
-`cider-inspector-page-size`, `cider-inspector-max-coll-size`, and
-`cider-inspector-max-atom-length`. The values can be adjusted for the current
-inspector buffer using the `s`, `c`, and `a` keybindings.
+`cider-inspector-page-size`, `cider-inspector-max-coll-size`,
+`cider-inspector-max-nested-depth`, and `cider-inspector-max-atom-length`. The
+values can be adjusted for the current inspector buffer using the keybidings
+listed in the table above.
 
 If you enable `cider-inspector-fill-frame`, the inspector window fills its
 frame.

[nongnu] elpa/cider 3584e32cd1 1/3: [inspector] Add configuration for max-nested-depth and spacious

[ELPA Syncer]

branch: elpa/cider
commit 3584e32cd1db850a105c0c0a694894421570dc00
Author: Oleksandr Yakushev 
Commit: Bozhidar Batsov 

[inspector] Add configuration for max-nested-depth and spacious
---
 cider-inspector.el | 61 --
 1 file changed, 45 insertions(+), 16 deletions(-)

diff --git a/cider-inspector.el b/cider-inspector.el
index d4fe363079..dee9540111 100644
--- a/cider-inspector.el
+++ b/cider-inspector.el
@@ -64,6 +64,15 @@ The max size can be also changed interactively within the 
inspector."
   :type '(integer :tag "Max collection size" 5)
   :package-version '(cider . "1.1.0"))
 
+(defcustom cider-inspector-max-nested-depth 5
+  "Default level of nesting for collections to display before truncating.
+The max depth can be also changed interactively within the inspector."
+  :type '(integer :tag "Max nested collection depth" 5)
+  :package-version '(cider . "1.14.0"))
+
+(defvar cider-inspector-spacious-collections nil
+  "Controls whether the inspector renders values in collections spaciously.")
+
 (defcustom cider-inspector-fill-frame nil
   "Controls whether the CIDER inspector window fills its frame."
   :type 'boolean
@@ -114,6 +123,7 @@ by clicking or navigating to them by other means."
 (define-key map "s" #'cider-inspector-set-page-size)
 (define-key map "a" #'cider-inspector-set-max-atom-length)
 (define-key map "c" #'cider-inspector-set-max-coll-size)
+(define-key map "C" #'cider-inspector-set-max-nested-depth)
 (define-key map "d" #'cider-inspector-def-current-val)
 (define-key map "t" #'cider-inspector-tap-current-val)
 (define-key map "1" #'cider-inspector-tap-at-point)
@@ -219,12 +229,7 @@ current buffer's namespace."
   (interactive (list (cider-read-from-minibuffer "Inspect expression: " 
(cider-sexp-at-point))
  (cider-current-ns)))
   (setq cider-inspector--current-repl (cider-current-repl))
-  (let ((result (cider-sync-request:inspect-expr
- expr ns
- cider-inspector-page-size
- cider-inspector-max-atom-length
- cider-inspector-max-coll-size
- 'v2)))
+  (let ((result (cider-sync-request:inspect-expr expr ns 'v2)))
 (when (nrepl-dict-get result "value")
   (cider-inspector--render-value result 'v2
 
@@ -340,6 +345,14 @@ MAX-SIZE is the new value."
 (when (nrepl-dict-get result "value")
   (cider-inspector--render-value result 'v2
 
+(defun cider-inspector-set-max-nested-depth (max-nested-depth)
+  "Set the level of nesting for collections to display beflore truncating.
+MAX-NESTED-DEPTH is the new value."
+  (interactive (list (read-number "Max nested depth: " 
cider-inspector-max-nested-depth)))
+  (let ((result (cider-sync-request:inspect-set-max-nested-depth 
max-nested-depth 'v2)))
+(when (nrepl-dict-get result "value")
+  (cider-inspector--render-value result 'v2
+
 (defcustom cider-inspector-preferred-var-names nil
   "The preferred var names to be suggested by 
`cider-inspector-def-current-val'.
 
@@ -522,6 +535,17 @@ instead of just its \"value\" entry."
 result
   (nrepl-dict-get result "value"
 
+(defun cider-sync-request:inspect-set-max-nested-depth (max-nested-depth 
&optional v2)
+  "Set the level of nesting for collections to display before truncating.
+MAX-NESTED-DEPTH is the new value, V2 indicates if the entire response should 
be returned
+instead of just its \"value\" entry."
+  (let ((result (thread-first `("op" "inspect-set-max-nested-depth"
+"max-nested-depth" ,max-nested-depth)
+  (cider-nrepl-send-sync-request 
cider-inspector--current-repl
+(if v2
+result
+  (nrepl-dict-get result "value"
+
 (defun cider-sync-request:inspect-def-current-val (ns var-name &optional v2)
   "Defines a var with VAR-NAME in NS with the current inspector value,
 V2 indicates if the entire response should be returned
@@ -545,22 +569,27 @@ instead of just its \"value\" entry."
"idx" ,idx)
  cider-inspector--current-repl))
 
-(defun cider-sync-request:inspect-expr (expr ns page-size max-atom-length 
max-coll-size &optional v2)
+(defun cider-sync-request:inspect-expr (expr ns &optional v2)
   "Evaluate EXPR in context of NS and inspect its result.
 Set the page size in paginated view to PAGE-SIZE, maximum length of atomic
 collection members to MAX-ATOM-LENGTH, and maximum size of nested collections 
to
 MAX-COLL-SIZE if non nil,
 V2 indicates if the entire response should be returned
 instead of just its \"value\" entry."
-  (let ((result (thread-first (append (nrepl--eval-request expr ns)
-  `("inspect" "true"
-,@(when page-size
-`("page-size" ,page-size))
-  

[elpa] externals/ivy updated (16487e9946 -> 9dafc4a810)

[Basil L. Contovounesios]

blc pushed a change to branch externals/ivy.

  from  16487e9946 Merge branch 'master' into externals/ivy
   new  a0b98af122 ; * .mailmap: Update for PR #3046.
   new  738da36d1b Less consing in ivy--re-filter
   new  9dafc4a810 Merge branch 'master' into externals/ivy


Summary of changes:
 .mailmap |  1 +
 ivy.el   | 10 +-
 2 files changed, 6 insertions(+), 5 deletions(-)

[elpa] externals/ivy a0b98af122 1/3: ; * .mailmap: Update for PR #3046.

[Basil L. Contovounesios]

branch: externals/ivy
commit a0b98af12299dee3490e110aea68d1053c282405
Author: Basil L. Contovounesios 
Commit: Basil L. Contovounesios 

; * .mailmap: Update for PR #3046.
---
 .mailmap | 1 +
 1 file changed, 1 insertion(+)

diff --git a/.mailmap b/.mailmap
index 1a00c174ba..fa38b3f201 100644
--- a/.mailmap
+++ b/.mailmap
@@ -18,6 +18,7 @@
  
  
  
+ <58066925+ywwr...@users.noreply.github.com>
 Daanturo  
 Diego A. Mundo 
 Earl Hyatt  

[elpa] externals/ivy 9dafc4a810 3/3: Merge branch 'master' into externals/ivy

[Basil L. Contovounesios]

branch: externals/ivy
commit 9dafc4a810fda6d33c356f7105c313a374b2cb32
Merge: 16487e9946 738da36d1b
Author: Basil L. Contovounesios 
Commit: Basil L. Contovounesios 

Merge branch 'master' into externals/ivy
---
 .mailmap |  1 +
 ivy.el   | 10 +-
 2 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/.mailmap b/.mailmap
index 1a00c174ba..fa38b3f201 100644
--- a/.mailmap
+++ b/.mailmap
@@ -18,6 +18,7 @@
  
  
  
+ <58066925+ywwr...@users.noreply.github.com>
 Daanturo  
 Diego A. Mundo 
 Earl Hyatt  
diff --git a/ivy.el b/ivy.el
index db41371913..446f57e77d 100644
--- a/ivy.el
+++ b/ivy.el
@@ -3604,8 +3604,8 @@ In any Ivy completion session, the case folding starts 
with
 RE is a list of cons cells, with a regexp car and a boolean cdr.
 When the cdr is t, the car must match.
 Otherwise, the car must not match."
-  (if (equal re "")
-  candidates
+  (unless (member re '("" ()))
+(setq candidates (copy-sequence candidates))
 (ignore-errors
   (dolist (re (if (stringp re) (list (cons re t)) re))
 (let* ((re-str (car re))
@@ -3614,10 +3614,10 @@ Otherwise, the car must not match."
 (funcall mkpred re-str)
   (lambda (x) (string-match-p re-str x)
   (setq candidates
-(cl-remove nil candidates
+(cl-delete nil candidates
(if (cdr re) :if-not :if)
-   pred
-  candidates)))
+   pred))
+  candidates)
 
 (defun ivy--filter (name candidates)
   "Return all items that match NAME in CANDIDATES.

[elpa] externals/ivy 738da36d1b 2/3: Less consing in ivy--re-filter

[Basil L. Contovounesios]

branch: externals/ivy
commit 738da36d1b61e5b2a38e5775b23edd214ad88d6e
Author: Basil L. Contovounesios 
Commit: Basil L. Contovounesios 

Less consing in ivy--re-filter

Avoid repeated cl-remove when matching multiple regexps;
unconditionally make a copy and use cl-delete instead.  This
slightly penalizes the case where no candidates are removed.

Using cl-remove for the first pass and subsequently switching to
cl-delete would not always work, since it's unknown whether and when
cl-remove returns a full or partial copy of its input list.

Yet another option would be to consolidate all regexps AOT, in the
hope that regexp backtracking in C is faster than looping in Lisp,
but that would involve more work both for the programmer and in
terms of consing.  I'm also not certain about the Ivy semantics for
numbered match groups, for matches that are kept.

* ivy.el (ivy--re-filter): Replace potentially repeated cl-remove
with unconditional copy-sequence followed by cl-delete.  This
produces less garbage in pathological cases.
---
 ivy.el | 10 +-
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/ivy.el b/ivy.el
index db41371913..446f57e77d 100644
--- a/ivy.el
+++ b/ivy.el
@@ -3604,8 +3604,8 @@ In any Ivy completion session, the case folding starts 
with
 RE is a list of cons cells, with a regexp car and a boolean cdr.
 When the cdr is t, the car must match.
 Otherwise, the car must not match."
-  (if (equal re "")
-  candidates
+  (unless (member re '("" ()))
+(setq candidates (copy-sequence candidates))
 (ignore-errors
   (dolist (re (if (stringp re) (list (cons re t)) re))
 (let* ((re-str (car re))
@@ -3614,10 +3614,10 @@ Otherwise, the car must not match."
 (funcall mkpred re-str)
   (lambda (x) (string-match-p re-str x)
   (setq candidates
-(cl-remove nil candidates
+(cl-delete nil candidates
(if (cdr re) :if-not :if)
-   pred
-  candidates)))
+   pred))
+  candidates)
 
 (defun ivy--filter (name candidates)
   "Return all items that match NAME in CANDIDATES.

[elpa] externals/eev 39e6adcb9b: Added `ee-copy-rest-3'.

[ELPA Syncer]

branch: externals/eev
commit 39e6adcb9b17d6edc35ec12cadcb0ddcf99a9678
Author: Eduardo Ochs 
Commit: Eduardo Ochs 

Added `ee-copy-rest-3'.
---
 ChangeLog |  10 ++
 VERSION   |   4 +--
 eev-intro.el  |  11 +-
 eev-tlinks.el | 103 --
 eev-videolinks.el |   4 ++-
 5 files changed, 126 insertions(+), 6 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index d3f7a04d2d..0db2293ffe 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,13 @@
+2024-05-17  Eduardo Ochs  
+
+   * eev-videolinks.el (ee-1stclassvideos-info): indicate that the
+   video "2021ffll" now has subtitles.
+
+   * eev-tlinks.el (ee-copy-rest-skip0, ee-copy-rest-gotoend0)
+   (ee-copy-rest-showtarget0, ee-copy-rest-3): new functions.
+
+   * eev-intro.el (find-eev-quick-intro): mention `ee-copy-rest-3'.
+
 2024-05-13  Eduardo Ochs  
 
* eev-intro.el: add variants - that end in "hsubs", and that point
diff --git a/VERSION b/VERSION
index 75cc400dbb..4f999ba89f 100644
--- a/VERSION
+++ b/VERSION
@@ -1,2 +1,2 @@
-Mon May 13 14:57:00 GMT 2024
-Mon May 13 11:57:00 -03 2024
+Fri May 17 13:39:48 GMT 2024
+Fri May 17 10:39:48 -03 2024
diff --git a/eev-intro.el b/eev-intro.el
index ef87d95ef1..afb0a5e643 100644
--- a/eev-intro.el
+++ b/eev-intro.el
@@ -1391,9 +1391,18 @@ the other ones are similar.
   execute the three defuns for `c', `d', and `e', and jump to
   \"/tmp/foo.tex\" from anywhere with `M-x e'.
 
-  A detailed explanation of `ee-copy-rest' can be found here:
+  For more on `ee-copy-rest', and on its successor, `ee-copy-rest-3', see:
 
 (find-eev \"eev-tlinks.el\" \"ee-copy-rest\")
+(find-eev \"eev-tlinks.el\" \"ee-copy-rest-3-intro\")
+(find-eev \"eev-tlinks.el\" \"ee-copy-rest-3-tests\")
+
+[Video links:]
+  (find-2021ffllhsubs \"10:59\" \"Pay attention to all these {stem}s here\")
+  (find-2021ffllvideo \"10:59\" \"Pay attention to all these {stem}s here\")
+  (find-2024luasohsubs \"06:31\" \"ee-copy-rest copies the rest to\")
+  (find-2024luasovideo \"06:31\" \"ee-copy-rest copies the rest to\")
+
 
 
 
diff --git a/eev-tlinks.el b/eev-tlinks.el
index a5ebf17c01..92c3ba6361 100644
--- a/eev-tlinks.el
+++ b/eev-tlinks.el
@@ -19,7 +19,7 @@
 ;;
 ;; Author: Eduardo Ochs 
 ;; Maintainer: Eduardo Ochs 
-;; Version:20240512
+;; Version:20240517
 ;; Keywords:   e-scripts
 ;;
 ;; Latest version: <http://anggtwu.net/eev-current/eev-tlinks.el>
@@ -80,6 +80,9 @@
 
 
 ;; «.ee-copy-rest» (to "ee-copy-rest")
+;; «.ee-copy-rest-3-intro» (to "ee-copy-rest-3-intro")
+;; «.ee-copy-rest-3-tests» (to "ee-copy-rest-3-tests")
+;; «.ee-copy-rest-3»   (to "ee-copy-rest-3")
 ;;
 ;; «.find-find-links-links»(to "find-find-links-links")
 ;; «.find-find-links-links-new»(to "find-find-links-links-new")
@@ -259,7 +262,7 @@
 ;;
 ;; TO DO: update the decumentation here:
 ;;   (find-eev-quick-intro "7.5. `find-latex-links'")
-;;   (find-links-intro "10. The rest of the buffer")
+;;   (find-links-intro "7. The rest of the buffer")
 
 (defvar eeflash-copy '(highlight 0.5))
 
@@ -333,6 +336,102 @@ notion of \"the rest of this buffer\": it will be 
everything from
 
 
 
+;;;_   _ 
+;;;   ___  ______ ___  _ __  _   _   _ __ ___  ___| |_|___ / 
+;;;  / _ \/ _ \_ / __/ _ \| '_ \| | | |_| '__/ _ \/ __| __| |_ \ 
+;;; |  __/  __/_| (_| (_) | |_) | |_| |_| | |  __/\__ \ ||_|__) |
+;;;  \___|\___|  \___\___/| .__/ \__, | |_|  \___||___/\__|   |/ 
+;;;   |_||___/   
+;;
+;; «ee-copy-rest-3-intro»  (to ".ee-copy-rest-3-intro")
+;; `ee-copy-rest-3' is a variant of `ee-copy-rest' that receives three
+;; arguments: where the region starts, where the region ends, and
+;; where it should be copied to. Its code is be much easier to
+;; understand than the code of `ee-copy-rest', and it is very
+;; flexible:
+;;
+;;   1a) "where the region starts" is usually a number of lines to skip,
+;;   1b) "where the region ends" is usually a string to search for,
+;;   1c) "where it should be copied to" is usually a sexp, like:
+;; (find-fline "/tmp/foo.tex")
+;;
+;; The three arguments are called `skip', `gotoend', and `target',
+;; and they are expanded by the functions `ee-copy-rest-skip0',
+;; `ee-copy-rest-gotoend0', and `ee-copy-rest-showtarget0' into
+;; code tha

[elpa] externals/org ea8ed59c02 1/3: etc/ORG-NEWS (Org mode now fontifies...): Add references to manual

[ELPA Syncer]

branch: externals/org
commit ea8ed59c0279b8fc29a91adb336cb13b2b815b59
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

etc/ORG-NEWS (Org mode now fontifies...): Add references to manual

* etc/ORG-NEWS (Org mode now fontifies whole table lines (including
newline) according to ~org-table~ face): Add references to the manual
that explain how to set face 'inherit attribute.

Link: https://orgmode.org/list/87le4dfowy@yandex.com
---
 etc/ORG-NEWS | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/etc/ORG-NEWS b/etc/ORG-NEWS
index 4c72401c77..cb09b2e641 100644
--- a/etc/ORG-NEWS
+++ b/etc/ORG-NEWS
@@ -195,7 +195,9 @@ including indentation and the final newline. This face, by 
default,
 inherits from ~org-table~ face.
 
 If the new behavior is not desired, ~org-table-row~ face can be
-changed to inherit from ~default~ face.
+changed to inherit from ~default~ face.  See "Customizing Faces"
+section of Emacs manual or "Face Attribute Functions" section of Elisp
+manual.
 
 ~org-table~ takes precedence over ~org-table-row~ for the parts of
 table rows without indentation and newline.

[elpa] externals/org updated (b4d17c0629 -> ee58259bc7)

[ELPA Syncer]

elpasync pushed a change to branch externals/org.

  from  b4d17c0629 ORG-NEWS: Reword inline image width note
   new  ea8ed59c02 etc/ORG-NEWS (Org mode now fontifies...): Add references 
to manual
   new  288c7069c4 org-log-beginning: Fix extra blank line created after 
LOGBOOK drawer
   new  ee58259bc7 org-duration-from-minutes: Accept negative durations


Summary of changes:
 etc/ORG-NEWS |   4 +-
 lisp/org-duration.el | 207 ++-
 lisp/org.el  |   3 +-
 3 files changed, 109 insertions(+), 105 deletions(-)

[elpa] externals/org 288c7069c4 2/3: org-log-beginning: Fix extra blank line created after LOGBOOK drawer

[ELPA Syncer]

branch: externals/org
commit 288c7069c4c6946628f4896870a5ece25ff7dad2
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

org-log-beginning: Fix extra blank line created after LOGBOOK drawer

* lisp/org.el (org-log-beginning): Fix regression after f63ff074417315
when additional blank is created after newly added LOGBOOK drawer.

Reported-by: Kris Nelson 
Link: 
https://orgmode.org/list/766237934.317726.1715720181...@office.mailbox.org
---
 lisp/org.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/lisp/org.el b/lisp/org.el
index d9d270ebd0..8d921f11e7 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -10668,7 +10668,8 @@ narrowing."
  (org-fold-core-ignore-modifications
   (unless (bolp) (insert-and-inherit "\n"))
   (let ((beg (point)))
-(insert-and-inherit ":" drawer ":\n:END:\n")
+(insert-and-inherit ":" drawer ":\n:END:")
+ (if (eolp) (forward-char) (insert "\n"))
 (org-indent-region beg (point))
 (org-fold-region (line-end-position -1) (1- (point)) t 
'drawer
   (end-of-line -1

[elpa] externals/org ee58259bc7 3/3: org-duration-from-minutes: Accept negative durations

[ELPA Syncer]

branch: externals/org
commit ee58259bc71cd98708b2be92727fbc98a615c013
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

org-duration-from-minutes: Accept negative durations

* lisp/org-duration.el (org-duration-from-minutes): Allow MINUTES
argument to be negative.

Reported-by: Raffael Stocker 
Link: https://orgmode.org/list/yplmzfsrqjw6@mnet-mail.de
---
 lisp/org-duration.el | 207 ++-
 1 file changed, 104 insertions(+), 103 deletions(-)

diff --git a/lisp/org-duration.el b/lisp/org-duration.el
index 844a3b6634..e7c49feebf 100644
--- a/lisp/org-duration.el
+++ b/lisp/org-duration.el
@@ -324,109 +324,110 @@ When optional argument CANONICAL is non-nil, ignore
 `org-duration-units' and use standard time units value.
 
 Raise an error if expected format is unknown."
-  (pcase (or fmt org-duration-format)
-(`h:mm
- (format "%d:%02d" (/ minutes 60) (mod minutes 60)))
-(`h:mm:ss
- (let* ((whole-minutes (floor minutes))
-   (seconds (mod (* 60 minutes) 60)))
-   (format "%s:%02d"
-  (org-duration-from-minutes whole-minutes 'h:mm)
-  seconds)))
-((pred atom) (error "Invalid duration format specification: %S" fmt))
-;; Mixed format.  Call recursively the function on both parts.
-((and duration-format
- (let `(special . ,(and mode (or `h:mm:ss `h:mm)))
-   (assq 'special duration-format)))
- (let* ((truncated-format
-;; Remove "special" mode from duration format in order to
-;; recurse properly.  Also remove units smaller or equal
-;; to an hour since H:MM part takes care of it.
-(cl-remove-if-not
- (lambda (pair)
-   (pcase pair
- (`(,(and unit (pred stringp)) . ,_)
-  (> (org-duration--modifier unit canonical) 60))
- (_ nil)))
- duration-format))
-   (min-modifier   ;smallest modifier above hour
-(and truncated-format
- (apply #'min
-(mapcar (lambda (p)
-  (org-duration--modifier (car p) canonical))
-truncated-format)
-   (if (or (null min-modifier) (< minutes min-modifier))
-  ;; There is not unit above the hour or the smallest unit
-  ;; above the hour is too large for the number of minutes we
-  ;; need to represent.  Use H:MM or H:MM:SS syntax.
-  (org-duration-from-minutes minutes mode canonical)
-;; Represent minutes above hour using provided units and H:MM
-;; or H:MM:SS below.
-(let* ((units-part (* min-modifier (/ (floor minutes) min-modifier)))
-   (minutes-part (- minutes units-part))
-   (compact (memq 'compact duration-format)))
-  (concat
-   (org-duration-from-minutes units-part truncated-format canonical)
-   (and (not compact) " ")
-   (org-duration-from-minutes minutes-part mode))
-;; Units format.
-(duration-format
- (let* ((fractional
-(let ((digits (cdr (assq 'special duration-format
-  (and digits
-   (or (wholenump digits)
-   (error "Unknown formatting directive: %S" digits))
-   (format "%%.%df" digits
-   (selected-units
-(sort (cl-remove-if
-   ;; Ignore special format cells and compact option.
-   (lambda (pair)
- (pcase pair
-   ((or `compact `(special . ,_)) t)
-   (_ nil)))
-   duration-format)
-  (lambda (a b)
-(> (org-duration--modifier (car a) canonical)
-   (org-duration--modifier (car b) canonical)
-   (separator (if (memq 'compact duration-format) "" " ")))
-   (cond
-   ;; Fractional duration: use first unit that is either required
-   ;; or smaller than MINUTES.
-   (fractional
-(let* ((unit (car
-  (or (cl-find-if
-   (lambda (pair)
- (pcase pair
-   (`(,u . ,req?)
-(or req?
-(<= (org-duration--modifier u canonical)
-minutes)
-   selected-units)
-  ;; Fall back to smallest unit.
-  (org-last selected-units
-   (modifier (org-duration--modifier unit canonical)))
-  (concat (format fractional (/ (float minutes) modifier)) unit)))
-   ;; Otherwise build duration string according to available
-   ;; units.
-   ((org-string-nw-p
- (org-trim
-  (mapconcat
-   (lambda (units)
- (

[elpa] externals/ellama b0349ae3cb 2/3: Merge pull request #118 from s-kostyaev/improve-markdown-to-org-translation

[ELPA Syncer]

branch: externals/ellama
commit b0349ae3cb11279265f65c88839f2dfff451444f
Merge: aefd87f22a 069bedd596
Author: Sergey Kostyaev 
Commit: GitHub 

Merge pull request #118 from s-kostyaev/improve-markdown-to-org-translation

Improve code blocks translation
---
 ellama.el| 78 +---
 tests/test-ellama.el | 70 ++
 2 files changed, 114 insertions(+), 34 deletions(-)

diff --git a/ellama.el b/ellama.el
index ef8745518e..3e638b5fc5 100644
--- a/ellama.el
+++ b/ellama.el
@@ -368,43 +368,53 @@ Too low value can break generated code by splitting long 
comment lines."
   (fill-region (point-min) (point-max) nil t t))
 (buffer-substring-no-properties (point-min) (point-max
 
+(defun ellama--replace-first-begin-src (text)
+  "Replace first begin src in TEXT."
+  (if (not (string-match-p (rx (literal "#+BEGIN_SRC")) text))
+  (replace-regexp-in-string "^[[:space:]]*```\\(\\(.\\|\n\\)*\\)" 
"#+BEGIN_SRC\\1" text)
+text))
+
 (defun ellama--translate-markdown-to-org-filter (text)
   "Filter to translate code blocks from markdown syntax to org syntax in TEXT.
 This filter contains only subset of markdown syntax to be good enough."
-  (thread-last text
-   ;; code blocks
-   (replace-regexp-in-string "^[[:space:]]*```\\(.+\\)$" "#+BEGIN_SRC \\1")
-   (replace-regexp-in-string "^\n```" 
"#+BEGIN_SRC \\1")
-   (replace-regexp-in-string "^[[:space:]]*```$" "#+END_SRC")
-   ;; lists
-   (replace-regexp-in-string "^\\* " "+ ")
-   ;; bold
-   (replace-regexp-in-string "\\*\\*\\(.+?\\)\\*\\*" "*\\1*")
-   (replace-regexp-in-string "__\\(.+?\\)__" "*\\1*")
-   (replace-regexp-in-string "\\(.+?\\)" "*\\1*")
-   ;; italic
-   ;; (replace-regexp-in-string "_\\(.+?\\)_" "/\\1/") ;; most of the time 
it breaks code blocks, so disable it
-   (replace-regexp-in-string "\\(.+?\\)" "/\\1/")
-   ;; inline code
-   (replace-regexp-in-string "`\\(.+?\\)`" "~\\1~")
-   ;; underlined
-   (replace-regexp-in-string "\\(.+?\\)" "_\\1_")
-   ;; strikethrough
-   (replace-regexp-in-string "~~\\(.+?\\)~~" "+\\1+")
-   (replace-regexp-in-string "\\(.+?\\)" "+\\1+")
-   ;; headings
-   (replace-regexp-in-string "^# " "* ")
-   (replace-regexp-in-string "^## " "** ")
-   (replace-regexp-in-string "^### " "*** ")
-   (replace-regexp-in-string "^ " " ")
-   (replace-regexp-in-string "^# " "* ")
-   (replace-regexp-in-string "^## " "* ")
-   ;; badges
-   (replace-regexp-in-string "\\[\\!\\[.*?\\](\\(.*?\\))\\](\\(.*?\\))" 
"[[\\2][file:\\1]]")
-   ;;links
-   (replace-regexp-in-string "\\[\\(.*?\\)\\](\\(.*?\\))" "[[\\2][\\1]]")
-   ;; filling long lines
-   (ellama--fill-long-lines)))
+  (thread-last
+text
+;; code blocks
+(replace-regexp-in-string "^[[:space:]]*```\\(.+\\)$" "#+BEGIN_SRC \\1")
+(ellama--replace-first-begin-src)
+(replace-regexp-in-string "^\n```" "#+BEGIN_SRC 
\\1")
+(replace-regexp-in-string "^[[:space:]]*```$" "#+END_SRC")
+(replace-regexp-in-string "^[[:space:]]*```" "#+END_SRC\n")
+(replace-regexp-in-string "```" "\n#+END_SRC\n")
+;; lists
+(replace-regexp-in-string "^\\* " "+ ")
+;; bold
+(replace-regexp-in-string "\\*\\*\\(.+?\\)\\*\\*" "*\\1*")
+(replace-regexp-in-string "__\\(.+?\\)__" "*\\1*")
+(replace-regexp-in-string "\\(.+?\\)" "*\\1*")
+;; italic
+;; (replace-regexp-in-string "_\\(.+?\\)_" "/\\1/") ;; most of the time it 
breaks code blocks, so disable it
+(replace-regexp-in-string "\\(.+?\\)" "/\\1/")
+;; inline code
+(replace-regexp-in-string "`\\(.+?\\)`" "~\\1~")
+;; underlined
+(replace-regexp-in-string "\\(.+?\\)" "_\\1_")
+;; strikethrough
+(replace-regexp-in-string "~~\\(.+?\\)~~" "+\\1+")
+(replace-regexp-in-string "\\(.+?\\)" "+\\1+")
+;; headings
+(replace-regexp-in-string "^# " "* ")
+(replace-regexp-in-string "^## " "** ")
+(replace-regexp-in-string "^### " "*** ")
+(replace-regexp-in-string "^ " " ")
+(replace-regexp-in-string "^# " "* ")
+(replace-regexp-in-string "^## " "* ")
+;; badges
+(replace-regexp-in-string "\\[\\!\\[.*?\\](\\(.*?\\))\\](\\(.*?\\))" 
"[[\\2][file:\\1]]")
+;;links
+(replace-regexp-in-string "\\[\\(.*?\\)\\](\\(.*?\\))" "[[\\2][\\1]]")
+;; filling long lines
+(ellama--fill-long-lines)))
 
 (defcustom ellama-enable-keymap t
   "Enable or disable Ellama keymap."
diff --git a/tests/test-ellama.el b/tests/test-ellama.el
index 67ad3e5337..7c7ffc03ee 100644
--- a/tests/test-ellama.el
+++ b/tests/test-ellama.el
@@ -106,6 +106,76 @@
   (let ((element (ellama-context-element-text :content "123")))
 (should (string-match "123" (ellama-context-element-extract element)
 
+(ert-deftest test-ellama-md-to-org-code-simple ()
+  (let ((result (e

[elpa] externals/ellama updated (aefd87f22a -> fddc1022b5)

[ELPA Syncer]

elpasync pushed a change to branch externals/ellama.

  from  aefd87f22a Bump version
   new  069bedd596 Improve code blocks translation
   new  b0349ae3cb Merge pull request #118 from 
s-kostyaev/improve-markdown-to-org-translation
   new  fddc1022b5 Bump version


Summary of changes:
 NEWS.org |  2 ++
 ellama.el| 80 +---
 tests/test-ellama.el | 70 +
 3 files changed, 117 insertions(+), 35 deletions(-)

[elpa] externals/ellama 069bedd596 1/3: Improve code blocks translation

[ELPA Syncer]

branch: externals/ellama
commit 069bedd596f32a847536026b3161dc570a760533
Author: Sergey Kostyaev 
Commit: Sergey Kostyaev 

Improve code blocks translation
---
 ellama.el| 78 +---
 tests/test-ellama.el | 70 ++
 2 files changed, 114 insertions(+), 34 deletions(-)

diff --git a/ellama.el b/ellama.el
index ef8745518e..3e638b5fc5 100644
--- a/ellama.el
+++ b/ellama.el
@@ -368,43 +368,53 @@ Too low value can break generated code by splitting long 
comment lines."
   (fill-region (point-min) (point-max) nil t t))
 (buffer-substring-no-properties (point-min) (point-max
 
+(defun ellama--replace-first-begin-src (text)
+  "Replace first begin src in TEXT."
+  (if (not (string-match-p (rx (literal "#+BEGIN_SRC")) text))
+  (replace-regexp-in-string "^[[:space:]]*```\\(\\(.\\|\n\\)*\\)" 
"#+BEGIN_SRC\\1" text)
+text))
+
 (defun ellama--translate-markdown-to-org-filter (text)
   "Filter to translate code blocks from markdown syntax to org syntax in TEXT.
 This filter contains only subset of markdown syntax to be good enough."
-  (thread-last text
-   ;; code blocks
-   (replace-regexp-in-string "^[[:space:]]*```\\(.+\\)$" "#+BEGIN_SRC \\1")
-   (replace-regexp-in-string "^\n```" 
"#+BEGIN_SRC \\1")
-   (replace-regexp-in-string "^[[:space:]]*```$" "#+END_SRC")
-   ;; lists
-   (replace-regexp-in-string "^\\* " "+ ")
-   ;; bold
-   (replace-regexp-in-string "\\*\\*\\(.+?\\)\\*\\*" "*\\1*")
-   (replace-regexp-in-string "__\\(.+?\\)__" "*\\1*")
-   (replace-regexp-in-string "\\(.+?\\)" "*\\1*")
-   ;; italic
-   ;; (replace-regexp-in-string "_\\(.+?\\)_" "/\\1/") ;; most of the time 
it breaks code blocks, so disable it
-   (replace-regexp-in-string "\\(.+?\\)" "/\\1/")
-   ;; inline code
-   (replace-regexp-in-string "`\\(.+?\\)`" "~\\1~")
-   ;; underlined
-   (replace-regexp-in-string "\\(.+?\\)" "_\\1_")
-   ;; strikethrough
-   (replace-regexp-in-string "~~\\(.+?\\)~~" "+\\1+")
-   (replace-regexp-in-string "\\(.+?\\)" "+\\1+")
-   ;; headings
-   (replace-regexp-in-string "^# " "* ")
-   (replace-regexp-in-string "^## " "** ")
-   (replace-regexp-in-string "^### " "*** ")
-   (replace-regexp-in-string "^ " " ")
-   (replace-regexp-in-string "^# " "* ")
-   (replace-regexp-in-string "^## " "* ")
-   ;; badges
-   (replace-regexp-in-string "\\[\\!\\[.*?\\](\\(.*?\\))\\](\\(.*?\\))" 
"[[\\2][file:\\1]]")
-   ;;links
-   (replace-regexp-in-string "\\[\\(.*?\\)\\](\\(.*?\\))" "[[\\2][\\1]]")
-   ;; filling long lines
-   (ellama--fill-long-lines)))
+  (thread-last
+text
+;; code blocks
+(replace-regexp-in-string "^[[:space:]]*```\\(.+\\)$" "#+BEGIN_SRC \\1")
+(ellama--replace-first-begin-src)
+(replace-regexp-in-string "^\n```" "#+BEGIN_SRC 
\\1")
+(replace-regexp-in-string "^[[:space:]]*```$" "#+END_SRC")
+(replace-regexp-in-string "^[[:space:]]*```" "#+END_SRC\n")
+(replace-regexp-in-string "```" "\n#+END_SRC\n")
+;; lists
+(replace-regexp-in-string "^\\* " "+ ")
+;; bold
+(replace-regexp-in-string "\\*\\*\\(.+?\\)\\*\\*" "*\\1*")
+(replace-regexp-in-string "__\\(.+?\\)__" "*\\1*")
+(replace-regexp-in-string "\\(.+?\\)" "*\\1*")
+;; italic
+;; (replace-regexp-in-string "_\\(.+?\\)_" "/\\1/") ;; most of the time it 
breaks code blocks, so disable it
+(replace-regexp-in-string "\\(.+?\\)" "/\\1/")
+;; inline code
+(replace-regexp-in-string "`\\(.+?\\)`" "~\\1~")
+;; underlined
+(replace-regexp-in-string "\\(.+?\\)" "_\\1_")
+;; strikethrough
+(replace-regexp-in-string "~~\\(.+?\\)~~" "+\\1+")
+(replace-regexp-in-string "\\(.+?\\)" "+\\1+")
+;; headings
+(replace-regexp-in-string "^# " "* ")
+(replace-regexp-in-string "^## " "** ")
+(replace-regexp-in-string "^### " "*** ")
+(replace-regexp-in-string "^ " " ")
+(replace-regexp-in-string "^# " "* ")
+(replace-regexp-in-string "^## " "* ")
+;; badges
+(replace-regexp-in-string "\\[\\!\\[.*?\\](\\(.*?\\))\\](\\(.*?\\))" 
"[[\\2][file:\\1]]")
+;;links
+(replace-regexp-in-string "\\[\\(.*?\\)\\](\\(.*?\\))" "[[\\2][\\1]]")
+;; filling long lines
+(ellama--fill-long-lines)))
 
 (defcustom ellama-enable-keymap t
   "Enable or disable Ellama keymap."
diff --git a/tests/test-ellama.el b/tests/test-ellama.el
index 67ad3e5337..7c7ffc03ee 100644
--- a/tests/test-ellama.el
+++ b/tests/test-ellama.el
@@ -106,6 +106,76 @@
   (let ((element (ellama-context-element-text :content "123")))
 (should (string-match "123" (ellama-context-element-extract element)
 
+(ert-deftest test-ellama-md-to-org-code-simple ()
+  (let ((result (ellama--translate-markdown-to-org-filter "Here is your TikZ 
code for a blue rectangle:
+```tex
+\\documen

[elpa] externals/ellama fddc1022b5 3/3: Bump version

[ELPA Syncer]

branch: externals/ellama
commit fddc1022b5e16e356d6f65ddac51bd2ccf25209c
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 3881e3d625..cf43ca9b92 100644
--- a/NEWS.org
+++ b/NEWS.org
@@ -1,3 +1,5 @@
+* Version 0.9.4
+- Improve code blocks translation from markdown to org.
 * Version 0.9.3
 - Support summarize shr url at point (eww and elfeed).
 - Add ellama-chain function for chaining multiple calls to LLMs.
diff --git a/ellama.el b/ellama.el
index 3e638b5fc5..a73789d1c2 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.6.0") (spinner "1.7.4"))
-;; Version: 0.9.3
+;; Version: 0.9.4
 ;; SPDX-License-Identifier: GPL-3.0-or-later
 ;; Created: 8th Oct 2023
 

[nongnu] elpa/cider 6e89ad21be: GH CI: add separate flow for MacOS aarch64 (#3669)

[ELPA Syncer]

branch: elpa/cider
commit 6e89ad21be214ce7251769ac371d0db4ae3a29d2
Author: ikappaki <34983288+ikapp...@users.noreply.github.com>
Commit: GitHub 

GH CI: add separate flow for MacOS aarch64 (#3669)

Co-authored-by: ikappaki 
---
 .github/workflows/test.yml | 12 ++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/.github/workflows/test.yml b/.github/workflows/test.yml
index 9c9f177d1a..23c7aea3ee 100644
--- a/.github/workflows/test.yml
+++ b/.github/workflows/test.yml
@@ -21,9 +21,17 @@ jobs:
 
 strategy:
   matrix:
-os: [macos-latest, ubuntu-latest, windows-latest]
-emacs_version: ['26.3', '27.2', '28.2', '29.1']
+os: [macos-13, ubuntu-latest, windows-latest]
+emacs_version: ['26.3', '27.2', '28.2', '29.3']
 java_version: ['11', '17']
+include:
+  # aarch64 (macos-13 is Intel)
+  - os: macos-latest
+emacs_version: '29.3'
+java_version: '11'
+  - os: macos-latest
+emacs_version: '28.2'
+java_version: '11'
 
 steps:
 - name: Set up Emacs

[nongnu] elpa/apropospriate-theme 84ee370da4: set header-line background as unspecified

[ELPA Syncer]

branch: elpa/apropospriate-theme
commit 84ee370da4c19db8051761b1b64bbdc8e1c7dc73
Author: justin talbott 
Commit: justin talbott 

set header-line background as unspecified

to address emacs 30 warning

closes https://github.com/waymondo/apropospriate-theme/pull/42
---
 apropospriate-theme.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/apropospriate-theme.el b/apropospriate-theme.el
index 0e19b90fa3..d99794f558 100644
--- a/apropospriate-theme.el
+++ b/apropospriate-theme.el
@@ -104,7 +104,7 @@ Set to `1.0' or nil to prevent font size manipulation."
  `(trailing-whitespace ((,class (:background ,base00+1 :foreground 
,yellow
  `(next-error ((,class (:background ,base01
  `(secondary-selection ((,class (:background ,base00-1
- `(header-line ((,class (:foreground ,purple :background nil
+ `(header-line ((,class (:foreground ,purple :background unspecified
  `(auto-dim-other-buffers-face ((,class (:background ,base00+1
  `(fringe ((,class (:background ,base00 :foreground ,base02
  `(mistty-fringe-face ((,class (:foreground ,base01

[elpa] externals/cape a71e5c9656: Don't use eshell-bol on Emacs 30

[ELPA Syncer]

branch: externals/cape
commit a71e5c96564163837810b96bd34322b42f6e4d9c
Author: Daniel Mendler 
Commit: Daniel Mendler 

Don't use eshell-bol on Emacs 30
---
 cape.el | 8 +---
 1 file changed, 5 insertions(+), 3 deletions(-)

diff --git a/cape.el b/cape.el
index ade794d47b..b5f6c5d93a 100644
--- a/cape.el
+++ b/cape.el
@@ -354,7 +354,7 @@ string as first argument to the completion table."
 
 (declare-function ring-elements "ring")
 (declare-function eshell-bol "eshell")
-(declare-function comint-bol "comint")
+(declare-function comint-line-beginning-position "comint")
 (defvar eshell-history-ring)
 (defvar comint-input-ring)
 
@@ -375,10 +375,12 @@ See also `consult-history' for a more flexible variant 
based on
   (cond
((derived-mode-p 'eshell-mode)
 (setq history eshell-history-ring
-  bol (save-excursion (eshell-bol) (point
+  bol (if (eval-when-compile (< emacs-major-version 30))
+  (save-excursion (eshell-bol) (point))
+(line-beginning-position
((derived-mode-p 'comint-mode)
 (setq history comint-input-ring
-  bol (save-excursion (comint-bol) (point
+  bol (comint-line-beginning-position)))
((and (minibufferp) (not (eq minibuffer-history-variable t)))
 (setq history (symbol-value minibuffer-history-variable)
   bol (line-beginning-position

[elpa] externals/wrap-search d4f73decdf: Fri May 17 11:44:04 PM CEST 2024

[ELPA Syncer]

branch: externals/wrap-search
commit d4f73decdf1c624bb2bb3e0bf2292bae4b660fde
Author: Emanuel Berg 
Commit: Emanuel Berg 

Fri May 17 11:44:04 PM CEST 2024
---
 wrap-search.el | 16 
 1 file changed, 12 insertions(+), 4 deletions(-)

diff --git a/wrap-search.el b/wrap-search.el
index 4b89f314d8..d919a39723 100644
--- a/wrap-search.el
+++ b/wrap-search.el
@@ -7,7 +7,7 @@
 ;; Keywords: matching
 ;; License: GPL3+
 ;; URL: https://dataswamp.org/~incal/emacs-init/wrap-search.el
-;; Version: 4.15.11
+;; Version: 4.16.13
 ;;
 ;; This file is part of GNU Emacs.
 ;;
@@ -69,6 +69,11 @@
 ;;
 ;;; Code:
 
+(defcustom wrap-search-echo-point nil
+  "Whether to echo point after a search hit."
+  :group 'wrap-search
+  :type  'boolean)
+
 (let ((prev-str "dummy search string")
   (prev-case)
   (prev-rev)
@@ -134,12 +139,15 @@ Do \\[wrap-search-again] to repeat, with 
`wrap-search-again'."
  (list #'search-backward end beg)
(list #'search-forward beg end) )))
   (if (funcall search-f str search-end t)
-  (message "hit: %s" (point))
+  (when wrap-search-echo-point
+(message "hit: %s" (point)) )
 (goto-char search-beg)
 (if (funcall search-f str (+ pos (if rev 0 (length str))) t)
 (if (= pos (point))
-(message "this is the one occurrence")
-  (message "hit: %s (wrap)" (point)) )
+(message "this is the only occurrence")
+  (message "wrap%s" (if wrap-search-echo-point
+(format ": %s" (point))
+  "") ))
   (goto-char pos)
   (message "no hit") ))) )))
   (declare-function wrap-search nil) )

[nongnu] elpa/cider 1094e3d80a: Fix `max-mini-window-lines` not existing in old Emacsen (#3670)

[ELPA Syncer]

branch: elpa/cider
commit 1094e3d80ac37dc01e1aac0b6439656e1daf9414
Author: Oleksandr Yakushev 
Commit: GitHub 

Fix `max-mini-window-lines` not existing in old Emacsen (#3670)
---
 cider-overlays.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/cider-overlays.el b/cider-overlays.el
index 7332581662..81c36e29ef 100644
--- a/cider-overlays.el
+++ b/cider-overlays.el
@@ -318,7 +318,8 @@ focused."
:duration cider-eval-result-duration
:prepend-face (or overlay-face 
'cider-result-overlay-face
  (msg (format "%s%s" cider-eval-result-prefix value))
- (max-msg-length (* (floor (max-mini-window-lines)) (frame-width)))
+ (max-msg-length (* (floor (* (frame-height) max-mini-window-height))
+(frame-width)))
  (msg (if (> (string-width msg) max-msg-length)
   (format "%s..." (substring msg 0 (- max-msg-length 3)))
 msg)))

[nongnu] elpa/gptel 8b04be27c8 2/2: gptel-org: Check Org version for branching context

[ELPA Syncer]

branch: elpa/gptel
commit 8b04be27c85f1ef0c72af0b75a7dcc4ad34c3181
Author: Karthik Chikmagalur 
Commit: Karthik Chikmagalur 

gptel-org: Check Org version for branching context

gptel-org.el (gptel-org--create-prompt): If
`org-element-lineage-map` is not available, ignore the value of
`gptel-org-branching-context` and display a warning (#294).

README: Mention Org version requirement for
`gptel-org-branching-context` and the ai-org-chat package as an alternative.
---
 README.org   |  1 +
 gptel-org.el | 73 
 2 files changed, 40 insertions(+), 34 deletions(-)

diff --git a/README.org b/README.org
index 9aa0a9a1ae..1ba1d3119e 100644
--- a/README.org
+++ b/README.org
@@ -623,6 +623,7 @@ gptel offers a few extra conveniences in Org mode.
 - You can limit the conversation context to an Org heading with the command 
=gptel-org-set-topic=.
   
 - You can have branching conversations in Org mode, where each hierarchical 
outline path through the document is a separate conversation branch.  This is 
also useful for limiting the context size of each query.  See the variable 
=gptel-org-branching-context=.
+  Note: using this option requires Org 9.6.7 or higher to be available.  The 
[[https://github.com/ultronozm/ai-org-chat.el][ai-org-chat]] package uses gptel 
to provide this branching conversation behavior for older versions of Org.
   
 - You can declare the gptel model, backend, temperature, system message and 
other parameters as Org properties with the command =gptel-org-set-properties=. 
 gptel queries under the corresponding heading will always use these settings, 
allowing you to create mostly reproducible LLM chat notebooks, and to have 
simultaneous chats with different models, model settings and directives under 
different Org headings.
 
diff --git a/gptel-org.el b/gptel-org.el
index 18879a803f..9f8ca25487 100644
--- a/gptel-org.el
+++ b/gptel-org.el
@@ -163,40 +163,45 @@ value of `gptel-org-branching-context', which see."
   (narrow-to-region topic-start prompt-end))
 (if gptel-org-branching-context
 ;; Create prompt from direct ancestors of point
-(save-excursion
-  (let* ((org-buf (current-buffer))
- (start-bounds (gptel-org--element-lineage-map
-   (org-element-at-point) #'org-element-begin
- '(headline org-data) 'with-self))
- (end-bounds
-  (cl-loop
-   for pos in (cdr start-bounds)
-   while
-   (and (>= pos (point-min)) ;respect narrowing
-(goto-char pos)
-;; org-element-lineage always returns an extra
-;; (org-data) element at point 1.  If there is also a
-;; heading here, it is either a false positive or we
-;; would be double counting it.  So we reject this node
-;; when also at a heading.
-(not (and (eq pos 1) (org-at-heading-p
-   do (outline-next-heading)
-   collect (point) into ends
-   finally return (cons prompt-end ends
-(with-temp-buffer
-  (setq-local gptel-backend
-  (buffer-local-value 'gptel-backend org-buf)
-  gptel--system-message
-  (buffer-local-value 'gptel--system-message org-buf)
-  gptel-model
-  (buffer-local-value 'gptel-model org-buf))
-  (cl-loop for start in start-bounds
-   for end   in end-bounds
-   do (insert-buffer-substring org-buf start end)
-   (goto-char (point-min)))
-  (goto-char (point-max))
-  (let ((major-mode 'org-mode))
-(gptel--parse-buffer gptel-backend max-entries)
+(if (fboundp 'org-element-lineage-map)
+(save-excursion
+  (let* ((org-buf (current-buffer))
+ (start-bounds (gptel-org--element-lineage-map
+   (org-element-at-point) 
#'org-element-begin
+ '(headline org-data) 'with-self))
+ (end-bounds
+  (cl-loop
+   for pos in (cdr start-bounds)
+   while
+   (and (>= pos (point-min)) ;respect narrowing
+(goto-char pos)
+;; org-element-lineage always returns an extra
+;; (org-data) element at point 1.  If there is 
also a
+;; heading here, it is either a false positive or 
we
+;; would be double counting it.  So we reject this 
node
+   

[nongnu] elpa/gptel d7f51b3436 1/2: gptel: Move var definition (#307)

[ELPA Syncer]

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

gptel: Move var definition (#307)

* gptel.el (gptel--known-backends): Move `gptel--known-backends` to
gptel-openai.  This fixes the warning where `gptel--known-backends`
is not defined when `gptel-make-openai` is called in user configuration.

* gptel-openai.el (gptel--known-backends): Move here.
---
 gptel-openai.el | 10 +-
 gptel.el|  9 +
 2 files changed, 10 insertions(+), 9 deletions(-)

diff --git a/gptel-openai.el b/gptel-openai.el
index 23cbe4dfb2..db89ef3c5f 100644
--- a/gptel-openai.el
+++ b/gptel-openai.el
@@ -34,7 +34,6 @@
 (defvar gptel-temperature)
 (defvar gptel-max-tokens)
 (defvar gptel--system-message)
-(defvar gptel--known-backends)
 (defvar json-object-type)
 
 (declare-function gptel--get-api-key "gptel")
@@ -68,6 +67,15 @@
   (json-encode ,object
 
 ;;; Common backend struct for LLM support
+(defvar gptel--known-backends nil
+  "Alist of LLM backends known to gptel.
+
+This is an alist mapping user-provided names to backend structs,
+see `gptel-backend'.
+
+You can have more than one backend pointing to the same resource
+with differing settings.")
+
 (cl-defstruct
 (gptel-backend (:constructor gptel--make-backend)
(:copier gptel--copy-backend))
diff --git a/gptel.el b/gptel.el
index 3df9a6c506..337c79884c 100644
--- a/gptel.el
+++ b/gptel.el
@@ -432,14 +432,7 @@ To set the temperature for a chat session interactively 
call
   :safe #'always
   :type 'number)
 
-(defvar gptel--known-backends nil
-  "Alist of LLM backends known to gptel.
-
-This is an alist mapping user-provided names to backend structs,
-see `gptel-backend'.
-
-You can have more than one backend pointing to the same resource
-with differing settings.")
+(defvar gptel--known-backends)
 
 (defvar gptel--openai
   (gptel-make-openai

[nongnu] elpa/gptel updated (14558549a2 -> 8b04be27c8)

[ELPA Syncer]

elpasync pushed a change to branch elpa/gptel.

  from  14558549a2 gptel-openai: GPT-4o (#313)
   new  d7f51b3436 gptel: Move var definition (#307)
   new  8b04be27c8 gptel-org: Check Org version for branching context


Summary of changes:
 README.org  |  1 +
 gptel-openai.el | 10 +++-
 gptel-org.el| 73 ++---
 gptel.el|  9 +--
 4 files changed, 50 insertions(+), 43 deletions(-)

[elpa] externals/dape updated (eb6042ab4a -> 14a80a1324)

[ELPA Syncer]

elpasync pushed a change to branch externals/dape.

  from  eb6042ab4a Fix minibuffer default-directory stuck at first guess
   new  84bfc34239 Rework breakpoint info type display
   new  14a80a1324 Add stack select up/down repl commands


Summary of changes:
 dape.el | 36 ++--
 1 file changed, 22 insertions(+), 14 deletions(-)

[elpa] externals/dape 84bfc34239 1/2: Rework breakpoint info type display

[ELPA Syncer]

branch: externals/dape
commit 84bfc34239159217ffc299eade48f19ddfa3888b
Author: Daniel Pettersson 
Commit: Daniel Pettersson 

Rework breakpoint info type display
---
 dape.el | 34 --
 1 file changed, 20 insertions(+), 14 deletions(-)

diff --git a/dape.el b/dape.el
index da0cf61eca..6d14d4a0e0 100644
--- a/dape.el
+++ b/dape.el
@@ -558,7 +558,7 @@ left-to-right display order of the properties."
   :type '(choice (const :tag "Truncate string at new line" line)
  (const :tag "No formatting" nil)))
 
-(defcustom dape-info-breakpoint-source-line-max 15
+(defcustom dape-info-breakpoint-source-line-max 14
   "Max length of source line in info breakpoint buffer."
   :type '(choice
   (const :tag "Don't show source line" nil)
@@ -2906,7 +2906,7 @@ Updates all breakpoints in all known connections."
(concat
 " "
 (propertize
- (format "Break: %s" expression)
+ (format "Cond: %s" expression)
  'face 'dape-expression-face
  'mouse-face 'highlight
  'help-echo "mouse-1: edit break expression"
@@ -3537,7 +3537,7 @@ displayed."
(> hits 0)))
dape--breakpoints)))
   (gdb-table-add-row table
- (list "A" "Where" (when with-hits-p "H") "What"))
+ (list "A" "Type" "Where/On" (when with-hits-p "Hit")))
   (cl-loop
for breakpoint in (reverse dape--breakpoints)
for buffer = (overlay-buffer breakpoint)
@@ -3556,6 +3556,11 @@ displayed."
 (if verified-p
 (propertize "y" 'font-lock-face font-lock-warning-face)
   "n")
+(cond
+ ((overlay-get breakpoint :log) "Log")
+ ((overlay-get breakpoint :hits) "Hits")
+ ((overlay-get breakpoint :expression) "Cond")
+ (t "Break"))
 (concat
  (if-let (file (buffer-file-name buffer))
  (dape--format-file-line file line)
@@ -3566,12 +3571,9 @@ displayed."
  (truncate-string-to-width
   (concat " " (string-trim (thing-at-point 'line)))
   dape-info-breakpoint-source-line-max
-(when with-hits-p
-  (if-let ((hits (overlay-get breakpoint 'dape-hits)))
-  (format "%s" hits)
-""))
-(when-let ((after-string (overlay-get breakpoint 'after-string)))
-  (substring after-string 1)))
+(when-let* (with-hits-p
+(hits (overlay-get breakpoint 'dape-hits)))
+  (format "%s" hits)))
(append
   (list
'dape--info-breakpoint breakpoint
@@ -3586,13 +3588,16 @@ displayed."
 table
 (list
  (propertize "y" 'font-lock-face font-lock-warning-face)
- (format "Data: %s on %s"
+ "Data"
+ (format "%s %s %s"
  (propertize
   (plist-get plist :name)
   'font-lock-face
   'font-lock-variable-name-face)
- (plist-get plist :accessType))
- nil nil)
+ (plist-get plist :accessType)
+ (when-let ((data-id (plist-get plist :dataId)))
+   (format "(%s)" data-id)))
+ nil)
 (list 'dape--info-data-breakpoint plist
   'keymap dape-info-data-breakpoints-line-map)))
   (cl-loop
@@ -3603,8 +3608,9 @@ displayed."
  (if (plist-get exception :enabled)
  (propertize "y" 'font-lock-face font-lock-warning-face)
(propertize "n" 'font-lock-face font-lock-doc-face))
- (format "Exceptions: %s" (plist-get exception :label))
- nil nil)
+ "Excep"
+ (format "%s" (plist-get exception :label))
+ nil)
 (list
  'dape--info-exception exception
  'mouse-face 'highlight

[elpa] externals/dape 14a80a1324 2/2: Add stack select up/down repl commands

[ELPA Syncer]

branch: externals/dape
commit 14a80a13248cd0daa64d853b389577a765c70916
Author: Daniel Pettersson 
Commit: Daniel Pettersson 

Add stack select up/down repl commands
---
 dape.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/dape.el b/dape.el
index 6d14d4a0e0..0b58d3e935 100644
--- a/dape.el
+++ b/dape.el
@@ -587,6 +587,8 @@ left-to-right display order of the properties."
 ("pause" . dape-pause)
 ("step" . dape-step-in)
 ("out" . dape-step-out)
+("up" . dape-stack-select-up)
+("down" . dape-stack-select-down)
 ("restart" . dape-restart)
 ("kill" . dape-kill)
 ("disconnect" . dape-disconnect-quit)