[elpa] externals/gtags-mode 681f210eee 2/2: Merge pull request #3 from whatacold/fix-lighter-docstring

[ELPA Syncer]

branch: externals/gtags-mode
commit 681f210eeedb11234ceea206509185051ea0a5c0
Merge: 82b49040cf bcb1d94e07
Author: Jimmy Aguilar Mena 
Commit: GitHub 

Merge pull request #3 from whatacold/fix-lighter-docstring

Fix the docstring of gtags-mode-lighter.
---
 gtags-mode.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gtags-mode.el b/gtags-mode.el
index fa76f38f90..20e5f813b0 100644
--- a/gtags-mode.el
+++ b/gtags-mode.el
@@ -63,7 +63,7 @@
   :local t)
 
 (defcustom gtags-mode-lighter " Gtags"
-  "Gtags executable."
+  "The text displayed in the mode line."
   :type 'string
   :risky t)
 

[elpa] externals/gtags-mode bcb1d94e07 1/2: Fix the docstring of gtags-mode-lighter.

[ELPA Syncer]

branch: externals/gtags-mode
commit bcb1d94e0715bce78dd6820967a7ea609ec44360
Author: Guangwang Huang 
Commit: Guangwang Huang 

Fix the docstring of gtags-mode-lighter.
---
 gtags-mode.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/gtags-mode.el b/gtags-mode.el
index fa76f38f90..20e5f813b0 100644
--- a/gtags-mode.el
+++ b/gtags-mode.el
@@ -63,7 +63,7 @@
   :local t)
 
 (defcustom gtags-mode-lighter " Gtags"
-  "Gtags executable."
+  "The text displayed in the mode line."
   :type 'string
   :risky t)
 

[elpa] externals/org updated (60de19f910 -> 78d283e27d)

[ELPA Syncer]

elpasync pushed a change to branch externals/org.

  from  60de19f910 ; Fix two typos
   new  c4de06ce10 lisp/org.el: Mention how to widen in docstrings of 
commands that do narrowing
   new  78d283e27d ob-core: Remove the confusing "result silenced" message


Summary of changes:
 lisp/ob-core.el |  3 +--
 lisp/org.el | 12 
 2 files changed, 9 insertions(+), 6 deletions(-)

[elpa] externals/org c4de06ce10 1/2: lisp/org.el: Mention how to widen in docstrings of commands that do narrowing

[ELPA Syncer]

branch: externals/org
commit c4de06ce1056a536edb643d5e85b29204947b321
Author: Yuval Langer 
Commit: Ihor Radchenko 

lisp/org.el: Mention how to widen in docstrings of commands that do 
narrowing

lisp/org.el: (org-narrow-to-subtree, org-toggle-narrow-to-subtree,
org-narrow-to-block, org-narrow-to-element): Mention how to widen in
docstrings of commands that do narrowing.

TINYCHANGE
---
 lisp/org.el | 12 
 1 file changed, 8 insertions(+), 4 deletions(-)

