[elpa] externals/consult 40d784f18f: consult-org-heading: Support Embark actions

[ELPA Syncer]

branch: externals/consult
commit 40d784f18fb6792f3f11b6b1f3f48db17a12de1c
Author: Daniel Mendler 
Commit: Daniel Mendler 

consult-org-heading: Support Embark actions

See https://github.com/oantolin/embark/issues/639
---
 CHANGELOG.org  | 2 ++
 consult-org.el | 8 
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index 960fb2c2b2..b21a973ae5 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -6,6 +6,8 @@
 
 - =consult-fd=: New command based on the fast =fd/fdfind= search utility.
 - =consult-outline=: New prefix argument to specify initial narrowing level.
+- =consult-org-heading=: Specify category =org-remote-heading= such that Embark
+  provides appropriate Org heading actions.
 
 * Version 0.35 (2023-07-02)
 
diff --git a/consult-org.el b/consult-org.el
index ed96e39b0a..1880f54b19 100644
--- a/consult-org.el
+++ b/consult-org.el
@@ -84,7 +84,7 @@ MATCH, SCOPE and SKIP are as in `org-map-entries'."
   tags (consult--tofu-encode idx
  (cl-incf idx)
  (add-text-properties 0 1
-  `(consult--candidate ,(point-marker)
+  `(org-marker ,(point-marker)
 consult-org--heading (,level ,todo . ,prio))
   cand)
  cand))
@@ -105,7 +105,7 @@ buffer are offered."
(or (consult-org--headings prefix match scope)
(user-error "No headings")))
  :prompt "Go to heading: "
- :category 'consult-org-heading
+ :category 'org-remote-heading ;; Category for Embark support
  :sort nil
  :require-match t
  :history '(:input consult-org--history)
@@ -116,9 +116,9 @@ buffer are offered."
(lambda (cand transform)
  (let ((name (buffer-name
   (marker-buffer
-   (get-text-property 0 'consult--candidate cand)
+   (get-text-property 0 'org-marker cand)
(if transform (substring cand (1+ (length name))) name
- :lookup #'consult--lookup-candidate)))
+ :lookup (apply-partially #'consult--lookup-prop 'org-marker
 
 ;;;###autoload
 (defun consult-org-agenda (&optional match)

[nongnu] elpa/eat 89983b580c: Allow terminal text modification after it's killed

[ELPA Syncer]

branch: elpa/eat
commit 89983b580ce573b886444a00f4750e3a01a17301
Author: Akib Azmain Turja 
Commit: Akib Azmain Turja 

Allow terminal text modification after it's killed

* eat.el (eat--sentinel): Remove 'read-only' and other text
properties from the terminal region.
---
 eat.el | 5 +
 1 file changed, 5 insertions(+)

diff --git a/eat.el b/eat.el
index 316ac3656d..808c5148df 100644
--- a/eat.el
+++ b/eat.el
@@ -6428,6 +6428,11 @@ to it."
 (delete-region (eat-term-end eat--terminal)
(point-max)))
   (eat-emacs-mode)
+  (remove-text-properties
+   (eat-term-beginning eat--terminal)
+   (eat-term-end eat--terminal)
+   '( read-only nil rear-nonsticky nil front-sticky nil
+  field nil))
   (eat-term-delete eat--terminal)
   (setq eat--terminal nil)
   (eat--set-cursor nil :default)

[elpa] externals/cape 4506ee8212: cape-char--static-if: Fix naming convention

[ELPA Syncer]

branch: externals/cape
commit 4506ee82129a8e9ff9e4650a9b16eb8c4ae355f3
Author: Daniel Mendler 
Commit: Daniel Mendler 

cape-char--static-if: Fix naming convention
---
 cape-char.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/cape-char.el b/cape-char.el
index 8110fdbab8..bd9984dd6e 100644
--- a/cape-char.el
+++ b/cape-char.el
@@ -131,7 +131,7 @@ is nil the function acts like a Capf." method method)
   ,properties)))
 
 ;; TODO: use static-if as soon as compat-30 is released
-(defmacro cape--static-if (cond then &rest else)
+(defmacro cape-char--static-if (cond then &rest else)
   "Static if COND with THEN and ELSE branch."
   (if (eval cond t) then (cons 'progn else)))
 
@@ -145,7 +145,7 @@ is nil the function acts like a Capf." method method)
 (cape-char--define rfc1345 "rfc1345" ?&)
 
 ;;;###autoload (when (> emacs-major-version 28) (autoload 'cape-emoji 
"cape-char" nil t))
-(cape--static-if (> emacs-major-version 28)
+(cape-char--static-if (> emacs-major-version 28)
   (cape-char--define emoji "emoji" ?:))
 
 (provide 'cape-char)

[elpa] externals/jinx c9c5bde6a5: Use quotes in comment

[ELPA Syncer]

branch: externals/jinx
commit c9c5bde6a5abb7410f58ef51006ba44f76622779
Author: Daniel Mendler 
Commit: Daniel Mendler 

Use quotes in comment
---
 jinx.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/jinx.el b/jinx.el
index 6c0923759d..c298830289 100644
--- a/jinx.el
+++ b/jinx.el
@@ -88,7 +88,7 @@
font-lock-string-face)
 (conf-mode font-lock-comment-face
font-lock-string-face)
-;; yaml-mode and yaml-ts-mode are text-modes,
+;; `yaml-mode' and `yaml-ts-mode' are text-modes,
 ;; while they should better be conf- or prog-modes.
 (yaml-mode font-lock-comment-face
font-lock-string-face)

[elpa] externals/org df0539d678: * lisp/org.el (org-cdlatex-mode): Try to load texmathp

[ELPA Syncer]

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

* lisp/org.el (org-cdlatex-mode): Try to load texmathp

Attempt to load texmathp before setting advice.  `texmathp' is
optional and must be loaded before `cdlatex'.
---
 lisp/org.el | 4 
 1 file changed, 4 insertions(+)

diff --git a/lisp/org.el b/lisp/org.el
index 006f3688bb..6b68851dd9 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -15553,6 +15553,10 @@ in Org mode.
 \\{org-cdlatex-mode-map}"
   :lighter " OCDL"
   (when org-cdlatex-mode
+;; Try to load texmathp before cdlatex.  Otherwise, cdlatex can
+;; bind `cdlatex--texmathp' to `ignore', not using `texmathp' at
+;; all.
+(org-require-package 'texmathp "Auctex")
 (org-require-package 'cdlatex)
 (run-hooks 'cdlatex-mode-hook)
 (cdlatex-compute-tables))

[nongnu] elpa/helm updated (6bf5f5a20f -> d093dae2b0)

[ELPA Syncer]

elpasync pushed a change to branch elpa/helm.

  from  6bf5f5a20f Move helm-locate-lib-get-summary to helm-lib
   new  46b9b95a05 Add locate-library to library category
   new  1902e35712 Ensure helm-elisp is required
   new  9d6cf3fbc4 Make locate-library caches private
   new  943aa46587 Long lines only
   new  e99ab71880 Add startup message for helm-locate-library
   new  23909635de Display summary in helm-locate-library only when 
*completions-detailed is enabled
   new  d4f2268808 Add docstring
   new  07dacfe2e2 Prefer string-match-p over string-suffix-p
   new  cbad7919e9 Be consistent with candidate-transformer in both 
in-buffer and async
   new  30f331b594 Prefer candidate-transformer in helm-locate-library
   new  d093dae2b0 Fix startup message in helm-locate-library


Summary of changes:
 helm-core.el  | 15 ---
 helm-elisp.el | 55 ---
 helm-lib.el   |  3 ++-
 helm-mode.el  | 10 ++
 4 files changed, 48 insertions(+), 35 deletions(-)

[nongnu] elpa/helm 07dacfe2e2 08/11: Prefer string-match-p over string-suffix-p

[ELPA Syncer]

branch: elpa/helm
commit 07dacfe2e2db980a9e42afef2fc8539c155fdd0d
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Prefer string-match-p over string-suffix-p
---
 helm-lib.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/helm-lib.el b/helm-lib.el
index 2a93271f57..70df22089c 100644
--- a/helm-lib.el
+++ b/helm-lib.el
@@ -1732,7 +1732,7 @@ Directories expansion is not supported."
   (with-temp-buffer
 (call-process-shell-command 
  (format cmd
- (if (string-suffix-p ".gz" file)
+ (if (string-match-p ".gz\\'" file)
  "gzip -c -q -d" "cat")
  (shell-quote-argument file)
  regexp)

[nongnu] elpa/helm 46b9b95a05 01/11: Add locate-library to library category

[ELPA Syncer]

branch: elpa/helm
commit 46b9b95a05be90ec6a62fe87935a38d41d6266bd
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Add locate-library to library category
---
 helm-mode.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/helm-mode.el b/helm-mode.el
index 0f72d38b48..4db833ab37 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -1052,6 +1052,7 @@ behavior as emacs vanilla.")
 ("trace-function-background" . symbol-help)
 ("describe-minor-mode" . symbol-help)
 ("find-library" . library)
+("locate-library" . library)
 ("kill-buffer" . buffer)
 ("package-install" . package)
 ("package-vc-install" . package)

[nongnu] elpa/helm-core updated (6bf5f5a20f -> d093dae2b0)

[ELPA Syncer]

elpasync pushed a change to branch elpa/helm-core.

  from  6bf5f5a20f Move helm-locate-lib-get-summary to helm-lib
  adds  46b9b95a05 Add locate-library to library category
  adds  1902e35712 Ensure helm-elisp is required
  adds  9d6cf3fbc4 Make locate-library caches private
  adds  943aa46587 Long lines only
  adds  e99ab71880 Add startup message for helm-locate-library
  adds  23909635de Display summary in helm-locate-library only when 
*completions-detailed is enabled
  adds  d4f2268808 Add docstring
  adds  07dacfe2e2 Prefer string-match-p over string-suffix-p
  adds  cbad7919e9 Be consistent with candidate-transformer in both 
in-buffer and async
  adds  30f331b594 Prefer candidate-transformer in helm-locate-library
  adds  d093dae2b0 Fix startup message in helm-locate-library

No new revisions were added by this update.

Summary of changes:
 helm-core.el  | 15 ---
 helm-elisp.el | 55 ---
 helm-lib.el   |  3 ++-
 helm-mode.el  | 10 ++
 4 files changed, 48 insertions(+), 35 deletions(-)

[nongnu] elpa/helm 23909635de 06/11: Display summary in helm-locate-library only when *completions-detailed is enabled

[ELPA Syncer]

branch: elpa/helm
commit 23909635de83272dd4f6f45bdac4dae325a88af8
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Display summary in helm-locate-library only when *completions-detailed is 
enabled
---
 helm-elisp.el | 32 +---
 1 file changed, 17 insertions(+), 15 deletions(-)

diff --git a/helm-elisp.el b/helm-elisp.el
index 42a3e08992..45e30038ab 100644
--- a/helm-elisp.el
+++ b/helm-elisp.el
@@ -925,21 +925,23 @@ a string, i.e. the `symbol-name' of any existing symbol."
   :keymap helm-generic-files-map
   :filtered-candidate-transformer
   (lambda (candidates _source)
-(cl-loop with lgst = (helm-in-buffer-get-longest-candidate)
- for c in candidates
- for sep = (make-string (1+ (- lgst (length c))) ? )
- for bn = (helm-basename (helm-basename c t) t)
- for path = (or (assoc-default bn 
helm--locate-library-cache)
-(let ((p (find-library-name bn)))
-  (push (cons bn p) 
helm--locate-library-cache)
-  p))
- for doc = (or (gethash bn helm--locate-library-doc-cache)
-   (puthash bn (helm-locate-lib-get-summary 
path)
-helm--locate-library-doc-cache))
- for disp = (helm-aand (propertize doc 'face 
'font-lock-warning-face)
-   (propertize " " 'display (concat 
sep it))
-   (concat bn it))
- collect (cons disp path)))
+(if (or completions-detailed helm-completions-detailed)
+(cl-loop with lgst = (helm-in-buffer-get-longest-candidate)
+ for c in candidates
+ for sep = (make-string (1+ (- lgst (length c))) ? )
+ for bn = (helm-basename (helm-basename c t) t)
+ for path = (or (assoc-default bn 
helm--locate-library-cache)
+(let ((p (find-library-name bn)))
+  (push (cons bn p) 
helm--locate-library-cache)
+  p))
+ for doc = (or (gethash bn 
helm--locate-library-doc-cache)
+   (puthash bn 
(helm-locate-lib-get-summary path)
+
helm--locate-library-doc-cache))
+ for disp = (helm-aand (propertize doc 'face 
'font-lock-warning-face)
+   (propertize " " 'display 
(concat sep it))
+   (concat bn it))
+ collect (cons disp path))
+  candidates))
   :action (helm-actions-from-type-file))
 :buffer "*helm locate library*"))
 

[nongnu] elpa/helm 943aa46587 04/11: Long lines only

[ELPA Syncer]

branch: elpa/helm
commit 943aa465870354527818e25d7521e2c164301e8c
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Long lines only
---
 helm-elisp.el | 48 +++-
 1 file changed, 23 insertions(+), 25 deletions(-)

diff --git a/helm-elisp.el b/helm-elisp.el
index 2b9ec6a7ce..4494dcd85d 100644
--- a/helm-elisp.el
+++ b/helm-elisp.el
@@ -915,31 +915,29 @@ a string, i.e. the `symbol-name' of any existing symbol."
 (defun helm-locate-library ()
   "Preconfigured helm to locate elisp libraries."
   (interactive)
-  (helm :sources (helm-build-in-buffer-source  "Elisp libraries (Scan)"
-   :data #'helm-locate-library-scan-list
-   :fuzzy-match helm-locate-library-fuzzy-match
-   :keymap helm-generic-files-map
-   :filtered-candidate-transformer
-   (lambda (candidates _source)
- (cl-loop with lgst = 
(helm-in-buffer-get-longest-candidate)
-  for c in candidates
-  for sep = (make-string
- (1+ (- lgst
-(length c)))
- ? )
-  for bn = (helm-basename (helm-basename c t) t)
-  for path = (or (assoc-default bn 
helm--locate-library-cache)
- (let ((p (find-library-name bn)))
-   (push (cons bn p) 
helm--locate-library-cache)
-   p))
-  for doc = (or (gethash bn 
helm--locate-library-doc-cache)
-(puthash bn 
(helm-locate-lib-get-summary path)
- 
helm--locate-library-doc-cache))
-  for disp = (helm-aand (propertize doc 'face 
'font-lock-warning-face)
-(propertize " " 'display 
(concat sep it))
-(concat bn it))
-  collect (cons disp path)))
-   :action (helm-actions-from-type-file))
+  (helm :sources
+(helm-build-in-buffer-source  "Elisp libraries (Scan)"
+  :data #'helm-locate-library-scan-list
+  :fuzzy-match helm-locate-library-fuzzy-match
+  :keymap helm-generic-files-map
+  :filtered-candidate-transformer
+  (lambda (candidates _source)
+(cl-loop with lgst = (helm-in-buffer-get-longest-candidate)
+ for c in candidates
+ for sep = (make-string (1+ (- lgst (length c))) ? )
+ for bn = (helm-basename (helm-basename c t) t)
+ for path = (or (assoc-default bn 
helm--locate-library-cache)
+(let ((p (find-library-name bn)))
+  (push (cons bn p) 
helm--locate-library-cache)
+  p))
+ for doc = (or (gethash bn helm--locate-library-doc-cache)
+   (puthash bn (helm-locate-lib-get-summary 
path)
+helm--locate-library-doc-cache))
+ for disp = (helm-aand (propertize doc 'face 
'font-lock-warning-face)
+   (propertize " " 'display (concat 
sep it))
+   (concat bn it))
+ collect (cons disp path)))
+  :action (helm-actions-from-type-file))
 :buffer "*helm locate library*"))
 
 

[nongnu] elpa/helm 9d6cf3fbc4 03/11: Make locate-library caches private

[ELPA Syncer]

branch: elpa/helm
commit 9d6cf3fbc49d15438a23475523aa0e39d7e297b1
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Make locate-library caches private
---
 helm-elisp.el | 12 ++--
 helm-mode.el  |  8 
 2 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/helm-elisp.el b/helm-elisp.el
index a9c0377050..2b9ec6a7ce 100644
--- a/helm-elisp.el
+++ b/helm-elisp.el
@@ -902,8 +902,8 @@ a string, i.e. the `symbol-name' of any existing symbol."
 ;;; Locate elisp library
 ;;
 ;;
-(defvar helm-locate-library-cache nil)
-(defvar helm-locate-library-doc-cache (make-hash-table :test 'equal))
+(defvar helm--locate-library-cache nil)
+(defvar helm--locate-library-doc-cache (make-hash-table :test 'equal))
 (defun helm-locate-library-scan-list ()
   (cl-loop for dir in load-path
with load-suffixes = (find-library-suffixes)
@@ -928,13 +928,13 @@ a string, i.e. the `symbol-name' of any existing symbol."
 (length c)))
  ? )
   for bn = (helm-basename (helm-basename c t) t)
-  for path = (or (assoc-default bn 
helm-locate-library-cache)
+  for path = (or (assoc-default bn 
helm--locate-library-cache)
  (let ((p (find-library-name bn)))
-   (push (cons bn p) 
helm-locate-library-cache)
+   (push (cons bn p) 
helm--locate-library-cache)
p))
-  for doc = (or (gethash bn 
helm-locate-library-doc-cache)
+  for doc = (or (gethash bn 
helm--locate-library-doc-cache)
 (puthash bn 
(helm-locate-lib-get-summary path)
- 
helm-locate-library-doc-cache))
+ 
helm--locate-library-doc-cache))
   for disp = (helm-aand (propertize doc 'face 
'font-lock-warning-face)
 (propertize " " 'display 
(concat sep it))
 (concat bn it))
diff --git a/helm-mode.el b/helm-mode.el
index c1d1c8eeaf..1ce8498e11 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -1281,13 +1281,13 @@ is used."
 (let* ((sep (make-string (1+ (- (helm-in-buffer-get-longest-candidate)
 (length comp)))
  ? ))
-   (path (or (assoc-default comp helm-locate-library-cache)
+   (path (or (assoc-default comp helm--locate-library-cache)
  (let ((p (find-library-name comp)))
-   (push (cons comp p) helm-locate-library-cache)
+   (push (cons comp p) helm--locate-library-cache)
p)))
-   (doc (or (gethash comp helm-locate-library-doc-cache)
+   (doc (or (gethash comp helm--locate-library-doc-cache)
 (puthash comp (helm-locate-lib-get-summary path)
- helm-locate-library-doc-cache
+ helm--locate-library-doc-cache
   (list comp
 ""
 (helm-aand (propertize doc 'face 'font-lock-warning-face)

[nongnu] elpa/helm e99ab71880 05/11: Add startup message for helm-locate-library

[ELPA Syncer]

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

Add startup message for helm-locate-library
---
 helm-elisp.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/helm-elisp.el b/helm-elisp.el
index 4494dcd85d..42a3e08992 100644
--- a/helm-elisp.el
+++ b/helm-elisp.el
@@ -915,6 +915,9 @@ a string, i.e. the `symbol-name' of any existing symbol."
 (defun helm-locate-library ()
   "Preconfigured helm to locate elisp libraries."
   (interactive)
+  (message "Scanning libraries...")
+  (with-helm-temp-hook 'helm-after-initialize-hook
+(message "Scanning libraries...Done"))
   (helm :sources
 (helm-build-in-buffer-source  "Elisp libraries (Scan)"
   :data #'helm-locate-library-scan-list

[nongnu] elpa/helm 1902e35712 02/11: Ensure helm-elisp is required

[ELPA Syncer]

branch: elpa/helm
commit 1902e357122298198090b4ff9b569e2e7a19c8b8
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Ensure helm-elisp is required
---
 helm-mode.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/helm-mode.el b/helm-mode.el
index 4db833ab37..c1d1c8eeaf 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -1276,6 +1276,7 @@ is used."
(propertize " " 'display (concat sep it)))
 
 (defun helm-completion-library-affixation (_comps)
+  (require 'helm-elisp)
   (lambda (comp)
 (let* ((sep (make-string (1+ (- (helm-in-buffer-get-longest-candidate)
 (length comp)))

[nongnu] elpa/helm 30f331b594 10/11: Prefer candidate-transformer in helm-locate-library

[ELPA Syncer]

branch: elpa/helm
commit 30f331b594b44f7f5027cd7b7f9ea2b12f1f3ea7
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Prefer candidate-transformer in helm-locate-library
---
 helm-elisp.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/helm-elisp.el b/helm-elisp.el
index 45e30038ab..21a229a009 100644
--- a/helm-elisp.el
+++ b/helm-elisp.el
@@ -923,8 +923,8 @@ a string, i.e. the `symbol-name' of any existing symbol."
   :data #'helm-locate-library-scan-list
   :fuzzy-match helm-locate-library-fuzzy-match
   :keymap helm-generic-files-map
-  :filtered-candidate-transformer
-  (lambda (candidates _source)
+  :candidate-transformer
+  (lambda (candidates)
 (if (or completions-detailed helm-completions-detailed)
 (cl-loop with lgst = (helm-in-buffer-get-longest-candidate)
  for c in candidates

[nongnu] elpa/helm d093dae2b0 11/11: Fix startup message in helm-locate-library

[ELPA Syncer]

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

Fix startup message in helm-locate-library
---
 helm-elisp.el | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/helm-elisp.el b/helm-elisp.el
index 21a229a009..b7ca0d65f8 100644
--- a/helm-elisp.el
+++ b/helm-elisp.el
@@ -915,9 +915,7 @@ a string, i.e. the `symbol-name' of any existing symbol."
 (defun helm-locate-library ()
   "Preconfigured helm to locate elisp libraries."
   (interactive)
-  (message "Scanning libraries...")
-  (with-helm-temp-hook 'helm-after-initialize-hook
-(message "Scanning libraries...Done"))
+  (message "Please wait, scanning libraries...")
   (helm :sources
 (helm-build-in-buffer-source  "Elisp libraries (Scan)"
   :data #'helm-locate-library-scan-list

[nongnu] elpa/helm cbad7919e9 09/11: Be consistent with candidate-transformer in both in-buffer and async

[ELPA Syncer]

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

Be consistent with candidate-transformer in both in-buffer and async

When candidate-transformer is specified in source ALL candidates should
be computed with the candidate-transformer function (in contrast with
filtered-candidate-transformer).  This to be consistent with what sync
sources do. The car of the cons is used for initial fetching of
candidates whereas the cdr is used after when searching (in this case
the candidate number limit is used).
---
 helm-core.el | 15 ---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/helm-core.el b/helm-core.el
index 910178872f..452dc0579a 100644
--- a/helm-core.el
+++ b/helm-core.el
@@ -6609,7 +6609,15 @@ To customize `helm-candidates-in-buffer' behaviour, use 
`search',
  #'buffer-substring-no-properties)
  (or (assoc-default 'search src)
  '(helm-candidates-in-buffer-search-default-fn))
- (helm-candidate-number-limit src)
+ ;; When candidate-transformer is specified in source ALL candidates should
+ ;; be computed with the candidate-transformer function (in contrast with
+ ;; filtered-candidate-transformer).  This to be consistent with what sync
+ ;; sources do. The car of the cons is used for initial fetching of
+ ;; candidates whereas the cdr is used after when searching (in this case
+ ;; the candidate number limit is used).
+ (if (helm-get-attr 'candidate-transformer src)
+ (cons  (helm-candidate-number-limit src))
+   (helm-candidate-number-limit src))
  (helm-get-attr 'match-part)
  src)))
 
@@ -6631,9 +6639,10 @@ To customize `helm-candidates-in-buffer' behaviour, use 
`search',
 (goto-char start-point)
 (if (string= pattern "")
 (helm-initial-candidates-from-candidate-buffer
- get-line-fn limit)
+ get-line-fn (if (consp limit) (car limit) limit))
   (helm-search-from-candidate-buffer
-   pattern get-line-fn search-fns limit
+   pattern get-line-fn search-fns
+   (if (consp limit) (cdr limit) limit)
start-point match-part-fn source))
 
 

[nongnu] elpa/helm d4f2268808 07/11: Add docstring

[ELPA Syncer]

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

Add docstring
---
 helm-lib.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/helm-lib.el b/helm-lib.el
index b076faadff..2a93271f57 100644
--- a/helm-lib.el
+++ b/helm-lib.el
@@ -1721,6 +1721,7 @@ Directories expansion is not supported."
  "," "|" (match-string 2 wc)
 
 (defun helm-locate-lib-get-summary (file)
+  "Extract library description from FILE."
   (let* ((shell-file-name "sh")
  (shell-command-switch "-c")
  (cmd "%s %s | head -n1 | awk 'match($0,\"%s\",a) {print a[2]}'\

[elpa] externals/denote 39f8ac2787: Define 'denote-after-new-note-hook' to run after 'denote'

[ELPA Syncer]

branch: externals/denote
commit 39f8ac2787c94bb8dc84d4f5c05fc9f5ed572d17
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Define 'denote-after-new-note-hook' to run after 'denote'
---
 README.org | 4 
 denote.el  | 8 +++-
 2 files changed, 11 insertions(+), 1 deletion(-)

diff --git a/README.org b/README.org
index c3bbfd6663..98c8c274d3 100644
--- a/README.org
+++ b/README.org
@@ -171,6 +171,10 @@ value).  Once the title is supplied, the ~denote~ command 
will then ask
 for keywords.  The resulting note will have a file name as already
 explained: [[#h:4e9c7512-84dc-4dfb-9fa9-e15d51178e5d][The file naming scheme]]
 
+#+vindex: denote-after-new-note-hook
+The ~denote~ command runs the hook ~denote-after-new-note-hook~ after
+creating the new note. [ Part of {{{development-version}}}. ]
+
 The file type of the new note is determined by the user option
 ~denote-file-type~ ([[#h:13218826-56a5-482a-9b91-5b6de4f14261][Front matter]]).
 
diff --git a/denote.el b/denote.el
index b7b93fe913..43e9007647 100644
--- a/denote.el
+++ b/denote.el
@@ -1668,10 +1668,15 @@ The meaning of FILES is the same as in 
`denote--id-exists-p'."
 
 ; The `denote' command and its prompts
 
+(defvar denote-after-new-note-hook nil
+  "Normal hook that runs after the `denote' command.")
+
 ;;;###autoload
 (defun denote (&optional title keywords file-type subdirectory date template 
signature)
   "Create a new note with the appropriate metadata and file name.
 
+Run the `denote-after-new-note-hook' after creating the new note.
+
 When called interactively, the metadata and file name are prompted
 according to the value of `denote-prompts'.
 
@@ -1733,7 +1738,8 @@ When called from Lisp, all arguments are optional.
  (signature (or signature "")))
 (denote-barf-duplicate-id id)
 (denote--prepare-note title kws date id directory file-type template 
signature)
-(denote--keywords-add-to-history keywords)))
+(denote--keywords-add-to-history keywords)
+(run-hooks 'denote-after-new-note-hook)))
 
 (defvar denote--title-history nil
   "Minibuffer history of `denote-title-prompt'.")

[elpa] externals/org 765a84ea25: * lisp/ob-fortran.el: Document all the function arguments

[ELPA Syncer]

branch: externals/org
commit 765a84ea252fd7f281340c40fdc97f696f8cac33
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

* lisp/ob-fortran.el: Document all the function arguments

(org-babel-execute:fortran):
(org-babel-expand-body:fortran):
(org-babel-fortran-ensure-main-wrap):
(org-babel-prep-session:fortran):
(org-babel-load-session:fortran):
(org-babel-fortran-var-to-fortran):
(org-babel-fortran-transform-list): Document function arguments and
make sure that the first line of the docstring is a short single
sentence.
---
 lisp/ob-fortran.el | 21 -
 1 file changed, 12 insertions(+), 9 deletions(-)

diff --git a/lisp/ob-fortran.el b/lisp/ob-fortran.el
index 2c050cb18a..7075d8a9fe 100644
--- a/lisp/ob-fortran.el
+++ b/lisp/ob-fortran.el
@@ -51,7 +51,8 @@
   :type  'string)
 
 (defun org-babel-execute:fortran (body params)
-  "This function should only be called by `org-babel-execute:fortran'."
+  "Execute fortran BODY according to PARAMS.
+This function should only be called by `org-babel-execute:fortran'."
   (let* ((tmp-src-file (org-babel-temp-file "fortran-src-" ".F90"))
  (tmp-bin-file (org-babel-temp-file "fortran-bin-" org-babel-exeext))
  (cmdline (cdr (assq :cmdline params)))
@@ -82,8 +83,7 @@
 (cdr (assq :rowname-names params)) (cdr (assq :rownames params)))
 
 (defun org-babel-expand-body:fortran (body params)
-  "Expand a block of fortran or fortran code with org-babel according to
-its header arguments."
+  "Expand a fortran BODY according to its header arguments defined in PARAMS."
   (let ((vars (org-babel--get-vars params))
 (main-p (not (string= (cdr (assq :main params)) "no")))
 (includes (or (cdr (assq :includes params))
@@ -112,7 +112,8 @@ its header arguments."
  body) "\n") "\n")))
 
 (defun org-babel-fortran-ensure-main-wrap (body params)
-  "Wrap body in a \"program ... end program\" block if none exists."
+  "Wrap BODY in a \"program ... end program\" block if none exists.
+Variable assignments are derived from PARAMS."
   (if (string-match "^[ \t]*program\\>" (capitalize body))
   (let ((vars (org-babel--get-vars params)))
(when vars (error "Cannot use :vars if `program' statement is present"))
@@ -120,20 +121,22 @@ its header arguments."
 (format "program main\n%s\nend program main\n" body)))
 
 (defun org-babel-prep-session:fortran (_session _params)
-  "This function does nothing as fortran is a compiled language with no
+  "Do nothing.
+This function does nothing as fortran is a compiled language with no
 support for sessions."
   (error "Fortran is a compiled languages -- no support for sessions"))
 
 (defun org-babel-load-session:fortran (_session _body _params)
-  "This function does nothing as fortran is a compiled language with no
+  "Do nothing.
+This function does nothing as fortran is a compiled language with no
 support for sessions."
   (error "Fortran is a compiled languages -- no support for sessions"))
 
 ;; helper functions
 
 (defun org-babel-fortran-var-to-fortran (pair)
-  "Convert an elisp val into a string of fortran code specifying a var
-of the same value."
+  "Convert PAIR of (VAR . VAL) into a string of fortran code.
+The fortran code will assign VAL to VAR variable."
   ;; TODO list support
   (let ((var (car pair))
 (val (cdr pair)))
@@ -164,7 +167,7 @@ of the same value."
   (error "The type of parameter %s is not supported by ob-fortran" var)
 
 (defun org-babel-fortran-transform-list (val)
-  "Return a fortran representation of enclose syntactic lists."
+  "Return a fortran representation of enclose syntactic list VAL."
   (if (listp val)
   (concat "(/" (mapconcat #'org-babel-fortran-transform-list val ", ") 
"/)")
 (format "%S" val)))

[nongnu] elpa/cider 09d72192a4: Use cider-nrepl 0.37.1 (#3465)

[ELPA Syncer]

branch: elpa/cider
commit 09d72192a4734653ca0b1b4b227c38760880fc63
Author: vemv 
Commit: GitHub 

Use cider-nrepl 0.37.1 (#3465)
---
 CHANGELOG.md   |  2 +-
 cider.el   |  2 +-
 dev/docker-sample-project/project.clj  |  2 +-
 dev/tramp-sample-project/project.clj   |  2 +-
 .../ROOT/pages/basics/middleware_setup.adoc| 10 ++---
 doc/modules/ROOT/pages/basics/up_and_running.adoc  |  4 +-
 doc/modules/ROOT/pages/cljs/shadow-cljs.adoc   |  2 +-
 test/cider-tests.el| 44 +++---
 8 files changed, 34 insertions(+), 34 deletions(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index cf87aa1731..05a5435e4d 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -54,7 +54,7 @@
 - Improve `nrepl-dict` error reporting.
 - Bump the injected `piggieback` to 
[0.5.3](https://github.com/nrepl/piggieback/blob/0.5.3/CHANGES.md#053-2021-10-26).
 - Bump the `clojure-mode` required version, and use `clojure-find-ns` more 
safely, which fixes issues such as 
#[2849](https://github.com/clojure-emacs/cider/issues/2849).
-- Bump the injected `cider-nrepl` to 
[0.37.0](https://github.com/clojure-emacs/cider-nrepl/blob/v0.37.0/CHANGELOG.md#0370-2023-08-27).
+- Bump the injected `cider-nrepl` to 
[0.37.1](https://github.com/clojure-emacs/cider-nrepl/blob/v0.37.1/CHANGELOG.md#0371-2023-09-08).
   - Improves indentation, font-locking and other metadata support for 
ClojureScript.
   - Updates 
[Orchard](https://github.com/clojure-emacs/orchard/blob/v0.14.2/CHANGELOG.md)
 - introduces support for displaying the docstring and arglists of 
'indirect' vars (e.g. `(def foo bar)`) for Clojure/Script.
diff --git a/cider.el b/cider.el
index 2c831b97e5..805385b20f 100644
--- a/cider.el
+++ b/cider.el
@@ -527,7 +527,7 @@ the artifact.")
 (defconst cider-latest-clojure-version "1.10.1"
   "Latest supported version of Clojure.")
 
-(defconst cider-required-middleware-version "0.37.0"
+(defconst cider-required-middleware-version "0.37.1"
   "The CIDER nREPL version that's known to work properly with CIDER.")
 
 (defcustom cider-injected-middleware-version cider-required-middleware-version
diff --git a/dev/docker-sample-project/project.clj 
b/dev/docker-sample-project/project.clj
index 927f7f8cfa..bf98bdb3d1 100644
--- a/dev/docker-sample-project/project.clj
+++ b/dev/docker-sample-project/project.clj
@@ -2,4 +2,4 @@
   :dependencies [[org.clojure/clojure "1.11.1"]
  [clj-http "3.12.3"]]
   :source-paths ["src"]
-  :plugins [[cider/cider-nrepl "0.37.0"]])
+  :plugins [[cider/cider-nrepl "0.37.1"]])
diff --git a/dev/tramp-sample-project/project.clj 
b/dev/tramp-sample-project/project.clj
index 573ad99d92..482ba33a3d 100644
--- a/dev/tramp-sample-project/project.clj
+++ b/dev/tramp-sample-project/project.clj
@@ -2,4 +2,4 @@
   :dependencies [[org.clojure/clojure "1.11.1"]
  [clj-http "3.12.3"]]
   :source-paths ["src"]
-  :plugins [[cider/cider-nrepl "0.37.0"]])
+  :plugins [[cider/cider-nrepl "0.37.1"]])
diff --git a/doc/modules/ROOT/pages/basics/middleware_setup.adoc 
b/doc/modules/ROOT/pages/basics/middleware_setup.adoc
index f5d775f0b5..8a05b56284 100644
--- a/doc/modules/ROOT/pages/basics/middleware_setup.adoc
+++ b/doc/modules/ROOT/pages/basics/middleware_setup.adoc
@@ -32,14 +32,14 @@ Use the convenient plugin for defaults, either in your 
project's
 
 [source,clojure]
 
-:plugins [[cider/cider-nrepl "0.37.0"]]
+:plugins [[cider/cider-nrepl "0.37.1"]]
 
 
 A minimal `profiles.clj` for CIDER would be:
 
 [source,clojure]
 
-{:repl {:plugins [[cider/cider-nrepl "0.37.0"]]}}
+{:repl {:plugins [[cider/cider-nrepl "0.37.1"]]}}
 
 
 WARNING: Be careful not to place this in the `:user` profile, as this way 
CIDER's
@@ -59,7 +59,7 @@ all of their projects using a `~/.boot/profile.boot` file 
like so:
 (require 'boot.repl)
 
 (swap! boot.repl/*default-dependencies*
-   concat '[[cider/cider-nrepl "0.37.0"]])
+   concat '[[cider/cider-nrepl "0.37.1"]])
 
 (swap! boot.repl/*default-middleware*
conj 'cider.nrepl/cider-middleware)
@@ -76,11 +76,11 @@ run `cider-connect` or `cider-connect-cljs`.
 
 [source,clojure]
 
-  :cider-clj {:extra-deps {cider/cider-nrepl {:mvn/version "0.37.0"}}
+  :cider-clj {:extra-deps {cider/cider-nrepl {:mvn/version "0.37.1"}}
   :main-opts ["-m" "nrepl.cmdline" "--middleware" 
"[cider.nrepl/cider-middleware]"]}
 
   :cider-cljs {:extra-deps {org.clojure/clojurescript {:mvn/version "1.10.339"}
-cider/cider-nrepl {:mvn/version "0.37.0"}
+cider/cider-nrepl {:mvn/version "0.37.1"}
 cider/piggieback {:mvn/version "0.5.3"}}
:main-opts ["-m" "nrepl.cmdline" "--middleware"

"[cider.nrepl/cider-middleware,cider.piggieback/wrap-cljs-repl]"]}
diff --git a/doc/modules/ROOT/pages/basic

[nongnu] elpa/eat ccfccf016b 2/2: Fix recursive output processing

[ELPA Syncer]

branch: elpa/eat
commit ccfccf016b91b2ec1a22bda6a12bcedad9043d96
Author: Akib Azmain Turja 
Commit: Akib Azmain Turja 

Fix recursive output processing

* eat.el (eat--pending-input-chunks)
(eat--process-input-queue-timer): New variable.
* eat.el (eat-mode): Make 'eat--pending-input-chunks' and
'eat--process-input-queue-timer' buffer-local.
* eat.el (eat--send-input): Queue input instead of sending
immediately.
* eat.el (eat--process-input-queue): New function.
---
 eat.el | 34 ++
 1 file changed, 30 insertions(+), 4 deletions(-)

diff --git a/eat.el b/eat.el
index e4019b..bdf296d9c7 100644
--- a/eat.el
+++ b/eat.el
@@ -5149,7 +5149,7 @@ BUFFER is the terminal buffer."
 
 (defun eat--set-cmd (cmd)
   "Add CMD to `shell-command-history'."
-  (when-let* (((and eat-enable-shell-command-history))
+  (when-let* ((eat-enable-shell-command-history)
   (command (ignore-errors (decode-coding-string
(base64-decode-string cmd)
locale-coding-system
@@ -6168,6 +6168,8 @@ END if it's safe to do so."
   eat--prompt-input-ring-index
   eat--prompt-stored-incomplete-input
   eat--prompt-matching-input-from-input-string
+  eat--pending-input-chunks
+  eat--process-input-queue-timer
   eat--pending-output-chunks
   eat--output-queue-first-chunk-time
   eat--process-output-queue-timer
@@ -6294,6 +6296,14 @@ The output chunks are pushed, so last output appears 
first.")
 (defvar eat--process-output-queue-timer nil
   "Timer to process output queue.")
 
+(defvar eat--pending-input-chunks nil
+  "The list of pending input chunks.
+
+The input chunks are pushed, so last input appears first.")
+
+(defvar eat--process-input-queue-timer nil
+  "Timer to process input queue.")
+
 (defvar eat--shell-prompt-annotation-correction-timer nil
   "Timer to correct shell prompt annotations.")
 
@@ -6323,9 +6333,25 @@ OS's."
 
 (defun eat--send-input (_ input)
   "Send INPUT to subprocess."
-  (when-let* ((eat--terminal)
-  (proc (eat-term-parameter eat--terminal 'eat--process)))
-(eat--send-string proc input)))
+  (push input eat--pending-input-chunks)
+  (unless eat--process-input-queue-timer
+(setq eat--process-input-queue-timer
+  (run-with-idle-timer 0 nil #'eat--process-input-queue
+   (current-buffer)
+
+(defun eat--process-input-queue (buffer)
+  "Process the input queue on BUFFER."
+  (setf (buffer-local-value 'eat--process-input-queue-timer buffer)
+nil)
+  (when-let* (((buffer-live-p buffer))
+  (terminal (buffer-local-value 'eat--terminal buffer))
+  (proc (eat-term-parameter terminal 'eat--process))
+  ((process-live-p proc)))
+(with-current-buffer buffer
+  (let ((chunks (nreverse eat--pending-input-chunks)))
+(setq eat--pending-input-chunks nil)
+(dolist (str chunks)
+  (eat--send-string proc str))
 
 (defun eat--process-output-queue (buffer)
   "Process the output queue on BUFFER."

[nongnu] elpa/eat d83f53990f 1/2: Document prompt mode

[ELPA Syncer]

branch: elpa/eat
commit d83f53990ffc277d592266953dc4ebae8d9e9367
Author: Akib Azmain Turja 
Commit: Akib Azmain Turja 

Document prompt mode

* eat.texi (Shell Integration): Divide into sections.  Add new
section 'Native Shell Prompt Editing'.
* README.org (Usage): Document "prompt" mode.
* README.org (Comparison With Other Terminal Emulators): Update
comparison.
---
 README.org | 20 +--
 eat.el |  2 +-
 eat.texi   | 86 ++
 3 files changed, 94 insertions(+), 14 deletions(-)

diff --git a/README.org b/README.org
index db55738db7..67756c09fa 100644
--- a/README.org
+++ b/README.org
@@ -20,7 +20,7 @@ To get the most out of Eat, you should also setup shell 
integration.
 
 * Usage
 
-To start Eat, run =M-x eat=.  Eat has three keybinding modes:
+To start Eat, run =M-x eat=.  Eat has four keybinding modes:
 
 - "semi-char" mode: This is the default keybinding mode.  Most keys
   are bound to send the key to the terminal, except the following
@@ -46,6 +46,13 @@ To start Eat, run =M-x eat=.  Eat has three keybinding modes:
   terminal, except =C-M-m= or =M-RET=, which is bound to switch to
   "semi-char" keybinding mode.
 
+- "prompt" mode: Similar to Shell mode or Term line mode.  You need to
+  enable shell integration to enable this feature.
+
+  - =C-c C-e=: Switch to "emacs" keybinding mode
+  - =C-c C-j=: Switch to "semi-char" keybinding mode.
+  - =C-c M-d=: Switch to "char" keybinding mode.
+
 If you like Eshell, then there is a good news for you.  Eat integrates
 with Eshell.  Eat has two global minor modes for Eshell:
 
@@ -138,11 +145,8 @@ is pretty good too.  But it's slow.  It is so slow that 
Eat can beat
 native-compiled Term even without byte-compilation, and when Eat is
 byte-compiled, Eat is more than three times fast.  Also, Term
 flickers, just try to run =emacs -nw= in it.  It doesn't support
-remote connections, for example over Tramp.  However, it has "line"
-mode, which Eat still doesn't have.  If you want line mode in a
-terminal, or use an old version of Emacs, you can use Term, but
-Coterm + Shell is probably a better choice in case your Emacs version
-is 26.1 or above.
+remote connections, for example over Tramp.  However, it's builtin
+from the early days of Emacs, while Eat needs atleast Emacs 28.1.
 
 ** Vterm
 
@@ -163,8 +167,8 @@ just a bit slow than Eat.  However, it too flickers like 
other
 terminals.  Since it's an upgrade to Shell, you get all the features
 of Shell like "line" mode, completion using your favorite completion
 UI (Company, Corfu, etc), etc.  Most of these features are available
-in Eat-Eshell-Mode as Eshell is similar to Shell, however it's not
-Shell mode.  Recommended if you like Shell.
+in Eat, and also in Eat-Eshell-Mode as Eshell is similar to Shell,
+however it's not Shell mode.  Recommended if you like Shell.
 
 * Acknowledgements
 
diff --git a/eat.el b/eat.el
index 808c5148df..e4019b 100644
--- a/eat.el
+++ b/eat.el
@@ -5600,7 +5600,7 @@ EVENT is the mouse event."
 (define-key map [C-up] #'eat-prompt-previous-input)
 (define-key map [C-down] #'eat-prompt-next-input)
 (define-key map [?\M-r] #'eat-prompt-previous-matching-input)
-(define-key map [?\C-c ?\M-r] #'eat-prompt-find-input)
+(define-key map [?\C-c ?\C-r] #'eat-prompt-find-input)
 (define-key map [?\C-c ?\M-r]
 #'eat-prompt-previous-matching-input-from-input)
 (define-key map [?\C-c ?\M-s]
diff --git a/eat.texi b/eat.texi
index 5512cde332..767b0c6b81 100644
--- a/eat.texi
+++ b/eat.texi
@@ -392,12 +392,14 @@ If you use Zsh, put the following in your @samp{.zshrc} 
file:
   source "$EAT_SHELL_INTEGRATION_DIR/zsh"
 @end example
 
+@anchor{Directory tracking}
 @cindex directory tracking
 @cindex tracking directory
 @cindex working directory tracking
 @cindex tracking working directory
 @cindex cwd tracking
 @cindex tracking cwd
+@section Directory tracking
 After you've setup shell integration, the Eat will track the working
 directory of your shell.  That means @command{find-file} will start
 from your shell's current working directory.  This also works in
@@ -410,10 +412,12 @@ This controls directory tracking.  When set to 
non-@code{nil}, Eat
 tracks the current working directory of programs.
 @end defopt
 
+@anchor{Shell Prompt Navigation}
 @cindex shell prompt navigation
 @cindex shell navigation, shell prompt
 @cindex prompt navigation
 @cindex navigation, prompt
+@section Shell Prompt Navigation
 @kindex C-c C-p @r{(``emacs mode''})
 @kindex C-c C-p @r{(``semi-char mode'')}
 @findex eat-previous-shell-prompt
@@ -437,12 +441,14 @@ You can narrow (@pxref{Narrowing,,, emacs, GNU Emacs 
Manual}) down Eat
 buffer to a shell prompt and its output (if any) using the key
 sequence @kbd{C-x n d}, bound to @command{eat-narrow-to-shell-prompt}.
 
+@anchor{Shell Prompt Annotation}
 @cindex shell prompt annotation
 @cindex annotation, shell prompt
 @cin

[nongnu] elpa/eat updated (89983b580c -> ccfccf016b)

[ELPA Syncer]

elpasync pushed a change to branch elpa/eat.

  from  89983b580c Allow terminal text modification after it's killed
   new  d83f53990f Document prompt mode
   new  ccfccf016b Fix recursive output processing


Summary of changes:
 README.org | 20 +--
 eat.el | 36 ++
 eat.texi   | 86 ++
 3 files changed, 124 insertions(+), 18 deletions(-)

[nongnu] elpa/git-commit updated (141dd46798 -> 4f4ad9c091)

[ELPA Syncer]

elpasync pushed a change to branch elpa/git-commit.

  from  141dd46798 diff: Make --diff-merges option available
   new  6678d1ad95 magit-modified-files: Avoid duplicates
   new  4f4ad9c091 magit-gitdir: Fix docstring typo


Summary of changes:
 lisp/magit-git.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

[nongnu] elpa/git-commit 6678d1ad95 1/2: magit-modified-files: Avoid duplicates

[ELPA Syncer]

branch: elpa/git-commit
commit 6678d1ad950510d71e4cf60a2a3b0bda81bcb26c
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

magit-modified-files: Avoid duplicates

Without filtering, an unmerged file is listed twice, once as unmerged
and once as modified.
---
 lisp/magit-git.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/magit-git.el b/lisp/magit-git.el
index 0fd7f34df2..5458045703 100644
--- a/lisp/magit-git.el
+++ b/lisp/magit-git.el
@@ -1098,7 +1098,7 @@ tracked file."
(magit-headish) "--" files))
 
 (defun magit-unstaged-files (&optional nomodules files)
-  (magit-git-items "diff-files" "-z" "--name-only"
+  (magit-git-items "diff-files" "-z" "--name-only" "--diff-filter=u"
(and nomodules "--ignore-submodules")
"--" files))
 

[nongnu] elpa/git-commit 4f4ad9c091 2/2: magit-gitdir: Fix docstring typo

[ELPA Syncer]

branch: elpa/git-commit
commit 4f4ad9c091daf769f8a0a562f6d14a71aa6c3192
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

magit-gitdir: Fix docstring typo
---
 lisp/magit-git.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/magit-git.el b/lisp/magit-git.el
index 5458045703..c372de229b 100644
--- a/lisp/magit-git.el
+++ b/lisp/magit-git.el
@@ -843,7 +843,7 @@ Also see `magit-git-config-p'."
 (defun magit-gitdir (&optional directory)
   "Return the absolute and resolved path of the .git directory.
 
-If the `GIT_DIR' environment variable is define then return that.
+If the `GIT_DIR' environment variable is defined, return that.
 Otherwise return the .git directory for DIRECTORY, or if that is
 nil, then for `default-directory' instead.  If the directory is
 not located inside a Git repository, then return nil."

[nongnu] elpa/magit updated (141dd46798 -> 4f4ad9c091)

[ELPA Syncer]

elpasync pushed a change to branch elpa/magit.

  from  141dd46798 diff: Make --diff-merges option available
  adds  6678d1ad95 magit-modified-files: Avoid duplicates
  adds  4f4ad9c091 magit-gitdir: Fix docstring typo

No new revisions were added by this update.

Summary of changes:
 lisp/magit-git.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

[nongnu] elpa/magit-section updated (141dd46798 -> 4f4ad9c091)

[ELPA Syncer]

elpasync pushed a change to branch elpa/magit-section.

  from  141dd46798 diff: Make --diff-merges option available
  adds  6678d1ad95 magit-modified-files: Avoid duplicates
  adds  4f4ad9c091 magit-gitdir: Fix docstring typo

No new revisions were added by this update.

Summary of changes:
 lisp/magit-git.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

[nongnu] elpa/org-contrib updated (f327d4c8c9 -> 59e1a9d6e4)

[ELPA Syncer]

elpasync pushed a change to branch elpa/org-contrib.

  from  f327d4c8c9 * lisp/ol-git-link.el: Fix obsolete functions
   new  5eac8836f1 * lisp/ol-mew.el (org-mew-capture-guess-alist): Fix 
docstring format
   new  59e1a9d6e4 * lisp/ol-mew.el (org-mew-store-link): Do not use 
obsolete function names


Summary of changes:
 lisp/ol-mew.el | 13 +++--
 1 file changed, 7 insertions(+), 6 deletions(-)

[nongnu] elpa/org-contrib 5eac8836f1 1/2: * lisp/ol-mew.el (org-mew-capture-guess-alist): Fix docstring format

[ELPA Syncer]

branch: elpa/org-contrib
commit 5eac8836f1eadaac9c6a67032b065c08c8e9b323
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

* lisp/ol-mew.el (org-mew-capture-guess-alist): Fix docstring format
---
 lisp/ol-mew.el | 7 ---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/lisp/ol-mew.el b/lisp/ol-mew.el
index bae26857dc..adc77235eb 100644
--- a/lisp/ol-mew.el
+++ b/lisp/ol-mew.el
@@ -99,11 +99,12 @@ destination folders before capture."
   :type '(repeat string))
 
 (defcustom org-mew-capture-guess-alist nil
-  "Alist of the regular expression of the folder name and the capture
-template selection keys.
+  "Alist assigning folder name and the capture template key.
+
+The key in the alist is regular expression matching the folder name.
 
 For example,
-'((\"^%emacs-orgmode$\" . \"o\")
+\\='((\"^%emacs-orgmode$\" . \"o\")
   (\"\" . \"t\"))
 the messages in \"%emacs-orgmode\" folder will be captured with
 the capture template associated with \"o\" key, and any other

[nongnu] elpa/org-contrib 59e1a9d6e4 2/2: * lisp/ol-mew.el (org-mew-store-link): Do not use obsolete function names

[ELPA Syncer]

branch: elpa/org-contrib
commit 59e1a9d6e4317179eb0fad58066c51259ba8bcf9
Author: Ihor Radchenko 
Commit: Ihor Radchenko 

* lisp/ol-mew.el (org-mew-store-link): Do not use obsolete function names
---
 lisp/ol-mew.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lisp/ol-mew.el b/lisp/ol-mew.el
index adc77235eb..633ec451ea 100644
--- a/lisp/ol-mew.el
+++ b/lisp/ol-mew.el
@@ -170,12 +170,12 @@ with \"t\" key."
   (date (mew-header-get-value "Date:"))
   (subject (mew-header-get-value "Subject:"))
   desc link)
- (org-store-link-props :type "mew" :from from :to to :date date
+ (org-link-store-props :type "mew" :from from :to to :date date
:subject subject :message-id message-id)
  (setq message-id (org-unbracket-string "<" ">" message-id))
- (setq desc (org-email-link-description))
+ (setq desc (org-link-email-description))
  (setq link (concat "mew:" folder-name "#" message-id))
- (org-add-link-props :link link :description desc)
+ (org-link-add-props :link link :description desc)
  link)
 
 (defun org-mew-folder-name ()

[elpa] main f4191edb35: Fix Savannah URLs to use the Git server

[Stefan Monnier via]

branch: main
commit f4191edb35de76de2bed4ccfb7701b46d509397a
Author: Stefan Monnier 
Commit: Stefan Monnier 

Fix Savannah URLs to use the Git server

The .../r/... URLs are used for "raw" access (makes it possible
to read Git config files, for example), whereas we want to access
the Git server (so as to use the "smart protocol"), which is available
at the .../git/... URLs.
---
 elpa-packages | 8 
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/elpa-packages b/elpa-packages
index 44f8af5aae..45a534ce6e 100644
--- a/elpa-packages
+++ b/elpa-packages
@@ -193,7 +193,7 @@
  (dbus-codegen :url "https://github.com/ueno/dbus-codegen-el.git";
   :ignored-files ("COPYING"))
  (debbugs  :url nil :doc ("debbugs.texi" "debbugs-ug.texi"))
- (delight  :url "https://git.savannah.gnu.org/r/delight.git";)
+ (delight  :url "https://git.savannah.gnu.org/git/delight.git";)
  (denote   :url "https://git.sr.ht/~protesilaos/denote";
   :doc "README.org"
   :news "CHANGELOG.org"
@@ -353,7 +353,7 @@
   :merge t
   :ignored-files ("lv.el")
   :news "doc/Changelog.org")
- (hyperbole:url "https://git.savannah.gnu.org/r/hyperbole.git";
+ (hyperbole:url "https://git.savannah.gnu.org/git/hyperbole.git";
   :make ("kotl/kotl-autoloads.el")
   :news "HY-NEWS")
  (ilist:url "https://gitlab.com/mmemmew/ilist";
@@ -492,7 +492,7 @@
   :shell-command "make autoloads info; mv doc/org.info org.info; mv 
doc/orgguide.info orgguide.info"
   :doc ("org.info" "orgguide.info"))
  (org-contacts :url "https://repo.or.cz/org-contacts.git";)
- (org-edna :url "bzr::https://bzr.savannah.gnu.org/r/org-edna-el";
+ (org-edna :url "bzr::https://bzr.savannah.gnu.org/git/org-edna-el";
   ;; The Bzr<->Git bridge wasn't working well enough last time I tried.
   :manual-sync t)
  ;; FIXME: Waiting for copyright paperwork from Brandon Webster.
@@ -564,7 +564,7 @@
  ;; --index-filter "git read-tree --empty;  \
  ;; git reset \$GIT_COMMIT -- pspp-mode.el" \
  ;; -- -- pspp-mode.el
- (pspp-mode:url nil) ;; Was "https://git.sv.gnu.org/r/pspp.git";
+ (pspp-mode:url nil) ;; Was "https://git.sv.gnu.org/git/pspp.git";
  (pulsar   :url "https://git.sr.ht/~protesilaos/pulsar";
   :doc "README.org"
   :news "CHANGELOG.org"

[elpa] externals/consult 4b8f8a55e8: consult-org-heading: Change category to org-heading

[ELPA Syncer]

branch: externals/consult
commit 4b8f8a55e875f705925b954822127bfbc7045c82
Author: Daniel Mendler 
Commit: Daniel Mendler 

consult-org-heading: Change category to org-heading

See 
https://github.com/oantolin/embark/commit/d1069bb4e50d93843dc77226b3984342cc6e0945
---
 consult-org.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/consult-org.el b/consult-org.el
index 1880f54b19..971f25c3b7 100644
--- a/consult-org.el
+++ b/consult-org.el
@@ -105,7 +105,7 @@ buffer are offered."
(or (consult-org--headings prefix match scope)
(user-error "No headings")))
  :prompt "Go to heading: "
- :category 'org-remote-heading ;; Category for Embark support
+ :category 'org-heading
  :sort nil
  :require-match t
  :history '(:input consult-org--history)

[elpa] externals/denote 08c0deaa71: Make denote-rename-buffer-mode work with buffers, not just files

[ELPA Syncer]

branch: externals/denote
commit 08c0deaa71a741a983a0c7ea60f43730c4ac43f6
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Make denote-rename-buffer-mode work with buffers, not just files
---
 denote-rename-buffer.el | 1 -
 1 file changed, 1 deletion(-)

diff --git a/denote-rename-buffer.el b/denote-rename-buffer.el
index 7b911437b7..76011e45b7 100644
--- a/denote-rename-buffer.el
+++ b/denote-rename-buffer.el
@@ -58,7 +58,6 @@ value) for a reference implementation."
   "Determine if BUFFER shall be renamed.
 Return the file path and the type of it as a cons cell."
   (when-let* ((file (buffer-file-name buffer))
-  ((file-exists-p file))
   ((denote-file-has-identifier-p file))
   (type (denote-filetype-heuristics file)))
 (cons file type)))

[elpa] externals/embark ea2011e105 2/3: Typo

[ELPA Syncer]

branch: externals/embark
commit ea2011e105c79f2ae1c44dcaa4cb5f011fa19698
Author: Omar Antolín 
Commit: Omar Antolín 

Typo
---
 embark-org.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/embark-org.el b/embark-org.el
index 4b406ec8b3..dc96e7806d 100644
--- a/embark-org.el
+++ b/embark-org.el
@@ -571,7 +571,7 @@ REST are the remaining arguments."
 (let ((tail (memq 'embark-org-target-element-context embark-target-finders)))
   (cl-pushnew 'embark-org-target-agenda-item (cdr tail)))
 
-(cl-defun embark-org--at-org-heading
+(cl-defun embark-org--at-heading
 (&rest rest &key run target &allow-other-keys)
   "RUN the action at the location of the heading TARGET refers to.
 The location is given by the `org-marker' text property of

[elpa] externals/embark-consult updated (9bafe8f570 -> 8fbb20d189)

[ELPA Syncer]

elpasync pushed a change to branch externals/embark-consult.

  from  9bafe8f570 Add key binding for org-table-copy-down
  adds  d1069bb4e5 Unify the org-heading and org-remote-heading types
  adds  ea2011e105 Typo
  adds  8fbb20d189 Add embark-org-refile-here action

No new revisions were added by this update.

Summary of changes:
 embark-org.el | 74 ---
 1 file changed, 56 insertions(+), 18 deletions(-)

[elpa] externals/embark d1069bb4e5 1/3: Unify the org-heading and org-remote-heading types

[ELPA Syncer]

branch: externals/embark
commit d1069bb4e50d93843dc77226b3984342cc6e0945
Author: Omar Antolín 
Commit: Omar Antolín 

Unify the org-heading and org-remote-heading types

The only price of the unification is how ugly
embark-org-heading-default-action is. 🙃
---
 embark-org.el | 50 --
 1 file changed, 32 insertions(+), 18 deletions(-)

diff --git a/embark-org.el b/embark-org.el
index 7650980a21..4b406ec8b3 100644
--- a/embark-org.el
+++ b/embark-org.el
@@ -554,7 +554,11 @@ REST are the remaining arguments."
 
 (keymap-set embark-encode-map "o" 'embark-org-export-in-place-map)
 
-;;; Org remote headings, such as agenda items
+;;; References to Org headings, such as agenda items
+
+;; These are targets that represent an org heading but not in the
+;; current buffer, instead they have a text property named
+;; `org-marker' that points to the actual heading.
 
 (defun embark-org-target-agenda-item ()
   "Target Org agenda item at point."
@@ -562,16 +566,14 @@ REST are the remaining arguments."
  (get-text-property (line-beginning-position) 'org-marker))
 (let ((start (+ (line-beginning-position) (current-indentation)))
   (end (line-end-position)))
-  `(org-remote-heading ,(buffer-substring start end) ,start . ,end
+  `(org-heading ,(buffer-substring start end) ,start . ,end
 
 (let ((tail (memq 'embark-org-target-element-context embark-target-finders)))
   (cl-pushnew 'embark-org-target-agenda-item (cdr tail)))
 
-(add-to-list 'embark-keymap-alist '(org-remote-heading embark-org-heading-map))
-
-(cl-defun embark-org--at-remote-heading
+(cl-defun embark-org--at-org-heading
 (&rest rest &key run target &allow-other-keys)
-  "RUN the action at the location of the remote heading.
+  "RUN the action at the location of the heading TARGET refers to.
 The location is given by the `org-marker' text property of
 target.  Applies RUN to the REST of the arguments."
   (if-let ((marker (get-text-property 0 'org-marker target)))
@@ -579,38 +581,50 @@ target.  Applies RUN to the REST of the arguments."
 (apply run :target target rest))
 (apply run :target target rest)))
 
-(defun embark-org-goto-remote-heading (&rest args)
-  "Jump to org remote heading TARGET."
-  (when-let ((target (if (cdr args) (plist-get args :target) (car args)))
- (marker (get-text-property 0 'org-marker target)))
+(cl-defun embark-org-goto-heading (&key target &allow-other-keys)
+  "Jump to the org heading TARGET refers to."
+  (when-let ((marker (get-text-property 0 'org-marker target)))
 (pop-to-buffer (marker-buffer marker))
 (widen)
 (goto-char marker)
 (org-fold-reveal)
 (pulse-momentary-highlight-one-line)))
 
-(defconst embark-org--invisible-jump-to-remote-heading
+(defun embark-org-heading-default-action (target)
+  "Default action for Org headings.
+There are two types of heading targets: the heading at point in a
+normal org buffer, and references to org headings in some other
+buffer (for example, org agenda items). For references the
+default action is to jump to the reference, and for the heading
+at point, the default action is whatever is bound to RET in
+`embark-org-heading-map' or `org-todo' if RET is unbound."
+  (if (get-text-property 0 'org-marker target)
+  (embark-org-goto-heading :target target)
+(command-execute
+ (or (keymap-lookup embark-org-heading-map "RET") #'org-todo
+
+(defconst embark-org--invisible-jump-to-heading
   '(org-tree-to-indirect-buffer
 org-refile
 org-clock-in
 org-clock-out
 org-archive-subtree-default-with-confirmation
 org-store-link)
-  "Org remote heading actions for which we don't display the heading's 
buffer.")
+  "Org heading actions which won't display the heading's buffer.")
 
-(setf (alist-get 'org-remote-heading embark-default-action-overrides)
-  #'embark-org-goto-remote-heading)
+(setf (alist-get 'org-heading embark-default-action-overrides)
+  #'embark-org-heading-default-action)
 
 (map-keymap
  (lambda (_key cmd)
(unless (or (where-is-internal cmd (list embark-general-map))
-   (memq cmd embark-org--invisible-jump-to-remote-heading))
- (cl-pushnew 'embark-org-goto-remote-heading
+   (memq cmd embark-org--invisible-jump-to-heading))
+ (cl-pushnew 'embark-org-goto-heading
  (alist-get cmd embark-pre-action-hooks
  embark-org-heading-map)
 
-(dolist (cmd embark-org--invisible-jump-to-remote-heading)
-  (cl-pushnew 'embark-org--at-remote-heading
+(dolist (cmd embark-org--invisible-jump-to-heading)
+  (cl-pushnew 'embark-org--at-heading
   (alist-get cmd embark-around-action-hooks)))
 
 (provide 'embark-org)

[elpa] externals/embark updated (9bafe8f570 -> 8fbb20d189)

[ELPA Syncer]

elpasync pushed a change to branch externals/embark.

  from  9bafe8f570 Add key binding for org-table-copy-down
   new  d1069bb4e5 Unify the org-heading and org-remote-heading types
   new  ea2011e105 Typo
   new  8fbb20d189 Add embark-org-refile-here action


Summary of changes:
 embark-org.el | 74 ---
 1 file changed, 56 insertions(+), 18 deletions(-)

[elpa] externals/embark 8fbb20d189 3/3: Add embark-org-refile-here action

[ELPA Syncer]

branch: externals/embark
commit 8fbb20d18938669231d7edaf81d31c9378bb20b2
Author: Omar Antolín 
Commit: Omar Antolín 

Add embark-org-refile-here action
---
 embark-org.el | 24 
 1 file changed, 24 insertions(+)

diff --git a/embark-org.el b/embark-org.el
index dc96e7806d..fa901f552e 100644
--- a/embark-org.el
+++ b/embark-org.el
@@ -382,6 +382,7 @@ bound to i."
   "" #'org-do-demote
   "^" #'org-sort
   "r" #'org-refile
+  "R" #'embark-org-refile-here
   "I" #'org-clock-in
   "O" #'org-clock-out
   "a" #'org-archive-subtree-default-with-confirmation
@@ -627,5 +628,28 @@ at point, the default action is whatever is bound to RET in
   (cl-pushnew 'embark-org--at-heading
   (alist-get cmd embark-around-action-hooks)))
 
+(defun embark-org-refile-here (target)
+  "Refile the heading at point to TARGET."
+  (if-let ((marker (get-text-property 0 'org-marker target)))
+  (with-selected-window
+  (or (and (derived-mode-p 'org-agenda-mode)
+   (let ((window (ignore-errors (other-window-for-scrolling
+ (with-current-buffer (window-buffer window)
+   (when (derived-mode-p 'org-mode) window
+  (selected-window))
+(org-refile nil nil
+;; The RFLOC argument:
+(list
+ ;; Name
+ (org-with-point-at marker
+   (nth 4 (org-heading-components)))
+ ;; File
+ (buffer-file-name (marker-buffer marker))
+ ;; nil
+ nil
+ ;; Position
+ marker)))
+(user-error "The target is an org heading rather than a reference to 
one")))
+
 (provide 'embark-org)
 ;;; embark-org.el ends here

[elpa] externals/ement 8363bfcdc2 4/4: Add: (ement--savehist-save-hook) Workaround for savehist-mode

[ELPA Syncer]

branch: externals/ement
commit 8363bfcdc29468b6e618e38ef880c4cc051da57d
Author: Adam Porter 
Commit: Adam Porter 

Add: (ement--savehist-save-hook) Workaround for savehist-mode

Fixes #216.

Reported-by: Phil Sainty 
---
 README.org |  1 +
 ement.el   | 20 
 2 files changed, 21 insertions(+)

diff --git a/README.org b/README.org
index 207697bd06..3531bff6d9 100644
--- a/README.org
+++ b/README.org
@@ -313,6 +313,7 @@ Ement.el doesn't support encrypted rooms natively, but it 
can be used transparen
 + File event formatter assumed that file size metadata would be present (a 
malformed, e.g. spam, event might not have it).
 + Send correct file size when sending files/images.
 + Underscores are no longer interpreted as denoting subscripts when sending 
messages in Org format.  (Thanks to [[https://github.com/phil-s][Phil Sainty]].)
++ Add workaround for ~savehist-mode~'s serializing of the ~command-history~ 
variable's arguments.  (For ~ement-~ commands, that may include large data 
structures, like ~ement-session~ structs, which should never be serialized or 
reused, and ~savehist~'s doing so could cause noticeable delays for users who 
enabled it).  (See [[https://github.com/alphapapa/ement.el/issues/216][#216]].  
Thanks to [[https://github.com/phil-s][Phil Sainty]] and other users who helped 
to discover this problem.)
 
 ** 0.11
 
diff --git a/ement.el b/ement.el
index 8eb9187ca2..1baa9984e6 100644
--- a/ement.el
+++ b/ement.el
@@ -1063,6 +1063,26 @@ To be called after initial sync."
 (when-let ((child-room (cl-find child-id rooms :key 
#'ement-room-id :test #'equal)))
   (cl-pushnew parent-id (alist-get 'parents (ement-room-local 
child-room)) :test #'equal
 
+; Savehist compatibility
+
+;; See .
+
+(defvar savehist-save-hook)
+
+(with-eval-after-load 'savehist
+  ;; TODO: Consider using a symbol property on our commands and checking that 
rather than
+  ;; symbol names; would avoid consing.
+  (defun ement--savehist-save-hook ()
+"Remove all `ement-' commands from `command-history'.
+Because when `savehist' saves `command-history', it includes the
+interactive arguments passed to the command, which in our case
+includes large data structures that should never be persisted!"
+(setf command-history
+  (cl-remove-if (pcase-lambda (`(,command . ,_))
+  (string-match-p (rx bos "ement-") (symbol-name 
command)))
+command-history)))
+  (cl-pushnew 'ement--savehist-save-hook savehist-save-hook))
+
  Footer
 
 (provide 'ement)

[elpa] externals/ement ea6e577ea4 1/4: Fix: (ement-room-send-org-filter) Prevent subscripts

[ELPA Syncer]

branch: externals/ement
commit ea6e577ea48ac369850bb2064383e4c60d4aeaff
Author: Adam Porter 
Commit: Adam Porter 

Fix: (ement-room-send-org-filter) Prevent subscripts

Fixes #217.

Suggested-by: Phil Sainty 
---
 README.org| 1 +
 ement-room.el | 2 ++
 2 files changed, 3 insertions(+)

diff --git a/README.org b/README.org
index 5a1f0d8ac6..207697bd06 100644
--- a/README.org
+++ b/README.org
@@ -312,6 +312,7 @@ Ement.el doesn't support encrypted rooms natively, but it 
can be used transparen
 
 + File event formatter assumed that file size metadata would be present (a 
malformed, e.g. spam, event might not have it).
 + Send correct file size when sending files/images.
++ Underscores are no longer interpreted as denoting subscripts when sending 
messages in Org format.  (Thanks to [[https://github.com/phil-s][Phil Sainty]].)
 
 ** 0.11
 
diff --git a/ement-room.el b/ement-room.el
index 97269d068d..1dbf8bf723 100644
--- a/ement-room.el
+++ b/ement-room.el
@@ -4267,6 +4267,7 @@ Then invalidate EVENT's node to show the image."
 (defvar org-export-with-toc)
 (defvar org-export-with-broken-links)
 (defvar org-export-with-section-numbers)
+(defvar org-export-with-sub-superscripts)
 (defvar org-html-inline-images)
 
 (declare-function org-element-property "org-element")
@@ -4314,6 +4315,7 @@ compatibility), and the result is added to the CONTENT as
   (let ((org-export-with-toc nil)
 (org-export-with-broken-links t)
 (org-export-with-section-numbers nil)
+(org-export-with-sub-superscripts nil)
 (org-html-inline-images nil))
 (org-html-export-as-html nil nil nil 'body-only)))
 (with-current-buffer "*Org HTML Export*"

[elpa] externals/ement 358b125c41 3/4: Fix: Scroll commands in mentions buffer

[ELPA Syncer]

branch: externals/ement
commit 358b125c415ab50331033ebec258282c31363d86
Author: Adam Porter 
Commit: Adam Porter 

Fix: Scroll commands in mentions buffer

Fixes #215.

Reported-by: Phil Sainty 
---
 ement-notify.el | 8 +++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/ement-notify.el b/ement-notify.el
index 54375d5e83..173a173a82 100644
--- a/ement-notify.el
+++ b/ement-notify.el
@@ -173,11 +173,17 @@ margins in Emacs.  But it's useful, anyway."
   (interactive)
   (call-interactively #'ement-notifications))
 
+(defvar ement-notifications-mode-map)
 (defun ement-notify-switch-to-mentions-buffer ()
   "Switch to \"*Ement Mentions*\" buffer."
   (declare (function ement-notifications--log-buffer "ement-notifications"))
   (interactive)
-  (switch-to-buffer (ement-notifications--log-buffer :name "*Ement 
Mentions*")))
+  (switch-to-buffer (ement-notifications--log-buffer :name "*Ement Mentions*"))
+  ;; HACK: Undo remapping of scroll commands which don't apply in this buffer.
+  (let ((map (copy-keymap ement-notifications-mode-map)))
+(define-key map [remap scroll-down-command] nil)
+(define-key map [remap mwheel-scroll] nil)
+(use-local-map map)))
 
  Functions
 

[elpa] externals/ement 20f6982182 2/4: Fix: (ement-notifications-log-to-buffer) Use save-mark-and-excursion

[ELPA Syncer]

branch: externals/ement
commit 20f6982182f341d4eaa330fd2621ca6651aef56d
Author: Adam Porter 
Commit: Adam Porter 

Fix: (ement-notifications-log-to-buffer) Use save-mark-and-excursion

Fixes #218.

Reported-by: Phil Sainty 
---
 ement-notifications.el | 67 +-
 1 file changed, 34 insertions(+), 33 deletions(-)

diff --git a/ement-notifications.el b/ement-notifications.el
index 9be6a82969..40cf7e5bb2 100644
--- a/ement-notifications.el
+++ b/ement-notifications.el
@@ -185,39 +185,40 @@ to `ement-api', which see."
   ;; Select the buffer's window to avoid EWOC bug.  (See #191.)
   (select-window buffer-window))
 ;; TODO: Use the :readp slot to mark unread events.
-(pcase-let* (((cl-struct ement-notification room-id event) 
notification)
- (ement-session session)
- (ement-room (or (cl-find room-id (ement-session-rooms 
session)
-  :key #'ement-room-id :test 
#'equal)
- (error 
"ement-notifications-log-to-buffer: Can't find room <%s>; discarding 
notification" room-id)))
- (ement-room-sender-in-left-margin nil)
- (ement-room-message-format-spec "%o%O »%W %S> %B%R%t")
- (new-node (ement-room--insert-event event))
- (inhibit-read-only t)
- (start) (end))
-  (ewoc-goto-node ement-ewoc new-node)
-  (setf start (point))
-  (if-let (next-node (ewoc-next ement-ewoc new-node))
-  (ewoc-goto-node ement-ewoc next-node)
-(goto-char (point-max)))
-  (setf end (- (point) 2))
-  (add-text-properties start end
-   (list 'button '(t)
- 'category 'default-button
- 'action #'ement-notify-button-action
- 'session session
- 'room ement-room
- 'event event))
-  ;; Remove button face property.
-  (alter-text-property start end 'face
-   (lambda (face)
- (pcase face
-   ('button nil)
-   ((pred listp) (remq 'button face))
-   (_ face
-  (when ement-notify-prism-background
-(add-face-text-property start end (list :background 
(ement-notifications--room-background-color ement-room)
-:extend t
+(save-mark-and-excursion
+  (pcase-let* (((cl-struct ement-notification room-id event) 
notification)
+   (ement-session session)
+   (ement-room (or (cl-find room-id (ement-session-rooms 
session)
+:key #'ement-room-id :test 
#'equal)
+   (error 
"ement-notifications-log-to-buffer: Can't find room <%s>; discarding 
notification" room-id)))
+   (ement-room-sender-in-left-margin nil)
+   (ement-room-message-format-spec "%o%O »%W %S> %B%R%t")
+   (new-node (ement-room--insert-event event))
+   (inhibit-read-only t)
+   (start) (end))
+(ewoc-goto-node ement-ewoc new-node)
+(setf start (point))
+(if-let (next-node (ewoc-next ement-ewoc new-node))
+(ewoc-goto-node ement-ewoc next-node)
+  (goto-char (point-max)))
+(setf end (- (point) 2))
+(add-text-properties start end
+ (list 'button '(t)
+   'category 'default-button
+   'action #'ement-notify-button-action
+   'session session
+   'room ement-room
+   'event event))
+;; Remove button face property.
+(alter-text-property start end 'face
+ (lambda (face)
+   (pcase face
+ ('button nil)
+ ((pred listp) (remq 'button face))
+ (_ face
+(when ement-notify-prism-background
+  (add-face-text-property start end (list :background 
(ement-notifications--room-background-color ement-room)
+  :extend t)
 
 (defun ement-notifications--room-background-color (room)
   "Return a background color on which to display ROOM's messages."

[elpa] externals/ement updated (726e81f114 -> 8363bfcdc2)

[ELPA Syncer]

elpasync pushed a change to branch externals/ement.

  from  726e81f114 Docs: Tidy changelog
   new  ea6e577ea4 Fix: (ement-room-send-org-filter) Prevent subscripts
   new  20f6982182 Fix: (ement-notifications-log-to-buffer) Use 
save-mark-and-excursion
   new  358b125c41 Fix: Scroll commands in mentions buffer
   new  8363bfcdc2 Add: (ement--savehist-save-hook) Workaround for 
savehist-mode


Summary of changes:
 README.org |  2 ++
 ement-notifications.el | 67 +-
 ement-notify.el|  8 +-
 ement-room.el  |  2 ++
 ement.el   | 20 +++
 5 files changed, 65 insertions(+), 34 deletions(-)

[nongnu] elpa/eat 7bff1c4974 1/2: * eat.el (eat-mode): Escape '%' character in title

[ELPA Syncer]

branch: elpa/eat
commit 7bff1c4974d5d9a1e84c2ad1c640e141e247ad13
Author: Illia Ostapyshyn 
Commit: Akib Azmain Turja 

* eat.el (eat-mode): Escape '%' character in title
---
 eat.el  | 9 +
 integration/zsh | 2 +-
 2 files changed, 6 insertions(+), 5 deletions(-)

diff --git a/eat.el b/eat.el
index bdf296d9c7..cf7ff84a69 100644
--- a/eat.el
+++ b/eat.el
@@ -6253,10 +6253,11 @@ mouse-3: Switch to char mode"
 '(" "
   (:propertize
(:eval
-(when (and eat--terminal
-   (not (string-empty-p (eat-term-title
- eat--terminal
-  (format "(%s)" (eat-term-title eat--terminal
+(when-let* (((eat--terminal))
+(title (eat-term-title eat--terminal))
+((not (string-empty-p title
+  (format "(%s)" (string-replace "%" "%%"
+ title
help-echo "Title"))
   (eat-emacs-mode)
   ;; Make sure glyphless character don't display a huge box glyph,
diff --git a/integration/zsh b/integration/zsh
index 1fb4d79060..66ea0e6f16 100644
--- a/integration/zsh
+++ b/integration/zsh
@@ -30,7 +30,7 @@ __eat_precmd () {
  "$(printf "%s" "$PWD" | base64)"
   # Update title.
   # "${PWD/$HOME/'~'}" converts "/home/akib/org/" to "~/org/".
-  # The next one is substituted with '$', or '#' if we're "root".
+  # The next one is substituted with '%', or '#' if we're "root".
   printf '\e]2;%s@%s:%s%s\e\\' "$USER" "$HOST" "${PWD/$HOME/~}" \
  "$(test $UID -eq 0 && echo '#' || echo '%')"
 }

[nongnu] elpa/eat dd2a176820 2/2: * eat.el (eat-prompt-newline): Make ring if needed

[ELPA Syncer]

branch: elpa/eat
commit dd2a176820b5003303d575f84c11b008e8fb44d4
Author: Akib Azmain Turja 
Commit: Akib Azmain Turja 

* eat.el (eat-prompt-newline): Make ring if needed
---
 eat.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/eat.el b/eat.el
index cf7ff84a69..2b67ea9193 100644
--- a/eat.el
+++ b/eat.el
@@ -5798,6 +5798,9 @@ MODE should one of:
   (if (not (<= (eat-term-end eat--terminal) (point)))
   (call-interactively #'newline)
 (unless (= (eat-term-end eat--terminal) (point-max))
+  (unless eat--prompt-input-ring
+(setq eat--prompt-input-ring
+  (make-ring eat-prompt-input-ring-size)))
   (ring-insert eat--prompt-input-ring
(buffer-substring-no-properties
 (eat-term-end eat--terminal) (point-max

[nongnu] elpa/eat updated (ccfccf016b -> dd2a176820)

[ELPA Syncer]

elpasync pushed a change to branch elpa/eat.

  from  ccfccf016b Fix recursive output processing
   new  7bff1c4974 * eat.el (eat-mode): Escape '%' character in title
   new  dd2a176820 * eat.el (eat-prompt-newline): Make ring if needed


Summary of changes:
 eat.el  | 12 
 integration/zsh |  2 +-
 2 files changed, 9 insertions(+), 5 deletions(-)

[nongnu] elpa/helm 880d8a76d7 2/3: Update docstring

[ELPA Syncer]

branch: elpa/helm
commit 880d8a76d73f3df1364208e2a195185f6fa4c7ad
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Update docstring
---
 helm-elisp.el | 12 +++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/helm-elisp.el b/helm-elisp.el
index b7ca0d65f8..801d13ef2c 100644
--- a/helm-elisp.el
+++ b/helm-elisp.el
@@ -913,7 +913,17 @@ a string, i.e. the `symbol-name' of any existing symbol."
 
 ;;;###autoload
 (defun helm-locate-library ()
-  "Preconfigured helm to locate elisp libraries."
+  "Preconfigured helm to locate elisp libraries.
+
+When `completions-detailed' or `helm-completions-detailed' is non nil, a 
description
+of libraries is provided. The libraries are partially cached in the variables
+`helm--locate-library-doc-cache' and `helm--locate-library-cache'.
+TIP: You can make these vars persistent for faster start with the psession
+package, using M-x psession-make-persistent-variable.
+NOTE: The caches affect as well `find-libray' and `locate-library' when
+`helm-mode' is enabled and `completions-detailed' is non nil.
+There is no need to refresh the caches, they will be updated automatically if
+some new libraries are found."
   (interactive)
   (message "Please wait, scanning libraries...")
   (helm :sources

[nongnu] elpa/helm updated (d093dae2b0 -> 9a5827284a)

[ELPA Syncer]

elpasync pushed a change to branch elpa/helm.

  from  d093dae2b0 Fix startup message in helm-locate-library
   new  8a0e01d56d Allow always using cl--print-table advice if specified 
by user globally
   new  880d8a76d7 Update docstring
   new  9a5827284a Fix typo in helm-locate-lib-get-summary regexp


Summary of changes:
 helm-elisp.el | 12 +++-
 helm-lib.el   | 19 +++
 2 files changed, 22 insertions(+), 9 deletions(-)

[nongnu] elpa/helm 8a0e01d56d 1/3: Allow always using cl--print-table advice if specified by user globally

[ELPA Syncer]

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

Allow always using cl--print-table advice if specified by user globally

Otherwise as before if the advice is not
enabled externally it is removed when helm exit.
---
 helm-lib.el | 17 ++---
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/helm-lib.el b/helm-lib.el
index 70df22089c..02569a43f2 100644
--- a/helm-lib.el
+++ b/helm-lib.el
@@ -1291,13 +1291,16 @@ differently depending of answer:
 
 (defun helm-describe-class (class)
   "Display documentation of Eieio CLASS, a symbol or a string."
-  (advice-add 'cl--print-table :override #'helm-source--cl--print-table 
'((depth . 100)))
-  (unwind-protect
-   (if (fboundp 'cl-describe-type)
-   (cl-describe-type (helm-symbolify class))
- (let ((helm-describe-function-function 'describe-function))
-   (helm-describe-function (helm-symbolify class
-(advice-remove 'cl--print-table #'helm-source--cl--print-table)))
+  (let ((advicep (advice-member-p #'helm-source--cl--print-table 
'cl--print-table)))
+(unless advicep
+  (advice-add 'cl--print-table :override #'helm-source--cl--print-table 
'((depth . 100
+(unwind-protect
+ (if (fboundp 'cl-describe-type)
+ (cl-describe-type (helm-symbolify class))
+   (let ((helm-describe-function-function 'describe-function))
+ (helm-describe-function (helm-symbolify class
+  (unless advicep
+(advice-remove 'cl--print-table #'helm-source--cl--print-table)
 
 (defun helm-describe-function (func)
   "Display documentation of FUNC, a symbol or string."

[nongnu] elpa/helm 9a5827284a 3/3: Fix typo in helm-locate-lib-get-summary regexp

[ELPA Syncer]

branch: elpa/helm
commit 9a5827284a63453156511b935de39180f4f52d31
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Fix typo in helm-locate-lib-get-summary regexp
---
 helm-lib.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/helm-lib.el b/helm-lib.el
index 02569a43f2..6e41afa353 100644
--- a/helm-lib.el
+++ b/helm-lib.el
@@ -1735,7 +1735,7 @@ Directories expansion is not supported."
   (with-temp-buffer
 (call-process-shell-command 
  (format cmd
- (if (string-match-p ".gz\\'" file)
+ (if (string-match-p "\\.gz\\'" file)
  "gzip -c -q -d" "cat")
  (shell-quote-argument file)
  regexp)

[nongnu] elpa/helm-core updated (d093dae2b0 -> 9a5827284a)

[ELPA Syncer]

elpasync pushed a change to branch elpa/helm-core.

  from  d093dae2b0 Fix startup message in helm-locate-library
  adds  8a0e01d56d Allow always using cl--print-table advice if specified 
by user globally
  adds  880d8a76d7 Update docstring
  adds  9a5827284a Fix typo in helm-locate-lib-get-summary regexp

No new revisions were added by this update.

Summary of changes:
 helm-elisp.el | 12 +++-
 helm-lib.el   | 19 +++
 2 files changed, 22 insertions(+), 9 deletions(-)

[elpa] externals/inspector c2670a259d 1/3: Only locally bind `revert-buffer-function'

[ELPA Syncer]

branch: externals/inspector
commit c2670a259d43d75eae9e0e5dd794ed6feee962fa
Author: Vincent Ambo 
Commit: Vincent Ambo 

Only locally bind `revert-buffer-function'

Setting this variable globally causes #'revert-file to stop working. I
got very confused by this, as Emacs was prompting me about a file I
was editing having changed on disk, but me being unable to reload it.

Note that this is *not* required for the following line because that
variable automatically becomes buffer-local when set.
---
 inspector.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/inspector.el b/inspector.el
index 6e36c4a034..fcf194d5c6 100644
--- a/inspector.el
+++ b/inspector.el
@@ -780,7 +780,7 @@ is expected to be used.")
   buf
 (with-current-buffer buffer
   (add-hook 'xref-backend-functions 'elisp--xref-backend 0 'local)
-  (setq revert-buffer-function #'inspector--revert-buffer)
+  (setq-local revert-buffer-function #'inspector--revert-buffer)
   (setq buffer-read-only nil)
   (erase-buffer))
 buffer))

[elpa] externals/inspector 702d3da5d9 2/3: Merge pull request #29 from tazjin/local-revert-buffer-function

[ELPA Syncer]

branch: externals/inspector
commit 702d3da5d9e5875e7ba3ee8dba2c13690909ef99
Merge: daff792202 c2670a259d
Author: Mariano Montone 
Commit: GitHub 

Merge pull request #29 from tazjin/local-revert-buffer-function

Only locally bind `revert-buffer-function'
---
 inspector.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/inspector.el b/inspector.el
index 6e36c4a034..fcf194d5c6 100644
--- a/inspector.el
+++ b/inspector.el
@@ -780,7 +780,7 @@ is expected to be used.")
   buf
 (with-current-buffer buffer
   (add-hook 'xref-backend-functions 'elisp--xref-backend 0 'local)
-  (setq revert-buffer-function #'inspector--revert-buffer)
+  (setq-local revert-buffer-function #'inspector--revert-buffer)
   (setq buffer-read-only nil)
   (erase-buffer))
 buffer))

[elpa] externals/inspector 430329ab99 3/3: Release 0.34 after fix.

[ELPA Syncer]

branch: externals/inspector
commit 430329ab99317c3d28b592f8d1ff7b07bdce332d
Author: Mariano Montone 
Commit: Mariano Montone 

Release 0.34 after fix.
---
 inspector.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/inspector.el b/inspector.el
index fcf194d5c6..abbcd4876d 100644
--- a/inspector.el
+++ b/inspector.el
@@ -5,7 +5,7 @@
 ;; Author: Mariano Montone 
 ;; URL: https://github.com/mmontone/emacs-inspector
 ;; Keywords: debugging, tool, lisp, development
-;; Version: 0.33
+;; Version: 0.34
 ;; Package-Requires: ((emacs "27.1"))
 
 ;; This program is free software; you can redistribute it and/or modify

[elpa] externals/inspector updated (daff792202 -> 430329ab99)

[ELPA Syncer]

elpasync pushed a change to branch externals/inspector.

  from  daff792202 Package version 0.33
   new  c2670a259d Only locally bind `revert-buffer-function'
   new  702d3da5d9 Merge pull request #29 from 
tazjin/local-revert-buffer-function
   new  430329ab99 Release 0.34 after fix.


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

[elpa] externals-release/ement b88e303b34 1/3: Tidy: Indentation of cl-labels forms

[ELPA Syncer]

branch: externals-release/ement
commit b88e303b348a30af23d63f4d820780df55570913
Author: Adam Porter 
Commit: Adam Porter 

Tidy: Indentation of cl-labels forms

Developing on Emacs 29.1 now, so now makem.sh's lint-indent rule will
run clean.
---
 ement-directory.el |  40 ++---
 ement-lib.el   | 450 ++---
 ement-notify.el|  14 +-
 ement-room-list.el | 136 
 ement.el   | 290 +-
 5 files changed, 462 insertions(+), 468 deletions(-)

diff --git a/ement-directory.el b/ement-directory.el
index 4f61d2c684..5a7b5968be 100644
--- a/ement-directory.el
+++ b/ement-directory.el
@@ -296,31 +296,31 @@ APPEND-P, add ROOMS to buffer rather than replacing 
existing
 contents.  To be called by `ement-directory-search'."
   (declare (indent defun))
   (let (column-sizes window-start)
-(cl-labels ((format-item
- ;; NOTE: We use the buffer-local variable 
`ement-directory-etc' rather
- ;; than a closure variable because the taxy-magit-section 
struct's format
- ;; table is not stored in it, and we can't reuse closures' 
variables.
- ;; (It would be good to store the format table in the 
taxy-magit-section
- ;; in the future, to make this cleaner.)
- (item) (gethash item (alist-get 'format-table 
ement-directory-etc)))
+(cl-labels ((format-item (item)
+  ;; NOTE: We use the buffer-local variable 
`ement-directory-etc' rather
+  ;; than a closure variable because the taxy-magit-section 
struct's format
+  ;; table is not stored in it, and we can't reuse closures' 
variables.
+  ;; (It would be good to store the format table in the 
taxy-magit-section
+  ;; in the future, to make this cleaner.)
+  (gethash item (alist-get 'format-table ement-directory-etc)))
 ;; NOTE: Since these functions take an "item" (which is a 
[room session]
 ;; vector), they're prefixed "item-" rather than "room-".
-(size
- (item) (pcase-let (((map ('num_joined_members size)) item))
-  size))
+(size (item)
+  (pcase-let (((map ('num_joined_members size)) item))
+size))
 (tnil (a b) (and (not a) b))
 (make-fn (&rest args)
- (apply #'make-taxy-magit-section
-:make #'make-fn
-:format-fn #'format-item
-;; FIXME: Should we reuse 
`ement-room-list-level-indent' here?
-:level-indent ement-room-list-level-indent
-;; :visibility-fn #'visible-p
-;; :heading-indent 2
-:item-indent 2
-;; :heading-face-fn #'heading-face
-args)))
+  (apply #'make-taxy-magit-section
+ :make #'make-fn
+ :format-fn #'format-item
+ ;; FIXME: Should we reuse 
`ement-room-list-level-indent' here?
+ :level-indent ement-room-list-level-indent
+ ;; :visibility-fn #'visible-p
+ ;; :heading-indent 2
+ :item-indent 2
+ ;; :heading-face-fn #'heading-face
+ args)))
   (with-current-buffer (get-buffer-create buffer-name)
 (unless (eq 'ement-directory-mode major-mode)
   ;; Don't obliterate buffer-local variables.
diff --git a/ement-lib.el b/ement-lib.el
index 9b040fcf12..bf9d7b733b 100644
--- a/ement-lib.el
+++ b/ement-lib.el
@@ -172,8 +172,7 @@ include with the request (see Matrix spec)."
 :alias (read-string "New room alias (e.g. \"foo\" for 
\"#foo:matrix.org\"): ")
 :topic (read-string "New room topic: ")
 :visibility (completing-read "New room visibility: " 
'(private public
-  (cl-labels ((given-p
-  (var) (and var (not (string-empty-p var)
+  (cl-labels ((given-p (var) (and var (not (string-empty-p var)
 (pcase-let* ((endpoint "createRoom")
 (data (ement-aprog1
   (ement-alist "visibility" visibility)
@@ -419,14 +418,14 @@ new one automatically if necessary."
(ement-with-room-and-session
  (let* ((prompt (format "Toggle tag (%s): " (ement--format-room 
ement-room)))
 (default-tags
-  (ement-alist (propertize "Favourite"
-   'face (when (ement--room-tagged-p 
"m.favourite" ement-room)
-   'transient-value))
-   

[elpa] externals/ement updated (8363bfcdc2 -> 2bfabafea6)

[ELPA Syncer]

elpasync pushed a change to branch externals/ement.

  from  8363bfcdc2 Add: (ement--savehist-save-hook) Workaround for 
savehist-mode
   new  b88e303b34 Tidy: Indentation of cl-labels forms
   new  a4fc3d1ab6 Release: v0.12
   new  2bfabafea6 Meta: v0.13-pre


Summary of changes:
 README.org |   6 +-
 ement-directory.el |  40 ++---
 ement-lib.el   | 450 ++---
 ement-notify.el|  14 +-
 ement-room-list.el | 136 
 ement.el   | 292 +-
 6 files changed, 468 insertions(+), 470 deletions(-)

[elpa] externals-release/ement updated (d2b7a84840 -> 4120ad90ca)

[ELPA Syncer]

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

  from  d2b7a84840 Release: v0.11
  adds  b5e362660d Meta: v0.12-pre
  adds  eefda9ca5e Comment: Add TODO
  adds  0c94dcc3e4 Add: ement-room-quote face
  adds  82f1186468 Tidy: Indentation
  adds  2435d03c03 Fix: (ement-room--format-m.file) Don't assume size is 
present
  adds  fbf40d66ed Add/Change: Use separate history lists for reading from 
minibuffer
  adds  f2b5831c4c Add/Change: History lists for user IDs in ement-connect
  adds  a3e05a7cff Fix: (ement-room-send-file) File size
  adds  a3aad83fe0 Meta: Update copyright years
  adds  9da7b8e085 Meta: Add bug report template
  adds  c6331a2f72 Add: (ement-notifications)
  adds  46afa1f5a1 Change: Integrate ement-notify and ement-notifications, 
and retro-load
  adds  4f7ef5d039 Tidy: Compiler warning
  adds  36db1869dd Change/Fix
  adds  a83ab5c49f Fix
  adds  cca407f549 Tidy: Compiler warnings
  adds  386103cc74 Fix
  adds  83b4c64c5c Change: Use switch-to-buffer
  adds  075920edac Comment: Add TODO
  adds  71e628b820 Comment: Remove FIXME
  adds  02f61e57e8 Comment: Improve commentary
  adds  1d8afe6fdf Docs: Update changelog
  adds  fd1a65794d Merge: (ement-notifications)
  adds  6508b6847e Add/Change: Don't apply body face to quoted parts
  adds  d10ac0aaa9 Change: (ement-room-mode-map) A few bindings
  adds  8aea26acef Add/Change: (ement--json-parse-buffer) Use Jansson 
functions
  adds  c9183c0028 Comment: Add FIXME
  adds  44192614e3 Change/Fix: (ement--json-parse-buffer) Fall back to 
json-read
  adds  15a07bd9c7 Change: (ement-room-define-event-formatter) Add debug 
form
  adds  ba9af3a7a2 Tidy: Docstring
  adds  06320332c0 Add/Fix: Detection of end of quoted part
  adds  52fc8a42de Change: (defface ement-room-quote) Inherit 
font-lock-comment-face
  adds  0941ff6f0e Change: (ement-room-goto-next/prev) Make more useful
  adds  726e81f114 Docs: Tidy changelog
  adds  ea6e577ea4 Fix: (ement-room-send-org-filter) Prevent subscripts
  adds  20f6982182 Fix: (ement-notifications-log-to-buffer) Use 
save-mark-and-excursion
  adds  358b125c41 Fix: Scroll commands in mentions buffer
  adds  8363bfcdc2 Add: (ement--savehist-save-hook) Workaround for 
savehist-mode
   new  b88e303b34 Tidy: Indentation of cl-labels forms
   new  a4fc3d1ab6 Release: v0.12
   new  4120ad90ca Merge: v0.12


Summary of changes:
 .github/ISSUE_TEMPLATE/bug_report.yml |  71 +
 .github/ISSUE_TEMPLATE/config.yml |   1 +
 README.org|  29 +-
 ement-api.el  |   2 +-
 ement-directory.el|  42 +--
 ement-lib.el  | 487 --
 ement-macros.el   |   2 +-
 ement-notifications.el| 272 +
 ement-notify.el   | 100 ++-
 ement-room-list.el| 138 -
 ement-room.el | 539 +++---
 ement-structs.el  |   2 +-
 ement-tabulated-room-list.el  |   2 +-
 ement.el  | 328 +++--
 14 files changed, 1220 insertions(+), 795 deletions(-)
 create mode 100644 .github/ISSUE_TEMPLATE/bug_report.yml
 create mode 100644 .github/ISSUE_TEMPLATE/config.yml
 create mode 100644 ement-notifications.el

[elpa] externals-release/ement a4fc3d1ab6 2/3: Release: v0.12

[ELPA Syncer]

branch: externals-release/ement
commit a4fc3d1ab6df424bc1296b8ca480a8c55c542dc2
Author: Adam Porter 
Commit: Adam Porter 

Release: v0.12
---
 README.org | 2 +-
 ement.el   | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/README.org b/README.org
index 3531bff6d9..d701d948ff 100644
--- a/README.org
+++ b/README.org
@@ -292,7 +292,7 @@ Ement.el doesn't support encrypted rooms natively, but it 
can be used transparen
 :TOC:  :depth 0
 :END:
 
-** 0.12-pre
+** 0.12
 
 *Additions*
 
diff --git a/ement.el b/ement.el
index a4913919cd..0ad01a8078 100644
--- a/ement.el
+++ b/ement.el
@@ -5,7 +5,7 @@
 ;; Author: Adam Porter 
 ;; Maintainer: Adam Porter 
 ;; URL: https://github.com/alphapapa/ement.el
-;; Version: 0.12-pre
+;; Version: 0.12
 ;; Package-Requires: ((emacs "27.1") (map "2.1") (persist "0.5") (plz "0.6") 
(taxy "0.10") (taxy-magit-section "0.12.1") (svg-lib "0.2.5") (transient 
"0.3.7"))
 ;; Keywords: comm
 

[elpa] externals/ement 2bfabafea6: Meta: v0.13-pre

[ELPA Syncer]

branch: externals/ement
commit 2bfabafea626d9ca594ea2fb85f6a31debdf3a8c
Author: Adam Porter 
Commit: Adam Porter 

Meta: v0.13-pre
---
 README.org | 4 
 ement.el   | 2 +-
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/README.org b/README.org
index d701d948ff..da7bab9fff 100644
--- a/README.org
+++ b/README.org
@@ -292,6 +292,10 @@ Ement.el doesn't support encrypted rooms natively, but it 
can be used transparen
 :TOC:  :depth 0
 :END:
 
+** 0.13-pre
+
+Nothing new yet.
+
 ** 0.12
 
 *Additions*
diff --git a/ement.el b/ement.el
index 0ad01a8078..f36ce2f898 100644
--- a/ement.el
+++ b/ement.el
@@ -5,7 +5,7 @@
 ;; Author: Adam Porter 
 ;; Maintainer: Adam Porter 
 ;; URL: https://github.com/alphapapa/ement.el
-;; Version: 0.12
+;; Version: 0.13-pre
 ;; Package-Requires: ((emacs "27.1") (map "2.1") (persist "0.5") (plz "0.6") 
(taxy "0.10") (taxy-magit-section "0.12.1") (svg-lib "0.2.5") (transient 
"0.3.7"))
 ;; Keywords: comm
 

[elpa] externals/ement 886f5e221c 1/3: Change: (ement-directory-define-column "Size") :align 'right

[ELPA Syncer]

branch: externals/ement
commit 886f5e221c16f841ec1bc102ab1e596b2430a342
Author: Adam Porter 
Commit: Adam Porter 

Change: (ement-directory-define-column "Size") :align 'right
---
 ement-directory.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ement-directory.el b/ement-directory.el
index 5a7b5968be..2e189aa5bd 100644
--- a/ement-directory.el
+++ b/ement-directory.el
@@ -127,7 +127,7 @@
   (pcase-let (((map ('canonical_alias alias)) item))
 (or alias "")))
 
-(ement-directory-define-column "Size" ()
+(ement-directory-define-column "Size" (:align 'right)
   (pcase-let (((map ('num_joined_members size)) item))
 (number-to-string size)))
 

[elpa] externals/ement 30bd78b2f4 2/3: Fix: (ement-directory-define-column "Name") Direct rooms

[ELPA Syncer]

branch: externals/ement
commit 30bd78b2f4ef054b768f8de91d306752865d85a3
Author: Adam Porter 
Commit: Adam Porter 

Fix: (ement-directory-define-column "Name") Direct rooms
---
 README.org |  4 +++-
 ement-directory.el | 12 +---
 2 files changed, 12 insertions(+), 4 deletions(-)

diff --git a/README.org b/README.org
index da7bab9fff..3a9368c874 100644
--- a/README.org
+++ b/README.org
@@ -294,7 +294,9 @@ Ement.el doesn't support encrypted rooms natively, but it 
can be used transparen
 
 ** 0.13-pre
 
-Nothing new yet.
+*Fixes*
+
++ Name for direct rooms in directory buffers.
 
 ** 0.12
 
diff --git a/ement-directory.el b/ement-directory.el
index 2e189aa5bd..d5802179b8 100644
--- a/ement-directory.el
+++ b/ement-directory.el
@@ -116,11 +116,17 @@
   " ")))
 
 (ement-directory-define-column "Name" (:max-width 25)
-  (pcase-let* (((map name ('room_type type)) item)
+  (pcase-let* (((map name ('room_id id) ('room_type type)) item)
+   ((map session) ement-directory-etc)
+   (room)
(face (pcase type
("m.space" 'ement-room-list-space)
-   (_ 'ement-room-list-name
-(propertize (or name "[unnamed]")
+   (_ (if (and (setf room (cl-find id (ement-session-rooms 
session)
+   :key #'ement-room-id 
:test #'equal))
+   (ement--room-direct-p room session))
+  'ement-room-list-direct
+'ement-room-list-name)
+(propertize (or name (ement--room-display-name room))
 'face face)))
 
 (ement-directory-define-column "Alias" (:max-width 25)

[elpa] externals/ement updated (2bfabafea6 -> 645537c07f)

[ELPA Syncer]

elpasync pushed a change to branch externals/ement.

  from  2bfabafea6 Meta: v0.13-pre
   new  886f5e221c Change: (ement-directory-define-column "Size") :align 
'right
   new  30bd78b2f4 Fix: (ement-directory-define-column "Name") Direct rooms
   new  645537c07f Add: (ement-directory-define-key people-p)


Summary of changes:
 README.org |  8 +++-
 ement-directory.el | 29 -
 2 files changed, 31 insertions(+), 6 deletions(-)

[elpa] externals/ement 645537c07f 3/3: Add: (ement-directory-define-key people-p)

[ELPA Syncer]

branch: externals/ement
commit 645537c07f23e7d173047971e56c8e8c78fe5236
Author: Adam Porter 
Commit: Adam Porter 

Add: (ement-directory-define-key people-p)

And use in ement-directory-default-keys.
---
 README.org |  4 
 ement-directory.el | 15 ++-
 2 files changed, 18 insertions(+), 1 deletion(-)

diff --git a/README.org b/README.org
index 3a9368c874..8d4e3324f4 100644
--- a/README.org
+++ b/README.org
@@ -294,6 +294,10 @@ Ement.el doesn't support encrypted rooms natively, but it 
can be used transparen
 
 ** 0.13-pre
 
+*Additions*
+
++ Group joined direct rooms in directory buffers.
+
 *Fixes*
 
 + Name for direct rooms in directory buffers.
diff --git a/ement-directory.el b/ement-directory.el
index d5802179b8..8a3fb1954b 100644
--- a/ement-directory.el
+++ b/ement-directory.el
@@ -85,8 +85,21 @@
 (when (equal "m.space" type)
   "Spaces")))
 
+(ement-directory-define-key people-p ()
+  (pcase-let (((map ('room_id id) ('room_type type)) item)
+  ((map session) ement-directory-etc))
+(pcase type
+  ("m.space" nil)
+  (_ (when-let ((room (cl-find id (ement-session-rooms session)
+   :key #'ement-room-id :test #'equal))
+((ement--room-direct-p room session)))
+   (propertize "People" 'face 'ement-room-list-direct))
+
 (defcustom ement-directory-default-keys
-  '((joined-p)
+  '((joined-p
+ (people-p)
+ (and :name "Rooms"
+  :keys ((not people-p
 (space-p)
 ((size :> 1))
 ((size :> 1000))

[elpa] externals/logos updated (eeedd3ef28 -> d679de146e)

[ELPA Syncer]

elpasync pushed a change to branch externals/logos.

  from  eeedd3ef28 Bump version to trigger rebuild in light of commit 
3a63703
   new  d618202372 Simplify the example with org-indent-mode
   new  d679de146e Expand example for bar toggling and fix the code samples


Summary of changes:
 README.org | 67 ++
 1 file changed, 32 insertions(+), 35 deletions(-)

[elpa] externals/logos d679de146e 2/2: Expand example for bar toggling and fix the code samples

[ELPA Syncer]

branch: externals/logos
commit d679de146e25962d5b0a94deb815b35de9fe844b
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Expand example for bar toggling and fix the code samples

The code I had before was not toggling the mode on/off, whereas that
is what we want to achieve.

Thanks to Lasse Lindner for reporting the problem with those functions
and for testing my proposed solution.  This was done via a private
channel and the information is shared with permission.
---
 README.org | 39 +++
 1 file changed, 27 insertions(+), 12 deletions(-)

diff --git a/README.org b/README.org
index 3e810d3c6d..3c12ffdb04 100644
--- a/README.org
+++ b/README.org
@@ -511,32 +511,47 @@ restores it when ~logos-focus-mode~ is disabled.  The
 (add-hook 'logos-focus-mode-hook #'my-logos-org-indent)
 #+end_src
 
-*** Disable menu-bar and tool-bar
+*** Disable menu-bar, tool-bar, tab-bar, tab-line
 :PROPERTIES:
 :CUSTOM_ID: h:8914f8fc-e6e9-440e-b037-f934e08ee1ae
 :END:
 
-Continuing with the examples in this section of the manual, this is how
-to disable the ~menu-bar-mode~ and ~tool-bar-mode~ when activating the
-~logos-focus-mode~.
+Continuing with the examples in this section of the manual, the code
+block below shows how to disable the ~menu-bar-mode~, ~tool-bar-mode~,
+~tab-bar-mode~, and ~tab-line-mode~ when ~logos-focus-mode~ is
+enabled.  If the modes are already disabled, the corresponding
+function does nothing.  Otherwise it toggles the mode off/on when
+~logos-focus-mode~ is enabled/disabled.
 
 #+begin_src emacs-lisp
 ;; Assuming the `menu-bar-mode' is enabled by default...
 (defun my-logos-hide-menu-bar ()
-  (logos-set-mode-arg 'menu-bar-mode -1))
+  (when logos-focus-mode
+(logos-set-mode-arg 'menu-bar-mode -1)))
 
 (add-hook 'logos-focus-mode-hook #'my-logos-hide-menu-bar)
 
 ;; Assuming the `tool-bar-mode' is enabled by default...
 (defun my-logos-hide-tool-bar ()
-  (logos-set-mode-arg 'tool-bar-mode -1))
+  (when logos-focus-mode
+(logos-set-mode-arg 'tool-bar-mode -1)))
 
 (add-hook 'logos-focus-mode-hook #'my-logos-hide-tool-bar)
-#+end_src
 
-If those modes are already disabled, the following have no effect.
-Otherwise they toggle the bars off while ~logos-focus-mode~ is enabled
-and then restore them back on when ~logos-focus-mode~ is disabled.
+;; Assuming the `tab-bar-mode' is enabled by default...
+(defun my-logos-hide-tab-bar ()
+  (when logos-focus-mode
+(logos-set-mode-arg 'tab-bar-mode -1)))
+
+(add-hook 'logos-focus-mode-hook #'my-logos-hide-tab-bar)
+
+;; Assuming the `tab-line-mode' is enabled by default...
+(defun my-logos-hide-tab-line ()
+  (when logos-focus-mode
+(logos-set-mode-arg 'tab-line-mode -1)))
+
+(add-hook 'logos-focus-mode-hook #'my-logos-hide-tab-line)
+#+end_src
 
 ** Update fringe color on theme switch
 :PROPERTIES:
@@ -599,8 +614,8 @@ Logos is meant to be a collective effort.  Every bit of 
help matters.
   Vincent, Lucy McPhail, Omar Antolín Camarena, Philip Kaludercic,
   Remco van 't Veer, and user Ypot.
 
-+ Ideas and/or user feedback :: Daniel Mendler, Dave Abrahams, Marcel
-  Ventosa, Xiaoduan, Ypot.
++ Ideas and/or user feedback :: Daniel Mendler, Dave Abrahams, Lasse
+  Lindner, Marcel Ventosa, Xiaoduan, Ypot.
 
 * GNU Free Documentation License
 :PROPERTIES:

[elpa] externals/logos d618202372 1/2: Simplify the example with org-indent-mode

[ELPA Syncer]

branch: externals/logos
commit d618202372ea49b566ef875a60670d5fe34ad4b0
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Simplify the example with org-indent-mode
---
 README.org | 28 +---
 1 file changed, 5 insertions(+), 23 deletions(-)

diff --git a/README.org b/README.org
index 97398d7919..3e810d3c6d 100644
--- a/README.org
+++ b/README.org
@@ -499,32 +499,14 @@ use the ~logos-focus-mode-hook~ instead.
 Here is a snippet that relies on the ~logos-focus-mode-hook~ to extend
 the functionality of ~logos-focus-mode~ 
([[#h:a2540f2f-1159-4e5c-a486-e1f2cb63fee8][Leverage logos-focus-mode-hook]]).
 
-#+begin_src emacs-lisp
-(defvar my-logos-org-indent nil
-  "When t, disable `org-indent-mode' during `logos-focus-mode'.")
-
-(defun my-logos-org-indent ()
-  "Set `my-logos-org-indent' in `logos-focus-mode'."
-  (when my-logos-org-indent
-;; Disable `org-indent-mode' when `logos-focus-mode' is enabled and
-;; restore it when `logos-focus-mode' is disabled.  The
-;; `logos-set-mode-arg' function takes care of the technicalities.
-(logos-set-mode-arg 'org-indent-mode -1)))
-
-(add-hook 'logos-focus-mode-hook #'my-logos-org-indent)
-#+end_src
-
-The ~my-logos-org-indent~ variable lets the user opt in and out of this
-feature, by setting it to t or nil, respectively.  If such a toggle is
-not needed, the following will suffice:
+It disables ~org-indent-mode~ when ~logos-focus-mode~ is enabled and
+restores it when ~logos-focus-mode~ is disabled.  The
+~logos-set-mode-arg~ function takes care of the technicalities.
 
 #+begin_src emacs-lisp
 (defun my-logos-org-indent ()
-  "Set `my-logos-org-indent' in `logos-focus-mode'."
-  ;; Disable `org-indent-mode' when `logos-focus-mode' is enabled and
-  ;; restore it when `logos-focus-mode' is disabled.  The
-  ;; `logos-set-mode-arg' function takes care of the technicalities.
-  (logos-set-mode-arg 'org-indent-mode -1))
+  (when logos-focus-mode
+(logos-set-mode-arg 'org-indent-mode -1)))
 
 (add-hook 'logos-focus-mode-hook #'my-logos-org-indent)
 #+end_src

[nongnu] elpa/clojure-ts-mode updated (5f16fb8dbc -> 5e7506e614)

[ELPA Syncer]

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

  from  5f16fb8dbc Re-enable workaround for treesit-transpose-sexps bug
   new  5231c348e5 [#20] Highlight methods in some forms
   new  b96d85d0d4 Merge pull request #21 from rrudakov/main
   new  6ea4196ebc Indicate internal defconst with clojure-ts-- prefix
   new  ec48877dd0 Fix ns docstring highlighting regression
   new  5e7506e614 Highlight a couple clojure.test symbols as builtins


Summary of changes:
 CHANGELOG.md|   4 +-
 clojure-ts-mode.el  | 123 ++--
 test/docstrings.clj |  67 
 test/test.clj   |  43 +-
 4 files changed, 202 insertions(+), 35 deletions(-)
 create mode 100644 test/docstrings.clj

[nongnu] elpa/clojure-ts-mode ec48877dd0 4/5: Fix ns docstring highlighting regression

[ELPA Syncer]

branch: elpa/clojure-ts-mode
commit ec48877dd0394d176dd08334ee48d1ff48643453
Author: Danny Freeman 
Commit: Danny Freeman 

Fix ns docstring highlighting regression

This also begins the process of making our symbol matching regular
expressions user extensible (see issue #15). There are more to convert
from regexps to normal lists, but I want to take my time and make sure I
get the names down correctly. It is important to get maximum reuse so
users don't have to add their fancy def-whatever to 4 different lists.
---
 clojure-ts-mode.el  | 72 +
 test/docstrings.clj | 67 +
 2 files changed, 112 insertions(+), 27 deletions(-)

diff --git a/clojure-ts-mode.el b/clojure-ts-mode.el
index 224f3b95b1..299fa42bdf 100644
--- a/clojure-ts-mode.el
+++ b/clojure-ts-mode.el
@@ -202,17 +202,26 @@ Only intended for use at development time.")
   '((t (:inherit font-lock-string-face)))
   "Face used to font-lock Clojure character literals.")
 
-(defconst clojure-ts--definition-symbol-regexp
-  (rx
-   line-start
-   (or (group "fn")
-   (group "def"
-  (+ (or alnum
- ;; What are valid characters for symbols?
- ;; is a negative match better?
- "-" "_" "!" "@" "#" "$" "%" "^" "&"
- "*" "|" "?" "<" ">" "+" "=" ":"
-   line-end))
+(defun clojure-ts-symbol-regexp (symbols)
+  "Return a regular expression that matches one of SYMBOLS exactly."
+  (concat "^" (regexp-opt symbols) "$"))
+
+(defvar clojure-ts-function-docstring-symbols
+  '("definline"
+"defmulti"
+"defmacro"
+"defn"
+"defn-"
+"defprotocol"
+"ns")
+  "Symbols that accept an optional docstring as their second argument.")
+
+(defvar clojure-ts-definition-docstring-symbols
+  '("def")
+  "Symbols that accept an optional docstring as their second argument.
+Any symbols added here should only treat their second argument as a docstring
+if a third argument (the value) is provided.
+\"def\" is the only builtin Clojure symbol that behaves like this.")
 
 (defconst clojure-ts--variable-definition-symbol-regexp
   (eval-and-compile
@@ -244,40 +253,49 @@ Only intended for use at development time.")
 
 (defun clojure-ts--docstring-query (capture-symbol)
   "Return a query that captures docstrings with CAPTURE-SYMBOL."
-  `(;; Captures docstrings in def, defonce
-((list_lit :anchor (sym_lit) @def_symbol
+  `(;; Captures docstrings in def
+((list_lit :anchor (sym_lit) @_def_symbol
+   :anchor (comment) :?
:anchor (sym_lit) ; variable name
+   :anchor (comment) :?
:anchor (str_lit) ,capture-symbol
:anchor (_)) ; the variable's value
- (:match ,clojure-ts--variable-definition-symbol-regexp @def_symbol))
+ (:match ,(clojure-ts-symbol-regexp 
clojure-ts-definition-docstring-symbols)
+ @_def_symbol))
 ;; Captures docstrings in metadata of definitions
-((list_lit :anchor (sym_lit) @def_symbol
+((list_lit :anchor (sym_lit) @_def_symbol
+   :anchor (comment) :?
:anchor (sym_lit
 (meta_lit
  value: (map_lit
- (kwd_lit) @doc-keyword
+ (kwd_lit) @_doc-keyword
  :anchor
  (str_lit) ,capture-symbol
  ;; We're only supporting this on a fixed set of defining symbols
  ;; Existing regexes don't encompass def and defn
  ;; Naming another regex is very cumbersome.
- (:match ,(regexp-opt '("def" "defonce" "defn" "defn-" "defmacro" "ns"
-"defmulti" "definterface" "defprotocol"
-"deftype" "defrecord" "defstruct"))
- @def_symbol)
- (:equal @doc-keyword ":doc"))
+ (:match ,(clojure-ts-symbol-regexp
+   '("def" "defonce" "defn" "defn-" "defmacro" "ns"
+ "defmulti" "definterface" "defprotocol"
+ "deftest" "deftest-"
+ "deftype" "defrecord" "defstruct"))
+ @_def_symbol)
+ (:equal @_doc-keyword ":doc"))
 ;; Captures docstrings defn, defmacro, ns, and things like that
-((list_lit :anchor (sym_lit) @def_symbol
+((list_lit :anchor (sym_lit) @_def_symbol
+   :anchor (comment) :?
:anchor (sym_lit) ; function_name
+   :anchor (comment) :?
:anchor (str_lit) ,capture-symbol)
- (:match ,clojure-ts--definition-symbol-regexp @def_symbol))
+ (:match ,(clojure-ts-symbol-regexp clojure-ts-function-docstring-symbols)
+ @_def_symbol))
 ;; Captures docstrings in defprotcol, definterface
-((list_lit :anchor (sym_lit) @def_symbol
+((list_lit :anchor (sym_lit) @_def_symbol
(list_lit

[nongnu] elpa/clojure-ts-mode 5e7506e614 5/5: Highlight a couple clojure.test symbols as builtins

[ELPA Syncer]

branch: elpa/clojure-ts-mode
commit 5e7506e61401f92df1f86677051b55fec0ad6ce8
Author: Danny Freeman 
Commit: Danny Freeman 

Highlight a couple clojure.test symbols as builtins
---
 clojure-ts-mode.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/clojure-ts-mode.el b/clojure-ts-mode.el
index 299fa42bdf..d4111d56f6 100644
--- a/clojure-ts-mode.el
+++ b/clojure-ts-mode.el
@@ -191,7 +191,9 @@ Only intended for use at development time.")
"when" "when-first" "when-let" "when-not" "when-some" "while"
"with-bindings" "with-in-str" "with-loading-context"
"with-local-vars" "with-open" "with-out-str" "with-precision"
-   "with-redefs" "with-redefs-fn"))
+   "with-redefs" "with-redefs-fn"
+   ;; Commonly used clojure.test functions
+   "deftest" "deftest-" "is" "are" "testing"))
 "$")))
 
 (defface clojure-ts-keyword-face

[nongnu] elpa/clojure-ts-mode b96d85d0d4 2/5: Merge pull request #21 from rrudakov/main

[ELPA Syncer]

branch: elpa/clojure-ts-mode
commit b96d85d0d4ceff56f2bc9d32e4abd96392b1f739
Merge: 5f16fb8dbc 5231c348e5
Author: Danny Freeman 
Commit: GitHub 

Merge pull request #21 from rrudakov/main

Highlight methods in some forms
---
 CHANGELOG.md   |  4 +++-
 clojure-ts-mode.el | 45 +
 test/test.clj  | 43 ++-
 3 files changed, 86 insertions(+), 6 deletions(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index 33254bb63f..8fd787924f 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -10,6 +10,8 @@
 - Highlight "\`quoted-symbols\`  in docs strings like this."
- This feature uses a nested markdown parser.
  If the parser is not available this feature should be silently disabled.
+- Highlight methods for `deftype`, `defrecord`, `defprotocol`, `reify` and 
`definterface`
+  forms ([#20](https://github.com/clojure-emacs/clojure-ts-mode/issues/20)).
 
 ## 0.1.5
 
@@ -28,7 +30,7 @@
 
 ## 0.1.2
 
-- Add a syntax table from clojure-mode. 
[712dc772fd38111c1e35fe60e4dbe7ac83032bd6](https://github.com/clojure-emacs/clojure-ts-mode/commit/712dc772fd38111c1e35fe60e4dbe7ac83032bd6).
 
+- Add a syntax table from clojure-mode. 
[712dc772fd38111c1e35fe60e4dbe7ac83032bd6](https://github.com/clojure-emacs/clojure-ts-mode/commit/712dc772fd38111c1e35fe60e4dbe7ac83032bd6).
 - Better support for `thing-at-point` driven functionality.
 - Thank you @jasonjckn for this contribution.
 - Add 3 derived major modes 
[4dc853df16ba09d10dc3a648865e681679c17606](https://github.com/clojure-emacs/clojure-ts-mode/commit/4dc853df16ba09d10dc3a648865e681679c17606)
diff --git a/clojure-ts-mode.el b/clojure-ts-mode.el
index 54a808eb44..6b588e60af 100644
--- a/clojure-ts-mode.el
+++ b/clojure-ts-mode.el
@@ -205,7 +205,7 @@ Only intended for use at development time.")
 (defconst clojure-ts--definition-symbol-regexp
   (rx
line-start
-   (or (group (or "ns" "fn"))
+   (or (group "fn")
(group "def"
   (+ (or alnum
  ;; What are valid characters for symbols?
@@ -347,9 +347,42 @@ with the markdown_inline grammar."
 :language 'clojure
 `(((list_lit :anchor (sym_lit (sym_name) @def)
  :anchor (sym_lit (sym_name) @font-lock-function-name-face))
-   (:match ,clojure-ts--definition-symbol-regexp @def))
+   (:match ,(rx-to-string
+ `(seq bol
+   (or
+"defn"
+"defn-"
+"defmulti"
+"defmethod"
+"deftest"
+"deftest-"
+"defmacro"
+"definline")
+   eol))
+   @def))
   ((anon_fn_lit
-marker: "#" @font-lock-property-face)))
+marker: "#" @font-lock-property-face))
+  ;; Methods implementation
+  ((list_lit
+((sym_lit name: (sym_name) @def)
+ ((:match ,(rx-to-string
+`(seq bol
+  (or
+   "defrecord"
+   "definterface"
+   "deftype"
+   "defprotocol")
+  eol))
+  @def)))
+:anchor
+(sym_lit (sym_name) @font-lock-type-face)
+(list_lit
+ (sym_lit name: (sym_name) @font-lock-function-name-face
+  ((list_lit
+((sym_lit name: (sym_name) @def)
+ ((:equal "reify" @def)))
+(list_lit
+ (sym_lit name: (sym_name) @font-lock-function-name-face)
 
 :feature 'variable ;; def, defonce
 :language 'clojure
@@ -370,7 +403,11 @@ with the markdown_inline grammar."
value: (sym_lit (sym_name) @font-lock-type-face))
   (old_meta_lit
marker: "#^" @font-lock-operator-face
-   value: (sym_lit (sym_name) @font-lock-type-face)))
+   value: (sym_lit (sym_name) @font-lock-type-face))
+  ;; Highlight namespace
+  ((list_lit :anchor (sym_lit (sym_name) @def)
+ :anchor (sym_lit (sym_name) @font-lock-type-face))
+   (:equal "ns" @def)))
 
 :feature 'metadata
 :language 'clojure
diff --git a/test/test.clj b/test/test.clj
index ae25da855a..ce4c0292aa 100644
--- a/test/test.clj
+++ b/test/test.clj
@@ -29,7 +29,7 @@
 ;; examples of valid namespace definitions
 (comment
   (ns .validns)
- 
+
   (ns =validns)
   (ns .ValidNs=<>?+|?*.)
   (ns ValidNs<>?+|?*.b*ar.ba*z)
@@ -289,3 +289,44 @@ clojure.core/map
 
 (def ^Integer x 1)
 
+(comment
+  (defrecord TestRecord [field]
+AutoCloseable
+(close [this]
+  (.close this)))
+
+  (reify
+AutoCloseable
+(close [this] (.close this))
+
+(another [this arg]
+  (implement this arg)))
+
+  (definterface MyInterface
+(^String name [])
+(^double mass []))
+
+  (defmulti my-method :hello :default ::default)
+
+  (defmethod my-method :world
+  

[nongnu] elpa/clojure-ts-mode 5231c348e5 1/5: [#20] Highlight methods in some forms

[ELPA Syncer]

branch: elpa/clojure-ts-mode
commit 5231c348e509cff91edd1ec59d7a59645395da15
Author: Roman Rudakov 
Commit: Roman Rudakov 

[#20] Highlight methods in some forms
---
 CHANGELOG.md   |  4 +++-
 clojure-ts-mode.el | 45 +
 test/test.clj  | 43 ++-
 3 files changed, 86 insertions(+), 6 deletions(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index 59fedbda22..ae421b6d0b 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -11,6 +11,8 @@
 - Highlight "\`quoted-symbols\`  in docs strings like this."
- This feature uses a nested markdown parser.
  If the parser is not available this feature should be silently disabled.
+- Highlight methods for `deftype`, `defrecord`, `defprotocol`, `reify` and 
`definterface`
+  forms ([#20](https://github.com/clojure-emacs/clojure-ts-mode/issues/20)).
 
 ## 0.1.5
 
@@ -29,7 +31,7 @@
 
 ## 0.1.2
 
-- Add a syntax table from clojure-mode. 
[712dc772fd38111c1e35fe60e4dbe7ac83032bd6](https://github.com/clojure-emacs/clojure-ts-mode/commit/712dc772fd38111c1e35fe60e4dbe7ac83032bd6).
 
+- Add a syntax table from clojure-mode. 
[712dc772fd38111c1e35fe60e4dbe7ac83032bd6](https://github.com/clojure-emacs/clojure-ts-mode/commit/712dc772fd38111c1e35fe60e4dbe7ac83032bd6).
 - Better support for `thing-at-point` driven functionality.
 - Thank you @jasonjckn for this contribution.
 - Add 3 derived major modes 
[4dc853df16ba09d10dc3a648865e681679c17606](https://github.com/clojure-emacs/clojure-ts-mode/commit/4dc853df16ba09d10dc3a648865e681679c17606)
diff --git a/clojure-ts-mode.el b/clojure-ts-mode.el
index 41d09be742..70c7f0201f 100644
--- a/clojure-ts-mode.el
+++ b/clojure-ts-mode.el
@@ -205,7 +205,7 @@ Only intended for use at development time.")
 (defconst clojure-ts--definition-symbol-regexp
   (rx
line-start
-   (or (group (or "ns" "fn"))
+   (or (group "fn")
(group "def"
   (+ (or alnum
  ;; What are valid characters for symbols?
@@ -347,9 +347,42 @@ with the markdown_inline grammar."
 :language 'clojure
 `(((list_lit :anchor (sym_lit (sym_name) @def)
  :anchor (sym_lit (sym_name) @font-lock-function-name-face))
-   (:match ,clojure-ts--definition-symbol-regexp @def))
+   (:match ,(rx-to-string
+ `(seq bol
+   (or
+"defn"
+"defn-"
+"defmulti"
+"defmethod"
+"deftest"
+"deftest-"
+"defmacro"
+"definline")
+   eol))
+   @def))
   ((anon_fn_lit
-marker: "#" @font-lock-property-face)))
+marker: "#" @font-lock-property-face))
+  ;; Methods implementation
+  ((list_lit
+((sym_lit name: (sym_name) @def)
+ ((:match ,(rx-to-string
+`(seq bol
+  (or
+   "defrecord"
+   "definterface"
+   "deftype"
+   "defprotocol")
+  eol))
+  @def)))
+:anchor
+(sym_lit (sym_name) @font-lock-type-face)
+(list_lit
+ (sym_lit name: (sym_name) @font-lock-function-name-face
+  ((list_lit
+((sym_lit name: (sym_name) @def)
+ ((:equal "reify" @def)))
+(list_lit
+ (sym_lit name: (sym_name) @font-lock-function-name-face)
 
 :feature 'variable ;; def, defonce
 :language 'clojure
@@ -370,7 +403,11 @@ with the markdown_inline grammar."
value: (sym_lit (sym_name) @font-lock-type-face))
   (old_meta_lit
marker: "#^" @font-lock-operator-face
-   value: (sym_lit (sym_name) @font-lock-type-face)))
+   value: (sym_lit (sym_name) @font-lock-type-face))
+  ;; Highlight namespace
+  ((list_lit :anchor (sym_lit (sym_name) @def)
+ :anchor (sym_lit (sym_name) @font-lock-type-face))
+   (:equal "ns" @def)))
 
 :feature 'metadata
 :language 'clojure
diff --git a/test/test.clj b/test/test.clj
index ae25da855a..ce4c0292aa 100644
--- a/test/test.clj
+++ b/test/test.clj
@@ -29,7 +29,7 @@
 ;; examples of valid namespace definitions
 (comment
   (ns .validns)
- 
+
   (ns =validns)
   (ns .ValidNs=<>?+|?*.)
   (ns ValidNs<>?+|?*.b*ar.ba*z)
@@ -289,3 +289,44 @@ clojure.core/map
 
 (def ^Integer x 1)
 
+(comment
+  (defrecord TestRecord [field]
+AutoCloseable
+(close [this]
+  (.close this)))
+
+  (reify
+AutoCloseable
+(close [this] (.close this))
+
+(another [this arg]
+  (implement this arg)))
+
+  (definterface MyInterface
+(^String name [])
+(^double mass []))
+
+  (defmulti my-method :hello :default ::default)
+
+  (defmethod my-method :world
+[_]
+(println "Hi"))
+
+  (deftype ImageSelection [data]
+   

[nongnu] elpa/clojure-ts-mode 6ea4196ebc 3/5: Indicate internal defconst with clojure-ts-- prefix

[ELPA Syncer]

branch: elpa/clojure-ts-mode
commit 6ea4196ebc4a5fca6df5593e8ed3a45afc4ed593
Author: Danny Freeman 
Commit: Danny Freeman 

Indicate internal defconst with clojure-ts-- prefix
---
 clojure-ts-mode.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/clojure-ts-mode.el b/clojure-ts-mode.el
index 6b588e60af..224f3b95b1 100644
--- a/clojure-ts-mode.el
+++ b/clojure-ts-mode.el
@@ -227,7 +227,7 @@ Only intended for use at development time.")
   line-end))
   "A regular expression matching a symbol used to define a type.")
 
-(defconst clojure-ts-type-symbol-regexp
+(defconst clojure-ts--type-symbol-regexp
   (eval-and-compile
 (rx line-start
 (or "deftype" "defrecord"
@@ -727,7 +727,7 @@ forms like deftype, defrecord, reify, proxy, etc."
   ;; auncle: gender neutral sibling of parent, aka child of grandparent
   (first-auncle (treesit-node-child grandparent 0 t)))
  (and (clojure-ts--list-node-p grandparent)
-  (clojure-ts--symbol-matches-p clojure-ts-type-symbol-regexp
+  (clojure-ts--symbol-matches-p clojure-ts--type-symbol-regexp
 first-auncle)
 
 (defvar clojure-ts--threading-macro