diff --git a/lisp/org.el b/lisp/org.el
index ab6212dacc..fca3ab880d 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -7220,7 +7220,8 @@ If yes, remember the marker and the distance to BEG."
   (setq org-markers-to-move nil))
 
 (defun org-narrow-to-subtree (&optional element)
-  "Narrow buffer to the current subtree."
+  "Narrow buffer to the current subtree.
+Use the command `\\[widen]' to see the whole buffer again."
   (interactive)
   (if (org-element--cache-active-p)
   (let* ((heading (org-element-lineage
@@ -7242,7 +7243,8 @@ If yes, remember the marker and the distance to BEG."
 (point
 
 (defun org-toggle-narrow-to-subtree ()
-  "Narrow to the subtree at point or widen a narrowed buffer."
+  "Narrow to the subtree at point or widen a narrowed buffer.
+Use the command `\\[widen]' to see the whole buffer again."
   (interactive)
   (if (buffer-narrowed-p)
   (progn (widen) (message "Buffer widen"))
@@ -7250,7 +7252,8 @@ If yes, remember the marker and the distance to BEG."
 (message "Buffer narrowed to current subtree")))
 
 (defun org-narrow-to-block ()
-  "Narrow buffer to the current block."
+  "Narrow buffer to the current block.
+Use the command `\\[widen]' to see the whole buffer again."
   (interactive)
   (let* ((case-fold-search t)
 (blockp (org-between-regexps-p "^[ \t]*#\\+begin_.*"
@@ -21162,7 +21165,8 @@ ones already marked."
(goto-char (org-element-property :begin element))
 
 (defun org-narrow-to-element ()
-  "Narrow buffer to current element."
+  "Narrow buffer to current element.
+Use the command `\\[widen]' to see the whole buffer again."
   (interactive)
   (let ((elem (org-element-at-point)))
 (cond

[elpa] externals/org 78d283e27d 2/2: ob-core: Remove the confusing "result silenced" message

[ELPA Syncer]

branch: externals/org
commit 78d283e27dd98f48768c151fa269eed09140233e
Author: Rudolf Adamkovič 
Commit: Ihor Radchenko 

ob-core: Remove the confusing "result silenced" message

* lisp/ob-core.el (org-babel-execute-src-block): Do not say "result
silenced" after executing the source blocks with `:results none' to
avoid confusion with `:results silent'.
---
 lisp/ob-core.el | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/lisp/ob-core.el b/lisp/ob-core.el
index 5b78ee946f..aa3d6b101e 100644
--- a/lisp/ob-core.el
+++ b/lisp/ob-core.el
@@ -849,8 +849,7 @@ guess will be made."
(setq result (org-babel-ref-resolve post))
(when file
  (setq result-params (remove "file" result-params))
- (if (member "none" result-params)
- (message "result silenced")
+ (unless (member "none" result-params)
(org-babel-insert-result
 result result-params info new-hash lang
  (time-subtract (current-time) exec-start-time

[nongnu] elpa/keycast 3367c7d375 07/10: keycast--removed-tail: Rename to keycast--header-line-removed-tail

[ELPA Syncer]

branch: elpa/keycast
commit 3367c7d37587f4eee200f8ab10868ad4d9e09028
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

keycast--removed-tail: Rename to keycast--header-line-removed-tail
---
 keycast.el | 12 ++--
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/keycast.el b/keycast.el
index a62eeab2ee..38bb519769 100644
--- a/keycast.el
+++ b/keycast.el
@@ -410,7 +410,7 @@ t to show the actual COMMAND, or a symbol to be shown 
instead."
 
 ;;; Mode-Line
 
-(defvar keycast--removed-tail nil)
+(defvar keycast--mode-line-removed-tail nil)
 (defvar keycast--temporary-mode-line nil)
 (defvar keycast--mode-line-modified-buffers nil)
 
@@ -436,7 +436,7 @@ t to show the actual COMMAND, or a symbol to be shown 
instead."
  'keycast-mode-line-mode keycast-mode-line-insert-after
  'mode-line-format 'keycast-mode-line-insert-after))
   (cond (keycast-mode-line-remove-tail-elements
- (setq keycast--removed-tail (cdr cons))
+ (setq keycast--mode-line-removed-tail (cdr cons))
  (setcdr cons (list 'keycast-mode-line)))
 (t
  (setcdr cons (cons 'keycast-mode-line (cdr cons)
@@ -448,10 +448,10 @@ t to show the actual COMMAND, or a symbol to be shown 
instead."
   (cond (keycast--temporary-mode-line
  (setq-default mode-line-format nil)
  (setq keycast--temporary-mode-line nil))
-(keycast--removed-tail
- (setcar cons (car keycast--removed-tail))
- (setcdr cons (cdr keycast--removed-tail))
- (setq keycast--removed-tail nil))
+(keycast--mode-line-removed-tail
+ (setcar cons (car keycast--mode-line-removed-tail))
+ (setcdr cons (cdr keycast--mode-line-removed-tail))
+ (setq keycast--mode-line-removed-tail nil))
 (t
  (setcar cons (cadr cons))
  (setcdr cons (cddr cons)

[nongnu] elpa/keycast updated (92a14313fe -> 53514c3dc3)

[ELPA Syncer]

elpasync pushed a change to branch elpa/keycast.

  from  92a14313fe Use new version string format for unreleased revisions
   new  31446ad19c Split Options section into subsections
   new  1c92a5daf5 Rename keycast-mode to keycast-mode-line-mode
   new  38a09aa5e3 keycast-mode-line-mode: Cosmetics
   new  3df44bd9e7 keycast-mode-line-mode: Make sure to modify global 
mode-line-format
   new  860b0781a4 keycast-mode-line-mode: Support atomic and void global 
mode-line-format
   new  f87f9c965e keycast-mode-line-mode: Support buffers with local 
mode-line-format
   new  3367c7d375 keycast--removed-tail: Rename to 
keycast--header-line-removed-tail
   new  81bad0faa8 keycast--tree-member: Move definition
   new  36d7bfa75f keycast-header-line-mode: New mode
   new  53514c3dc3 Update documentation


Summary of changes:
 README.org |  19 +++--
 keycast.el | 241 +++--
 2 files changed, 217 insertions(+), 43 deletions(-)

[nongnu] elpa/keycast 1c92a5daf5 02/10: Rename keycast-mode to keycast-mode-line-mode

[ELPA Syncer]

branch: elpa/keycast
commit 1c92a5daf535c5481803ea781b65517a136b60c9
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Rename keycast-mode to keycast-mode-line-mode
---
 keycast.el | 17 ++---
 1 file changed, 10 insertions(+), 7 deletions(-)

diff --git a/keycast.el b/keycast.el
index dd24e2baa1..57f1d4e98a 100644
--- a/keycast.el
+++ b/keycast.el
@@ -277,12 +277,13 @@ t to show the actual COMMAND, or a symbol to be shown 
instead."
 
 ;;; Common
 
-(defvar keycast-mode)
+(defvar keycast-mode-line-mode)
 (defvar keycast-tab-bar-mode)
 (defvar keycast-log-mode)
 
 (defun keycast--mode-active-p (&optional line)
-  (or keycast-mode keycast-tab-bar-mode
+  (or keycast-mode-line-mode
+  keycast-tab-bar-mode
   (and (not line) keycast-log-mode)))
 
 (defvar keycast--this-command-desc nil)
@@ -392,18 +393,20 @@ t to show the actual COMMAND, or a symbol to be shown 
instead."
 
 (defvar keycast--removed-tail nil)
 
+(defalias 'keycast-mode 'keycast-mode-line-mode)
+
 ;;;###autoload
-(define-minor-mode keycast-mode
+(define-minor-mode keycast-mode-line-mode
   "Show current command and its key binding in the mode line."
   :global t
-  (if keycast-mode
+  (if keycast-mode-line-mode
   (let ((cons (keycast--tree-member keycast-mode-line-insert-after 
mode-line-format)))
 (unless cons
-  (setq keycast-mode nil)
+  (setq keycast-mode-line-mode nil)
   (user-error
"Cannot turn on %s.  %s not found in %s.  Try customizing %s."
-   'keycast-mode keycast-mode-line-insert-after 'mode-line-format
-   'keycast-mode-line-insert-after))
+   'keycast-mode-line-mode keycast-mode-line-insert-after
+   'mode-line-format 'keycast-mode-line-insert-after))
 (cond (keycast-mode-line-remove-tail-elements
(setq keycast--removed-tail (cdr cons))
(setcdr cons (list 'keycast-mode-line)))

[nongnu] elpa/keycast f87f9c965e 06/10: keycast-mode-line-mode: Support buffers with local mode-line-format

[ELPA Syncer]

branch: elpa/keycast
commit f87f9c965ec7646da09431e69c4bddb70514d896
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

keycast-mode-line-mode: Support buffers with local mode-line-format
---
 keycast.el | 25 +
 1 file changed, 25 insertions(+)

diff --git a/keycast.el b/keycast.el
index ff8850f8e5..a62eeab2ee 100644
--- a/keycast.el
+++ b/keycast.el
@@ -330,12 +330,31 @@ t to show the actual COMMAND, or a symbol to be shown 
instead."
 (< keycast--command-repetitions 0))
 (cl-incf keycast--command-repetitions)
   (setq keycast--command-repetitions 0)))
+  (when keycast-mode-line-mode
+(keycast--maybe-edit-local-format
+ 'mode-line-format
+ 'keycast-mode-line
+ 'keycast--mode-line-modified-buffers))
   (when (and keycast-log-mode
  (not keycast--reading-passwd))
 (keycast-log-update-buffer))
   (when (keycast--mode-active-p 'line)
 (force-mode-line-update (minibufferp
 
+(defun keycast--maybe-edit-local-format (format item record)
+  (let ((value (buffer-local-value format (current-buffer
+(unless (and (listp value)
+ (memq item value))
+  (set record (cons (current-buffer) (symbol-value record)))
+  (set format (if (keycast--format-atom-p value)
+  (list "" item value)
+(nconc (list "" item) value))
+
+(defun keycast--format-atom-p (format)
+  (or (stringp format)
+  (and (not (stringp (car-safe format)))
+   (not (listp (car-safe format))
+
 (defun keycast--format (format)
   (and (not keycast--reading-passwd)
(let* ((key (ignore-errors
@@ -393,6 +412,7 @@ t to show the actual COMMAND, or a symbol to be shown 
instead."
 
 (defvar keycast--removed-tail nil)
 (defvar keycast--temporary-mode-line nil)
+(defvar keycast--mode-line-modified-buffers nil)
 
 (defalias 'keycast-mode 'keycast-mode-line-mode)
 
@@ -435,6 +455,11 @@ t to show the actual COMMAND, or a symbol to be shown 
instead."
 (t
  (setcar cons (cadr cons))
  (setcdr cons (cddr cons)
+(dolist (buf keycast--mode-line-modified-buffers)
+  (when (buffer-live-p buf)
+(with-current-buffer buf
+  (setq-local mode-line-format
+  (delq 'keycast-mode-line mode-line-format)
 (unless (keycast--mode-active-p)
   (remove-hook 'post-command-hook #'keycast--update)
   (remove-hook 'minibuffer-exit-hook #'keycast--minibuffer-exit)

[nongnu] elpa/keycast 31446ad19c 01/10: Split Options section into subsections

[ELPA Syncer]

branch: elpa/keycast
commit 31446ad19c443d4c92d41e06fb9c22fce9710b15
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Split Options section into subsections
---
 keycast.el | 8 
 1 file changed, 8 insertions(+)

diff --git a/keycast.el b/keycast.el
index 49107f0493..dd24e2baa1 100644
--- a/keycast.el
+++ b/keycast.el
@@ -53,6 +53,8 @@
   "Show the current command and its key binding in the mode line."
   :group 'applications)
 
+ Mode-Line
+
 (defcustom keycast-mode-line-insert-after 'mode-line-buffer-identification
   "The position in `mode-line-format' where `keycast-mode-line' is inserted.
 
@@ -121,6 +123,8 @@ with no argument and acts on `selected-window'.
   :group 'keycast
   :type 'integer)
 
+ Tab-Bar
+
 (defcustom keycast-tab-bar-location 'tab-bar-format-align-right
   "The location in `tab-bar-format' where `keycast-tab-bar' is inserted.
 
@@ -171,6 +175,8 @@ but that isn't a member yet, then insert that followed by
   :group 'keycast
   :type 'integer)
 
+ Log-Buffer
+
 (defcustom keycast-log-format "%-20K%C%R\n"
   "The format spec used by `keycast-log-mode'.
 
@@ -254,6 +260,8 @@ t to show the actual COMMAND, or a symbol to be shown 
instead."
 (const   :tag "Use actual command" t)
 (symbol  :tag "Substitute command")
 
+ Faces
+
 (defface keycast-key
   '((t ( :inherit fixed-pitch
  :weight bold

[nongnu] elpa/keycast 860b0781a4 05/10: keycast-mode-line-mode: Support atomic and void global mode-line-format

[ELPA Syncer]

branch: elpa/keycast
commit 860b0781a44b370ba5b41a80e838486325a89681
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

keycast-mode-line-mode: Support atomic and void global mode-line-format

When normally not using a mode-line (e.g., because the header-line is
used for that purpose), but the mode-line is used for keycast, then
`keycast-mode-line-insert-after' additionally has to be set to "".
---
 keycast.el | 15 ---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/keycast.el b/keycast.el
index 53c79621f6..ff8850f8e5 100644
--- a/keycast.el
+++ b/keycast.el
@@ -392,6 +392,7 @@ t to show the actual COMMAND, or a symbol to be shown 
instead."
 ;;; Mode-Line
 
 (defvar keycast--removed-tail nil)
+(defvar keycast--temporary-mode-line nil)
 
 (defalias 'keycast-mode 'keycast-mode-line-mode)
 
@@ -401,6 +402,11 @@ t to show the actual COMMAND, or a symbol to be shown 
instead."
   :global t
   (cond
(keycast-mode-line-mode
+(cond ((not (default-value 'mode-line-format))
+   (setq keycast--temporary-mode-line t)
+   (setq-default mode-line-format (list "")))
+  ((keycast--format-atom-p mode-line-format)
+   (setq-default mode-line-format (list "" mode-line-format
 (let ((cons (keycast--tree-member keycast-mode-line-insert-after
   (default-value 'mode-line-format
   (unless cons
@@ -419,13 +425,16 @@ t to show the actual COMMAND, or a symbol to be shown 
instead."
(t
 (let ((cons (keycast--tree-member 'keycast-mode-line
   (default-value 'mode-line-format
-  (cond (keycast--removed-tail
+  (cond (keycast--temporary-mode-line
+ (setq-default mode-line-format nil)
+ (setq keycast--temporary-mode-line nil))
+(keycast--removed-tail
  (setcar cons (car keycast--removed-tail))
- (setcdr cons (cdr keycast--removed-tail)))
+ (setcdr cons (cdr keycast--removed-tail))
+ (setq keycast--removed-tail nil))
 (t
  (setcar cons (cadr cons))
  (setcdr cons (cddr cons)
-(setq keycast--removed-tail nil)
 (unless (keycast--mode-active-p)
   (remove-hook 'post-command-hook #'keycast--update)
   (remove-hook 'minibuffer-exit-hook #'keycast--minibuffer-exit)

[nongnu] elpa/keycast 53514c3dc3 10/10: Update documentation

[ELPA Syncer]

branch: elpa/keycast
commit 53514c3dc3dfb7d4c3a65898b0b3edb69b6536c2
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Update documentation
---
 README.org | 19 ++-
 keycast.el | 19 ++-
 2 files changed, 28 insertions(+), 10 deletions(-)

diff --git a/README.org b/README.org
index bd0c36d132..e6862a8ae4 100644
--- a/README.org
+++ b/README.org
@@ -1,9 +1,18 @@
 * Show current command and its binding
 
-This package provides three modes that display the current command and
-its key or mouse binding.  ~keycast-mode~ shows the current binding in
-the mode-line while ~keycast-tab-bar-mode~ displays it in the tab-bar.
-~keycast-log-mode~ displays a list of recent bindings in a dedicated
-frame.
+This package provides four modes that display the current command and
+its key or mouse binding.
+
+- ~keycast-mode-line-mode~ shows the current binding at the bottom of
+  the selected window, in its mode line.
+
+- ~keycast-header-line-mode~ shows the current binding at the top of
+  the selected window, in its header line.
+
+- ~keycast-tab-bar-mode~ shows the current binding at the top of
+  the selected frame, in its tab bar.
+
+- ~keycast-log-mode~ displays a list of recent bindings in a dedicated
+  frame.
 
 [[http://readme.emacsair.me/keycast.png]]
diff --git a/keycast.el b/keycast.el
index c4c1732786..4abcd1726f 100644
--- a/keycast.el
+++ b/keycast.el
@@ -26,11 +26,20 @@
 
 ;;; Commentary:
 
-;; This package provides three modes that display the current command and
-;; its key or mouse binding.  `keycast-mode' shows the current binding in
-;; the mode-line while `keycast-tab-bar-mode' displays it in the tab-bar.
-;; `keycast-log-mode' displays a list of recent bindings in a dedicated
-;; frame.
+;; This package provides four modes that display the current command and
+;; its key or mouse binding.
+;;
+;; - `keycast-mode-line-mode' shows the current binding at the bottom of
+;;   the selected window, in its mode line.
+;;
+;; - `keycast-header-line-mode' shows the current binding at the top of
+;;   the selected window, in its header line.
+;;
+;; - `keycast-tab-bar-mode' shows the current binding at the top of
+;;   the selected frame, in its tab bar.
+;;
+;; - `keycast-log-mode' displays a list of recent bindings in a dedicated
+;;   frame.
 
 ;;; Code:
 

[nongnu] elpa/keycast 81bad0faa8 08/10: keycast--tree-member: Move definition

[ELPA Syncer]

branch: elpa/keycast
commit 81bad0faa87fb0efd87921dc39a2084c161fc0c4
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

keycast--tree-member: Move definition
---
 keycast.el | 16 
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/keycast.el b/keycast.el
index 38bb519769..0cb0697a86 100644
--- a/keycast.el
+++ b/keycast.el
@@ -408,6 +408,14 @@ t to show the actual COMMAND, or a symbol to be shown 
instead."
  (eq (window-frame) (window-frame powerline-selected-window)))
 (t t)))
 
+(defun keycast--tree-member (elt tree)
+  (or (member elt tree)
+  (catch 'found
+(dolist (sub tree)
+  (when-let ((found (and (listp sub)
+ (keycast--tree-member elt sub
+(throw 'found found))
+
 ;;; Mode-Line
 
 (defvar keycast--mode-line-removed-tail nil)
@@ -464,14 +472,6 @@ t to show the actual COMMAND, or a symbol to be shown 
instead."
   (remove-hook 'post-command-hook #'keycast--update)
   (remove-hook 'minibuffer-exit-hook #'keycast--minibuffer-exit)
 
-(defun keycast--tree-member (elt tree)
-  (or (member elt tree)
-  (catch 'found
-(dolist (sub tree)
-  (when-let ((found (and (listp sub)
- (keycast--tree-member elt sub
-(throw 'found found))
-
 (defvar keycast-mode-line
   '(:eval
 (and (funcall keycast-mode-line-window-predicate)

[nongnu] elpa/keycast 36d7bfa75f 09/10: keycast-header-line-mode: New mode

[ELPA Syncer]

branch: elpa/keycast
commit 36d7bfa75f7250e3b3085175cd85b95325a08782
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

keycast-header-line-mode: New mode
---
 keycast.el | 107 +
 1 file changed, 107 insertions(+)

diff --git a/keycast.el b/keycast.el
index 0cb0697a86..c4c1732786 100644
--- a/keycast.el
+++ b/keycast.el
@@ -123,6 +123,43 @@ with no argument and acts on `selected-window'.
   :group 'keycast
   :type 'integer)
 
+ Header-Line
+
+(defcustom keycast-header-line-insert-after ""
+  "The position in `header-line-format' where `keycast-header-line' is 
inserted.
+
+Enabling `keycast-header-line-mode' inserts the element
+`keycast-header-line' into `header-line-format' after the
+element specified here."
+  :group 'keycast
+  :type '(cons (choice :tag "Insert after"
+   variable
+   sexp)
+   (boolean :tag "Remove following elements")))
+
+(defcustom keycast-header-line-remove-tail-elements t
+  "Whether enabling `keycast-header-line-mode' removes elements to the right.
+
+When this is non-nil, then enabling `keycast-header-linemode' not
+only inserts `keycast-header-line' into `header-line-format' but
+also removes all elements to the right of where that was inserted."
+  :group 'keycast
+  :type 'boolean)
+
+(defcustom keycast-header-line-format "%k%c%r "
+  "The format spec used by `keycast-header-line'.
+
+%s Some spaces, intended to be used like so: %10s.
+%k The key using the `keycast-key' face and padding.
+%K The key with no styling and without any padding.
+%c The command using the `keycast-command' face.
+%C The command with no styling.
+%r The times the command was repeated.
+%R The times the command was repeated using the `shadow' face."
+  :package-version '(keycast . "1.0.3")
+  :group 'keycast
+  :type 'integer)
+
  Tab-Bar
 
 (defcustom keycast-tab-bar-location 'tab-bar-format-align-right
@@ -278,11 +315,13 @@ t to show the actual COMMAND, or a symbol to be shown 
instead."
 ;;; Common
 
 (defvar keycast-mode-line-mode)
+(defvar keycast-header-line-mode)
 (defvar keycast-tab-bar-mode)
 (defvar keycast-log-mode)
 
 (defun keycast--mode-active-p (&optional line)
   (or keycast-mode-line-mode
+  keycast-header-line-mode
   keycast-tab-bar-mode
   (and (not line) keycast-log-mode)))
 
@@ -335,6 +374,11 @@ t to show the actual COMMAND, or a symbol to be shown 
instead."
  'mode-line-format
  'keycast-mode-line
  'keycast--mode-line-modified-buffers))
+  (when keycast-header-line-mode
+(keycast--maybe-edit-local-format
+ 'header-line-format
+ 'keycast-header-line
+ 'keycast--header-line-modified-buffers))
   (when (and keycast-log-mode
  (not keycast--reading-passwd))
 (keycast-log-update-buffer))
@@ -480,6 +524,69 @@ t to show the actual COMMAND, or a symbol to be shown 
instead."
 (put 'keycast-mode-line 'risky-local-variable t)
 (make-variable-buffer-local 'keycast-mode-line)
 
+;;; Header-Line
+
+(defvar keycast--temporary-header-line nil)
+(defvar keycast--header-line-removed-tail nil)
+(defvar keycast--header-line-modified-buffers nil)
+
+;;;###autoload
+(define-minor-mode keycast-header-line-mode
+  "Show current command and its key binding in the header line."
+  :global t
+  (cond
+   (keycast-header-line-mode
+(cond ((not (default-value 'header-line-format))
+   (setq keycast--temporary-header-line t)
+   (setq-default header-line-format (list "")))
+  ((keycast--format-atom-p header-line-format)
+   (setq-default header-line-format (list "" header-line-format
+(let ((cons (keycast--tree-member keycast-header-line-insert-after
+  (default-value 'header-line-format
+  (unless cons
+(setq keycast-header-line-mode nil)
+(user-error
+ "Cannot turn on %s.  %s not found in %s.  Try customizing %s."
+ 'keycast-header-line-mode keycast-header-line-insert-after
+ 'header-line-format 'keycast-header-line-insert-after))
+  (cond (keycast-header-line-remove-tail-elements
+ (setq keycast--header-line-removed-tail (cdr cons))
+ (setcdr cons (list 'keycast-header-line)))
+(t
+ (setcdr cons (cons 'keycast-header-line (cdr cons)
+  (add-hook 'post-command-hook #'keycast--update t)
+  (add-hook 'minibuffer-exit-hook #'keycast--minibuffer-exit t)))
+   (t
+(let ((cons (keycast--tree-member 'keycast-header-line
+  (default-value 'header-line-format
+  (cond (keycast--temporary-header-line
+ (setq keycast--temporary-header-line nil)
+ (setq-default header-line-format nil))
+(keycast--header-line-removed-tail
+ (setcar cons (car keycast--header-line-removed-tail))
+ (setcdr cons (cdr keycast--header-line-removed-tail)))
+

[nongnu] elpa/keycast 38a09aa5e3 03/10: keycast-mode-line-mode: Cosmetics

[ELPA Syncer]

branch: elpa/keycast
commit 38a09aa5e3c9e2080a1b33f52919bf6b05edfed9
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

keycast-mode-line-mode: Cosmetics
---
 keycast.el | 35 +++
 1 file changed, 19 insertions(+), 16 deletions(-)

diff --git a/keycast.el b/keycast.el
index 57f1d4e98a..d6b5a38c2a 100644
--- a/keycast.el
+++ b/keycast.el
@@ -399,21 +399,24 @@ t to show the actual COMMAND, or a symbol to be shown 
instead."
 (define-minor-mode keycast-mode-line-mode
   "Show current command and its key binding in the mode line."
   :global t
-  (if keycast-mode-line-mode
-  (let ((cons (keycast--tree-member keycast-mode-line-insert-after 
mode-line-format)))
-(unless cons
-  (setq keycast-mode-line-mode nil)
-  (user-error
-   "Cannot turn on %s.  %s not found in %s.  Try customizing %s."
-   'keycast-mode-line-mode keycast-mode-line-insert-after
-   'mode-line-format 'keycast-mode-line-insert-after))
-(cond (keycast-mode-line-remove-tail-elements
-   (setq keycast--removed-tail (cdr cons))
-   (setcdr cons (list 'keycast-mode-line)))
-  (t
-   (setcdr cons (cons 'keycast-mode-line (cdr cons)
-(add-hook 'post-command-hook #'keycast--update t)
-(add-hook 'minibuffer-exit-hook #'keycast--minibuffer-exit t))
+  (cond
+   (keycast-mode-line-mode
+(let ((cons (keycast--tree-member keycast-mode-line-insert-after
+  mode-line-format)))
+  (unless cons
+(setq keycast-mode-line-mode nil)
+(user-error
+ "Cannot turn on %s.  %s not found in %s.  Try customizing %s."
+ 'keycast-mode-line-mode keycast-mode-line-insert-after
+ 'mode-line-format 'keycast-mode-line-insert-after))
+  (cond (keycast-mode-line-remove-tail-elements
+ (setq keycast--removed-tail (cdr cons))
+ (setcdr cons (list 'keycast-mode-line)))
+(t
+ (setcdr cons (cons 'keycast-mode-line (cdr cons)
+  (add-hook 'post-command-hook #'keycast--update t)
+  (add-hook 'minibuffer-exit-hook #'keycast--minibuffer-exit t)))
+   (t
 (let ((cons (keycast--tree-member 'keycast-mode-line mode-line-format)))
   (cond (keycast--removed-tail
  (setcar cons (car keycast--removed-tail))
@@ -424,7 +427,7 @@ t to show the actual COMMAND, or a symbol to be shown 
instead."
 (setq keycast--removed-tail nil)
 (unless (keycast--mode-active-p)
   (remove-hook 'post-command-hook #'keycast--update)
-  (remove-hook 'minibuffer-exit-hook #'keycast--minibuffer-exit
+  (remove-hook 'minibuffer-exit-hook #'keycast--minibuffer-exit)
 
 (defun keycast--tree-member (elt tree)
   (or (member elt tree)

[nongnu] elpa/keycast 3df44bd9e7 04/10: keycast-mode-line-mode: Make sure to modify global mode-line-format

[ELPA Syncer]

branch: elpa/keycast
commit 3df44bd9e796c6720545e5354b966a8467985795
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

keycast-mode-line-mode: Make sure to modify global mode-line-format
---
 keycast.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/keycast.el b/keycast.el
index d6b5a38c2a..53c79621f6 100644
--- a/keycast.el
+++ b/keycast.el
@@ -402,7 +402,7 @@ t to show the actual COMMAND, or a symbol to be shown 
instead."
   (cond
(keycast-mode-line-mode
 (let ((cons (keycast--tree-member keycast-mode-line-insert-after
-  mode-line-format)))
+  (default-value 'mode-line-format
   (unless cons
 (setq keycast-mode-line-mode nil)
 (user-error
@@ -417,7 +417,8 @@ t to show the actual COMMAND, or a symbol to be shown 
instead."
   (add-hook 'post-command-hook #'keycast--update t)
   (add-hook 'minibuffer-exit-hook #'keycast--minibuffer-exit t)))
(t
-(let ((cons (keycast--tree-member 'keycast-mode-line mode-line-format)))
+(let ((cons (keycast--tree-member 'keycast-mode-line
+  (default-value 'mode-line-format
   (cond (keycast--removed-tail
  (setcar cons (car keycast--removed-tail))
  (setcdr cons (cdr keycast--removed-tail)))

[nongnu] elpa/cider c132951484 4/4: Use analyze-last-stacktrace and handle notifications

[ELPA Syncer]

branch: elpa/cider
commit c1329514842e30ca9eb30adf7e767de0539fe2c5
Author: Roman Scherer 
Commit: Bozhidar Batsov 

Use analyze-last-stacktrace and handle notifications
---
 cider-eval.el | 14 +-
 1 file changed, 9 insertions(+), 5 deletions(-)

diff --git a/cider-eval.el b/cider-eval.el
index da20f78ad9..29ce15156e 100644
--- a/cider-eval.el
+++ b/cider-eval.el
@@ -482,8 +482,10 @@ op/situation that originated this error."
 If RESPONSE contains a cause, cons it onto CAUSES and return that.  If
 RESPONSE is the final message (i.e. it contains a status), render CAUSES
 into a new error buffer."
-  (nrepl-dbind-response response (class status)
-(cond (class (cons response causes))
+  (nrepl-dbind-response response (class msg status type)
+(cond ((and (member "notification" status) causes)
+   (nrepl-notify msg type))
+  (class (cons response causes))
   (status (cider--render-stacktrace-causes causes)
 
 (defun cider-default-err-op-handler ()
@@ -493,7 +495,7 @@ into a new error buffer."
 (cider-nrepl-send-request
  (thread-last
(map-merge 'list
-  '(("op" "stacktrace"))
+  '(("op" "analyze-last-stacktrace"))
   (cider--nrepl-print-request-map fill-column))
(seq-mapcat #'identity))
  (lambda (response)
@@ -505,8 +507,10 @@ into a new error buffer."
 (defun cider-default-err-handler ()
   "This function determines how the error buffer is shown.
 It delegates the actual error content to the eval or op handler."
-  (cond ((cider-nrepl-op-supported-p "stacktrace") 
(cider-default-err-op-handler))
-((cider-library-present-p "clojure.stacktrace") 
(cider-default-err-eval-handler))
+  (cond ((cider-nrepl-op-supported-p "analyze-last-stacktrace")
+ (cider-default-err-op-handler))
+((cider-library-present-p "clojure.stacktrace")
+ (cider-default-err-eval-handler))
 (t (cider-default-err-eval-print-handler
 
 

[nongnu] elpa/cider 0da71dd6c9 3/4: Add support to view printed exceptions in the stacktrace inspector

[ELPA Syncer]

branch: elpa/cider
commit 0da71dd6c992a4686d5f1c93b3ced65ab87e137c
Author: Roman Scherer 
Commit: Bozhidar Batsov 

Add support to view printed exceptions in the stacktrace inspector

This PR adds the `cider-stacktrace-analyze-at-point` and
`cider-stacktrace-analyze-in-region` commands to view printed
exceptions in the stacktrace inspector.
---
 CHANGELOG.md   |   1 +
 cider-stacktrace.el|  98 ---
 .../ROOT/pages/usage/dealing_with_errors.adoc  |  92 ++
 test/cider-stacktrace-tests.el | 189 -
 4 files changed, 353 insertions(+), 27 deletions(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index a0cad9b5d8..f54cc1b61e 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -5,6 +5,7 @@
 ### New features
 
 - [#3249](https://github.com/clojure-emacs/cider/pull/3249): Add support for 
Clojure Spec 2.
+- [#3247](https://github.com/clojure-emacs/cider/pull/3247) Add the 
`cider-stacktrace-analyze-at-point` and `cider-stacktrace-analyze-in-region` 
commands to view printed exceptions in the stacktrace inspector.
 
 ### Changes
 
diff --git a/cider-stacktrace.el b/cider-stacktrace.el
index 24b4e57fa9..b1e45facc8 100644
--- a/cider-stacktrace.el
+++ b/cider-stacktrace.el
@@ -670,29 +670,30 @@ This associates text properties to enable filtering and 
source navigation."
   'follow-link t
   'action (lambda (x) (browse-url (button-get x 
'url)
   (nrepl-dbind-response frame (file line flags class method name var ns fn)
-(let ((flags (mapcar #'intern flags))) ; strings -> symbols
-  (insert-text-button (format "%26s:%5d  %s/%s"
-  (if (member 'repl flags) "REPL" file) 
line
-  (if (member 'clj flags) ns class)
-  (if (member 'clj flags) fn method))
-  'var var 'class class 'method method
-  'name name 'file file 'line line
-  'flags flags 'follow-link t
-  'action #'cider-stacktrace-navigate
-  'help-echo (cider-stacktrace-tooltip
-  "View source at this location")
-  'font-lock-face 'cider-stacktrace-face
-  'type 'cider-plain-button)
-  (save-excursion
-(let ((p4 (point))
-  (p1 (search-backward " "))
-  (p2 (search-forward "/"))
-  (p3 (search-forward-regexp "[^/$]+")))
-  (put-text-property p1 p4 'font-lock-face 
'cider-stacktrace-ns-face)
-  (put-text-property p2 p3 'font-lock-face 
'cider-stacktrace-fn-face)
-  (put-text-property (line-beginning-position) (line-end-position)
- 'cider-stacktrace-frame t)))
-  (insert "\n"))
+(when (or class file fn method ns name)
+  (let ((flags (mapcar #'intern flags))) ; strings -> symbols
+(insert-text-button (format "%26s:%5d  %s/%s"
+(if (member 'repl flags) "REPL" file) 
(or line -1)
+(if (member 'clj flags) ns class)
+(if (member 'clj flags) fn method))
+'var var 'class class 'method method
+'name name 'file file 'line line
+'flags flags 'follow-link t
+'action #'cider-stacktrace-navigate
+'help-echo (cider-stacktrace-tooltip
+"View source at this location")
+'font-lock-face 'cider-stacktrace-face
+'type 'cider-plain-button)
+(save-excursion
+  (let ((p4 (point))
+(p1 (search-backward " "))
+(p2 (search-forward "/"))
+(p3 (search-forward-regexp "[^/$]+")))
+(put-text-property p1 p4 'font-lock-face 
'cider-stacktrace-ns-face)
+(put-text-property p2 p3 'font-lock-face 
'cider-stacktrace-fn-face)
+(put-text-property (line-beginning-position) 
(line-end-position)
+   'cider-stacktrace-frame t)))
+(insert "\n")))
 
 (defun cider-stacktrace-render-compile-error (buffer cause)
   "Emit into BUFFER the compile error CAUSE, and enable jumping to it."
@@ -844,7 +845,8 @@ the NAME.  The whole group is prefixed by string INDENT."
   (goto-char (next-single-property-change (point) 'compile-error))
 (progn
   (while (cider-stacktrace-next-cause))
-  (goto-cha

[nongnu] elpa/cider 63b33cca8e 2/4: Bump the cider-nrepl dep

[ELPA Syncer]

branch: elpa/cider
commit 63b33cca8e88532db8e19c5de5566a117cfec3e2
Author: Bozhidar Batsov 
Commit: Bozhidar Batsov 

Bump the cider-nrepl dep
---
 cider.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/cider.el b/cider.el
index 0bf5972918..116f6c7820 100644
--- a/cider.el
+++ b/cider.el
@@ -420,7 +420,7 @@ the artifact.")
 (defconst cider-latest-clojure-version "1.10.1"
   "Latest supported version of Clojure.")
 
-(defconst cider-required-middleware-version "0.28.7"
+(defconst cider-required-middleware-version "0.29.0"
   "The CIDER nREPL version that's known to work properly with CIDER.")
 
 (defcustom cider-injected-middleware-version cider-required-middleware-version

[nongnu] elpa/cider updated (43318f39c1 -> c132951484)

[ELPA Syncer]

elpasync pushed a change to branch elpa/cider.

  from  43318f39c1 Fix a typo
   new  7570876de5 Add more words of inspiration
   new  63b33cca8e Bump the cider-nrepl dep
   new  0da71dd6c9 Add support to view printed exceptions in the stacktrace 
inspector
   new  c132951484 Use analyze-last-stacktrace and handle notifications


Summary of changes:
 CHANGELOG.md   |   1 +
 cider-eval.el  |  14 +-
 cider-stacktrace.el|  98 ---
 cider-util.el  |   1 +
 cider.el   |   2 +-
 .../ROOT/pages/usage/dealing_with_errors.adoc  |  92 ++
 test/cider-stacktrace-tests.el | 189 -
 7 files changed, 364 insertions(+), 33 deletions(-)

[nongnu] elpa/cider 7570876de5 1/4: Add more words of inspiration

[ELPA Syncer]

branch: elpa/cider
commit 7570876de5001158e101ad25601f08ef7d982427
Author: Bozhidar Batsov 
Commit: Bozhidar Batsov 

Add more words of inspiration
---
 cider-util.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/cider-util.el b/cider-util.el
index ea8a16deeb..7ee59ba0db 100644
--- a/cider-util.el
+++ b/cider-util.el
@@ -691,6 +691,7 @@ through a stack of help buffers.  Variables 
`help-back-label' and
 "One REPL to rule them all, One REPL to find them, One REPL to bring them 
all, and in parentheses bind them!"
 "A blank REPL promotes creativity."
 "A blank REPL is infinitely better than a blank cheque."
+"May your functions be pure, your code concise and your programs a joy to 
behold!"
 ,(format "%s, I've a feeling we're not in Kansas anymore."
  (cider-user-first-name))
 ,(format "%s, this could be the start of a beautiful program."

[nongnu] elpa/racket-mode updated (3847c5e8e3 -> 68d14352f9)

[ELPA Syncer]

elpasync pushed a change to branch elpa/racket-mode.

  from  3847c5e8e3 Re-enable test disabled in commit c24ecc3; issue #647
   new  6550c1140b gitignore ELPA-generated files
   new  68d14352f9 Add email address for Author package metadata


Summary of changes:
 .gitignore | 3 +++
 racket-mode.el | 2 +-
 2 files changed, 4 insertions(+), 1 deletion(-)

[nongnu] elpa/racket-mode 6550c1140b 1/2: gitignore ELPA-generated files

[ELPA Syncer]

branch: elpa/racket-mode
commit 6550c1140b9eaee88e8410a80ea61ebeeaadff10
Author: Greg Hendershott 
Commit: Greg Hendershott 

gitignore ELPA-generated files
---
 .gitignore | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/.gitignore b/.gitignore
index 4ed5429b0c..9fd67704f5 100644
--- a/.gitignore
+++ b/.gitignore
@@ -7,3 +7,6 @@ doc/reference.org
 doc/racket-mode.html
 doc/*.png
 doc/*.svg
+# ELPA-generated files
+/racket-mode-autoloads.el
+/racket-mode-pkg.el

[nongnu] elpa/racket-mode 68d14352f9 2/2: Add email address for Author package metadata

[ELPA Syncer]

branch: elpa/racket-mode
commit 68d14352f9973b7b8b3f505da82d082f96270935
Author: Greg Hendershott 
Commit: Greg Hendershott 

Add email address for Author package metadata

Use a fresh, distinct email address to facilitate tracking and
filtering.

Although I am adding this to comply with a request from NonGNU ELPA, I
do NOT want to be contacted at that email address with bug reports,
feature requests, questions, etc.

Instead, PLEASE continue to use:

  https://github.com/greghendershott/racket-mode/issues

That is my sole, preferred "inbox".

Thank you.
---
 racket-mode.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/racket-mode.el b/racket-mode.el
index 6634083cf2..53c58366e7 100644
--- a/racket-mode.el
+++ b/racket-mode.el
@@ -4,7 +4,7 @@
 
 ;; Package: racket-mode
 ;; Package-Requires: ((emacs "25.1"))
-;; Author: Greg Hendershott
+;; Author: Greg Hendershott 
 ;; Maintainer: Greg Hendershott
 ;; URL: https://www.racket-mode.com/
 ;; Version: 1

[elpa] externals/consult df877109c8: Fix deprecation warning (Fix #693)

[ELPA Syncer]

branch: externals/consult
commit df877109c836b3d1d6e57f68069348040fb0ebd4
Author: Daniel Mendler 
Commit: Daniel Mendler 

Fix deprecation warning (Fix #693)
---
 consult.el | 30 --
 1 file changed, 16 insertions(+), 14 deletions(-)

diff --git a/consult.el b/consult.el
index c7ac3dc4d9..7df17aa1aa 100644
--- a/consult.el
+++ b/consult.el
@@ -3292,20 +3292,22 @@ INITIAL is the initial input."
(consult--completion-filter-dispatch
 pattern cands 'consult-location 'highlight
   (consult--forbid-minibuffer)
-  (cl-letf ((ro buffer-read-only)
-((buffer-local-value 'buffer-read-only (current-buffer)) nil))
-(consult--minibuffer-with-setup-hook
-(lambda ()
-  (when ro
-(minibuffer-message
- (substitute-command-keys
-  " [Unlocked read-only buffer. \\[minibuffer-keyboard-quit] to 
quit.]"
-  (consult--with-increased-gc
-   (consult--prompt
-:prompt "Keep lines: "
-:initial initial
-:history 'consult--keep-lines-history
-:state (consult--keep-lines-state filter))
+  (let ((ro buffer-read-only))
+(unwind-protect
+(consult--minibuffer-with-setup-hook
+(lambda ()
+  (when ro
+(minibuffer-message
+ (substitute-command-keys
+  " [Unlocked read-only buffer. \\[minibuffer-keyboard-quit] 
to quit.]"
+  (setq buffer-read-only nil)
+  (consult--with-increased-gc
+   (consult--prompt
+:prompt "Keep lines: "
+:initial initial
+:history 'consult--keep-lines-history
+:state (consult--keep-lines-state filter
+  (setq buffer-read-only ro
 
 ; Command: consult-focus-lines
 

[elpa] externals/corfu c96071f977: Align popups at the bottom when the doc popup is taller than the candidates popup and limit height of the doc popup to avoid exceeding the parent frame (#273)

[ELPA Syncer]

branch: externals/corfu
commit c96071f9776dd624ab81c3873bec032eae1f9a15
Author: galeo 
Commit: GitHub 

Align popups at the bottom when the doc popup is taller than the candidates 
popup and limit height of the doc popup to avoid exceeding the parent frame 
(#273)

* corfu-popupinfo: Align popups at the bottom when doc popup is taller

(#271)

* corfu-popupinfo: Ensure y value is not negative (#271)

* corfu-popupinfo: Limit popup height to avoid exceeding the parent frame

* Minor simplification

Co-authored-by: Daniel Mendler 
---
 extensions/corfu-popupinfo.el | 14 ++
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/extensions/corfu-popupinfo.el b/extensions/corfu-popupinfo.el
index d0cee7bcca..038253f4a4 100644
--- a/extensions/corfu-popupinfo.el
+++ b/extensions/corfu-popupinfo.el
@@ -291,14 +291,20 @@ form (X Y WIDTH HEIGHT DIR)."
(below (>= cfy (+ lh (cadr (window-inside-pixel-edges))
  (window-tab-line-height)
  (or (cdr (posn-x-y (posn-at-point (point 
0
+   ;; Popups aligned at top
+   (top-aligned (or below (< (cdr ps) cfh)))
;; Left display area
-   (ahy (if below cfy (- (+ cfy cfh) (cdr ps) border border)))
+   (ahy (if top-aligned
+cfy
+  (max 0 (- (+ cfy cfh) border border (cdr ps)
+   (ahh (if top-aligned
+(min (- pfh cfy) (cdr ps))
+  (min (- (+ cfy cfh) border border) (cdr ps
(al (list (max 0 (- cfx (car ps) border)) ahy
- (min (- cfx border) (car ps)) (cdr ps) 'left))
+ (min (- cfx border) (car ps)) ahh 'left))
;; Right display area
(arx (+ cfx cfw (- border)))
-   (ar (list arx ahy (min (- pfw arx border border) (car ps))
- (cdr ps) 'right))
+   (ar (list arx ahy (min (- pfw arx border border) (car ps)) ahh 
'right))
;; Vertical display area
(avw (min (car ps) (- pfw cfx border border)))
(av (if below

[elpa] externals/csharp-mode ad2cab1d48 2/3: chore(Eask): Add package's metadata

[ELPA Syncer]

branch: externals/csharp-mode
commit ad2cab1d48948d44994b40920b7846359dd2ad39
Author: Jen-Chieh Shen 
Commit: GitHub 

chore(Eask): Add package's metadata
---
 Eask | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/Eask b/Eask
index a4c47918d4..6a08eb776b 100644
--- a/Eask
+++ b/Eask
@@ -2,6 +2,9 @@
  "1.1.1"
  "C# mode derived mode")
 
+(website-url "https://github.com/emacs-csharp/csharp-mode";)
+(keywords "c#" "languages" "oop" "mode")
+
 (package-file "csharp-mode.el")
 
 (source "gnu")

[elpa] externals/csharp-mode updated (1f8616a02d -> 02c61c219b)

[ELPA Syncer]

elpasync pushed a change to branch externals/csharp-mode.

  from  1f8616a02d Update readme - make header more clear about 
development-status
   new  d33215c723 tests: Setup node is no longer required
   new  ad2cab1d48 chore(Eask): Add package's metadata
   new  02c61c219b Merge pull request #272 from 
jcs-PR/tests/remove-setup-node


Summary of changes:
 .github/workflows/build.yml | 4 
 Eask| 3 +++
 2 files changed, 3 insertions(+), 4 deletions(-)

[elpa] externals/csharp-mode d33215c723 1/3: tests: Setup node is no longer required

[ELPA Syncer]

branch: externals/csharp-mode
commit d33215c72369654fd6dec8999dd791e0e6fc32dc
Author: Jen-Chieh Shen 
Commit: GitHub 

tests: Setup node is no longer required
---
 .github/workflows/build.yml | 4 
 1 file changed, 4 deletions(-)

diff --git a/.github/workflows/build.yml b/.github/workflows/build.yml
index 7229576634..da26b1e500 100644
--- a/.github/workflows/build.yml
+++ b/.github/workflows/build.yml
@@ -37,10 +37,6 @@ jobs:
 with:
   version: ${{ matrix.emacs-version }}
 
-  - uses: actions/setup-node@v2
-with:
-  node-version: '16'
-
   - uses: emacs-eask/setup-eask@master
 with:
   version: 'snapshot'

[elpa] externals/csharp-mode 02c61c219b 3/3: Merge pull request #272 from jcs-PR/tests/remove-setup-node

[ELPA Syncer]

branch: externals/csharp-mode
commit 02c61c219b2c22491eff9b7315fed661fab423d4
Merge: 1f8616a02d ad2cab1d48
Author: Jostein Kjønigsen 
Commit: GitHub 

Merge pull request #272 from jcs-PR/tests/remove-setup-node

tests: Setup node is no longer required
---
 .github/workflows/build.yml | 4 
 Eask| 3 +++
 2 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/.github/workflows/build.yml b/.github/workflows/build.yml
index 7229576634..da26b1e500 100644
--- a/.github/workflows/build.yml
+++ b/.github/workflows/build.yml
@@ -37,10 +37,6 @@ jobs:
 with:
   version: ${{ matrix.emacs-version }}
 
-  - uses: actions/setup-node@v2
-with:
-  node-version: '16'
-
   - uses: emacs-eask/setup-eask@master
 with:
   version: 'snapshot'
diff --git a/Eask b/Eask
index a4c47918d4..6a08eb776b 100644
--- a/Eask
+++ b/Eask
@@ -2,6 +2,9 @@
  "1.1.1"
  "C# mode derived mode")
 
+(website-url "https://github.com/emacs-csharp/csharp-mode";)
+(keywords "c#" "languages" "oop" "mode")
+
 (package-file "csharp-mode.el")
 
 (source "gnu")

[nongnu] elpa/geiser a60efa80cd: Take the byte-compilers advice into account

[ELPA Syncer]

branch: elpa/geiser
commit a60efa80cdb8c72dacb1e16729a801206a4e80bf
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Take the byte-compilers advice into account
---
 elisp/geiser-autodoc.el|  2 +-
 elisp/geiser-completion.el |  2 +-
 elisp/geiser-connection.el |  7 +++
 elisp/geiser-debug.el  | 20 ++--
 elisp/geiser-doc.el|  2 +-
 elisp/geiser-edit.el   |  7 +--
 elisp/geiser-log.el| 18 --
 elisp/geiser-repl.el   |  3 ---
 elisp/geiser-syntax.el | 19 +++
 elisp/geiser-xref.el   |  1 -
 10 files changed, 40 insertions(+), 41 deletions(-)

diff --git a/elisp/geiser-autodoc.el b/elisp/geiser-autodoc.el
index f18a6edf03..abf1d97cac 100644
--- a/elisp/geiser-autodoc.el
+++ b/elisp/geiser-autodoc.el
@@ -185,7 +185,7 @@ you can set this variable to nil to avoid them."
   (s))
   (while (and p (not s))
 (setq s (or (cdr (assoc (car p) signs))
-(and geiser-mode
+(and (bound-and-true-p geiser-mode)
  (cdr (geiser-edit--find-def (car p) t)
 (unless s (setq p (car path) path (cdr path
   (cond ((stringp s) s)
diff --git a/elisp/geiser-completion.el b/elisp/geiser-completion.el
index 4064af7e4c..584e9e0efc 100644
--- a/elisp/geiser-completion.el
+++ b/elisp/geiser-completion.el
@@ -97,7 +97,7 @@
 
 (defvar geiser-completion--symbol-begin-function nil)
 
-(defun geiser-completion--def-symbol-begin (module)
+(defun geiser-completion--def-symbol-begin (_module)
   (save-excursion (skip-syntax-backward "^-()>") (point)))
 
 (geiser-impl--register-local-method
diff --git a/elisp/geiser-connection.el b/elisp/geiser-connection.el
index f11ed4ce5e..b7d312e1a2 100644
--- a/elisp/geiser-connection.el
+++ b/elisp/geiser-connection.el
@@ -170,7 +170,7 @@
 (and tq (tq-close tq
 
 (defvar geiser-con--startup-prompt nil)
-(defun geiser-con--startup-prompt (p s)
+(defun geiser-con--startup-prompt (_p s)
   (setq geiser-con--startup-prompt
 (concat geiser-con--startup-prompt s))
   nil)
@@ -188,8 +188,7 @@
 
 (defun geiser-con--connection-activate (c)
   (when (not (car c))
-(let* ((tq (geiser-con--connection-tq c))
-   (proc (geiser-con--connection-process c))
+(let* ((proc (geiser-con--connection-process c))
(tq-filter (geiser-con--connection-tq-filter c)))
   (while (accept-process-output proc 0.01))
   (set-process-filter proc tq-filter)
@@ -269,7 +268,7 @@
  (timeout (/ (or timeout geiser-connection-timeout) 1000.0))
  (step (/ timeout 10)))
 (with-timeout (timeout (geiser-con--request-deactivate req))
-  (condition-case e
+  (condition-case nil
   (while (and (geiser-con--connection-process con)
   (not (geiser-con--connection-completed-p con id)))
 (accept-process-output proc step))
diff --git a/elisp/geiser-debug.el b/elisp/geiser-debug.el
index 500598c14f..88f1e72236 100644
--- a/elisp/geiser-debug.el
+++ b/elisp/geiser-debug.el
@@ -35,6 +35,9 @@
   "Debugging and error display options."
   :group 'geiser)
 
+(define-obsolete-variable-alias 'geiser-debug-always-display-sexp-after-p
+  'geiser-debug-always-display-sexp-after "0.26.2")
+
 (geiser-custom--defcustom geiser-debug-always-display-sexp-after nil
   "Whether to always display the sexp whose evaluation caused an
 error after the error message in the debug pop-up.
@@ -43,9 +46,6 @@ If nil, expressions shorter than 
`geiser-debug-long-sexp-lines`
 lines are shown before the error message."
   :type 'boolean)
 
-(define-obsolete-variable-alias 'geiser-debug-always-display-sexp-after-p
-  'geiser-debug-always-display-sexp-after "0.26.2")
-
 (geiser-custom--defcustom geiser-debug-long-sexp-lines 6
   "Length of an expression in order to be relegated to the bottom
 of the debug pop-up (after the error message).
@@ -54,6 +54,9 @@ If `geiser-debug-always-display-sexp-after` is t, this 
variable
 has no effect."
   :type 'int)
 
+(define-obsolete-variable-alias 'geiser-debug-jump-to-debug-p
+  'geiser-debug-jump-to-debug "0.26.2")
+
 (geiser-custom--defcustom geiser-debug-jump-to-debug t
   "When set to t (the default), jump to the debug pop-up buffer
 in case of evaluation errors.
@@ -61,8 +64,8 @@ in case of evaluation errors.
 See also `geiser-debug-show-debug`. "
   :type 'boolean)
 
-(define-obsolete-variable-alias 'geiser-debug-jump-to-debug-p
-  'geiser-debug-jump-to-debug "0.26.2")
+(define-obsolete-variable-alias 'geiser-debug-show-debug-p
+  'geiser-debug-show-debug "0.26.2")
 
 (geiser-custom--defcustom geiser-debug-auto-next-error-p nil
   "When set, automatically invoke `next-error' on of evaluation errors.
@@ -79,8 +82,8 @@ This option takes effect even if `geiser-debug-jump-to-debug`
 is set."
   :type 'boolean)
 
-(define-obsolete-variable-alias 'geiser-debug-show-debug-p
-  'geiser-debug-show-debug "0.26.2")
+(

[nongnu] elpa/geiser-guile 24ce15de23: Define obsolete variable alias before the new variable

[ELPA Syncer]

branch: elpa/geiser-guile
commit 24ce15de235c105daf5ecfb818200dae1c9815ee
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Define obsolete variable alias before the new variable

At least Emacs 29's byte-compiler warns when you don't do it in this
order.
---
 geiser-guile.el | 32 +++-
 1 file changed, 15 insertions(+), 17 deletions(-)

diff --git a/geiser-guile.el b/geiser-guile.el
index 3933d7f2ab..1fb92f5388 100644
--- a/geiser-guile.el
+++ b/geiser-guile.el
@@ -69,6 +69,9 @@ If all you want is to load ~/.guile, set
 `geiser-guile-load-init-file' instead."
   :type 'string)
 
+(define-obsolete-variable-alias
+  'geiser-guile-load-init-file-p 'geiser-guile-load-init-file "0.26.2")
+
 (geiser-custom--defcustom geiser-guile-load-init-file nil
   "Whether to load ~/.guile when starting Guile.
 Note that, due to peculiarities in the way Guile loads its init
@@ -77,7 +80,8 @@ this variable to t."
   :type 'boolean)
 
 (define-obsolete-variable-alias
-  'geiser-guile-load-init-file-p 'geiser-guile-load-init-file "0.26.2")
+  'geiser-guile-use-declarative-modules-p 'geiser-guile-use-declarative-modules
+  "0.26.2")
 
 (geiser-custom--defcustom geiser-guile-use-declarative-modules nil
   "Whether Guile should use \"declarative\" modules limiting mutability.
@@ -86,10 +90,6 @@ exported modules."
   :type 'boolean
   :link '(info-link "(guile) Declarative Modules"))
 
-(define-obsolete-variable-alias
-  'geiser-guile-use-declarative-modules-p 'geiser-guile-use-declarative-modules
-  "0.26.2")
-
 (geiser-custom--defcustom geiser-guile-debug-backwards-backtrace t
   "Whether to configure backtraces using the \\='backwards ordering."
   :type 'boolean)
@@ -101,30 +101,28 @@ truncated.  Set to a negative value if you prefer that 
geiser
 does not set it on startup."
   :type 'integer)
 
+(define-obsolete-variable-alias
+  'geiser-guile-debug-show-bt-p 'geiser-guile-debug-show-bt "0.26.2")
+
 (geiser-custom--defcustom geiser-guile-debug-show-bt t
   "Whether to automatically show a full backtrace when entering the debugger.
 If nil, only the last frame is shown."
   :type 'boolean)
 
 (define-obsolete-variable-alias
-  'geiser-guile-debug-show-bt-p 'geiser-guile-debug-show-bt "0.26.2")
-
+  'geiser-guile-debug-show-full-bt-p 'geiser-guile-debug-show-full-bt "0.26.2")
 
 (geiser-custom--defcustom geiser-guile-debug-show-full-bt t
   "Whether to show full backtraces in the debugger, including local variables."
   :type 'boolean)
 
 (define-obsolete-variable-alias
-  'geiser-guile-debug-show-full-bt-p 'geiser-guile-debug-show-full-bt "0.26.2")
-
+  'geiser-guile-show-debug-help-p 'geiser-guile-show-debug-help "0.26.2")
 
 (geiser-custom--defcustom geiser-guile-show-debug-help t
   "Whether to show brief help in the echo area when entering the debugger."
   :type 'boolean)
 
-(define-obsolete-variable-alias
-  'geiser-guile-show-debug-help-p 'geiser-guile-show-debug-help "0.26.2")
-
 (geiser-custom--defcustom geiser-guile-warning-level 'medium
   "Verbosity of the warnings reported by Guile.
 
@@ -151,21 +149,21 @@ effect on new REPLs.  For existing ones, use the command
   "Extra keywords highlighted in Guile scheme buffers."
   :type '(repeat string))
 
+(define-obsolete-variable-alias
+  'geiser-guile-case-sensitive-p 'geiser-guile-case-sensitive "0.26.2")
+
 (geiser-custom--defcustom geiser-guile-case-sensitive t
   "Non-nil means keyword highlighting is case-sensitive."
   :type 'boolean)
 
 (define-obsolete-variable-alias
-  'geiser-guile-case-sensitive-p 'geiser-guile-case-sensitive "0.26.2")
+  'geiser-guile-manual-lookup-other-window-p
+  'geiser-guile-manual-lookup-other-window "0.26.2")
 
 (geiser-custom--defcustom geiser-guile-manual-lookup-other-window nil
   "Non-nil means pop up the Info buffer in another window."
   :type 'boolean)
 
-(define-obsolete-variable-alias
-  'geiser-guile-manual-lookup-other-window-p
-  'geiser-guile-manual-lookup-other-window "0.26.2")
-
 (geiser-custom--defcustom geiser-guile-manual-lookup-nodes
 '("Guile" "guile-2.0")
   "List of info nodes that, when present, are used for manual lookups."

[nongnu] elpa/helm 08c5e33670: New function helm-take which replace helm-take-first-elements

[ELPA Syncer]

branch: elpa/helm
commit 08c5e3367049b17f1c9e68928d72f253a8eb528b
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

New function helm-take which replace helm-take-first-elements

It is a generic function.
Should now be compatible as we require emacs-25.1.
Replace calls like (cl-subseq 0 n) by it.
---
 helm-adaptive.el |  2 +-
 helm-core.el |  3 +--
 helm-files.el|  2 +-
 helm-lib.el  | 18 +++---
 4 files changed, 18 insertions(+), 7 deletions(-)

diff --git a/helm-adaptive.el b/helm-adaptive.el
index d535cfb0c8..b354be7bfc 100644
--- a/helm-adaptive.el
+++ b/helm-adaptive.el
@@ -158,7 +158,7 @@ Format: ((SOURCE-NAME
   ;; Truncate history if needed.
   (if (> (length (cdr selection-info)) helm-adaptive-history-length)
   (setcdr selection-info
-  (cl-subseq (cdr selection-info) 0 
helm-adaptive-history-length
+  (helm-take (cdr selection-info) 
helm-adaptive-history-length
 
 (defun helm-adaptive-maybe-load-history ()
   "Load `helm-adaptive-history-file' which contain `helm-adaptive-history'.
diff --git a/helm-core.el b/helm-core.el
index 0f01dd853d..afbba5254f 100644
--- a/helm-core.el
+++ b/helm-core.el
@@ -4832,8 +4832,7 @@ emacs-27 to provide such scoring in emacs<27."
;; display a list of  candidates even with an empty
;; pattern.
(helm--initialize-one-by-one-candidates
-(helm-take-first-elements
- (helm-get-cached-candidates source) limit)
+(helm-take (helm-get-cached-candidates source) limit)
 source)
  ;; Compute candidates according to pattern with their match
  ;; fns.
diff --git a/helm-files.el b/helm-files.el
index a06f17a68e..cf3a743004 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -5170,7 +5170,7 @@ Show the first `helm-ff-history-max-length' elements of
 (when history
   (setq helm-ff-history
 (if (>= (length history) helm-ff-history-max-length)
-(cl-subseq history 0 helm-ff-history-max-length)
+(helm-take history helm-ff-history-max-length)
   history))
   (if comp-read
   (let ((src (helm-build-sync-source "Helm Find Files History"
diff --git a/helm-lib.el b/helm-lib.el
index c0207fbc9a..490883d4ae 100644
--- a/helm-lib.el
+++ b/helm-lib.el
@@ -491,7 +491,7 @@ When CYCLE is specified the iterator never ends."
 (cl-defun helm-iter-sub-next-circular (seq elm &key (test 'eq))
   "Infinite iteration of SEQ starting at ELM."
   (let* ((pos  (1+ (helm-position elm seq :test test)))
- (sub  (append (nthcdr pos seq) (cl-subseq seq 0 pos)))
+ (sub  (append (nthcdr pos seq) (helm-take seq pos)))
  (iterator (helm-iter-circular sub)))
 (lambda ()
   (helm-iter-next iterator
@@ -988,12 +988,24 @@ it will be wrapped inside a list automatically."
(beg-part (butlast seq len)))
   (append beg-part elm end-part
 
-(defun helm-take-first-elements (seq n)
+(cl-defgeneric helm-take (seq n)
   "Return the first N elements of SEQ if SEQ is longer than N.
 It is used for narrowing list of candidates to the
 `helm-candidate-number-limit'."
   (if (> (length seq) n) (cl-subseq seq 0 n) seq))
 
+(cl-defmethod helm-take ((seq list) n)
+  "`helm-take' optimized for lists."
+  (let ((store '()))
+(if (> n (length seq))
+seq
+  (while (> (1+ (cl-decf n)) 0)
+(push (pop seq) store))
+  (nreverse store
+
+(defalias 'helm-take-first-elements 'helm-take)
+(make-obsolete 'helm-take-first-elements 'helm-take "3.9.1")
+
 (defun helm-source-by-name (name &optional sources)
   "Get a Helm source in SOURCES by NAME.
 
@@ -1073,7 +1085,7 @@ Examples:
(reverse sequence)
  sequence))
  (pos  (1+ (cl-position elm new-seq :test 'equal
-(append (nthcdr pos new-seq) (cl-subseq new-seq 0 pos
+(append (nthcdr pos new-seq) (helm-take new-seq pos
 
 ;;; Strings processing.
 ;;

[nongnu] elpa/helm-core updated (75c85ae152 -> 08c5e33670)

[ELPA Syncer]

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

  from  75c85ae152 Do not check no-other-window (#2575)
  adds  08c5e33670 New function helm-take which replace 
helm-take-first-elements

No new revisions were added by this update.

Summary of changes:
 helm-adaptive.el |  2 +-
 helm-core.el |  3 +--
 helm-files.el|  2 +-
 helm-lib.el  | 18 +++---
 4 files changed, 18 insertions(+), 7 deletions(-)

[nongnu] elpa/rust-mode 7bc3921959 2/3: chore(Eask): Add package's metadata

[ELPA Syncer]

branch: elpa/rust-mode
commit 7bc39219599a5b728616dbeeafa723b8898f989e
Author: Jen-Chieh Shen 
Commit: GitHub 

chore(Eask): Add package's metadata
---
 Eask | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/Eask b/Eask
index 64417eaaad..4f15a273c8 100644
--- a/Eask
+++ b/Eask
@@ -2,6 +2,9 @@
  "1.0.4"
  "A major-mode for editing Rust source code")
 
+(website-url "https://github.com/rust-lang/rust-mode";)
+(keywords "languages")
+
 (package-file "rust-mode.el")
 
 (files 

[nongnu] elpa/rust-mode ac374550a8 3/3: Merge pull request #472 from jcs-PR/tests/remove-setup-node

[ELPA Syncer]

branch: elpa/rust-mode
commit ac374550a8d0a8066534c57ba46137256608015a
Merge: b4537b6f5f 7bc3921959
Author: brotzeit 
Commit: GitHub 

Merge pull request #472 from jcs-PR/tests/remove-setup-node

tests: Setup node is no longer required
---
 .github/workflows/test.yml | 6 +-
 Eask   | 3 +++
 2 files changed, 4 insertions(+), 5 deletions(-)

diff --git a/.github/workflows/test.yml b/.github/workflows/test.yml
index a970eda156..db466c2c80 100644
--- a/.github/workflows/test.yml
+++ b/.github/workflows/test.yml
@@ -12,7 +12,7 @@ jobs:
 emacs-version:
 - 26.3
 - 27.2
-- 28.1
+- 28.2
 # - snapshot
 
 steps:
@@ -22,10 +22,6 @@ jobs:
   with:
   version: ${{ matrix.emacs-version }}
 
-- uses: actions/setup-node@v2
-  with:
-node-version: '16'
-
 - uses: emacs-eask/setup-eask@master
   with:
 version: 'snapshot'
diff --git a/Eask b/Eask
index 64417eaaad..4f15a273c8 100644
--- a/Eask
+++ b/Eask
@@ -2,6 +2,9 @@
  "1.0.4"
  "A major-mode for editing Rust source code")
 
+(website-url "https://github.com/rust-lang/rust-mode";)
+(keywords "languages")
+
 (package-file "rust-mode.el")
 
 (files 

[nongnu] elpa/rust-mode updated (b4537b6f5f -> ac374550a8)

[ELPA Syncer]

elpasync pushed a change to branch elpa/rust-mode.

  from  b4537b6f5f Merge pull request #462 from 
ybiquitous/fix-link-in-readme
   new  89da68ab50 tests: Setup node is no longer required
   new  7bc3921959 chore(Eask): Add package's metadata
   new  ac374550a8 Merge pull request #472 from 
jcs-PR/tests/remove-setup-node


Summary of changes:
 .github/workflows/test.yml | 6 +-
 Eask   | 3 +++
 2 files changed, 4 insertions(+), 5 deletions(-)

[nongnu] elpa/rust-mode 89da68ab50 1/3: tests: Setup node is no longer required

[ELPA Syncer]

branch: elpa/rust-mode
commit 89da68ab50dc73523088c53c50c8e305879f4591
Author: Jen-Chieh Shen 
Commit: GitHub 

tests: Setup node is no longer required
---
 .github/workflows/test.yml | 6 +-
 1 file changed, 1 insertion(+), 5 deletions(-)

diff --git a/.github/workflows/test.yml b/.github/workflows/test.yml
index a970eda156..db466c2c80 100644
--- a/.github/workflows/test.yml
+++ b/.github/workflows/test.yml
@@ -12,7 +12,7 @@ jobs:
 emacs-version:
 - 26.3
 - 27.2
-- 28.1
+- 28.2
 # - snapshot
 
 steps:
@@ -22,10 +22,6 @@ jobs:
   with:
   version: ${{ matrix.emacs-version }}
 
-- uses: actions/setup-node@v2
-  with:
-node-version: '16'
-
 - uses: emacs-eask/setup-eask@master
   with:
 version: 'snapshot'

[nongnu] elpa/typescript-mode updated (237fa548a4 -> c7004fc5a8)

[ELPA Syncer]

elpasync pushed a change to branch elpa/typescript-mode.

  from  237fa548a4 Merge pull request #179 from 
alternateved/update-emacs29-info
   new  22c4042458 tests: Setup node is no longer required
   new  227648c2ab chore(Eask): Add package's metadata
   new  c7004fc5a8 Merge pull request #180 from 
jcs-PR/tests/remove-setup-node


Summary of changes:
 .github/workflows/build.yml | 4 
 Eask| 3 +++
 2 files changed, 3 insertions(+), 4 deletions(-)

[nongnu] elpa/typescript-mode 22c4042458 1/3: tests: Setup node is no longer required

[ELPA Syncer]

branch: elpa/typescript-mode
commit 22c40424580dd13e3dc539929d4210406aa27f76
Author: Jen-Chieh Shen 
Commit: GitHub 

tests: Setup node is no longer required
---
 .github/workflows/build.yml | 4 
 1 file changed, 4 deletions(-)

diff --git a/.github/workflows/build.yml b/.github/workflows/build.yml
index e339c50ce1..721a3d6667 100644
--- a/.github/workflows/build.yml
+++ b/.github/workflows/build.yml
@@ -37,10 +37,6 @@ jobs:
 with:
   version: ${{ matrix.emacs-version }}
 
-  - uses: actions/setup-node@v2
-with:
-  node-version: '16'
-
   - uses: emacs-eask/setup-eask@master
 with:
   version: 'snapshot'

[nongnu] elpa/typescript-mode c7004fc5a8 3/3: Merge pull request #180 from jcs-PR/tests/remove-setup-node

[ELPA Syncer]

branch: elpa/typescript-mode
commit c7004fc5a85591a795524bd920618e5e467746af
Merge: 237fa548a4 227648c2ab
Author: Jostein Kjønigsen 
Commit: GitHub 

Merge pull request #180 from jcs-PR/tests/remove-setup-node

tests: Setup node is no longer required
---
 .github/workflows/build.yml | 4 
 Eask| 3 +++
 2 files changed, 3 insertions(+), 4 deletions(-)

diff --git a/.github/workflows/build.yml b/.github/workflows/build.yml
index e339c50ce1..721a3d6667 100644
--- a/.github/workflows/build.yml
+++ b/.github/workflows/build.yml
@@ -37,10 +37,6 @@ jobs:
 with:
   version: ${{ matrix.emacs-version }}
 
-  - uses: actions/setup-node@v2
-with:
-  node-version: '16'
-
   - uses: emacs-eask/setup-eask@master
 with:
   version: 'snapshot'
diff --git a/Eask b/Eask
index 7f6aef4835..204bbc6697 100644
--- a/Eask
+++ b/Eask
@@ -2,6 +2,9 @@
  "0.4"
  "Major mode for editing typescript")
 
+(website-url "http://github.com/ananthakumaran/typescript.el";)
+(keywords "typescript" "languages")
+
 (package-file "typescript-mode.el")
 
 (files "*.el")

[nongnu] elpa/typescript-mode 227648c2ab 2/3: chore(Eask): Add package's metadata

[ELPA Syncer]

branch: elpa/typescript-mode
commit 227648c2ab448f610478b990af2b106d6ce02cd1
Author: Jen-Chieh Shen 
Commit: GitHub 

chore(Eask): Add package's metadata
---
 Eask | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/Eask b/Eask
index 7f6aef4835..204bbc6697 100644
--- a/Eask
+++ b/Eask
@@ -2,6 +2,9 @@
  "0.4"
  "Major mode for editing typescript")
 
+(website-url "http://github.com/ananthakumaran/typescript.el";)
+(keywords "typescript" "languages")
+
 (package-file "typescript-mode.el")
 
 (files "*.el")

[elpa] externals/cape 185970a11c: Add PureScript keywords. (#67)

[ELPA Syncer]

branch: externals/cape
commit 185970a11c4871a1ceb38c8e10cb5fd6ccf1628b
Author: Shaun 
Commit: GitHub 

Add PureScript keywords. (#67)
---
 cape-keyword.el | 4 
 1 file changed, 4 insertions(+)

diff --git a/cape-keyword.el b/cape-keyword.el
index 3732b7a7e1..8d046e040c 100644
--- a/cape-keyword.el
+++ b/cape-keyword.el
@@ -237,6 +237,10 @@
  "print" "private" "protected" "public" "readonly" "require" "require_once"
  "return" "self" "static" "string" "switch" "this" "throw" "trait" "true"
  "try" "unset" "use" "var" "void" "while" "xor" "yield" "yield from")
+(purescript-mode ;; purescript-font-lock.el
+ "ado" "case" "class" "data" "default" "deriving" "do" "else" "if" "import"
+ "in" "infix" "infixl" "infixr" "instance" "let" "module" "newtype" "of"
+ "then" "type" "where")
 (python-mode ;; 
https://docs.python.org/3/reference/lexical_analysis.html#keywords
  "False" "None" "True" "and" "as" "assert" "break" "class" "continue" "def"
  "del" "elif" "else" "except" "exec" "finally" "for" "from" "global" "if"

[elpa] externals/marginalia 58ce23c920: Emacs 29: Use bookmark-handler-type

[ELPA Syncer]

branch: externals/marginalia
commit 58ce23c92072a1274633f7567caa1aeca4c1b550
Author: Daniel Mendler 
Commit: Daniel Mendler 

Emacs 29: Use bookmark-handler-type

Make marginalia--bookmark-type-transform private, since this mechanism will 
be
discouraged from now on.
---
 marginalia.el | 49 ++---
 1 file changed, 26 insertions(+), 23 deletions(-)

diff --git a/marginalia.el b/marginalia.el
index 9faf7d8eb9..c6f9ec38bc 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -143,16 +143,6 @@ determine it."
   "Associate commands with a completion category."
   :type '(alist :key-type symbol :value-type symbol))
 
-(defcustom marginalia-bookmark-type-transformers
-  (let ((words (regexp-opt '("handle" "handler" "jump" "bookmark"
-`((,(format "-+%s-+" words) . "-")
-  (,(format "\\`%s-+" words) . "")
-  (,(format "-%s\\'" words) . "")
-  ("\\`default\\'" . "File")
-  (".*" . ,#'capitalize)))
-  "List of bookmark type transformers."
-  :type '(alist :key-type regexp :value-type (choice string function)))
-
 (defgroup marginalia-faces nil
   "Faces used by `marginalia-mode'."
   :group 'marginalia
@@ -308,6 +298,17 @@ determine it."
 
  Marginalia mode
 
+(defvar marginalia--bookmark-type-transforms
+  (let ((words (regexp-opt '("handle" "handler" "jump" "bookmark"
+`((,(format "-+%s-+" words) . "-")
+  (,(format "\\`%s-+" words) . "")
+  (,(format "-%s\\'" words) . "")
+  ("\\`default\\'" . "File")
+  (".*" . ,#'capitalize)))
+  "List of bookmark type transformers.
+Relying on this mechanism is discouraged in favor of the
+`bookmark-handler-type' property.")
+
 (defvar marginalia--candw-step 10
   "Round candidate width.")
 
@@ -726,20 +727,22 @@ keybinding since CAND includes it."
 
 (defun marginalia--bookmark-type (bm)
   "Return bookmark type string of BM.
-
-The string is transformed according to 
`marginalia-bookmark-type-transformers'."
+The string is transformed according to `marginalia--bookmark-type-transforms'."
   (let ((handler (or (bookmark-get-handler bm) 'bookmark-default-handler)))
-;; Some libraries use lambda handlers instead of symbols. For
-;; example the function `xwidget-webkit-bookmark-make-record' is
-;; affected. I consider this bad style since then the lambda is
-;; persisted.
-(when-let (str (and (symbolp handler) (symbol-name handler)))
-  (dolist (transformer marginalia-bookmark-type-transformers str)
-(when (string-match-p (car transformer) str)
-  (setq str
-(if (stringp (cdr transformer))
-(replace-regexp-in-string (car transformer) (cdr 
transformer) str)
-  (funcall (cdr transformer) str
+(and
+ ;; Some libraries use lambda handlers instead of symbols. For
+ ;; example the function `xwidget-webkit-bookmark-make-record' is
+ ;; affected. I consider this bad style since then the lambda is
+ ;; persisted.
+ (symbolp handler)
+ (or (get handler 'bookmark-handler-type)
+ (let ((str (symbol-name handler)))
+   (dolist (transformer marginalia--bookmark-type-transforms str)
+ (when (string-match-p (car transformer) str)
+   (setq str
+ (if (stringp (cdr transformer))
+ (replace-regexp-in-string (car transformer) (cdr 
transformer) str)
+   (funcall (cdr transformer) str))
 
 (defun marginalia-annotate-bookmark (cand)
   "Annotate bookmark CAND with its file name and front context string."

[elpa] externals/osm 9f717ca40e: Add bookmark-handler-type

[ELPA Syncer]

branch: externals/osm
commit 9f717ca40efc3f05ed9cafd4589baa887559edb5
Author: Daniel Mendler 
Commit: Daniel Mendler 

Add bookmark-handler-type
---
 README.org | 2 +-
 osm.el | 1 +
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/README.org b/README.org
index f5f3fb93f9..3aea90d40c 100644
--- a/README.org
+++ b/README.org
@@ -3,7 +3,7 @@
 #+language: en
 #+export_file_name: osm.texi
 #+texinfo_dir_category: Emacs misc features
-#+texinfo_dir_title: OSM: (osm).
+#+texinfo_dir_title: Osm: (osm).
 #+texinfo_dir_desc: OpenStreetMap viewer for Emacs
 
 #+html: https://www.gnu.org/software/emacs/";>https://github.com/minad/corfu/blob/screenshots/emacs.svg?raw=true"/>
diff --git a/osm.el b/osm.el
index bb096fdd96..d7464d8c75 100644
--- a/osm.el
+++ b/osm.el
@@ -1327,6 +1327,7 @@ Optionally place transient pin with ID and NAME."
 (set-buffer (osm--goto (nth 0 coords) (nth 1 coords) (nth 2 coords)
(bookmark-prop-get bm 'server)
'osm-selected-bookmark (car bm)
+(put 'osm-bookmark-jump 'bookmark-handler-type "Osm")
 
 ;;;###autoload
 (defun osm-bookmark-delete (bm)

[elpa] externals/company 48f8119db5 2/2: Merge pull request #1352 from shaunplee/master

[ELPA Syncer]

branch: externals/company
commit 48f8119db51bed6f50739dbf2cda01b65b354579
Merge: 00a739f968 a8372c8c70
Author: Dmitry Gutov 
Commit: GitHub 

Merge pull request #1352 from shaunplee/master

Add PureScript keywords.
---
 company-keywords.el | 4 
 1 file changed, 4 insertions(+)

diff --git a/company-keywords.el b/company-keywords.el
index 04feb8e6a3..1a1dda0f0a 100644
--- a/company-keywords.el
+++ b/company-keywords.el
@@ -268,6 +268,10 @@
  "print" "private" "protected" "public" "readonly" "require" "require_once"
  "return" "self" "static" "string" "switch" "this" "throw" "trait" "true"
  "try" "unset" "use" "var" "void" "while" "xor" "yield" "yield from")
+(purescript-mode ;; purescript-font-lock.el
+ "ado" "case" "class" "data" "default" "deriving" "do" "else" "if" "import"
+ "in" "infix" "infixl" "infixr" "instance" "let" "module" "newtype" "of"
+ "then" "type" "where")
 (python-mode
  ;; https://docs.python.org/3/reference/lexical_analysis.html#keywords
  "False" "None" "True" "and" "as" "assert" "break" "class" "continue" "def"

[elpa] externals/company a8372c8c70 1/2: Add PureScript keywords.

[ELPA Syncer]

branch: externals/company
commit a8372c8c7004d423624c91c3c960922845489f32
Author: Shaun Lee 
Commit: Shaun Lee 

Add PureScript keywords.
---
 company-keywords.el | 4 
 1 file changed, 4 insertions(+)

diff --git a/company-keywords.el b/company-keywords.el
index 04feb8e6a3..1a1dda0f0a 100644
--- a/company-keywords.el
+++ b/company-keywords.el
@@ -268,6 +268,10 @@
  "print" "private" "protected" "public" "readonly" "require" "require_once"
  "return" "self" "static" "string" "switch" "this" "throw" "trait" "true"
  "try" "unset" "use" "var" "void" "while" "xor" "yield" "yield from")
+(purescript-mode ;; purescript-font-lock.el
+ "ado" "case" "class" "data" "default" "deriving" "do" "else" "if" "import"
+ "in" "infix" "infixl" "infixr" "instance" "let" "module" "newtype" "of"
+ "then" "type" "where")
 (python-mode
  ;; https://docs.python.org/3/reference/lexical_analysis.html#keywords
  "False" "None" "True" "and" "as" "assert" "break" "class" "continue" "def"

[elpa] main 6523d42638: * elpa-packages (standard-themes): Add ':news' value

[Protesilaos Stavrou]

branch: main
commit 6523d42638ccad1a441774beb6a5a55d8e102506
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

* elpa-packages (standard-themes): Add ':news' value
---
 elpa-packages | 1 +
 1 file changed, 1 insertion(+)

diff --git a/elpa-packages b/elpa-packages
index 8d4b3d0a23..6acf9e7224 100644
--- a/elpa-packages
+++ b/elpa-packages
@@ -682,6 +682,7 @@
  (standard-themes  :url 
"https://git.sr.ht/~protesilaos/standard-themes";
   :auto-sync t
   :doc "README.org"
+  :news "CHANGELOG.org"
   :ignored-files ("COPYING" "doclicense.texi"))
  (so-long  :core "lisp/so-long.el")
  (soap-client  :core ("lisp/net/soap-client.el" 
"lisp/net/soap-inspect.el"))

[elpa] externals/standard-themes 56551daac6: Update to version 1.1.0

[ELPA Syncer]

branch: externals/standard-themes
commit 56551daac67f904b9975dc5bc027e77ba243937c
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Update to version 1.1.0
---
 CHANGELOG.org  | 83 ++
 README.org | 11 +++-
 standard-themes.el |  2 +-
 3 files changed, 88 insertions(+), 8 deletions(-)

diff --git a/CHANGELOG.org b/CHANGELOG.org
new file mode 100644
index 00..09fe1c9a8c
--- /dev/null
+++ b/CHANGELOG.org
@@ -0,0 +1,83 @@
+#+title: Change log of the Standard Themes
+#+author: Protesilaos Stavrou
+#+email: i...@protesilaos.com
+#+options: ':nil toc:nil num:nil author:nil email:nil
+
+This document contains the release notes for each tagged commit on the
+project's main git repository: 
.
+
+The newest release is at the top.  For further details, please consult
+the manual: .
+
+* Version 1.1.0 on 2022-12-06
+:PROPERTIES:
+:CUSTOM_ID: h:f7a5799c-279c-4dfb-96ae-3eba58ee582e
+:END:
+
+** The ~standard-themes-headings~ now covers the Org agenda
+:PROPERTIES:
+:CUSTOM_ID: h:d7fa8d0c-b49c-447a-a24c-4dc18c6d755b
+:END:
+
+The user option ~standard-themes-headings~ lets the user control the
+height, weight, and use of proportionately spaced fonts
+(~variable-pitch~) on a per-heading basis.  Different combinations are
+possible, as explained in the option's doc string on the corresponding
+entry in the manual.
+
+I have now made it possible to specify the =agenda-date= and
+=agenda-structure= keys.  Both pertain to the Org agenda.  The former
+applies to date headings, while the latter styles the headings of each
+"block" of content.  In a generic agenda buffer, that block heading is
+the first line which reads =Week-agenda (W49):= or something like
+that, though we find such headings in more places as well.
+
+Here is a sample with various stylistic variants per heading:
+
+#+begin_src emacs-lisp
+(setq standard-themes-headings ; read the manual's entry or the doc string
+  '((0 . (variable-pitch light 1.9))
+(1 . (variable-pitch light 1.8))
+(2 . (semilight 1.7))
+(3 . (semilight 1.6))
+(4 . (1.5)) ; absence of weight means "regular"
+(5 . (1.4))
+(6 . (bold 1.3))
+(7 . (bold 1.2))
+(agenda-date . (semilight 1.5))
+(agenda-structure . (variable-pitch light 1.9))
+(t . (variable-pitch 1.1
+#+end_src
+
+Note that Org re-uses heading levels past 8.  This means that level 9
+will look the same as level 1.  This is not the theme's doing.  Check
+the user options ~org-level-faces~, ~org-n-level-faces~ for ways to
+change this.
+
+** =M-x theme-choose-variant= works as expected
+:PROPERTIES:
+:CUSTOM_ID: h:9c95de58-9d0c-44dd-bc24-63ce7691806e
+:END:
+
+Users of Emacs 29 have access to the command ~theme-choose-variant~:
+it toggles between two themes of the same family.  If the family
+has more members, it uses minibuffer completion instead.
+
+I registered the appropriate theme properties to make this work as
+intended.  However, it is still possible to use the command
+~standard-themes-toggle~.
+
+** Stylistic refinements
+:PROPERTIES:
+:CUSTOM_ID: h:33e6d85e-42cc-4a30-87d5-47d9b81cc769
+:END:
+
++ Simplified the Magit blame faces to avoid exaggerations.
++ Revised the colours of day headings in the =M-x calendar= buffer.
+  Weekends stand out, as is the case with physical calendars and many
+  established apps.
++ Made the ~edmacro-label~ face stand out in its context.  Otherwise
+  it was difficult to spot.  This is for Emacs 29 and applies to
+  headings in the keyboard macro editing buffer (e.g. with =C-x C-k
+  C-e= (~kmacro-edit-macro-repeat~)).
++ Added support for the =powerline= package.
diff --git a/README.org b/README.org
index a5bb66dd4a..43c455e148 100644
--- a/README.org
+++ b/README.org
@@ -4,9 +4,9 @@
 #+language:  en
 #+options:   ':t toc:nil author:t email:t num:t
 #+startup:   content
-#+macro: stable-version 1.0.0
-#+macro: release-date 2022-11-30
-#+macro: development-version 1.1.0-dev
+#+macro: stable-version 1.1.0
+#+macro: release-date 2022-12-06
+#+macro: development-version 1.2.0-dev
 #+export_file_name:  standard-themes.texi
 #+texinfo_filename:  standard-themes.info
 #+texinfo_dir_category:  Emacs misc features
@@ -385,9 +385,6 @@ In user configuration files the form may look like this:
 :CUSTOM_ID: h:8540fd7a-7633-4eb9-af4b-4f160568f79a
 :END:
 
-[ Expanded as part of {{{development-version}}}.  It now accepts the
-  =agenda-date= and =agenda-structure= keys for the Org agenda headings. ]
-
 #+vindex: standard-themes-headings
 The user option ~standard-themes-headings~ provides support for individual
 heading styles for regular heading levels 0 through 8, as well as the
@@ -1048,7 +1045,7 @