[elpa] externals/debbugs 32e1d6bc1e 1/2: Show stale marked bugs

2023-06-19 Thread Michael Albinus
branch: externals/debbugs
commit 32e1d6bc1ede861c94a18fdf3ee5b5e5970aa750
Author: Michael Albinus 
Commit: Michael Albinus 

Show stale marked bugs

* debbugs-gnu.el (debbugs-gnu-marked-stale): New defface.
(debbugs-gnu-show-reports, debbugs-gnu--update-tag-mark-face): Use it.

* debbugs-ug.texi (Tabulated Lists): Mention it.
---
 debbugs-gnu.el  | 15 ---
 debbugs-ug.texi |  4 +++-
 2 files changed, 15 insertions(+), 4 deletions(-)

diff --git a/debbugs-gnu.el b/debbugs-gnu.el
index dedd4336f4..85f0c807d2 100644
--- a/debbugs-gnu.el
+++ b/debbugs-gnu.el
@@ -403,6 +403,11 @@ If this is `rmail', use Rmail instead."
 (defface debbugs-gnu-marked '((t (:background "DarkGrey")))
   "Face for reports that have been marked locally.")
 
+(defface debbugs-gnu-marked-stale
+  '((t (:inherit debbugs-gnu-marked :slant italic)))
+  "Face for reports that have been marked locally.
+They haven't been touched more than a week.")
+
 (defface debbugs-gnu-title '((t (:height 1.2 :bold t)))
   "Face for titles.")
 
@@ -1035,7 +1040,8 @@ are taken from the cache instead."
  (cond
   ;; Marked bugs.
   ((memq id debbugs-gnu-local-marks)
-   'debbugs-gnu-marked)
+(if (< age week)
+   'debbugs-gnu-marked 'debbugs-gnu-marked-stale))
   ;; Mark owned bugs.
   ((and (stringp owner)
 (string-equal owner user-mail-address))
@@ -1487,7 +1493,9 @@ interest to you."
(let ((owner (if (alist-get 'owner (car entry))
 (car (debbugs-gnu--split-address
   (decode-coding-string
-   (alist-get 'owner (car entry)) 'utf-8))
+   (alist-get 'owner (car entry)) 'utf-8)
+  (age (- (float-time) (or (alist-get 'log_modified (car entry)) 
0)))
+ (week (* 60 60 24 7)))
  (aset (cadr entry) 0
(propertize
 (format "%5d" id)
@@ -1503,7 +1511,8 @@ interest to you."
 (cond
  ;; Marked bugs.
  ((memq id debbugs-gnu-local-marks)
-  'debbugs-gnu-marked)
+   (if (< age week)
+  'debbugs-gnu-marked 'debbugs-gnu-marked-stale))
  ;; Mark owned bugs.
  ((and (stringp owner) (string-equal owner user-mail-address))
   'debbugs-gnu-tagged)
diff --git a/debbugs-ug.texi b/debbugs-ug.texi
index 9ae619623d..e654793bdd 100644
--- a/debbugs-ug.texi
+++ b/debbugs-ug.texi
@@ -431,7 +431,9 @@ is closed).  Archived bugs are shown with inverse face
 (@code{debbugs-gnu-archived}).
 
 A DarkGrey background color (@code{debbugs-gnu-marked}) in the title
-column shows bugs which have been marked locally.
+column shows bugs which have been marked locally.  The title text is
+italic (@code{debbugs-gnu-marked-stale}) if the marked bug hasn't been
+touched for more than a week.
 
 The minor mode @code{debbugs-gnu-mode} is active in bug report
 buffers.  This enables the following key strokes:



[elpa] externals/debbugs updated (25d52f5f3b -> 17b933d6fa)

2023-06-19 Thread Michael Albinus
albinus pushed a change to branch externals/debbugs.

  from  25d52f5f3b * debbugs-gnu.el (debbugs-gnu-mode-map): Fix menu item.
   new  32e1d6bc1e Show stale marked bugs
   new  17b933d6fa Release debbugs 0.36


Summary of changes:
 debbugs-gnu.el  | 15 ---
 debbugs-ug.texi |  4 +++-
 debbugs.el  |  2 +-
 3 files changed, 16 insertions(+), 5 deletions(-)



[elpa] externals/debbugs 17b933d6fa 2/2: Release debbugs 0.36

2023-06-19 Thread Michael Albinus
branch: externals/debbugs
commit 17b933d6fa4cdb46eb7be70070b5e72baa145386
Author: Michael Albinus 
Commit: Michael Albinus 

Release debbugs 0.36

* debbugs.el: Bump version to 0.36.
---
 debbugs.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/debbugs.el b/debbugs.el
index f327744d72..467e9f9235 100644
--- a/debbugs.el
+++ b/debbugs.el
@@ -5,7 +5,7 @@
 ;; Author: Michael Albinus 
 ;; Keywords: comm, hypermedia
 ;; Package: debbugs
-;; Version: 0.35
+;; Version: 0.36
 ;; Package-Requires: ((emacs "26.1") (soap-client "3.1.5"))
 
 ;; This file is not part of GNU Emacs.



[elpa] externals/ef-themes 91f0303a1c: Review prose-verbatim hue in Elea variants

2023-06-19 Thread ELPA Syncer
branch: externals/ef-themes
commit 91f0303a1ce4b82da49d030fb6da75f0eae9493a
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Review prose-verbatim hue in Elea variants
---
 ef-elea-dark-theme.el  | 2 +-
 ef-elea-light-theme.el | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/ef-elea-dark-theme.el b/ef-elea-dark-theme.el
index 20fafc0325..1cd723751e 100644
--- a/ef-elea-dark-theme.el
+++ b/ef-elea-dark-theme.el
@@ -218,7 +218,7 @@
   (prose-table fg-alt)
   (prose-tag cyan-faint)
   (prose-todo red-warmer)
-  (prose-verbatim green-warmer)
+  (prose-verbatim cyan-cooler)
 
  Mail mappings
 
diff --git a/ef-elea-light-theme.el b/ef-elea-light-theme.el
index 726fd94ae4..cb19019da8 100644
--- a/ef-elea-light-theme.el
+++ b/ef-elea-light-theme.el
@@ -218,7 +218,7 @@
   (prose-table fg-alt)
   (prose-tag cyan-faint)
   (prose-todo red)
-  (prose-verbatim green-warmer)
+  (prose-verbatim cyan-cooler)
 
  Mail mappings
 



[nongnu] elpa/sweeprolog d757d27485 2/4: ADDED: Persistent history for Sweep top-levels

2023-06-19 Thread ELPA Syncer
branch: elpa/sweeprolog
commit d757d274856b6fb598813cf20ebffbce0659ec2f
Author: Eshel Yaron 
Commit: Eshel Yaron 

ADDED: Persistent history for Sweep top-levels

This adds a new user option that controls the value of
'comint-input-ring-file-name' in Sweep top-level buffers.

* sweeprolog.el (sweeprolog-top-level-persistent-history): New user
option.
(sweeprolog-top-level-sentinel)
(sweeprolog-top-level-setup-history): New functions.
(sweeprolog-top-level-setup-buffer): Call
'sweeprolog-top-level-setup-history' when creating a new top-level
buffer.
---
 README.org| 76 ---
 sweeprolog.el | 59 ++
 2 files changed, 106 insertions(+), 29 deletions(-)

diff --git a/README.org b/README.org
index 5c5462717f..20297ce44f 100644
--- a/README.org
+++ b/README.org
@@ -2242,29 +2242,58 @@ the entry corresponding to the wanted top-level (see 
[[The Top-level
 Menu buffer]]).
 
 For more information about interrupting threads in SWI-Prolog, see
-[[https://www.swi-prolog.org/pldoc/man?section=thread-signal][Signaling 
threads in the SWI-Prolog manual]].
+[[https://www.swi-prolog.org/pldoc/man?section=thread-signal][Signaling 
threads]] in the SWI-Prolog manual.
 
-** Top-level history
+** Top-level History
 :PROPERTIES:
 :CUSTOM_ID: top-level-history
 :DESCRIPTION: Accessing previous queries posted to the Prolog top-level
 :ALT_TITLE: Top-level History
 :END:
 
-=sweeprolog-top-level-mode= buffers provide a history of previously user
-inputs, similarly to other =comint-mode= derivatives such as =shell-mode=.
-To insert the last input from the history at the prompt, use =M-p=
-(=comint-previous-input=).  For a full description of history related
-commands, see [[info:emacs#Shell History][Shell History in the Emacs manual]].
+Sweep top-level buffers provide a history of previous user inputs,
+similarly to other ~comint-mode~ derivatives such as ~shell-mode~.  To
+insert the last input from the history at the prompt, use =M-p=
+(~comint-previous-input~).  For a full description of history related
+commands, see [[info:emacs#Shell History][Shell History]] in the Emacs manual.
 
 #+VINDEX: sweeprolog-top-level-min-history-length
+- User Option: sweeprolog-top-level-min-history-length :: Minimum
+  input length to record in the history of Sweep top-levels.
+#+VINDEX: sweeprolog-top-level-persistent-history
+- User Option: sweeprolog-top-level-persistent-history :: Controls if
+  and where Sweep top-level buffers persist their input history.
+
 The Sweep top-level history only records inputs whose length is at
-least =sweeprolog-top-level-min-history-length=.  This user option is set to
-3 by default, and should generally be set to at least 2 to keep the
-history from being clobbered with single-character inputs, which are
-common in the top-level interaction, e.g. =;= as used to invoke
+least ~sweeprolog-top-level-min-history-length~.  This user option is
+set to 3 by default, and should generally be set to at least 2 to keep
+the history from being clobbered with single-character inputs, which
+are common in the top-level interaction, e.g. ~;~ as used to invoke
 backtracking.
 
+Sweep can optionally persist top-level input history.  The user option
+~sweeprolog-top-level-persistent-history~ controls if and where
+top-levels store their history: when this option is non-~nil~, Sweep
+top-level buffers that you create read their input history from a
+persistent history file, and write their history back to it when you
+delete them.  If this option is a string, it is treated as a file
+name, and top-level buffers use that file to persistent their input
+history.  If it's a function, it is called with no arguments and
+should return a file name for the persistent history, or ~nil~ to
+disable persistent history for that top-level buffer.  The file name
+that this user option species can be either absolute or relative, in
+which case it is expanded relative to the default directory of the
+top-level buffer (see [[info:emacs#File Names][File Names]]).  This option can 
also be a list of
+the form ~(project REL DEF)~, in which case the persistent history
+file that a top-level buffer uses depends on the current project of
+the of that buffer (see [[info:emacs#Projects][Projects]] in the Emacs 
manual).  If there is no
+current project, the top-level persistent history file is ~DEF~.
+Otherwise, the history file is ~REL~ relative to the project's root
+directory.  You can leave ~DEF~ nil or omit it entirely to disable
+persistent history for top-levels that are not associated with any
+project.  By default, this option is set to ~nil~ which says not to
+keep persistent top-level history.
+
 ** Completion in the top-level
 :PROPERTIES:
 :CUSTOM_ID: completion-in-top-level
@@ -2446,13 +2475,13 @@ the user has the SWI-Prolog sources checked out locally.
 The way Sweep locates the SWI-Prolo

[nongnu] elpa/sweeprolog 79d086d545 1/4: Use 'derived-mode-p' instead of checking 'major-mode' directly

2023-06-19 Thread ELPA Syncer
branch: elpa/sweeprolog
commit 79d086d5456c17d5329cf3b9f999fc30392a49ee
Author: Eshel Yaron 
Commit: Eshel Yaron 

Use 'derived-mode-p' instead of checking 'major-mode' directly

* sweeprolog.el (sweeprolog-restart, sweeprolog-top-level-buffer)
(sweeprolog-top-level, sweeprolog-menu)
(sweeprolog-analyze-fragment-to-faces, sweeprolog-load-buffer): Use
'derived-mode-p' instead of checking 'major-mode' directly.
---
 sweeprolog.el | 27 +--
 1 file changed, 13 insertions(+), 14 deletions(-)

diff --git a/sweeprolog.el b/sweeprolog.el
index 0a0eefe813..d8cc7996e0 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -567,18 +567,18 @@ completion candidates."
(sweeprolog-definition-at-point)) ]
 [ "Insert Test-set Template"
   sweeprolog-plunit-testset-skeleton
-  (eq major-mode 'sweeprolog-mode) ]
+  (derived-mode-p 'sweeprolog-mode) ]
 [ "Insert Module Template"
   auto-insert
-  (eq major-mode 'sweeprolog-mode) ]
+  (derived-mode-p 'sweeprolog-mode) ]
 [ "Document Predicate"
   sweeprolog-document-predicate-at-point
-  (and (eq major-mode 'sweeprolog-mode)
+  (and (derived-mode-p 'sweeprolog-mode)
(sweeprolog-definition-at-point)) ]
 [ "Update Autoload Directives" sweeprolog-update-dependencies
-  (eq major-mode 'sweeprolog-mode) ]
+  (derived-mode-p 'sweeprolog-mode) ]
 [ "Infer Indentation Style" sweeprolog-infer-indent-style
-  (eq major-mode 'sweeprolog-mode) ]
+  (derived-mode-p 'sweeprolog-mode) ]
 [ "Search Term" sweeprolog-term-search
   (derived-mode-p 'sweeprolog-mode)]
 [ "Count Holes" sweeprolog-count-holes
@@ -728,9 +728,8 @@ Otherwise set ARGS to nil."
 (fboundp 'split-string-shell-command)
 (split-string-shell-command (read-string "swipl arguments: "
   (when-let ((top-levels (seq-filter (lambda (buffer)
-   (eq 'sweeprolog-top-level-mode
-   (buffer-local-value 'major-mode
-   buffer)))
+   (with-current-buffer buffer
+ (derived-mode-p 
'sweeprolog-top-level-mode)))
  (buffer-list
 (if (y-or-n-p "Stop running sweep top-level processes?")
 (dolist (buffer top-levels)
@@ -2387,7 +2386,7 @@ resulting list even when found in the current clause."
(with-silent-modifications
  (erase-buffer)
  (insert string " "))
-   (unless (eq major-mode mode) (funcall mode))
+   (unless (derived-mode-p mode) (funcall mode))
(font-lock-ensure)
(let ((pos (point-min)) next)
  (while (setq next (next-property-change pos))
@@ -2970,7 +2969,7 @@ top-level."
   (let ((buf (get-buffer-create (or name "*sweeprolog-top-level*"
 (unless (process-live-p (get-buffer-process buf))
   (with-current-buffer buf
-(unless (eq major-mode 'sweeprolog-top-level-mode)
+(unless (derived-mode-p 'sweeprolog-top-level-mode)
   (sweeprolog-top-level-mode)))
   (unless (sweeprolog--query-once "sweep" "sweep_accept_top_level_client"
   (buffer-name buf))
@@ -2995,7 +2994,7 @@ Interactively, a prefix argument means to prompt for 
BUFFER-NAME."
   (interactive
(list (and current-prefix-arg
   (read-buffer "Top-level buffer: "
-   (if (and (eq major-mode 'sweeprolog-top-level-mode)
+   (if (and (derived-mode-p 'sweeprolog-top-level-mode)
 (null (get-buffer-process
(current-buffer
(buffer-name)
@@ -3130,16 +3129,16 @@ load the current buffer.  Otherwise, prompt for a 
`sweeprolog-mode'
 buffer to load."
   (interactive (list
 (if (and (not current-prefix-arg)
- (eq major-mode 'sweeprolog-mode))
+ (derived-mode-p 'sweeprolog-mode))
 (current-buffer)
   (read-buffer "Load buffer: "
-   (when (eq major-mode 'sweeprolog-mode)
+   (when (derived-mode-p 'sweeprolog-mode)
  (buffer-name))
t
(lambda (b)
  (let ((n (or (and (consp b) (car b)) b)))
(with-current-buffer n
- (eq major-mode 'sweeprolog-mode
+ (derived-mode-p 'sweeprolog-mode
   (with-current-buffer buffer
 (if (sweeprolog-buffer-loaded-since-last-modification-p)
 (message "Buffer %s already 

[nongnu] elpa/sweeprolog updated (60aff1c8d2 -> 82b5e31aa3)

2023-06-19 Thread ELPA Syncer
elpasync pushed a change to branch elpa/sweeprolog.

  from  60aff1c8d2 Announce recent changes in NEWS.org and bump version to 
0.19.1
   new  79d086d545 Use 'derived-mode-p' instead of checking 'major-mode' 
directly
   new  d757d27485 ADDED: Persistent history for Sweep top-levels
   new  ec27eee5b9 Improve documentation for persistent top-level history
   new  82b5e31aa3 Announce recent changes in NEWS.org and bump version to 
0.20.0


Summary of changes:
 NEWS.org  |  9 ++
 README.org| 76 +++
 sweeprolog.el | 88 +--
 3 files changed, 129 insertions(+), 44 deletions(-)



[nongnu] elpa/sweeprolog 82b5e31aa3 4/4: Announce recent changes in NEWS.org and bump version to 0.20.0

2023-06-19 Thread ELPA Syncer
branch: elpa/sweeprolog
commit 82b5e31aa3b742bfac1eba7b9995904f2b905f4e
Author: Eshel Yaron 
Commit: Eshel Yaron 

Announce recent changes in NEWS.org and bump version to 0.20.0
---
 NEWS.org  | 9 +
 sweeprolog.el | 2 +-
 2 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/NEWS.org b/NEWS.org
index 7384d7324c..2457b823fa 100644
--- a/NEWS.org
+++ b/NEWS.org
@@ -11,6 +11,15 @@ SWI-Prolog in Emacs.
 For further details, please consult the manual:
 [[https://eshelyaron.com/sweep.html][https://eshelyaron.com/sweep.html]].
 
+* Version 0.20.0 on 2023-06-19
+
+** New user option ~sweeprolog-top-level-persistent-history~
+
+This option controls if and where Sweep top-level buffers store their
+input history persistently.  Persistent history is off by default,
+refer to the "Top-level History" section in the manual for more
+details.
+
 * Version 0.19.1 on 2023-06-14
 
 ** New user option ~sweeprolog-predicate-visible-p-function~
diff --git a/sweeprolog.el b/sweeprolog.el
index 8793c7c805..ff26ebf211 100644
--- a/sweeprolog.el
+++ b/sweeprolog.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Eshel Yaron <~eshel/d...@lists.sr.ht>
 ;; Keywords: prolog languages extensions
 ;; URL: https://git.sr.ht/~eshel/sweep
-;; Package-Version: 0.19.1
+;; Package-Version: 0.20.0
 ;; Package-Requires: ((emacs "28.1"))
 
 ;; This file is NOT part of GNU Emacs.



[nongnu] elpa/sweeprolog ec27eee5b9 3/4: Improve documentation for persistent top-level history

2023-06-19 Thread ELPA Syncer
branch: elpa/sweeprolog
commit ec27eee5b9e4e4d5bff538b15d5b2c67d81d0ec4
Author: Eshel Yaron 
Commit: Eshel Yaron 

Improve documentation for persistent top-level history
---
 README.org | 40 
 1 file changed, 20 insertions(+), 20 deletions(-)

diff --git a/README.org b/README.org
index 20297ce44f..6b1cb3b26c 100644
--- a/README.org
+++ b/README.org
@@ -2273,26 +2273,26 @@ backtracking.
 
 Sweep can optionally persist top-level input history.  The user option
 ~sweeprolog-top-level-persistent-history~ controls if and where
-top-levels store their history: when this option is non-~nil~, Sweep
-top-level buffers that you create read their input history from a
-persistent history file, and write their history back to it when you
-delete them.  If this option is a string, it is treated as a file
-name, and top-level buffers use that file to persistent their input
-history.  If it's a function, it is called with no arguments and
-should return a file name for the persistent history, or ~nil~ to
-disable persistent history for that top-level buffer.  The file name
-that this user option species can be either absolute or relative, in
-which case it is expanded relative to the default directory of the
-top-level buffer (see [[info:emacs#File Names][File Names]]).  This option can 
also be a list of
-the form ~(project REL DEF)~, in which case the persistent history
-file that a top-level buffer uses depends on the current project of
-the of that buffer (see [[info:emacs#Projects][Projects]] in the Emacs 
manual).  If there is no
-current project, the top-level persistent history file is ~DEF~.
-Otherwise, the history file is ~REL~ relative to the project's root
-directory.  You can leave ~DEF~ nil or omit it entirely to disable
-persistent history for top-levels that are not associated with any
-project.  By default, this option is set to ~nil~ which says not to
-keep persistent top-level history.
+top-levels store their persistent history: when this option is
+non-~nil~, Sweep top-level buffers that you create read their input
+history from a persistent history file, and write their history back
+to it when you delete them.  If this option is a string, it is treated
+as a file name, and top-level buffers use that file to persistent
+their input history.  If it's a function, it is called with no
+arguments and should return either a file name for the persistent
+history, or ~nil~ to disable persistent history for that top-level
+buffer.  The file name that this user option specifies can be either
+absolute or relative, in which case it is expanded relative to the
+default directory of the top-level buffer (see [[info:emacs#File Names][File 
Names]]).  This
+option can also be a list of the form ~(project REL DEF)~, in which
+case the persistent history file that a top-level buffer uses depends
+on the current project of the of that buffer (see 
[[info:emacs#Projects][Projects]] in the
+Emacs manual).  If there is no current project, the top-level
+persistent history file is ~DEF~.  Otherwise, the history file is
+~REL~ relative to the project's root directory.  You can leave ~DEF~
+nil or omit it entirely to disable persistent history for top-levels
+that are not associated with any project.  By default, this option is
+set to ~nil~ which says not to keep persistent top-level history.
 
 ** Completion in the top-level
 :PROPERTIES:



[elpa] externals/ef-themes 949d4a39b6: ef-elea-light: tweak red-faint, green-warmer

2023-06-19 Thread ELPA Syncer
branch: externals/ef-themes
commit 949d4a39b661492a1f2bae5365035cbe96f31105
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

ef-elea-light: tweak red-faint, green-warmer
---
 contrast-ratios.org| 4 ++--
 ef-elea-light-theme.el | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/contrast-ratios.org b/contrast-ratios.org
index edc8ab281e..6350c285ac 100644
--- a/contrast-ratios.org
+++ b/contrast-ratios.org
@@ -780,9 +780,9 @@ work with the overall design of the project.
 | red| #c3303a |4.93 |4.44 |3.75 |4.62 |
 | red-warmer | #d0 |5.10 |4.59 |3.87 |4.77 |
 | red-cooler | #b02440 |5.91 |5.32 |4.49 |5.54 |
-| red-faint  | #894452 |6.23 |5.61 |4.73 |5.84 |
+| red-faint  | #894852 |6.03 |5.43 |4.58 |5.65 |
 | green  | #1f601f |6.82 |6.14 |5.18 |6.39 |
-| green-warmer   | #3f5500 |7.47 |6.73 |5.68 |7.00 |
+| green-warmer   | #355500 |7.65 |6.89 |5.82 |7.17 |
 | green-cooler   | #007047 |5.50 |4.96 |4.18 |5.16 |
 | green-faint| #306630 |6.11 |5.50 |4.64 |5.73 |
 | yellow | #9a501f |5.30 |4.77 |4.03 |4.96 |
diff --git a/ef-elea-light-theme.el b/ef-elea-light-theme.el
index cb19019da8..e4fe854937 100644
--- a/ef-elea-light-theme.el
+++ b/ef-elea-light-theme.el
@@ -59,9 +59,9 @@
   (red "#c3303a")
   (red-warmer  "#d0")
   (red-cooler  "#b02440")
-  (red-faint   "#894452")
+  (red-faint   "#894852")
   (green   "#1f601f")
-  (green-warmer"#3f5500")
+  (green-warmer"#355500")
   (green-cooler"#007047")
   (green-faint "#306630")
   (yellow  "#9a501f")



[nongnu] elpa/helm 2b4ad903cd 2/3: Allow using candidates-in-buffer with an alist

2023-06-19 Thread ELPA Syncer
branch: elpa/helm
commit 2b4ad903cd438cd5da3a214f484a0bafe1292e3b
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Allow using candidates-in-buffer with an alist

This was already possible by using a FCT, now it is possible to pass
directly an alist of candidates.
---
 helm-core.el | 3 +++
 helm-mode.el | 3 +--
 2 files changed, 4 insertions(+), 2 deletions(-)

diff --git a/helm-core.el b/helm-core.el
index 6ea73a0190..d7225f6ca1 100644
--- a/helm-core.el
+++ b/helm-core.el
@@ -6860,6 +6860,9 @@ when initializing a source with `helm-source-in-buffer' 
class."
(insert (mapconcat (lambda (i)
 (let ((cand (cond ((symbolp i) 
(symbol-name i))
   ((numberp i) 
(number-to-string i))
+  ((consp i) (propertize
+  (car i)
+  
'helm-realvalue (cdr i)))
   (t i
   (setq-local 
helm-candidate-buffer-longest-len
   (max 
helm-candidate-buffer-longest-len
diff --git a/helm-mode.el b/helm-mode.el
index 86c899688c..9d24c39051 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -964,8 +964,7 @@ method which is faster.
 
 EXEC-WHEN-ONLY-ONE allow exiting when COLLECTION contains only one candidate.
 
-ALISTP is same as `helm-comp-read' :alistp slot, don't use it with
-CANDS-IN-BUFFER.
+ALISTP is same as `helm-comp-read' :alistp slot.
 
 When using CANDS-IN-BUFFER, GET-LINE can be specified to exit with candidate
 handling properties, see `helm-comp-read'.



[nongnu] elpa/helm e5c4288f40 1/3: Enhance helm-completing-read-default-1 by adding new optional args

2023-06-19 Thread ELPA Syncer
branch: elpa/helm
commit e5c4288f40b0818b5309af6cf86b405111bab803
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Enhance helm-completing-read-default-1 by adding new optional args

Add :get-line slot to helm-comp-read.
Allow passing :get-line to helm-comp-read from 
helm-completing-read-default-1.
Allow passing :alistp to helm-comp-read when cands-in-buffer is not in
use from helm-completing-read-default-1.
Update docstring accordingly.
---
 helm-mode.el | 23 ---
 1 file changed, 20 insertions(+), 3 deletions(-)

diff --git a/helm-mode.el b/helm-mode.el
index 96b5744776..86c899688c 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -588,6 +588,7 @@ If COLLECTION is an `obarray', a TEST should be needed. See 
`obarray'."
 (name "Helm Completions")
 header-name
 candidates-in-buffer
+get-line
 diacritics
 match-part
 match-dynamic
@@ -710,6 +711,9 @@ Keys description:
   `helm-source-in-buffer' which is much faster.
   Argument VOLATILE have no effect when CANDIDATES-IN-BUFFER is non--nil.
 
+- GET-LINE: Specify the :get-line slot of `helm-source-in-buffer', has no 
effect
+  when CANDIDATES-IN-BUFFER is nil.
+ 
 - MATCH-PART: Allow matching only one part of candidate.
   See match-part documentation in `helm-source'.
 
@@ -840,6 +844,7 @@ that use `helm-comp-read'.  See `helm-M-x' for example."
(src-1 (helm-build-in-buffer-source name
 :data get-candidates
 :match-part match-part
+:get-line get-line
 :multiline multiline
 :header-name header-name
 :filtered-candidate-transformer
@@ -951,11 +956,22 @@ that use `helm-comp-read'.  See `helm-M-x' for example."
 (defun helm-completing-read-default-1
 (prompt collection test require-match
  init hist default _inherit-input-method
- name buffer &optional cands-in-buffer exec-when-only-one)
+ name buffer &optional cands-in-buffer exec-when-only-one alistp get-line)
   "Call `helm-comp-read' with same args as `completing-read'.
+
 Extra optional arg CANDS-IN-BUFFER means use `candidates-in-buffer'
 method which is faster.
-It should be used when candidate list doesn't need to be rebuilt dynamically."
+
+EXEC-WHEN-ONLY-ONE allow exiting when COLLECTION contains only one candidate.
+
+ALISTP is same as `helm-comp-read' :alistp slot, don't use it with
+CANDS-IN-BUFFER.
+
+When using CANDS-IN-BUFFER, GET-LINE can be specified to exit with candidate
+handling properties, see `helm-comp-read'.
+
+This handler should be used when candidate list doesn't need to be rebuilt
+dynamically otherwise see `helm-completing-read-default-2'."
   (let ((history (or (car-safe hist) hist))
 (initial-input (helm-aif (pcase init
((pred (stringp)) init)
@@ -970,7 +986,7 @@ It should be used when candidate list doesn't need to be 
rebuilt dynamically."
  :reverse-history helm-mode-reverse-history
  :input-history history
  :must-match require-match
- :alistp nil
+ :alistp alistp
  :diacritics helm-mode-ignore-diacritics
  :help-message #'helm-comp-read-help-message
  :name name
@@ -983,6 +999,7 @@ It should be used when candidate list doesn't need to be 
rebuilt dynamically."
  :quit-when-no-cand (eq require-match t)
  :nomark (null helm-comp-read-use-marked)
  :candidates-in-buffer cands-in-buffer
+ :get-line get-line
  :exec-when-only-one exec-when-only-one
  :fuzzy (eq helm-completion-style 'helm-fuzzy)
  :buffer buffer



[nongnu] elpa/helm f930dff6fe 3/3: Add a comp read handler for all-the-icons-insert

2023-06-19 Thread ELPA Syncer
branch: elpa/helm
commit f930dff6fe92045e245bca9e6509ca3da87c5feb
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Add a comp read handler for all-the-icons-insert
---
 helm-mode.el | 16 +++-
 1 file changed, 15 insertions(+), 1 deletion(-)

diff --git a/helm-mode.el b/helm-mode.el
index 9d24c39051..5f4b88c351 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -59,7 +59,8 @@
 (dired-do-hardlink . helm-read-file-name-handler-1)
 (basic-save-buffer . helm-read-file-name-handler-1)
 (write-file . (default helm-read-file-name-handler-1))
-(write-region . (default helm-read-file-name-handler-1)))
+(write-region . (default helm-read-file-name-handler-1))
+(all-the-icons-insert . helm-mode-all-the-icons-handler))
   "Completing read functions for specific Emacs commands.
 
 By default `helm-mode' use `helm-completing-read-default-handler' to
@@ -1121,6 +1122,19 @@ This handler uses dynamic matching which allows 
honouring `completion-styles'."
  :must-match require-match)
   (setq helm-completion--sorting-done nil
 
+(defun helm-mode-all-the-icons-handler (prompt collection test require-match
+init hist default inherit-input-method
+name buffer)
+  "A special `completing-read' handler for `all-the-icons-insert'."
+  (let ((cands (cl-loop for (desc . str) in collection
+collect (cons (concat str
+  " "
+  (substring-no-properties desc))
+  desc
+(helm-completing-read-default-1 prompt cands test require-match
+init hist default inherit-input-method
+name buffer t nil t 'buffer-substring)))
+
 (defun helm-completing-read-default-find-tag
 (prompt collection test require-match
  init hist default inherit-input-method



[nongnu] elpa/helm updated (1d97047c49 -> f930dff6fe)

2023-06-19 Thread ELPA Syncer
elpasync pushed a change to branch elpa/helm.

  from  1d97047c49 Remove Travis and Cask
   new  e5c4288f40 Enhance helm-completing-read-default-1 by adding new 
optional args
   new  2b4ad903cd Allow using candidates-in-buffer with an alist
   new  f930dff6fe Add a comp read handler for all-the-icons-insert


Summary of changes:
 helm-core.el |  3 +++
 helm-mode.el | 38 ++
 2 files changed, 37 insertions(+), 4 deletions(-)



[nongnu] elpa/helm-core updated (1d97047c49 -> f930dff6fe)

2023-06-19 Thread ELPA Syncer
elpasync pushed a change to branch elpa/helm-core.

  from  1d97047c49 Remove Travis and Cask
  adds  e5c4288f40 Enhance helm-completing-read-default-1 by adding new 
optional args
  adds  2b4ad903cd Allow using candidates-in-buffer with an alist
  adds  f930dff6fe Add a comp read handler for all-the-icons-insert

No new revisions were added by this update.

Summary of changes:
 helm-core.el |  3 +++
 helm-mode.el | 38 ++
 2 files changed, 37 insertions(+), 4 deletions(-)



[elpa] externals/realgud 2c77776a47 2/2: Merge pull request #313 from yangyingchao/master

2023-06-19 Thread ELPA Syncer
branch: externals/realgud
commit 2c6a4797805d8633636fd68148dfb32fab65
Merge: aff03aeef1 7343f28cc2
Author: R. Bernstein 
Commit: GitHub 

Merge pull request #313 from yangyingchao/master

(gdb) use variable to hold commands to be executed after command buff…
---
 realgud/debugger/gdb/gdb.el | 28 
 1 file changed, 16 insertions(+), 12 deletions(-)

diff --git a/realgud/debugger/gdb/gdb.el b/realgud/debugger/gdb/gdb.el
index f0e669b9ef..a37b534bd6 100644
--- a/realgud/debugger/gdb/gdb.el
+++ b/realgud/debugger/gdb/gdb.el
@@ -54,6 +54,19 @@ This should be an executable on your path, or an absolute 
file name."
   :type 'string
   :group 'realgud:gdb)
 
+(defvar realgud:gdb-init-commands
+  '("set annotate 1"
+;; In gdb, when setting breakpoint on function, we want it to produce an 
absolute
+;; path, so set filename-display to absolute. We want:
+;;   (gdb) b functionName
+;;   Breakpoint 1 at 0x7fff607e4dd6: file /abs/path/to/file.cpp, line 273.
+;; Without this, gdb will display the path supplied when the code was 
compiled, i.e.
+;; if a relative path is supplied to gcc, gdb will display the relative 
path
+;; tripping up realgud, causing it to ask if you want to blacklist the 
file.
+"set filename-display absolute"
+)
+  "List of commands to be executed right after command buffer setup.")
+
 (declare-function realgud:gdb-track-mode 'realgud:gdb-track-mode)
 (declare-function realgud-command'realgud:cmds)
 (declare-function realgud:gdb-parse-cmd-args 'realgud:gdb-core)
@@ -136,18 +149,9 @@ fringe and marginal icons.
(let ((process (get-buffer-process cmd-buf)))
  (if (and process (eq 'run (process-status process)))
  (with-current-buffer cmd-buf
-   (realgud-command "set annotate 1" nil nil nil)
-;; In gdb, when setting breakpoint on function, we want it to 
produce an absolute
-;; path, so set filename-display to absolute. We want:
-;;   (gdb) b functionName
-;;   Breakpoint 1 at 0x7fff607e4dd6: file 
/abs/path/to/file.cpp, line 273.
-;; Without this, gdb will display the path supplied when the 
code was compiled, i.e.
-;; if a relative path is supplied to gcc, gdb will display the 
relative path
-;; tripping up realgud, causing it to ask if you want to 
blacklist the file.
-(realgud-command "set filename-display absolute" nil nil nil)
-   )))
-  )
-))
+(dolist (it realgud:gdb-init-commands)
+  (realgud-command it nil nil nil))
+cmd-buf))
 
 (provide-me "realgud-")
 



[elpa] externals/realgud 7343f28cc2 1/2: (gdb) use variable to hold commands to be executed after command buffer setup

2023-06-19 Thread ELPA Syncer
branch: externals/realgud
commit 7343f28cc25f5a64f77170dac0348f7a2a8a1f2e
Author: yangyingchao 
Commit: yangyingchao 

(gdb) use variable to hold commands to be executed after command buffer 
setup

User can either bind this variable on the fly, or set it directly in the 
init file.

And `realgud:gdb` now returns command buffer now, so user can do something 
with this buffer.
---
 realgud/debugger/gdb/gdb.el | 28 
 1 file changed, 16 insertions(+), 12 deletions(-)

diff --git a/realgud/debugger/gdb/gdb.el b/realgud/debugger/gdb/gdb.el
index f0e669b9ef..a37b534bd6 100644
--- a/realgud/debugger/gdb/gdb.el
+++ b/realgud/debugger/gdb/gdb.el
@@ -54,6 +54,19 @@ This should be an executable on your path, or an absolute 
file name."
   :type 'string
   :group 'realgud:gdb)
 
+(defvar realgud:gdb-init-commands
+  '("set annotate 1"
+;; In gdb, when setting breakpoint on function, we want it to produce an 
absolute
+;; path, so set filename-display to absolute. We want:
+;;   (gdb) b functionName
+;;   Breakpoint 1 at 0x7fff607e4dd6: file /abs/path/to/file.cpp, line 273.
+;; Without this, gdb will display the path supplied when the code was 
compiled, i.e.
+;; if a relative path is supplied to gcc, gdb will display the relative 
path
+;; tripping up realgud, causing it to ask if you want to blacklist the 
file.
+"set filename-display absolute"
+)
+  "List of commands to be executed right after command buffer setup.")
+
 (declare-function realgud:gdb-track-mode 'realgud:gdb-track-mode)
 (declare-function realgud-command'realgud:cmds)
 (declare-function realgud:gdb-parse-cmd-args 'realgud:gdb-core)
@@ -136,18 +149,9 @@ fringe and marginal icons.
(let ((process (get-buffer-process cmd-buf)))
  (if (and process (eq 'run (process-status process)))
  (with-current-buffer cmd-buf
-   (realgud-command "set annotate 1" nil nil nil)
-;; In gdb, when setting breakpoint on function, we want it to 
produce an absolute
-;; path, so set filename-display to absolute. We want:
-;;   (gdb) b functionName
-;;   Breakpoint 1 at 0x7fff607e4dd6: file 
/abs/path/to/file.cpp, line 273.
-;; Without this, gdb will display the path supplied when the 
code was compiled, i.e.
-;; if a relative path is supplied to gcc, gdb will display the 
relative path
-;; tripping up realgud, causing it to ask if you want to 
blacklist the file.
-(realgud-command "set filename-display absolute" nil nil nil)
-   )))
-  )
-))
+(dolist (it realgud:gdb-init-commands)
+  (realgud-command it nil nil nil))
+cmd-buf))
 
 (provide-me "realgud-")
 



[nongnu] elpa/engine-mode ded5f5ec1e 7/8: Ignore *.elc files

2023-06-19 Thread ELPA Syncer
branch: elpa/engine-mode
commit ded5f5ec1e8238f7f2b320c635e3c84b34c79607
Author: Harry R. Schwartz 
Commit: Harry R. Schwartz 

Ignore *.elc files
---
 .gitignore | 1 +
 1 file changed, 1 insertion(+)

diff --git a/.gitignore b/.gitignore
new file mode 100644
index 00..c531d9867f
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1 @@
+*.elc



[nongnu] elpa/engine-mode updated (48bfa0ca3a -> 81d4ae1054)

2023-06-19 Thread ELPA Syncer
elpasync pushed a change to branch elpa/engine-mode.

  from  48bfa0ca3a Convert README: Markdown -> Org
   new  efdf06d90c Add melpazoid GitHub workflow
   new  6df818c67a Resolve documentation-related linting errors
   new  2963262d69 Prefix "private" functions with `engine--`
   new  f55acdfb7e Customization group: `engine-mode` -> `engine`
   new  67b68c1a2b Bump version to 2.2.4
   new  116bd8927d Add test stub with Makefile and GitHub action
   new  ded5f5ec1e Ignore *.elc files
   new  81d4ae1054 Explicitly depend on Emacs >= 24.3


Summary of changes:
 .github/workflows/melpazoid.yml |  37 
 .github/workflows/test.yml  |  44 ++
 .gitignore  |   1 +
 Makefile|   7 +++
 engine-mode-test.el |  23 
 engine-mode.el  | 127 ++--
 6 files changed, 183 insertions(+), 56 deletions(-)
 create mode 100644 .github/workflows/melpazoid.yml
 create mode 100644 .github/workflows/test.yml
 create mode 100644 .gitignore
 create mode 100644 Makefile
 create mode 100644 engine-mode-test.el



[nongnu] elpa/engine-mode 6df818c67a 2/8: Resolve documentation-related linting errors

2023-06-19 Thread ELPA Syncer
branch: elpa/engine-mode
commit 6df818c67a173e9c97eb5f2a598a52566864cff6
Author: Harry R. Schwartz 
Commit: Harry R. Schwartz 

Resolve documentation-related linting errors

- Modify text wrap width in commentary section
- Fix some `checkdoc` errors: shorten longer lines, use ALL-CAPS for 
variables
  in docstrings
- Condense package summary to remove explicit reference to Emacs (of 
*course*
  this is for Emacs)
---
 engine-mode.el | 94 +-
 1 file changed, 54 insertions(+), 40 deletions(-)

diff --git a/engine-mode.el b/engine-mode.el
index 5945d6db8a..734d0a2e25 100644
--- a/engine-mode.el
+++ b/engine-mode.el
@@ -1,4 +1,4 @@
-;;; engine-mode.el --- Define and query search engines from within Emacs
+;;; engine-mode.el --- Define and query search engines
 
 ;; Author: Harry R. Schwartz 
 ;; Version: 2.2.3
@@ -7,34 +7,33 @@
 
 ;; This file is NOT part of GNU Emacs.
 
-;; This program is free software: you can redistribute it and/or modify
-;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation, either version 3 of the License, or
-;; (at your option) any later version.
+;; This program is free software: you can redistribute it and/or modify it 
under
+;; the terms of the GNU General Public License as published by the Free 
Software
+;; Foundation, either version 3 of the License, or (at your option) any later
+;; version.
 
-;; This program is distributed in the hope that it will be useful,
-;; but WITHOUT ANY WARRANTY; without even the implied warranty of
-;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
-;; GNU General Public License for more details.
+;; This program is distributed in the hope that it will be useful, but WITHOUT
+;; ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or 
FITNESS
+;; FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
+;; details.
 
-;; You should have received a copy of the GNU General Public License
-;; along with this program.  If not, see .
+;; You should have received a copy of the GNU General Public License along with
+;; this program. If not, see .
 
 ;;; Commentary:
 
-;; `engine-mode' is a global minor mode for Emacs. It enables you to
-;; easily define search engines, bind them to keybindings, and query
-;; them from the comfort of your editor.
+;; `engine-mode' is a global minor mode for Emacs. It enables you to easily
+;; define search engines, bind them to keybindings, and query them from the
+;; comfort of your editor.
 
 ;; For example, suppose we want to be able to easily search GitHub:
 
 ;; (defengine github
 ;;   "https://github.com/search?ref=simplesearch&q=%s";)
 
-;; This defines an interactive function `engine/search-github'. When
-;; executed it will take the selected region (or prompt for input, if
-;; no region is selected) and search GitHub for it, displaying the
-;; results in your default browser.
+;; This defines an interactive function `engine/search-github'. When executed 
it
+;; will take the selected region (or prompt for input, if no region is 
selected)
+;; and search GitHub for it, displaying the results in your default browser.
 
 ;; The `defengine' macro can also take an optional key combination,
 ;; prefixed with "C-x /":
@@ -55,7 +54,7 @@
   :group 'external)
 
 (defcustom engine/keybinding-prefix "C-x /"
-  "The default engine-mode keybindings prefix."
+  "The default `engine-mode' keybindings prefix."
   :type '(choice (string :tag "Key")
  (const :tag "No keybinding" nil)))
 
@@ -77,7 +76,7 @@
   :keymap engine-mode-map)
 
 (defun engine/set-keymap-prefix (prefix-key)
-  "Bind the engine-mode keymap to a new prefix.
+  "Bind the engine-mode keymap to PREFIX-KEY.
 For example, to use \"C-c s\" instead of the default \"C-x /\":
 
 \(engine/set-keymap-prefix (kbd \"C-c s\"))"
@@ -92,23 +91,27 @@ Defaults to `browse-url-browser-function'."
   :type 'symbol)
 
 (defun engine/search-prompt (engine-name default-word)
+  "Return a search prompt for ENGINE-NAME, defaulting to DEFAULT-WORD."
   (if (string= default-word "")
   (format "Search %s: " (capitalize engine-name))
 (format "Search %s (%s): " (capitalize engine-name) default-word)))
 
 (defun engine/prompted-search-term (engine-name)
+  "Prompt the user for a search term for ENGINE-NAME.
+Default to the symbol at point."
   (let ((current-word (or (thing-at-point 'symbol 'no-properties) "")))
 (read-string (engine/search-prompt engine-name current-word)
  nil nil current-word)))
 
 (defun engine/get-query (engine-name)
-  "Return the selected region (if any) or prompt the user for a query."
+  "Return the selected region or prompt the user for a query for ENGINE-NAME."
   (if (use-region-p)
   (buffer-substring (region-beginning) (region-end))
 (engine/prompted-search-term engine-name)))
 
 (defun e

[nongnu] elpa/engine-mode 116bd8927d 6/8: Add test stub with Makefile and GitHub action

2023-06-19 Thread ELPA Syncer
branch: elpa/engine-mode
commit 116bd8927d553cb09916cde0c48fd8cb0c36ba17
Author: Harry R. Schwartz 
Commit: Harry R. Schwartz 

Add test stub with Makefile and GitHub action

To ensure the actions work, this also backfills some trivial tests for
`engine--function-name` and `engine--docstring`.
---
 .github/workflows/melpazoid.yml |  2 +-
 .github/workflows/test.yml  | 46 +
 Makefile|  7 +++
 engine-mode-test.el | 23 +
 4 files changed, 77 insertions(+), 1 deletion(-)

diff --git a/.github/workflows/melpazoid.yml b/.github/workflows/melpazoid.yml
index 090dd20e2b..248d00a1ef 100644
--- a/.github/workflows/melpazoid.yml
+++ b/.github/workflows/melpazoid.yml
@@ -1,7 +1,7 @@
 # melpazoid  build checks.
 
 name: Melpazoid
-on: [push, pull_request]
+on: pull_request
 
 jobs:
   build:
diff --git a/.github/workflows/test.yml b/.github/workflows/test.yml
new file mode 100644
index 00..a32e5ffc34
--- /dev/null
+++ b/.github/workflows/test.yml
@@ -0,0 +1,46 @@
+name: Tests
+on: pull_request
+permissions: {}
+
+jobs:
+  build:
+runs-on: ubuntu-latest
+strategy:
+  matrix:
+emacs_version:
+  - 24.1
+  - 24.2
+  - 24.3
+  - 24.4
+  - 24.5
+  - 25.1
+  - 25.3
+  - 26.1
+  - 26.2
+  - 26.3
+  - 27.1
+  - 27.2
+  - 28.1
+  - 28.2
+  - snapshot
+include:
+  - emacs_version: 'snapshot'
+allow_failure: true
+
+steps:
+- uses: actions/checkout@v3
+  with:
+persist-credentials: false
+
+- name: Install Emacs
+  uses: purcell/setup-emacs@master
+  with:
+version: ${{ matrix.emacs_version }}
+
+- name: Run tests
+  if: matrix.allow_failure != true
+  run: 'make && make test'
+
+- name: Run tests (allow failure)
+  if: matrix.allow_failure == true
+  run: 'make && make test || true'
diff --git a/Makefile b/Makefile
new file mode 100644
index 00..127e7ed8c2
--- /dev/null
+++ b/Makefile
@@ -0,0 +1,7 @@
+.PHONY: test
+test: engine-mode.el engine-mode-test.el
+   emacs --quick --batch \
+   -l ert \
+   -l engine-mode-test.el \
+   --eval "(setq ert-batch-backtrace-right-margin 1)" \
+   -f ert-run-tests-batch-and-exit
diff --git a/engine-mode-test.el b/engine-mode-test.el
new file mode 100644
index 00..c128bbead2
--- /dev/null
+++ b/engine-mode-test.el
@@ -0,0 +1,23 @@
+;;; engine-mode-test.el --- tests for engine-mode.el
+
+;; -*- lexical-binding: t; -*-
+
+;;; Commentary:
+
+;; Tests for engine-mode.
+
+;;; Code:
+
+(load-file "engine-mode.el")
+
+(ert-deftest engine--function-name ()
+  (should (equal (engine--function-name 'wikipedia)
+ 'engine/search-wikipedia))
+  (should (equal (engine--function-name 'GitHub)
+ 'engine/search-github)))
+
+(ert-deftest engine--docstring ()
+  (should (equal (engine--docstring 'my-engine)
+ "Search My-Engine for the selected text.\nPrompt for input if 
none is selected.")))
+
+;;; engine-mode-test.el ends here



[nongnu] elpa/engine-mode 2963262d69 3/8: Prefix "private" functions with `engine--`

2023-06-19 Thread ELPA Syncer
branch: elpa/engine-mode
commit 2963262d69147fb2e08c19da2fb1d47fb0acd7ae
Author: Harry R. Schwartz 
Commit: Harry R. Schwartz 

Prefix "private" functions with `engine--`

...instead of `engine/`. We're moving toward a more conventional `-` and 
`--`
prefix separator for functions, and renaming the "private" ones that are 
only
used internally (hopefully!) is a step in that direction.

This also fixes some `package-lint` violations.

Historically: when @hrs first wrote this thing back in 2014 that package 
prefix
separator convention was less standardized than it is now, and `/` has since
lost (sadly, I think, since by separating the package name from the 
function or
variable name the `/` conveys additional semantic information, and it's no
harder to type than a `-` on most keyboards, but so it goes).
---
 engine-mode.el | 32 
 1 file changed, 16 insertions(+), 16 deletions(-)

diff --git a/engine-mode.el b/engine-mode.el
index 734d0a2e25..d9df899b45 100644
--- a/engine-mode.el
+++ b/engine-mode.el
@@ -90,26 +90,26 @@ Defaults to `browse-url-browser-function'."
   :group 'engine-mode
   :type 'symbol)
 
-(defun engine/search-prompt (engine-name default-word)
+(defun engine--search-prompt (engine-name default-word)
   "Return a search prompt for ENGINE-NAME, defaulting to DEFAULT-WORD."
   (if (string= default-word "")
   (format "Search %s: " (capitalize engine-name))
 (format "Search %s (%s): " (capitalize engine-name) default-word)))
 
-(defun engine/prompted-search-term (engine-name)
+(defun engine--prompted-search-term (engine-name)
   "Prompt the user for a search term for ENGINE-NAME.
 Default to the symbol at point."
   (let ((current-word (or (thing-at-point 'symbol 'no-properties) "")))
-(read-string (engine/search-prompt engine-name current-word)
+(read-string (engine--search-prompt engine-name current-word)
  nil nil current-word)))
 
-(defun engine/get-query (engine-name)
+(defun engine--get-query (engine-name)
   "Return the selected region or prompt the user for a query for ENGINE-NAME."
   (if (use-region-p)
   (buffer-substring (region-beginning) (region-end))
-(engine/prompted-search-term engine-name)))
+(engine--prompted-search-term engine-name)))
 
-(defun engine/execute-search (search-engine-url browser-function search-term)
+(defun engine--execute-search (search-engine-url browser-function search-term)
   "Search SEARCH-ENGINE-URL for SEARCH-TERM.
 Display the resulting URL with BROWSER-FUNCTION."
   (interactive)
@@ -118,19 +118,19 @@ Display the resulting URL with BROWSER-FUNCTION."
  (format-spec search-engine-url
   (format-spec-make ?s (url-hexify-string search-term))
 
-(defun engine/function-name (engine-name)
+(defun engine--function-name (engine-name)
   "Return the name of the function for ENGINE-NAME.
 
 For example, if ENGINE-NAME is the symbol `github', return
 `engine/search-github'."
   (intern (concat "engine/search-" (downcase (symbol-name engine-name)
 
-(defun engine/docstring (engine-name)
+(defun engine--docstring (engine-name)
   "Construct and return a default docstring for ENGINE-NAME."
   (format "Search %s for the selected text.\nPrompt for input if none is 
selected."
   (capitalize (symbol-name engine-name
 
-(defun engine/bind-key (engine-name keybinding)
+(defun engine--bind-key (engine-name keybinding)
   "Bind KEYBINDING to ENGINE-NAME in the `engine-mode-prefixed-map'.
 
 Do nothing if KEYBINDING is nil.
@@ -140,9 +140,9 @@ it permits multiple keys in KEYBINDING."
   (when keybinding
 (if (fboundp 'keymap-set)
 `(keymap-set engine-mode-prefixed-map ,keybinding
- (quote ,(engine/function-name engine-name)))
+ (quote ,(engine--function-name engine-name)))
   `(define-key engine-mode-prefixed-map (kbd ,keybinding)
-   (quote ,(engine/function-name engine-name))
+   (quote ,(engine--function-name engine-name))
 
 ;;;###autoload
 (cl-defmacro defengine (engine-name search-engine-url
@@ -192,12 +192,12 @@ Hitting \"C-x / w\" will be bound to the newly-defined
   (declare (indent 1))
   (cl-assert (symbolp engine-name))
   `(prog1
-   (defun ,(engine/function-name engine-name) (search-term)
- ,(or docstring (engine/docstring engine-name))
+   (defun ,(engine--function-name engine-name) (search-term)
+ ,(or docstring (engine--docstring engine-name))
  (interactive
-  (list (engine/get-query ,(symbol-name engine-name
- (engine/execute-search ,search-engine-url ,browser 
(,term-transformation-hook search-term)))
- ,(engine/bind-key engine-name keybinding)))
+  (list (engine--get-query ,(symbol-name engine-name
+ (engine--execute-search ,search-engine-url ,browser 
(,term-transformation-hook search-term)))
+ ,(engine--bind-key engine-nam

[nongnu] elpa/engine-mode 67b68c1a2b 5/8: Bump version to 2.2.4

2023-06-19 Thread ELPA Syncer
branch: elpa/engine-mode
commit 67b68c1a2bff48bad2cc4722598da0f36e3866a9
Author: Harry R. Schwartz 
Commit: Harry R. Schwartz 

Bump version to 2.2.4

Since 2.2.3 we've renamed both the custom group and some "private" 
functions.
This really shouldn't change anything for anyone, but *maybe* it could, so 
we
should tag a version so people can revert more easily if they need to.
---
 engine-mode.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/engine-mode.el b/engine-mode.el
index 4e7a009488..8af908dfdf 100644
--- a/engine-mode.el
+++ b/engine-mode.el
@@ -1,7 +1,7 @@
 ;;; engine-mode.el --- Define and query search engines
 
 ;; Author: Harry R. Schwartz 
-;; Version: 2.2.3
+;; Version: 2.2.4
 ;; URL: https://github.com/hrs/engine-mode
 ;; Package-Requires: ((cl-lib "0.5"))
 



[nongnu] elpa/engine-mode f55acdfb7e 4/8: Customization group: `engine-mode` -> `engine`

2023-06-19 Thread ELPA Syncer
branch: elpa/engine-mode
commit f55acdfb7ea4f05f23177cc8b5ce6c20d23356e3
Author: Harry R. Schwartz 
Commit: Harry R. Schwartz 

Customization group: `engine-mode` -> `engine`

Best practice these days (per `package-lint`) seems to be to name 
customization
groups without a `-mode` suffix.

That sounds reasonable and harmless, so let's rename it.
---
 engine-mode.el | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/engine-mode.el b/engine-mode.el
index d9df899b45..4e7a009488 100644
--- a/engine-mode.el
+++ b/engine-mode.el
@@ -49,12 +49,13 @@
 (eval-when-compile (require 'cl-lib))
 (require 'format-spec)
 
-(defgroup engine-mode nil
+(defgroup engine nil
   "Define search engines, bind them to keybindings, and query them."
   :group 'external)
 
 (defcustom engine/keybinding-prefix "C-x /"
   "The default `engine-mode' keybindings prefix."
+  :group 'engine
   :type '(choice (string :tag "Key")
  (const :tag "No keybinding" nil)))
 
@@ -87,7 +88,7 @@ For example, to use \"C-c s\" instead of the default \"C-x 
/\":
 (defcustom engine/browser-function browse-url-browser-function
   "The default browser function used when opening a URL in an engine.
 Defaults to `browse-url-browser-function'."
-  :group 'engine-mode
+  :group 'engine
   :type 'symbol)
 
 (defun engine--search-prompt (engine-name default-word)



[nongnu] elpa/engine-mode efdf06d90c 1/8: Add melpazoid GitHub workflow

2023-06-19 Thread ELPA Syncer
branch: elpa/engine-mode
commit efdf06d90cfb880d29ade4aeb246a4d8e03d3e45
Author: Harry R. Schwartz 
Commit: Harry R. Schwartz 

Add melpazoid GitHub workflow

For linting packages in MELPA.

However, this doesn't fail the *action*, even if linting fails. 
`engine-mode`
has been around for a while, and renaming some functions might take some 
time,
so `package-lint` is likely to keep failing for the foreseeable future. I
appreciate melpazoid's advice, and I want to keep it around with the 
eventual
goal of enabling it "for real," but I'm not ready to implement all its
suggestions yet, so this ensures that it doesn't fail a build even if its 
checks
fail.

https://github.com/riscy/melpazoid
---
 .github/workflows/melpazoid.yml | 37 +
 1 file changed, 37 insertions(+)

diff --git a/.github/workflows/melpazoid.yml b/.github/workflows/melpazoid.yml
new file mode 100644
index 00..090dd20e2b
--- /dev/null
+++ b/.github/workflows/melpazoid.yml
@@ -0,0 +1,37 @@
+# melpazoid  build checks.
+
+name: Melpazoid
+on: [push, pull_request]
+
+jobs:
+  build:
+runs-on: ubuntu-latest
+
+steps:
+- uses: actions/checkout@v3
+  with:
+fetch-depth: 0
+persist-credentials: false
+
+- name: Install Emacs
+  uses: purcell/setup-emacs@master
+  with:
+version: snapshot
+
+- name: Install Python
+  uses: actions/setup-python@v1
+  with:
+python-version: 3.9
+
+- name: Install Melpazoid
+  run: |
+python -m pip install --upgrade pip
+git clone https://github.com/riscy/melpazoid.git ~/melpazoid
+pip install ~/melpazoid
+
+- name: Run
+  env:
+LOCAL_REPO: ${{ github.workspace }}
+RECIPE: (engine-mode :repo "hrs/engine-mode" :fetcher github)
+  run: echo $GITHUB_REF && make -C ~/melpazoid
+  continue-on-error: true



[nongnu] elpa/engine-mode 81d4ae1054 8/8: Explicitly depend on Emacs >= 24.3

2023-06-19 Thread ELPA Syncer
branch: elpa/engine-mode
commit 81d4ae1054dab2dbf81c1efbed50f27112dddbb1
Author: Harry R. Schwartz 
Commit: Harry R. Schwartz 

Explicitly depend on Emacs >= 24.3
---
 .github/workflows/test.yml | 2 --
 engine-mode.el | 2 +-
 2 files changed, 1 insertion(+), 3 deletions(-)

diff --git a/.github/workflows/test.yml b/.github/workflows/test.yml
index a32e5ffc34..6aad926bc3 100644
--- a/.github/workflows/test.yml
+++ b/.github/workflows/test.yml
@@ -8,8 +8,6 @@ jobs:
 strategy:
   matrix:
 emacs_version:
-  - 24.1
-  - 24.2
   - 24.3
   - 24.4
   - 24.5
diff --git a/engine-mode.el b/engine-mode.el
index 8af908dfdf..beeab946ad 100644
--- a/engine-mode.el
+++ b/engine-mode.el
@@ -3,7 +3,7 @@
 ;; Author: Harry R. Schwartz 
 ;; Version: 2.2.4
 ;; URL: https://github.com/hrs/engine-mode
-;; Package-Requires: ((cl-lib "0.5"))
+;; Package-Requires: ((emacs "24.3"))
 
 ;; This file is NOT part of GNU Emacs.
 



[elpa] externals/counsel abb3049fd8 3/3: Merge branch 'master' into externals/counsel

2023-06-19 Thread Basil L. Contovounesios
branch: externals/counsel
commit abb3049fd8d76acb97d17f5ab8edc48ea31de59d
Merge: 603c29c648 aa18c1f486
Author: Basil L. Contovounesios 
Commit: Basil L. Contovounesios 

Merge branch 'master' into externals/counsel
---
 counsel.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/counsel.el b/counsel.el
index 05b70d6693..4c3cd02aa9 100644
--- a/counsel.el
+++ b/counsel.el
@@ -6125,7 +6125,7 @@ This function always returns its elements in a stable 
order."
   (when (file-exists-p dir)
 (let ((dir (file-name-as-directory dir)))
   ;; Function `directory-files-recursively' added in Emacs 25.1.
-  (dolist (file (directory-files-recursively dir ".*\\.desktop$"))
+  (dolist (file (directory-files-recursively dir "\\.desktop\\'"))
 (let ((id (subst-char-in-string ?/ ?- (file-relative-name file 
dir
   (when (and (not (gethash id hash)) (file-readable-p file))
 (push (cons id file) result)



[elpa] externals/counsel d28225e86f 1/3: Bump version to 0.14.0

2023-06-19 Thread Basil L. Contovounesios
branch: externals/counsel
commit d28225e86f8dfb3825809ad287f759f95ee9e479
Author: Basil L. Contovounesios 
Commit: Basil L. Contovounesios 

Bump version to 0.14.0

* counsel.el:
* doc/ivy.org:
* ivy-avy.el:
* ivy-hydra.el:
* ivy.el:
* swiper.el: Bump version to 0.14.0 (#3001).

* doc/ivy.texi: Regenerate.
---
 counsel.el   | 4 ++--
 doc/ivy.org  | 2 +-
 doc/ivy.texi | 2 +-
 ivy-avy.el   | 4 ++--
 ivy-hydra.el | 4 ++--
 ivy.el   | 2 +-
 swiper.el| 4 ++--
 7 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/counsel.el b/counsel.el
index e9db11c9d3..05b70d6693 100644
--- a/counsel.el
+++ b/counsel.el
@@ -4,8 +4,8 @@
 
 ;; Author: Oleh Krehel 
 ;; URL: https://github.com/abo-abo/swiper
-;; Version: 0.13.4
-;; Package-Requires: ((emacs "24.5") (ivy "0.13.4") (swiper "0.13.4"))
+;; Version: 0.14.0
+;; Package-Requires: ((emacs "24.5") (ivy "0.14.0") (swiper "0.14.0"))
 ;; Keywords: convenience, matching, tools
 
 ;; This file is part of GNU Emacs.
diff --git a/doc/ivy.org b/doc/ivy.org
index c3d5a64feb..66f62827ff 100644
--- a/doc/ivy.org
+++ b/doc/ivy.org
@@ -58,7 +58,7 @@ ivy-ox.el then ~C-c C-e i t~ in the ivy.org buffer.
 :CUSTOM_ID: copying
 :END:
 #+TEXINFO: @ifnottex
-Ivy manual, version 0.13.4
+Ivy manual, version 0.14.0
 
 Ivy is an interactive interface for completion in Emacs. Emacs uses
 completion mechanism in a variety of contexts: code, menus, commands,
diff --git a/doc/ivy.texi b/doc/ivy.texi
index 1968c5b27b..ea7d2f7d07 100644
--- a/doc/ivy.texi
+++ b/doc/ivy.texi
@@ -8,7 +8,7 @@
 
 @copying
 @ifnottex
-Ivy manual, version 0.13.4
+Ivy manual, version 0.14.0
 
 Ivy is an interactive interface for completion in Emacs. Emacs uses
 completion mechanism in a variety of contexts: code, menus, commands,
diff --git a/ivy-avy.el b/ivy-avy.el
index 2f57f426cf..a7ff8643a6 100644
--- a/ivy-avy.el
+++ b/ivy-avy.el
@@ -4,8 +4,8 @@
 
 ;; Author: Oleh Krehel 
 ;; URL: https://github.com/abo-abo/swiper
-;; Version: 0.13.4
-;; Package-Requires: ((emacs "24.5") (ivy "0.13.4") (avy "0.5.0"))
+;; Version: 0.14.0
+;; Package-Requires: ((emacs "24.5") (ivy "0.14.0") (avy "0.5.0"))
 ;; Keywords: convenience
 
 ;; This program is free software; you can redistribute it and/or modify
diff --git a/ivy-hydra.el b/ivy-hydra.el
index 839b0d36b1..fef764bf77 100644
--- a/ivy-hydra.el
+++ b/ivy-hydra.el
@@ -4,8 +4,8 @@
 
 ;; Author: Oleh Krehel 
 ;; URL: https://github.com/abo-abo/swiper
-;; Version: 0.13.5
-;; Package-Requires: ((emacs "24.5") (ivy "0.13.4") (hydra "0.14.0"))
+;; Version: 0.14.0
+;; Package-Requires: ((emacs "24.5") (ivy "0.14.0") (hydra "0.14.0"))
 ;; Keywords: convenience
 
 ;; This file is part of GNU Emacs.
diff --git a/ivy.el b/ivy.el
index 0ce9d4fbca..cacb67f56b 100644
--- a/ivy.el
+++ b/ivy.el
@@ -4,7 +4,7 @@
 
 ;; Author: Oleh Krehel 
 ;; URL: https://github.com/abo-abo/swiper
-;; Version: 0.13.4
+;; Version: 0.14.0
 ;; Package-Requires: ((emacs "24.5"))
 ;; Keywords: matching
 
diff --git a/swiper.el b/swiper.el
index 0a5df99841..c9bec1e3e7 100644
--- a/swiper.el
+++ b/swiper.el
@@ -4,8 +4,8 @@
 
 ;; Author: Oleh Krehel 
 ;; URL: https://github.com/abo-abo/swiper
-;; Version: 0.13.4
-;; Package-Requires: ((emacs "24.5") (ivy "0.13.4"))
+;; Version: 0.14.0
+;; Package-Requires: ((emacs "24.5") (ivy "0.14.0"))
 ;; Keywords: matching
 
 ;; This file is part of GNU Emacs.



[elpa] externals/counsel aa18c1f486 2/3: ; * counsel.el: Fix file regexp.

2023-06-19 Thread Basil L. Contovounesios
branch: externals/counsel
commit aa18c1f4861cef2ddcf0c70b6fd7edd93ae9c627
Author: Basil L. Contovounesios 
Commit: Basil L. Contovounesios 

; * counsel.el: Fix file regexp.

This pacifies relint-directory.
---
 counsel.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/counsel.el b/counsel.el
index 05b70d6693..4c3cd02aa9 100644
--- a/counsel.el
+++ b/counsel.el
@@ -6125,7 +6125,7 @@ This function always returns its elements in a stable 
order."
   (when (file-exists-p dir)
 (let ((dir (file-name-as-directory dir)))
   ;; Function `directory-files-recursively' added in Emacs 25.1.
-  (dolist (file (directory-files-recursively dir ".*\\.desktop$"))
+  (dolist (file (directory-files-recursively dir "\\.desktop\\'"))
 (let ((id (subst-char-in-string ?/ ?- (file-relative-name file 
dir
   (when (and (not (gethash id hash)) (file-readable-p file))
 (push (cons id file) result)



[elpa] externals/counsel updated (603c29c648 -> abb3049fd8)

2023-06-19 Thread Basil L. Contovounesios
blc pushed a change to branch externals/counsel.

  from  603c29c648 * counsel.el: Bump version to 0.14.0 (#3001).
   new  d28225e86f Bump version to 0.14.0
   new  aa18c1f486 ; * counsel.el: Fix file regexp.
   new  abb3049fd8 Merge branch 'master' into externals/counsel


Summary of changes:
 counsel.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)



[elpa] externals/kind-icon updated (f0e1daa419 -> 3fedd3054e)

2023-06-19 Thread ELPA Syncer
elpasync pushed a change to branch externals/kind-icon.

  from  f0e1daa419 Merge pull request #33 from mohkale/feat/blend-on-term
   new  e3eade50c1 Update README.md
   new  a649863e40 Update README.md
   new  3fedd3054e Update README.md


Summary of changes:
 README.md | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)



[elpa] externals/kind-icon a649863e40 2/3: Update README.md

2023-06-19 Thread ELPA Syncer
branch: externals/kind-icon
commit a649863e40734bf18d543c5b186e8135f3f3efe6
Author: JD Smith <93749+jdtsm...@users.noreply.github.com>
Commit: GitHub 

Update README.md
---
 README.md | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/README.md b/README.md
index a331efb84f..9156573253 100644
--- a/README.md
+++ b/README.md
@@ -65,8 +65,7 @@ The configuration defaults should work fine, but `kind-icon` 
can be customized t
 - `kind-icon-use-icons`: If non-nil (the default), prefer icons for prefix 
badges.  Otherwise, use text labels.  Individual kind entries can also have 
their icons disabled by removing the `:icon` property in the mapping (see 
below).  If `svg-lib` is unable to download a named icon and it is not cached 
on disk, text labels for that kind will be used as a fallback. 
 
 - `kind-icon-mapping`: This is the top level configuration mapping 
`:company-kind` "types" like `'variable` and `'function`.  Each item in this 
list has the format `(sym short-text :keyword value ...)` where `sym` is the 
kind (a symbol), and `short-text` is the abbreviated text to display (if icons 
are not used), both of which must be present.  The rest of the list is a 
property list with optional keys `:icon` and `:face`.  The latter will be used 
to set the text foreground and (possibly [...]
-
-**Update**: As of kind-icon v0.2, additional keywords supported by svg-lib can 
be utilized, including `:collection`, which allows the use of other icon 
libraries, including, in recent svg-lib versions, vscode-icons. Please note 
that **only monochrome icons are supported**; if you configure icons which have 
hard-coded colors in the SVG file (as some vscode-icons do), they will not be 
displayed correctly.   If you want to switch the collection for _all_ icons, 
add (e.g) `:collection "octic [...]
+  > **_Update:_**: As of kind-icon v0.2, additional keywords supported by 
svg-lib can be utilized, including `:collection`, which allows the use of other 
icon libraries.  In recent svg-lib versions, these include vscode-icons. Please 
note that **only monochrome icons are supported**; if you configure icons which 
have hard-coded colors in the SVG file (as some vscode-icons do), they will not 
be displayed correctly.   If you want to switch the collection for _all_ icons, 
add (e.g) `:collec [...]
 
 - `kind-icon-default-face`: A face from which the icon background color will 
be taken and blended with the `:face` foreground color in the mapping table to 
create a custom background color.  If not set, the frame default background 
color will be used for this purpose.  Similarly, the foreground color for this 
face, if set, will be used if a `:face` foreground is missing from the mapping. 
 



[elpa] externals/kind-icon 3fedd3054e 3/3: Update README.md

2023-06-19 Thread ELPA Syncer
branch: externals/kind-icon
commit 3fedd3054e9148fc0a13a06b267351fce6a385b1
Author: JD Smith <93749+jdtsm...@users.noreply.github.com>
Commit: GitHub 

Update README.md
---
 README.md | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/README.md b/README.md
index 9156573253..000368f5eb 100644
--- a/README.md
+++ b/README.md
@@ -65,7 +65,7 @@ The configuration defaults should work fine, but `kind-icon` 
can be customized t
 - `kind-icon-use-icons`: If non-nil (the default), prefer icons for prefix 
badges.  Otherwise, use text labels.  Individual kind entries can also have 
their icons disabled by removing the `:icon` property in the mapping (see 
below).  If `svg-lib` is unable to download a named icon and it is not cached 
on disk, text labels for that kind will be used as a fallback. 
 
 - `kind-icon-mapping`: This is the top level configuration mapping 
`:company-kind` "types" like `'variable` and `'function`.  Each item in this 
list has the format `(sym short-text :keyword value ...)` where `sym` is the 
kind (a symbol), and `short-text` is the abbreviated text to display (if icons 
are not used), both of which must be present.  The rest of the list is a 
property list with optional keys `:icon` and `:face`.  The latter will be used 
to set the text foreground and (possibly [...]
-  > **_Update:_**: As of kind-icon v0.2, additional keywords supported by 
svg-lib can be utilized, including `:collection`, which allows the use of other 
icon libraries.  In recent svg-lib versions, these include vscode-icons. Please 
note that **only monochrome icons are supported**; if you configure icons which 
have hard-coded colors in the SVG file (as some vscode-icons do), they will not 
be displayed correctly.   If you want to switch the collection for _all_ icons, 
add (e.g) `:collec [...]
+  > **_Update_**: As of kind-icon v0.2, additional keywords supported by 
svg-lib can be utilized, including `:collection`, which allows the use of other 
icon libraries.  In recent svg-lib versions, these include vscode-icons. Please 
note that **only monochrome icons are supported**; if you configure icons which 
have hard-coded colors in the SVG file (as some vscode-icons do), they will not 
be displayed correctly.   If you want to switch the collection for _all_ icons, 
add (e.g) `:collect [...]
 
 - `kind-icon-default-face`: A face from which the icon background color will 
be taken and blended with the `:face` foreground color in the mapping table to 
create a custom background color.  If not set, the frame default background 
color will be used for this purpose.  Similarly, the foreground color for this 
face, if set, will be used if a `:face` foreground is missing from the mapping. 
 



[elpa] externals/kind-icon e3eade50c1 1/3: Update README.md

2023-06-19 Thread ELPA Syncer
branch: externals/kind-icon
commit e3eade50c176e77505f69736230c8786318356e4
Author: JD Smith <93749+jdtsm...@users.noreply.github.com>
Commit: GitHub 

Update README.md
---
 README.md | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/README.md b/README.md
index 500a1b0f0b..a331efb84f 100644
--- a/README.md
+++ b/README.md
@@ -65,7 +65,8 @@ The configuration defaults should work fine, but `kind-icon` 
can be customized t
 - `kind-icon-use-icons`: If non-nil (the default), prefer icons for prefix 
badges.  Otherwise, use text labels.  Individual kind entries can also have 
their icons disabled by removing the `:icon` property in the mapping (see 
below).  If `svg-lib` is unable to download a named icon and it is not cached 
on disk, text labels for that kind will be used as a fallback. 
 
 - `kind-icon-mapping`: This is the top level configuration mapping 
`:company-kind` "types" like `'variable` and `'function`.  Each item in this 
list has the format `(sym short-text :keyword value ...)` where `sym` is the 
kind (a symbol), and `short-text` is the abbreviated text to display (if icons 
are not used), both of which must be present.  The rest of the list is a 
property list with optional keys `:icon` and `:face`.  The latter will be used 
to set the text foreground and (possibly [...]
-**Update** as of v0.2, additional keywords supported by svg-lib can be added, 
including `:collection`, which allows the use of other icon libraries, 
including, in recent svg-lib versions, vscode-icons. Please note that **only 
monochrome icons are supported**; if you configure icons which have hard-coded 
colors in the SVG file (as some vscode-icons do), they will not be displayed 
correctly.   If you want to switch the collection for _all_ icons, add (e.g) 
`:collection "octicon"` to `kind- [...]
+
+**Update**: As of kind-icon v0.2, additional keywords supported by svg-lib can 
be utilized, including `:collection`, which allows the use of other icon 
libraries, including, in recent svg-lib versions, vscode-icons. Please note 
that **only monochrome icons are supported**; if you configure icons which have 
hard-coded colors in the SVG file (as some vscode-icons do), they will not be 
displayed correctly.   If you want to switch the collection for _all_ icons, 
add (e.g) `:collection "octic [...]
 
 - `kind-icon-default-face`: A face from which the icon background color will 
be taken and blended with the `:face` foreground color in the mapping table to 
create a custom background color.  If not set, the frame default background 
color will be used for this purpose.  Similarly, the foreground color for this 
face, if set, will be used if a `:face` foreground is missing from the mapping. 
 



[elpa] externals/nano-modeline a18780c277: Minor bugfix for ELPA

2023-06-19 Thread ELPA Syncer
branch: externals/nano-modeline
commit a18780c277838983932623870752f0adddef0345
Author: Nicolas P. Rougier 
Commit: Nicolas P. Rougier 

Minor bugfix for ELPA
---
 nano-modeline.el | 6 +-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/nano-modeline.el b/nano-modeline.el
index a8ae3c30c3..ac0077a5af 100644
--- a/nano-modeline.el
+++ b/nano-modeline.el
@@ -4,7 +4,7 @@
 
 ;; Maintainer: Nicolas P. Rougier 
 ;; URL: https://github.com/rougier/nano-modeline
-;; Version: 1.0.0
+;; Version: 1.0.1
 ;; Package-Requires: ((emacs "27.1"))
 ;; Keywords: convenience, mode-line, header-line
 
@@ -60,6 +60,10 @@
 ;;
 ;;; NEWS:
 ;;
+;;
+;; Version 1.0.1
+;; - Minor bugfix
+;;
 ;; Version 1.0.0
 ;; - Complete rewrite to make it simpler & faster
 ;; - API break: No longer a minor mode



[elpa] externals/svg-lib b2a168482f: Manual fix from PR#16 (to avoid conflicts)

2023-06-19 Thread ELPA Syncer
branch: externals/svg-lib
commit b2a168482f85a308a4ab95c03e3c2bd71981e166
Author: Nicolas P. Rougier 
Commit: Nicolas P. Rougier 

Manual fix from PR#16 (to avoid conflicts)
---
 svg-lib-demo.el | 2 +-
 svg-lib.el  | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/svg-lib-demo.el b/svg-lib-demo.el
index 0598062cc9..f1350fca80 100644
--- a/svg-lib-demo.el
+++ b/svg-lib-demo.el
@@ -25,7 +25,7 @@
 (dotimes (i 5)
   (insert-image (svg-lib-tag "TODO" nil
  :font-weight (* (+ i 2) 100
- 
+
 
 (dotimes (i 10)
   (insert-image (svg-lib-tag "TODO" nil :padding 1 :stroke (/ i 4.0
diff --git a/svg-lib.el b/svg-lib.el
index 8bad50eab6..ccf1572445 100644
--- a/svg-lib.el
+++ b/svg-lib.el
@@ -224,7 +224,7 @@ If COLOR-NAME is unknown to Emacs, then return COLOR-NAME 
as-is."
   
   (let* ((default svg-lib-style-default)
  (base (or base default))
- (keys (cl-loop for (key value) on default by 'cddr
+ (keys (cl-loop for (key _value) on default by 'cddr
 collect key))
  (style '()))
 
@@ -370,7 +370,7 @@ and style elements ARGS."
  (x1  (+ cx (* iradius (cos angle1
  (y1  (+ cy (* iradius (sin angle1
 
- (large-arc   (>= (- angle1 angle0) pi))
+ (large-arc   (>= (- angle1 angle0) float-pi))
  (svg (svg-create svg-width svg-height)))
 
 (when (>= stroke 0.25)
@@ -378,7 +378,7 @@ and style elements ARGS."
 
 (svg-circle svg cx cy (- radius (/ stroke 2.0)) :fill background)
 
-(if (>= (- angle1 angle0) (* pi 2))
+(if (>= (- angle1 angle0) (* float-pi 2))
 (svg-circle svg cx cy iradius :fill foreground)
   (svg-path svg `((moveto ((,cx . ,cy)))
 (lineto ((,x0 . ,y0)))



[nongnu] elpa/engine-mode updated (81d4ae1054 -> 671a16bb53)

2023-06-19 Thread ELPA Syncer
elpasync pushed a change to branch elpa/engine-mode.

  from  81d4ae1054 Explicitly depend on Emacs >= 24.3
   new  1c21b119e2 Backfill tests for most simple functions
   new  687266bff4 Require Emacs >= 24.4
   new  671a16bb53 Backfill test for :term-transformation-hook


Summary of changes:
 .github/workflows/test.yml |  4 +-
 Makefile   |  7 ++--
 engine-mode-test.el| 95 ++
 engine-mode.el |  2 +-
 4 files changed, 94 insertions(+), 14 deletions(-)



[nongnu] elpa/engine-mode 687266bff4 2/3: Require Emacs >= 24.4

2023-06-19 Thread ELPA Syncer
branch: elpa/engine-mode
commit 687266bff45cda00c1de57a22ad2b03de6823c28
Author: Harry R. Schwartz 
Commit: Harry R. Schwartz 

Require Emacs >= 24.4

It looks like the definition of `thing-at-point` changed between 24.3 and 
24.4,
and I can't be bothered to figure out how to support 24.3.
---
 .github/workflows/test.yml | 1 -
 engine-mode.el | 2 +-
 2 files changed, 1 insertion(+), 2 deletions(-)

diff --git a/.github/workflows/test.yml b/.github/workflows/test.yml
index 73bec77e61..f10a7193ed 100644
--- a/.github/workflows/test.yml
+++ b/.github/workflows/test.yml
@@ -8,7 +8,6 @@ jobs:
 strategy:
   matrix:
 emacs_version:
-  - 24.3
   - 24.4
   - 24.5
   - 25.1
diff --git a/engine-mode.el b/engine-mode.el
index beeab946ad..7dcca73629 100644
--- a/engine-mode.el
+++ b/engine-mode.el
@@ -3,7 +3,7 @@
 ;; Author: Harry R. Schwartz 
 ;; Version: 2.2.4
 ;; URL: https://github.com/hrs/engine-mode
-;; Package-Requires: ((emacs "24.3"))
+;; Package-Requires: ((emacs "24.4"))
 
 ;; This file is NOT part of GNU Emacs.
 



[nongnu] elpa/engine-mode 671a16bb53 3/3: Backfill test for :term-transformation-hook

2023-06-19 Thread ELPA Syncer
branch: elpa/engine-mode
commit 671a16bb530e00fd8fded26574ef4e936dc594d8
Author: Harry R. Schwartz 
Commit: Harry R. Schwartz 

Backfill test for :term-transformation-hook
---
 engine-mode-test.el | 11 +++
 1 file changed, 11 insertions(+)

diff --git a/engine-mode-test.el b/engine-mode-test.el
index 9ed53cef14..f1a4fb1ee8 100644
--- a/engine-mode-test.el
+++ b/engine-mode-test.el
@@ -88,4 +88,15 @@
   :to-equal
   "Search My-Engine for the selected text.\nPrompt for input if 
none is selected.")))
 
+(describe "defengine"
+  (it "takes a :term-transformation-hook argument and applies it to 
search terms"
+  (defengine wikipedia
+"https://www.wikipedia.org/search-redirect.php?search=%s";
+:term-transformation-hook upcase)
+
+  (let ((engine/browser-function (lambda (url &rest _) url)))
+(expect (engine/search-wikipedia "foo bar")
+:to-equal
+
"https://www.wikipedia.org/search-redirect.php?search=FOO%20BAR";
+
 ;;; engine-mode-test.el ends here



[nongnu] elpa/engine-mode 1c21b119e2 1/3: Backfill tests for most simple functions

2023-06-19 Thread ELPA Syncer
branch: elpa/engine-mode
commit 1c21b119e25682465fab47bb17a720c3d1943687
Author: Harry R. Schwartz 
Commit: Harry R. Schwartz 

Backfill tests for most simple functions

This also switches the testing framework to use buttercup, which provides 
some
convenient tools for spying on functions.

https://github.com/jorgenschaefer/emacs-buttercup/
---
 .github/workflows/test.yml |  3 ++
 Makefile   |  7 ++--
 engine-mode-test.el| 84 +-
 3 files changed, 82 insertions(+), 12 deletions(-)

diff --git a/.github/workflows/test.yml b/.github/workflows/test.yml
index 6aad926bc3..73bec77e61 100644
--- a/.github/workflows/test.yml
+++ b/.github/workflows/test.yml
@@ -35,6 +35,9 @@ jobs:
   with:
 version: ${{ matrix.emacs_version }}
 
+- name: Install buttercup package
+  run: emacs --quick --batch -f package-initialize --eval "(add-to-list 
'package-archives '(\"nongnu\" . \"https://elpa.nongnu.org/nongnu/\";) t)" 
--eval "(package-refresh-contents)" --eval "(package-install 'buttercup)"
+
 - name: Run tests
   if: matrix.allow_failure != true
   run: 'make && make test'
diff --git a/Makefile b/Makefile
index 127e7ed8c2..08453832a9 100644
--- a/Makefile
+++ b/Makefile
@@ -1,7 +1,6 @@
 .PHONY: test
 test: engine-mode.el engine-mode-test.el
emacs --quick --batch \
-   -l ert \
-   -l engine-mode-test.el \
-   --eval "(setq ert-batch-backtrace-right-margin 1)" \
-   -f ert-run-tests-batch-and-exit
+   -f package-initialize \
+   -L . \
+   -f buttercup-run-discover
diff --git a/engine-mode-test.el b/engine-mode-test.el
index c128bbead2..9ed53cef14 100644
--- a/engine-mode-test.el
+++ b/engine-mode-test.el
@@ -8,16 +8,84 @@
 
 ;;; Code:
 
+(require 'buttercup)
 (load-file "engine-mode.el")
 
-(ert-deftest engine--function-name ()
-  (should (equal (engine--function-name 'wikipedia)
- 'engine/search-wikipedia))
-  (should (equal (engine--function-name 'GitHub)
- 'engine/search-github)))
+(describe "engine--search-prompt"
+  (it "includes the default term in the prompt"
+  (expect (engine--search-prompt "wikipedia" "the-thing-at-point")
+  :to-equal
+  "Search Wikipedia (the-thing-at-point): "))
 
-(ert-deftest engine--docstring ()
-  (should (equal (engine--docstring 'my-engine)
- "Search My-Engine for the selected text.\nPrompt for input if 
none is selected.")))
+  (it "doesn't include the default term if it's empty"
+  (expect (engine--search-prompt "wikipedia" "")
+  :to-equal
+  "Search Wikipedia: ")))
+
+(describe "engine--prompted-search-term"
+  (it "reads a string from the user"
+  (spy-on 'read-string :and-return-value "spy term")
+  (spy-on 'thing-at-point :and-return-value nil)
+
+  (expect (engine--prompted-search-term "wikipedia")
+  :to-equal "spy term")
+  (expect 'read-string :to-have-been-called-with
+  (engine--search-prompt "wikipedia" "") nil nil ""))
+
+  (it "defaults the term to the thing-at-point, if there is one"
+  (spy-on 'read-string :and-return-value "spy term")
+  (with-temp-buffer
+(insert "foo")
+(goto-char 1)
+(expect (engine--prompted-search-term "wikipedia")
+:to-equal "spy term"))
+
+  (expect 'read-string :to-have-been-called-with
+  (engine--search-prompt "wikipedia" "foo") nil nil 
"foo")))
+
+(describe "engine--get-query"
+  (it "returns a region, if one's active"
+  (expect (with-temp-buffer
+(transient-mark-mode)
+
+(insert "lorem ipsum")
+(goto-char 3)
+(push-mark-command (point))
+(goto-char 10)
+
+(engine--get-query "wikipedia"))
+  :to-equal "rem ips"))
+
+  (it "delegates to engine--prompted-search-term if there's no active 
region"
+  (spy-on 'read-string :and-return-value "spy term")
+  (expect (engine--get-query "wikipedia")
+  :to-equal
+  (engine--prompted-search-term "wikipedia"
+
+(describe "engine--execute-search"
+  (it "encodes the search term, interpolates it into the URL, and 
browses it"
+  (expect (engine--execute-search
+   
"https://www.wikipedia.org/search-redirect.php?search=%s";
+   (lambda (url &rest _) (cons 'browsed url))
+   "foo bar")
+  :to-equal
+  '(browsed . 
"https://www.wikipedia.org/search-redirect.php?search=foo%20bar";

[elpa] externals/ef-themes f02552fc6a 1/3: ef-elea-light: tweak green value

2023-06-19 Thread ELPA Syncer
branch: externals/ef-themes
commit f02552fc6a35fcb1f405bbbaabe73d569fff650b
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

ef-elea-light: tweak green value
---
 ef-elea-light-theme.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ef-elea-light-theme.el b/ef-elea-light-theme.el
index e4fe854937..a6e28fd350 100644
--- a/ef-elea-light-theme.el
+++ b/ef-elea-light-theme.el
@@ -60,7 +60,7 @@
   (red-warmer  "#d0")
   (red-cooler  "#b02440")
   (red-faint   "#894852")
-  (green   "#1f601f")
+  (green   "#00601f")
   (green-warmer"#355500")
   (green-cooler"#007047")
   (green-faint "#306630")



[elpa] externals/ef-themes updated (949d4a39b6 -> 3f5d332835)

2023-06-19 Thread ELPA Syncer
elpasync pushed a change to branch externals/ef-themes.

  from  949d4a39b6 ef-elea-light: tweak red-faint, green-warmer
   new  f02552fc6a ef-elea-light: tweak green value
   new  9aace68db4 ef-elea-light: change shade of magenta for key bindings
   new  3f5d332835 ef-elea-dark: change shade of magenta for key bindings


Summary of changes:
 ef-elea-dark-theme.el  | 2 +-
 ef-elea-light-theme.el | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)



[elpa] externals/ef-themes 9aace68db4 2/3: ef-elea-light: change shade of magenta for key bindings

2023-06-19 Thread ELPA Syncer
branch: externals/ef-themes
commit 9aace68db40a96c4e02b1d798a8e0b380e22634b
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

ef-elea-light: change shade of magenta for key bindings
---
 ef-elea-light-theme.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ef-elea-light-theme.el b/ef-elea-light-theme.el
index a6e28fd350..87a647512c 100644
--- a/ef-elea-light-theme.el
+++ b/ef-elea-light-theme.el
@@ -170,7 +170,7 @@
   (link green)
   (link-alt magenta)
   (name green-warmer)
-  (keybind magenta-cooler)
+  (keybind magenta)
   (identifier magenta-faint)
   (prompt magenta)
 



[elpa] externals/ef-themes 3f5d332835 3/3: ef-elea-dark: change shade of magenta for key bindings

2023-06-19 Thread ELPA Syncer
branch: externals/ef-themes
commit 3f5d3328356a5e5786587d807bec3bd1722ec62c
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

ef-elea-dark: change shade of magenta for key bindings
---
 ef-elea-dark-theme.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ef-elea-dark-theme.el b/ef-elea-dark-theme.el
index 1cd723751e..753861a467 100644
--- a/ef-elea-dark-theme.el
+++ b/ef-elea-dark-theme.el
@@ -170,7 +170,7 @@
   (link green-warmer)
   (link-alt magenta)
   (name green)
-  (keybind magenta-cooler)
+  (keybind magenta)
   (identifier magenta-faint)
   (prompt magenta)
 



[elpa] externals/emms 9e08a4b081: * emms-info-ogginfo.el: Do not write any tag-value pair over than 1k

2023-06-19 Thread ELPA Syncer
branch: externals/emms
commit 9e08a4b081abcf18c375214a50ff47f8919f8ab1
Author: Yoni Rabkin 
Commit: Yoni Rabkin 

* emms-info-ogginfo.el: Do not write any tag-value pair over than 1k

Avoid writing a field such as "metadata_block_picture", which may have
a lot of data in it, and will consequently bloat the cache file.
---
 emms-info-ogginfo.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/emms-info-ogginfo.el b/emms-info-ogginfo.el
index 68950ff627..ad8b1b1fd4 100644
--- a/emms-info-ogginfo.el
+++ b/emms-info-ogginfo.el
@@ -73,7 +73,7 @@ This is a useful element for `emms-info-functions'."
 (let ((a (match-string 1))
   (b (match-string 2)))
   (when (and (< 0 (length a))
- (< 0 (length b)))
+ (< 0 (length b) 1024))
 (emms-track-set track
 (intern (downcase (concat "info-" 
(match-string 1
 (match-string 2))



[elpa] externals/hyperbole 6e55a3e653 1/2: Fix a outstanding bugs with Koutliner, paths, ibut creation

2023-06-19 Thread ELPA Syncer
branch: externals/hyperbole
commit 6e55a3e653d380450d2846a03e06a09e64fa9013
Author: Bob Weiner 
Commit: Bob Weiner 

Fix a outstanding bugs with Koutliner, paths, ibut creation

FAST-DEMO - Add video snippets of Hyperbole Overview talk so users
can see and hear about Hyperbole in couple minute bursts.
---
 ChangeLog |   50 ++
 FAST-DEMO |   90 ++-
 TAGS  | 1665 +++--
 hbut.el   |   25 +-
 hibtypes.el   |2 +-
 hmouse-drv.el |   84 ++-
 hpath.el  |9 +-
 hui.el|  276 -
 hypb.el   |   89 +--
 kotl/kotl-mode.el |4 +-
 kotl/kview.el |   44 +-
 11 files changed, 1264 insertions(+), 1074 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index bb45238de1..297e92b8b7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,53 @@
+2023-06-19  Bob Weiner  
+
+* kotl/kotl-mode.el (kotl-mode:add-cell): Fix that when inserting a child cell 
in
+a tree with hidden/collapsed cells, 'kcell-view:forward' was called
+with a 't arg that skipped over invisible cells, moving to the end of a 
tree
+rather than just the next invisible cell.  This made 
'klabel-type:update-labels'
+miss updating all the invisible cells after the insertion point.
+
+* kotl/kview.el (kview:outline-regexp): Fix that 
'kview:default-label-separator'
+was not regexp-quoted here, leading to false label matches at the 
beginnings
+of lines and wrong computation of the location of the start of cells.  
Somehow
+this fix was lost from when applied before on 2022-08-20.
+(kcell-view:to-label-end): Fix to use 'kview:outline-regexp' 
only
+after failing to find a 'kcell property to mark end of label since this can
+lead to false matches that move cursor improperly at times, i.e. when a 
line
+of text starts with a label-matching pattern, e.g. '3a.'
+
+* hpath.el (hpath:to-markup-anchor): Fix doc.
+
+2023-06-18  Bob Weiner  
+
+* hpath.el (hpath:at-p): If path at point is just an hpath:prefix-regexp
+   char, then don't set non-exist to t.
+
+* hibtypes.el (pathname): Don't match to a path of a single "-".
+
+* hmouse-drv.el (hmouse-choose-link-and-referent-windows): Add to choose
+link and referent windows for hui:*but-link-directly commands.
+(hmouse-keyboard-choose-windows): Add to choose start and
+end windows from the keyboard. NOT YET WORKING.
+
+* hypb.el (hypb:count-visible-windows): Add.
+
+* hui.el (hui:ebut-link-directly, hui:ibut-link-directly):
+Trigger an error if there is only one visible window.  Use
+ace-window package to select referent window when available; otherwise
+select the referent window by clicking the mouse.
+ (hui:ibut-link-directly): Fix was using Action windows instead of
+Assist.
+
+* FAST-DEMO (Introductory Videos): Add video snippets of Hyperbole Overview
+talk in first table so users can see and hear about Hyperbole in couple
+minute bursts.
+
+* hbut.el (ibut:label-separator-regexp): Add '|' as a separator character
+so can have ibut names and text in separate Org table columns.
+
+* hmouse-drv.el (hkey-debug): Add Action and Assist Key depress and release
+window information.
+
 2023-06-17  Bob Weiner  
 
 * hui.el (hui:ibut-link-directly): Document new inter-window Assist Mouse
diff --git a/FAST-DEMO b/FAST-DEMO
index e8ff13a966..010df27b27 100644
--- a/FAST-DEMO
+++ b/FAST-DEMO
@@ -3,38 +3,70 @@
   Send an email or a testimonial if you like Hyperbole to .
 
   This demo is the fast way to get started with Hyperbole after installation.
-  The prior, lengthier Hyperbole demo/tutorial can be found in this file:
-  "DEMO".
+  The prior, lengthier Hyperbole demo/tutorial can be found in this file: 
"DEMO".
 
 * Introductory Videos
 
-  If you prefer video introductions, visit the videos linked to below;
-  otherwise, skip to the next section.
-
-  
|--+--|
-  | GNU Hyperbole Videos | Web Link
 |
-  
|--+--|
-  
|--+--|
-  | Overview and Demo| 
https://youtu.be/WKwZHSbHmPg |
-  |   Covers all of Hyperbole| 
 |
-  |   Hyperlink timestamps to watch each section | 
 |
-  
|-+---|
-  | Quick Introduction   | 
https://youtu.be/K1MNUctggwI |
-  
|--+--|
-  | Introduction to Buttons  | 
https://youtu.be/zoEht66N2PI |
-  
|--+---

[elpa] externals/hyperbole 018a470368 2/2: Merge pull request #340 from rswgnu/rsw

2023-06-19 Thread ELPA Syncer
branch: externals/hyperbole
commit 018a470368d20a45f03df39489b07053b8871459
Merge: 655df928af 6e55a3e653
Author: Robert Weiner 
Commit: GitHub 

Merge pull request #340 from rswgnu/rsw

Fix outstanding bugs with Koutliner, paths, ibut creation
---
 ChangeLog |   50 ++
 FAST-DEMO |   90 ++-
 TAGS  | 1665 +++--
 hbut.el   |   25 +-
 hibtypes.el   |2 +-
 hmouse-drv.el |   84 ++-
 hpath.el  |9 +-
 hui.el|  276 -
 hypb.el   |   89 +--
 kotl/kotl-mode.el |4 +-
 kotl/kview.el |   44 +-
 11 files changed, 1264 insertions(+), 1074 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index bb45238de1..297e92b8b7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,53 @@
+2023-06-19  Bob Weiner  
+
+* kotl/kotl-mode.el (kotl-mode:add-cell): Fix that when inserting a child cell 
in
+a tree with hidden/collapsed cells, 'kcell-view:forward' was called
+with a 't arg that skipped over invisible cells, moving to the end of a 
tree
+rather than just the next invisible cell.  This made 
'klabel-type:update-labels'
+miss updating all the invisible cells after the insertion point.
+
+* kotl/kview.el (kview:outline-regexp): Fix that 
'kview:default-label-separator'
+was not regexp-quoted here, leading to false label matches at the 
beginnings
+of lines and wrong computation of the location of the start of cells.  
Somehow
+this fix was lost from when applied before on 2022-08-20.
+(kcell-view:to-label-end): Fix to use 'kview:outline-regexp' 
only
+after failing to find a 'kcell property to mark end of label since this can
+lead to false matches that move cursor improperly at times, i.e. when a 
line
+of text starts with a label-matching pattern, e.g. '3a.'
+
+* hpath.el (hpath:to-markup-anchor): Fix doc.
+
+2023-06-18  Bob Weiner  
+
+* hpath.el (hpath:at-p): If path at point is just an hpath:prefix-regexp
+   char, then don't set non-exist to t.
+
+* hibtypes.el (pathname): Don't match to a path of a single "-".
+
+* hmouse-drv.el (hmouse-choose-link-and-referent-windows): Add to choose
+link and referent windows for hui:*but-link-directly commands.
+(hmouse-keyboard-choose-windows): Add to choose start and
+end windows from the keyboard. NOT YET WORKING.
+
+* hypb.el (hypb:count-visible-windows): Add.
+
+* hui.el (hui:ebut-link-directly, hui:ibut-link-directly):
+Trigger an error if there is only one visible window.  Use
+ace-window package to select referent window when available; otherwise
+select the referent window by clicking the mouse.
+ (hui:ibut-link-directly): Fix was using Action windows instead of
+Assist.
+
+* FAST-DEMO (Introductory Videos): Add video snippets of Hyperbole Overview
+talk in first table so users can see and hear about Hyperbole in couple
+minute bursts.
+
+* hbut.el (ibut:label-separator-regexp): Add '|' as a separator character
+so can have ibut names and text in separate Org table columns.
+
+* hmouse-drv.el (hkey-debug): Add Action and Assist Key depress and release
+window information.
+
 2023-06-17  Bob Weiner  
 
 * hui.el (hui:ibut-link-directly): Document new inter-window Assist Mouse
diff --git a/FAST-DEMO b/FAST-DEMO
index e8ff13a966..010df27b27 100644
--- a/FAST-DEMO
+++ b/FAST-DEMO
@@ -3,38 +3,70 @@
   Send an email or a testimonial if you like Hyperbole to .
 
   This demo is the fast way to get started with Hyperbole after installation.
-  The prior, lengthier Hyperbole demo/tutorial can be found in this file:
-  "DEMO".
+  The prior, lengthier Hyperbole demo/tutorial can be found in this file: 
"DEMO".
 
 * Introductory Videos
 
-  If you prefer video introductions, visit the videos linked to below;
-  otherwise, skip to the next section.
-
-  
|--+--|
-  | GNU Hyperbole Videos | Web Link
 |
-  
|--+--|
-  
|--+--|
-  | Overview and Demo| 
https://youtu.be/WKwZHSbHmPg |
-  |   Covers all of Hyperbole| 
 |
-  |   Hyperlink timestamps to watch each section | 
 |
-  
|-+---|
-  | Quick Introduction   | 
https://youtu.be/K1MNUctggwI |
-  
|--+--|
-  | Introduction to Buttons  | 
https://youtu.be/zoEht66N2PI |
-  
|--+--|
-  | Linking Personal Info with Implicit B

[nongnu] elpa/helm 0d85fde7a3 1/2: Prettify helm-mode-all-the-icons-handler

2023-06-19 Thread ELPA Syncer
branch: elpa/helm
commit 0d85fde7a3d4f72b4f23fa469c4f5ee8d409cdb7
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Prettify helm-mode-all-the-icons-handler

Align everything properly.
---
 helm-mode.el | 22 +-
 1 file changed, 17 insertions(+), 5 deletions(-)

diff --git a/helm-mode.el b/helm-mode.el
index 5f4b88c351..906d67289d 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -1126,11 +1126,23 @@ This handler uses dynamic matching which allows 
honouring `completion-styles'."
 init hist default inherit-input-method
 name buffer)
   "A special `completing-read' handler for `all-the-icons-insert'."
-  (let ((cands (cl-loop for (desc . str) in collection
-collect (cons (concat str
-  " "
-  (substring-no-properties desc))
-  desc
+  (let* ((max-len 0)
+ (cands (cl-loop for (desc . str) in collection
+ for descnp = (substring-no-properties desc)
+ for sdesc = (when (string-match
+
"\\(.*\\)[[:blank:]]+\\(\\[.*\\]\\)" descnp)
+   (match-string 1 descnp))
+ for sdesc2 = (match-string 2 descnp)
+ do (setq max-len (max max-len (string-width sdesc)))
+ collect (cons (concat sdesc " " str " " sdesc2) 
desc)))
+ (fn (lambda ()
+   (with-helm-buffer
+ (save-excursion
+   (goto-char (point-min))
+   (helm-skip-header-and-separator-line 'next)
+   (while (re-search-forward "^[[:alnum:]_-]+" nil t)
+ (insert (make-string (- max-len (current-column)) ? 
)))
+ (helm-after-update-hook (append helm-after-update-hook `(,fn
 (helm-completing-read-default-1 prompt cands test require-match
 init hist default inherit-input-method
 name buffer t nil t 'buffer-substring)))



[nongnu] elpa/helm updated (f930dff6fe -> 305f4d3c89)

2023-06-19 Thread ELPA Syncer
elpasync pushed a change to branch elpa/helm.

  from  f930dff6fe Add a comp read handler for all-the-icons-insert
   new  0d85fde7a3 Prettify helm-mode-all-the-icons-handler
   new  305f4d3c89 Fix all-the-icons-insert handler when called with FAMILY 
arg


Summary of changes:
 helm-mode.el | 27 ++-
 1 file changed, 22 insertions(+), 5 deletions(-)



[nongnu] elpa/helm-core updated (f930dff6fe -> 305f4d3c89)

2023-06-19 Thread ELPA Syncer
elpasync pushed a change to branch elpa/helm-core.

  from  f930dff6fe Add a comp read handler for all-the-icons-insert
  adds  0d85fde7a3 Prettify helm-mode-all-the-icons-handler
  adds  305f4d3c89 Fix all-the-icons-insert handler when called with FAMILY 
arg

No new revisions were added by this update.

Summary of changes:
 helm-mode.el | 27 ++-
 1 file changed, 22 insertions(+), 5 deletions(-)



[nongnu] elpa/helm 305f4d3c89 2/2: Fix all-the-icons-insert handler when called with FAMILY arg

2023-06-19 Thread ELPA Syncer
branch: elpa/helm
commit 305f4d3c89c9a17f1a33eb23803a61e0c1123b79
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Fix all-the-icons-insert handler when called with FAMILY arg

This is the case for all the all-the-icons-insert-* functions.
---
 helm-mode.el | 11 ---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/helm-mode.el b/helm-mode.el
index 906d67289d..18b711f263 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -1128,10 +1128,15 @@ This handler uses dynamic matching which allows 
honouring `completion-styles'."
   "A special `completing-read' handler for `all-the-icons-insert'."
   (let* ((max-len 0)
  (cands (cl-loop for (desc . str) in collection
+ ;; When the FAMILY argument is passed to
+ ;; `all-the-icons-insert' DESC is the name of icon 
only
+ ;; otherwise it is "name  [family]" with unpredictable
+ ;; spaces or tab numbers between name and [family].
  for descnp = (substring-no-properties desc)
- for sdesc = (when (string-match
-
"\\(.*\\)[[:blank:]]+\\(\\[.*\\]\\)" descnp)
-   (match-string 1 descnp))
+ for sdesc = (if (string-match
+  "\\(.*\\)[[:blank:]]+\\(\\[.*\\]\\)" 
descnp)
+ (match-string 1 descnp)
+   descnp)
  for sdesc2 = (match-string 2 descnp)
  do (setq max-len (max max-len (string-width sdesc)))
  collect (cons (concat sdesc " " str " " sdesc2) 
desc)))



[nongnu] elpa/helm-core updated (305f4d3c89 -> 21327f3e77)

2023-06-19 Thread ELPA Syncer
elpasync pushed a change to branch elpa/helm-core.

  from  305f4d3c89 Fix all-the-icons-insert handler when called with FAMILY 
arg
  adds  21327f3e77 Fix source name with all-the-icons-insert- fns

No new revisions were added by this update.

Summary of changes:
 helm-mode.el | 15 +--
 1 file changed, 13 insertions(+), 2 deletions(-)



[nongnu] elpa/helm 21327f3e77: Fix source name with all-the-icons-insert- fns

2023-06-19 Thread ELPA Syncer
branch: elpa/helm
commit 21327f3e7715a54b5ebcc497d5b62fd250085442
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Fix source name with all-the-icons-insert- fns

Use family as source name.
---
 helm-mode.el | 15 +--
 1 file changed, 13 insertions(+), 2 deletions(-)

diff --git a/helm-mode.el b/helm-mode.el
index 18b711f263..aef4ca94a2 100644
--- a/helm-mode.el
+++ b/helm-mode.el
@@ -1127,6 +1127,7 @@ This handler uses dynamic matching which allows honouring 
`completion-styles'."
 name buffer)
   "A special `completing-read' handler for `all-the-icons-insert'."
   (let* ((max-len 0)
+ sname
  (cands (cl-loop for (desc . str) in collection
  ;; When the FAMILY argument is passed to
  ;; `all-the-icons-insert' DESC is the name of icon 
only
@@ -1135,8 +1136,18 @@ This handler uses dynamic matching which allows 
honouring `completion-styles'."
  for descnp = (substring-no-properties desc)
  for sdesc = (if (string-match
   "\\(.*\\)[[:blank:]]+\\(\\[.*\\]\\)" 
descnp)
+ ;; This is all-the-icons-insert 
function.
  (match-string 1 descnp)
-   descnp)
+   ;; This is one of
+   ;; all-the-icons-insert-
+   ;; functions, extract the family name.
+   (prog1 descnp
+ (unless sname
+   (setq sname (plist-get
+(get-text-property
+ 0 'font-lock-face
+ (get-text-property 0 
'display desc))
+:family)
  for sdesc2 = (match-string 2 descnp)
  do (setq max-len (max max-len (string-width sdesc)))
  collect (cons (concat sdesc " " str " " sdesc2) 
desc)))
@@ -1150,7 +1161,7 @@ This handler uses dynamic matching which allows honouring 
`completion-styles'."
  (helm-after-update-hook (append helm-after-update-hook `(,fn
 (helm-completing-read-default-1 prompt cands test require-match
 init hist default inherit-input-method
-name buffer t nil t 'buffer-substring)))
+(or sname name) buffer t nil t 
'buffer-substring)))
 
 (defun helm-completing-read-default-find-tag
 (prompt collection test require-match



[nongnu] elpa/engine-mode 2a3ff70988 2/2: Run CI tests on pushes to main

2023-06-19 Thread ELPA Syncer
branch: elpa/engine-mode
commit 2a3ff7098896af86106adebb90a417924cce4c47
Author: Harry R. Schwartz 
Commit: Harry R. Schwartz 

Run CI tests on pushes to main

And include a tests badge in the README. :D
---
 .github/workflows/test.yml | 6 +-
 README.org | 1 +
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/.github/workflows/test.yml b/.github/workflows/test.yml
index f10a7193ed..deea2c8f81 100644
--- a/.github/workflows/test.yml
+++ b/.github/workflows/test.yml
@@ -1,5 +1,9 @@
 name: Tests
-on: pull_request
+on:
+  pull_request:
+  push:
+branches:
+  - main
 permissions: {}
 
 jobs:
diff --git a/README.org b/README.org
index 093d54645c..a77a811a46 100644
--- a/README.org
+++ b/README.org
@@ -4,6 +4,7 @@
 
[[https://melpa.org/#/engine-mode][https://melpa.org/packages/engine-mode-badge.svg]]
 
[[https://stable.melpa.org/#/engine-mode][https://stable.melpa.org/packages/engine-mode-badge.svg]]
 
[[https://www.gnu.org/licenses/gpl-3.0][https://img.shields.io/badge/License-GPL%20v3-blue.svg]]
+[[https://github.com/hrs/engine-mode/actions/workflows/test.yml][https://github.com/hrs/engine-mode/actions/workflows/test.yml/badge.svg?branch=main]]
 
 ~engine-mode~ is a global minor mode for Emacs. It enables you to easily define
 search engines, bind them to keybindings, and query them from the comfort of



[nongnu] elpa/engine-mode updated (671a16bb53 -> 2a3ff70988)

2023-06-19 Thread ELPA Syncer
elpasync pushed a change to branch elpa/engine-mode.

  from  671a16bb53 Backfill test for :term-transformation-hook
   new  a4355f29a1 Backfill tests for `:keybinding`
   new  2a3ff70988 Run CI tests on pushes to main


Summary of changes:
 .github/workflows/test.yml |  6 +++-
 README.org |  1 +
 engine-mode-test.el| 75 +-
 3 files changed, 67 insertions(+), 15 deletions(-)



[nongnu] elpa/engine-mode a4355f29a1 1/2: Backfill tests for `:keybinding`

2023-06-19 Thread ELPA Syncer
branch: elpa/engine-mode
commit a4355f29a188dafc9b2aac9b096555fcbb64789f
Author: Harry R. Schwartz 
Commit: Harry R. Schwartz 

Backfill tests for `:keybinding`

This tests binding keys for:

- A single key with the default prefix,
- a single key with a custom prefix,
- sequential keys with the default prefix,
- sequential keys with a custom prefix, and
- rebinding the `engine-mode-prefixed-map` even after engines have been 
defined.
---
 engine-mode-test.el | 75 +++--
 1 file changed, 61 insertions(+), 14 deletions(-)

diff --git a/engine-mode-test.el b/engine-mode-test.el
index f1a4fb1ee8..3834bc7221 100644
--- a/engine-mode-test.el
+++ b/engine-mode-test.el
@@ -50,7 +50,7 @@
 
 (insert "lorem ipsum")
 (goto-char 3)
-(push-mark-command (point))
+(push-mark-command (point) t)
 (goto-char 10)
 
 (engine--get-query "wikipedia"))
@@ -83,20 +83,67 @@
   'engine/search-github)))
 
 (describe "engine--docstring"
-  (it "returns a default docstring with the engine name interpolated"
-  (expect (engine--docstring 'my-engine)
-  :to-equal
-  "Search My-Engine for the selected text.\nPrompt for input if 
none is selected.")))
+  (it "returns a default docstring with the engine name interpolated"
+  (expect (engine--docstring 'my-engine)
+  :to-equal
+  "Search My-Engine for the selected text.\nPrompt for 
input if none is selected.")))
+
+(defun expect-binding (function-name desc)
+  "Test that FUNCTION-NAME has keybinding DESC."
+  (expect (member desc
+  (mapcar #'key-description (where-is-internal function-name 
engine-mode-map)))
+  :not :to-be nil))
 
 (describe "defengine"
-  (it "takes a :term-transformation-hook argument and applies it to 
search terms"
-  (defengine wikipedia
-"https://www.wikipedia.org/search-redirect.php?search=%s";
-:term-transformation-hook upcase)
-
-  (let ((engine/browser-function (lambda (url &rest _) url)))
-(expect (engine/search-wikipedia "foo bar")
-:to-equal
-
"https://www.wikipedia.org/search-redirect.php?search=FOO%20BAR";
+  (describe ":keybinding"
+(before-each
+ ;; Restore keymaps to their default values
+ (setq engine-mode-prefixed-map (make-sparse-keymap))
+ (setq engine-mode-map
+   (let ((map (make-sparse-keymap)))
+ (define-key map (kbd engine/keybinding-prefix) 
engine-mode-prefixed-map)
+ map)))
+
+(it "binds a key with the default prefix"
+(defengine wikipedia "" :keybinding "w")
+
+(expect-binding 'engine/search-wikipedia "C-x / w"))
+
+(it "binds a key with a custom prefix"
+(engine/set-keymap-prefix (kbd "C-c s"))
+
+(defengine wikipedia "" :keybinding "w")
+
+(expect-binding 'engine/search-wikipedia "C-c s w"))
+
+(it "binds sequential keys with the default prefix"
+(defengine wikipedia "" :keybinding "w o w")
+
+(expect-binding 'engine/search-wikipedia "C-x / w o 
w"))
+
+(it "binds sequential keys with a custom prefix"
+(engine/set-keymap-prefix (kbd "C-c s"))
+
+(defengine wikipedia "" :keybinding "w o w")
+
+(expect-binding 'engine/search-wikipedia "C-c s w o 
w"))
+
+(it "rebinds the keymap even after engines are defined"
+(defengine wikipedia "" :keybinding "w")
+
+(engine/set-keymap-prefix (kbd "C-c s"))
+
+(expect-binding 'engine/search-wikipedia "C-c s w")))
+
+  (describe ":term-transformation-hook"
+(it "applies the hook to search terms"
+(defengine wikipedia
+  
"https://www.wikipedia.org/search-redirect.php?search=%s";
+  :term-transformation-hook upcase)
+
+(let ((engine/browser-function (lambda (url &rest _) 
url)))
+  (expect (engine/search-wikipedia "foo bar")
+  :to-equal
+  
"https://www.wikipedia.org/search-redirect.php?search=FOO%20BAR";)
 
 ;;; engine-mode-test.el ends here



[elpa] scratch/hyperbole 0bf8fd8eee 03/16: Try and avoid using `hyperb:stack-frame`

2023-06-19 Thread Stefan Monnier via
branch: scratch/hyperbole
commit 0bf8fd8eeea16012fcbee35a344203b4957f3c07
Author: Stefan Monnier 
Commit: Stefan Monnier 

Try and avoid using `hyperb:stack-frame`

Scanning the stack frame can be useful in some unusual cases, but
should be avoided when a straightforward let-binding does the trick.

* hmouse-drv.el (hkey--within-help): New var.
(hkey-help): Bind it.
* hibtypes.el (pathname): Consult it.
(hibtypes--within-org-link-outside-org-mode): New var.
(org-link-outside-org-mode): Use it to detect recursion.

* hui-mouse.el (hyp--within-smart-org): New var.
(smart-org): Bind it.
(hkey-alist): Consult it.
(-flatten): Move declaration to where we know the function is
actually available.
---
 hibtypes.el   | 25 ++---
 hmouse-drv.el |  7 +--
 hui-mouse.el  | 25 ++---
 3 files changed, 37 insertions(+), 20 deletions(-)

diff --git a/hibtypes.el b/hibtypes.el
index dbbe4a437f..ecb7dd5605 100644
--- a/hibtypes.el
+++ b/hibtypes.el
@@ -186,6 +186,7 @@ If the referenced location is found, return non-nil."
 ;;; 
 
 (defib pathname ()
+  ;; FIXME: GNU convention calls these *file* names.
   "Make a valid pathname at point display the path entry.
 
 If instead is a PATH-style variable name, .e.g. MANPATH, will prompt
@@ -255,7 +256,8 @@ display options."
   (cond ((and (string-match hpath:path-variable-regexp path)
  (setq path (match-string 1 path))
  (hpath:is-path-variable-p path))
-(setq path (if (or assist-flag (hyperb:stack-frame 
'(hkey-help)))
+(setq path (if (or assist-flag
+   (bound-and-true-p hkey--within-help))
path
  (hpath:choose-from-path-variable path "Display")))
 (unless (or (null path) (string-blank-p path)
@@ -359,21 +361,22 @@ in all buffers."
 
 ;; Org links in Org mode are handled at the highest priority; see the last
 ;; section at the end of this file.
+(defvar hibtypes--within-org-link-outside-org-mode nil)
 
 (defib org-link-outside-org-mode ()
   "Follow an Org link in a non-Org mode buffer.
 This should be a very low priority so other Hyperbole types
 handle any links they recognize first."
-  (with-no-warnings
-(when (and (eq hsys-org-enable-smart-keys t)
-  (not (funcall hsys-org-mode-function))
-  ;; Prevent infinite recursion if ever called via 
org-metareturn-hook
-  ;; from org-meta-return invocation.
-  (not (hyperb:stack-frame '(ibtypes::debugger-source 
org-meta-return
-  (let ((start-end (hsys-org-link-at-p)))
-   (when start-end
-  (hsys-org-set-ibut-label start-end)
-  (hact 'org-open-at-point-global))
+  (when (and (eq hsys-org-enable-smart-keys t)
+(not (funcall hsys-org-mode-function))
+;; Prevent infinite recursion, e.g. if called via
+;; `org-metareturn-hook' from `org-meta-return' invocation.
+(not hibtypes--within-org-link-outside-org-mode))
+(let* ((hibtypes--within-org-link-outside-org-mode t)
+   (start-end (hsys-org-link-at-p)))
+  (when start-end
+(hsys-org-set-ibut-label start-end)
+(hact 'org-open-at-point-global)
 
 ;;; 
 ;;; Handles internal references within an annotated bibliography, delimiters=[]
diff --git a/hmouse-drv.el b/hmouse-drv.el
index 52736b45e5..ee0a219eb8 100644
--- a/hmouse-drv.el
+++ b/hmouse-drv.el
@@ -110,7 +110,7 @@ Note that this may be a buffer different than where the 
release occurs.")
 (defvar assist-key-help-flag nil
   "When non-nil, forces display of help for next Assist Key release.")
 
-(defvar assist-flag nil
+(defvar assist-flag nil;FIXME: Don't eat up others's namespace!
   "Non-nil when Hyperbole's Assist Key is in use rather than the Action Key.
 Never set directly.  Bound as a parameter when `hkey-execute' is called
 and then used as a free variable.")
@@ -1014,13 +1014,16 @@ predicate is found."
(setq hkey-forms (cdr hkey-forms
 pred-value))
 
+(defvar hkey--within-help nil)
+
 (defun hkey-help (&optional assisting)
   "Display help for the Action Key command in current context.
 With optional ASSISTING prefix arg non-nil, display help for the
 Assist Key command.  Return non-nil iff associated help
 documentation is found."
   (interactive "P")
-  (let* ((mouse-flag (when (mouse-event-p last-command-event)
+  (let* ((hkey--within-help t)
+(mouse-flag (when (mouse-event-p last-command-event)
   (or action-key-depress-position 
assist-key-depress-position)))
 (mouse-drag-flag (hmouse-drag-p))
 (hkey-forms (if mouse-flag hmouse-alist hkey-alist))
diff

[elpa] scratch/hyperbole 5206d3b3d4 01/16: * hload-path.el (hyperb:dir): Use `macroexp-file-name`

2023-06-19 Thread Stefan Monnier via
branch: scratch/hyperbole
commit 5206d3b3d48b72541aa07323a56bce0be095d3bb
Author: Stefan Monnier 
Commit: Stefan Monnier 

* hload-path.el (hyperb:dir): Use `macroexp-file-name`
---
 hload-path.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/hload-path.el b/hload-path.el
index 3e9f4f0935..b71239b7a9 100644
--- a/hload-path.el
+++ b/hload-path.el
@@ -42,7 +42,9 @@ Use `hyperb:wsl-os-p' to test if running under WSL.")
 ;;; 
 
 (defvar hyperb:dir (or (file-name-directory
-   (or (and (stringp load-file-name) load-file-name)
+   (or (if (fboundp 'macroexp-file-name) ;Emacs≥28
+   (macroexp-file-name)
+ (and (stringp load-file-name) load-file-name))
(locate-file "hmouse-tag.el" load-path)
(hyperb:path-being-loaded)
""))



[elpa] scratch/hyperbole b5780234d9 02/16: * hversion.el (hyperb:path-being-loaded): Delete function

2023-06-19 Thread Stefan Monnier via
branch: scratch/hyperbole
commit b5780234d975041c75cdddc2be8668b2ceac7a58
Author: Stefan Monnier 
Commit: Stefan Monnier 

* hversion.el (hyperb:path-being-loaded): Delete function

* hload-path.el (hyperb:dir): Don't use it as fallback because it's too
hackish and too rarely useful.
---
 hload-path.el |  1 -
 hversion.el   | 27 ---
 hyperbole.el  |  6 +++---
 3 files changed, 3 insertions(+), 31 deletions(-)

diff --git a/hload-path.el b/hload-path.el
index b71239b7a9..1b5e9dce58 100644
--- a/hload-path.el
+++ b/hload-path.el
@@ -46,7 +46,6 @@ Use `hyperb:wsl-os-p' to test if running under WSL.")
(macroexp-file-name)
  (and (stringp load-file-name) load-file-name))
(locate-file "hmouse-tag.el" load-path)
-   (hyperb:path-being-loaded)
""))
   (error
"(Hyperbole): Failed to set hyperb:dir.  Try setting it 
manually"))
diff --git a/hversion.el b/hversion.el
index 45f4390bd6..6e11fa45de 100644
--- a/hversion.el
+++ b/hversion.el
@@ -93,33 +93,6 @@ of stack frames (from innermost to outermost)."
  nil)
(when debug-flag (nreverse frame-list)
 
-(defun hyperb:path-being-loaded ()
-  "Return the full pathname used by the innermost `load' or `require' call.
-Removes any matches for `hyperb:automount-prefixes' before returning
-the pathname."
-  (let* ((frame (hyperb:stack-frame '(load require)))
-(function (nth 1 frame))
-file nosuffix)
-(cond ((eq function 'load)
-  (setq file (nth 2 frame)
-nosuffix (nth 5 frame)))
- ((eq function 'require)
-  (setq file (or (nth 3 frame) (symbol-name (nth 2 frame))
-(when (stringp file)
-  (setq nosuffix (or nosuffix
-(string-match
- "\\.\\(elc?\\|elc?\\.gz\\|elc?\\.Z\\)$"
- file))
-   file (substitute-in-file-name file)
-   file (locate-file file load-path
- (when (null nosuffix) '(".elc" ".el" ".el.gz" 
".el.Z"))
- ;; accept any existing file
- nil)
-   file (if (and (stringp file)
- (string-match hyperb:automount-prefixes file))
-(substring file (1- (match-end 0)))
-  file)
-
 (defun hyperb:window-sys-term (&optional frame)
   "Return first part of the term-type if running under a window system, else 
nil.
 Where a part in the term-type is delimited by a `-' or  an `_'."
diff --git a/hyperbole.el b/hyperbole.el
index f270cfc165..7286fa7dce 100644
--- a/hyperbole.el
+++ b/hyperbole.el
@@ -113,9 +113,9 @@
 (setq features (delq 'hload-path features)
  features (delq 'hversion features)))
 
-  ;; Defines hyperb:path-being-loaded, hyperb:stack-frame,
-  ;; (hyperb:window-system) and hyperb:dir, which are used later in
-  ;; this file.  Also adds Hyperbole to the load-path if need be.
+  ;; Defines hyperb:stack-frame, (hyperb:window-system), and hyperb:dir,
+  ;; which are used later in this file.
+  ;; Also adds Hyperbole to the load-path if need be.
   ;;
   ;; This handles the case when the Hyperbole package directory is not yet in 
load-path.
   (unless (or (require 'hversion nil t)



[elpa] scratch/hyperbole 63e463172e 06/16: (kview:char-visible-p): Delete function

2023-06-19 Thread Stefan Monnier via
branch: scratch/hyperbole
commit 63e463172e14f8db81f08d48ee76963392457fe9
Author: Stefan Monnier 
Commit: Stefan Monnier 

(kview:char-visible-p): Delete function

* kotl/kview.el (kview:first-invisible-point): Use `kview:char-invisible-p`.
(kview:char-visible-p): Delete function.
---
 kotl/kview.el | 12 ++--
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/kotl/kview.el b/kotl/kview.el
index 3e0de9ed65..6a6338284d 100644
--- a/kotl/kview.el
+++ b/kotl/kview.el
@@ -638,14 +638,12 @@ level."
 ;;;###autoload
 (defun kview:char-invisible-p (&optional pos)
   "Return t if the character after point is invisible/hidden, else nil."
+  ;; FIXME: Why not (invisible-p (or pos (point))) ?
   (when (get-char-property (or pos (point)) 'invisible)
+;; FIXME: To be invisible, a non-nil property value is not
+;; sufficient: it also depends on `buffer-invisibility-spec'.
 t))
 
-;;;###autoload
-(defun kview:char-visible-p (&optional pos)
-  "Return t if the character after point is visible, else nil."
-  (not (get-char-property (or pos (point)) 'invisible)))
-
 (defun kview:create (buffer-name
 &optional id-counter top-cell-attributes
 label-type level-indent label-separator
@@ -709,6 +707,8 @@ are used.
 
 (defun kview:end-of-actual-line ()
   "Go to the end of the current line whether collapsed or not."
+  ;; FIXME: This "[\n\r]" is a leftover from when kotl was using
+  ;; `selective-display'.  We should use `end-of-line' nowadays.
   (when (re-search-forward "[\n\r]" nil 'move)
 (backward-char 1)))
 
@@ -745,7 +745,7 @@ Value may be the character immediately after point."
   (unless pos
 (setq pos (point)))
   (let ((end (kcell-view:end-contents pos)))
-(while (and pos (< pos end) (kview:char-visible-p pos))
+(while (and pos (< pos end) (not (kview:char-invisible-p pos)))
   (if (kproperty:get pos 'invisible)
  (setq pos (kproperty:next-single-change pos 'invisible nil end))
(let ((overlay (car (delq nil (mapcar (lambda (o) (when (overlay-get o 
'invisible) o))



[elpa] scratch/hyperbole 60cf4b3ab0 07/16: * hact.el: Fix broken lexical-binding cookie

2023-06-19 Thread Stefan Monnier via
branch: scratch/hyperbole
commit 60cf4b3ab0ba7f73202c7f8f3ff8689c7af18218
Author: Stefan Monnier 
Commit: Stefan Monnier 

* hact.el: Fix broken lexical-binding cookie
---
 hact.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/hact.el b/hact.el
index 39e468c62d..3d215beaf0 100644
--- a/hact.el
+++ b/hact.el
@@ -1,4 +1,4 @@
-;;; hact.el --- GNU Hyperbole button action handling  -*- lexical-binding: t; 
-let*-
+;;; hact.el --- GNU Hyperbole button action handling  -*- lexical-binding: t; 
-*-
 ;;
 ;; Author:   Bob Weiner
 ;;
@@ -467,6 +467,7 @@ The type uses PARAMS to perform DEFAULT-ACTION (list of the 
rest of the
 arguments).  A call to this function is syntactically the same as for
 `defun',  but a doc string is required.
 Return symbol created when successful, else nil."
+  (declare (doc-string 3))
   `(progn
  (symtable:add ',type symtable:actypes)
  (htype:create ,type actypes ,doc ,params ,default-action nil)))



[elpa] branch scratch/hyperbole deleted (was 4bdcd214e3)

2023-06-19 Thread Stefan Monnier via
monnier pushed a change to branch scratch/hyperbole.

   was  4bdcd214e3 * hyrolo.el: A few cosmetic tweaks

This change permanently discards the following revisions:

  discards  4bdcd214e3 * hyrolo.el: A few cosmetic tweaks
  discards  e2d8b5e555 Fix a few minor miscompilations and warnings
  discards  10948143c9 (man-show): Fix miscompilation
  discards  2800920ae6 * hui-select.el: Fix a few warnings and improve some 
docstrings
  discards  63a7e27454 * hycontrol.el (hycontrol-windows-mode-map): Don't 
autoload
  discards  7f44544723 hyperbole-autoloads.el: Remove needless definitions
  discards  d290f19c21 * hyperbole.el: Preload `kotl-autoloads`
  discards  21746cca6a * hact.el: Fix broken lexical-binding cookie
  discards  762fb43807 (kview:char-visible-p): Delete function
  discards  0c2a101214 Fix compilation of test file
  discards  963c6313d5 Get rid of `hyperb:stack-frame`
  discards  8894d83051 (kotl-mode:pre-self-insert-command): Use buffer-locally 
at top-level
  discards  f519cae205 Try and avoid using `hyperb:stack-frame`
  discards  1ddb9d3ad5 * hversion.el (hyperb:path-being-loaded): Delete function
  discards  b1db025326 * hload-path.el (hyperb:dir): Use `macroexp-file-name`



[elpa] branch scratch/hyperbole created (now a269d1536e)

2023-06-19 Thread Stefan Monnier via
monnier pushed a change to branch scratch/hyperbole.

at  a269d1536e * hversion.el: Add FIXMEs. (hyperb:window-sys-term): 
Simplify since (string-match "[-_]" term) always returns nil here. 
(hyperb:automount-prefixes): Remove unused var. (id-info-item): Remove unused 
backslash.

This branch includes the following new commits:

   new  5206d3b3d4 * hload-path.el (hyperb:dir): Use `macroexp-file-name`
   new  b5780234d9 * hversion.el (hyperb:path-being-loaded): Delete function
   new  0bf8fd8eee Try and avoid using `hyperb:stack-frame`
   new  824a71773c Get rid of `hyperb:stack-frame`
   new  ab0338d714 Fix compilation of test file
   new  63e463172e (kview:char-visible-p): Delete function
   new  60cf4b3ab0 * hact.el: Fix broken lexical-binding cookie
   new  fbcfcc04a3 * hyperbole.el: Preload `kotl-autoloads`
   new  57d02f8456 hyperbole-autoloads.el: Remove needless definitions
   new  5aa8d7a577 * hycontrol.el (hycontrol-windows-mode-map): Don't 
autoload
   new  fc7e33b5e5 * hui-select.el: Fix a few warnings and improve some 
docstrings
   new  12fa8e328d (man-show): Fix miscompilation
   new  10ac3f59df Fix a few minor miscompilations and warnings
   new  02335b71bd * hyrolo.el: A few cosmetic tweaks
   new  fd3f79a9ee * hargs.el (hargs:set-string-to-complete): Don't mess 
with windows
   new  a269d1536e * hversion.el: Add FIXMEs. (hyperb:window-sys-term): 
Simplify since (string-match "[-_]" term) always returns nil here. 
(hyperb:automount-prefixes): Remove unused var. (id-info-item): Remove unused 
backslash.




[elpa] scratch/hyperbole 02335b71bd 14/16: * hyrolo.el: A few cosmetic tweaks

2023-06-19 Thread Stefan Monnier via
branch: scratch/hyperbole
commit 02335b71bd7de365b2dcf5978f4fc9c9d2125729
Author: Stefan Monnier 
Commit: Stefan Monnier 

* hyrolo.el: A few cosmetic tweaks

This file suffers from a large number of warnings, some of them
correspond to real bugs.  This patch does *not* fix them.

Remove redundant `:group` args.  Remove obsolete `*` in
`defcustom` docstrings.
(hyrolo--initialize-file-list): New function extracted (and simplified)
from `hyrolo-initialize-file-list`.
(hyrolo-file-list): Use it.
(hyrolo-initialize-file-list): Use it as well.  Declare it as obsolete.
(hyrolo-yank-reformat-function): Give it a non-nil default value.
(hyrolo-yank): Blindly call it now that it can't be nil.
---
 hyrolo.el | 85 +++
 1 file changed, 36 insertions(+), 49 deletions(-)

diff --git a/hyrolo.el b/hyrolo.el
index 089a618ce6..191a748a72 100644
--- a/hyrolo.el
+++ b/hyrolo.el
@@ -71,11 +71,10 @@
   :group 'hyperbole)
 
 (defcustom hyrolo-date-format "%m/%d/%Y"
-  "*Format of date string used in Rolo automatic date stamps.
+  "Format of date string used in Rolo automatic date stamps.
 Default is American style.  See documentation of the function
 `format-time-string' for format options."
-  :type 'string
-  :group 'hyperbole-rolo)
+  :type 'string)
 
 (defvar hyrolo-display-format-function
   (lambda (entry)
@@ -84,37 +83,32 @@ Default is American style.  See documentation of the 
function
 The argument is a rolo entry string.")
 
 (defcustom hyrolo-email-format "%s\t\t<%s>"
-  "*Format string to use when adding an entry with e-mail addr from a mail msg.
+  "Format string to use when adding an entry with e-mail addr from a mail msg.
 It must contain a %s indicating where to put the entry name and a second
 %s indicating where to put the e-mail address."
-  :type 'string
-  :group 'hyperbole-rolo)
+  :type 'string)
 
 (defvar hyrolo-entry-name-regexp "[-_a-zA-Z0-9@.]+\\( ?, ?[-_a-zA-Z0-9@.]+\\)?"
   "*Regexp matching a hyrolo entry name after matching to 
`hyrolo-entry-regexp'.")
 
 (defcustom hyrolo-file-suffix-regexp "\\.\\(kotl\\|md\\|org\\|otl\\)$"
   "File suffix regexp used to select files to search with HyRolo."
-  :type 'string
-  :group 'hyperbole-rolo)
+  :type 'string)
 
 (defcustom hyrolo-find-file-function #'find-file
-  "*Function to interactively display a `hyrolo-file-list' file for editing.
+  "Function to interactively display a `hyrolo-file-list' file for editing.
 Use the `hyrolo-edit' function instead to edit a new or existing entry."
-  :type 'function
-  :group 'hyperbole-rolo)
+  :type 'function)
 
 (defcustom hyrolo-find-file-noselect-function #'find-file-noselect
-  "*Function used by HyRolo to read `hyrolo-file-list' files into Emacs."
-  :type 'function
-  :group 'hyperbole-rolo)
+  "Function used by HyRolo to read `hyrolo-file-list' files into Emacs."
+  :type 'function)
 
 (defcustom hyrolo-google-contacts-flag t
-  "*Non-nil means search Google Contacts on each hyrolo query.
+  "Non-nil means search Google Contacts on each hyrolo query.
 The google-contact package must be loaded and a gpg encryption
 executable must be found as well (for Oauth security)."
-  :type 'boolean
-  :group 'hyperbole-rolo)
+  :type 'boolean)
 
 (defvar hyrolo-next-match-function #'hyrolo-next-regexp-match
   "Value is the function to find next match within a HyRolo file.
@@ -157,29 +151,26 @@ use."
 
 ;; '("~/.rolo.otl" "~/.rolo.org")
 
+(defun hyrolo--initialize-file-list ()
+  (delq nil
+(list "~/.rolo.otl"
+  (if (and (boundp 'bbdb-file) (stringp bbdb-file)) bbdb-file)
+  (when (hyrolo-google-contacts-p) google-contacts-buffer-name
+
 ;;;###autoload
 (defun hyrolo-initialize-file-list (&optional force-init-flag)
   "Initialize the list of files used for HyRolo search if not already 
initialized."
+  (declare (obsolete nil "8.0.1"))
   (interactive)
   (when (or force-init-flag (not (boundp 'hyrolo-file-list)) (not 
hyrolo-file-list))
-(let* ((gcontacts (when (hyrolo-google-contacts-p) 
google-contacts-buffer-name))
-  (ms "~/.rolo.otl")
-  (posix "~/.rolo.otl")
-  (list (delq nil (if (and (boundp 'bbdb-file) (stringp bbdb-file))
-  (if hyperb:microsoft-os-p
-  (list ms bbdb-file gcontacts)
-(list  "~/.rolo.otl" bbdb-file gcontacts))
-(if hyperb:microsoft-os-p
-(list ms gcontacts)
-  (list posix gcontacts))
-  (setq hyrolo-file-list list)
-  (when (called-interactively-p 'interactive)
-   (message "HyRolo Search List: %S" list))
-  list)))
+(setq hyrolo-file-list (hyrolo--initialize-file-list))
+(when (called-interactively-p 'interactive)
+  (message "HyRolo Search List: %S" hyrolo-file-list))
+hyrolo-file-list))
 
 (define-obsolet

[elpa] scratch/hyperbole a269d1536e 16/16: * hversion.el: Add FIXMEs.

2023-06-19 Thread Stefan Monnier via
branch: scratch/hyperbole
commit a269d1536eb3ef29700b5609d48b898b824b0984
Author: Stefan Monnier 
Commit: Stefan Monnier 

* hversion.el: Add FIXMEs.
(hyperb:window-sys-term): Simplify since (string-match "[-_]" term)
always returns nil here.
(hyperb:automount-prefixes): Remove unused var.
(id-info-item): Remove unused backslash.
---
 hmouse-drv.el |  1 +
 hversion.el   | 18 +-
 2 files changed, 10 insertions(+), 9 deletions(-)

diff --git a/hmouse-drv.el b/hmouse-drv.el
index 9d22f9a1dd..1ba80993b2 100644
--- a/hmouse-drv.el
+++ b/hmouse-drv.el
@@ -1622,6 +1622,7 @@ return current point as a marker."
   (and (car args) (listp (car args)) (setq args (car args)))
   (if (and args (hyperb:window-system))
   (progn (hmouse-set-point-at args) args)
+;; FIXME: This doesn't "Set point to ..."!?
 (list 'keyboard-drag (posn-at-point
 
 (defun hmouse-set-point-at (set-point-arg-list)
diff --git a/hversion.el b/hversion.el
index 653952d84f..4d4105a64d 100644
--- a/hversion.el
+++ b/hversion.el
@@ -37,12 +37,6 @@
 Override this if the system-computed default is incorrect for
 your specific mouse.")
 
-(defvar hyperb:automount-prefixes
-  (if (and (boundp 'automount-dir-prefix) (stringp automount-dir-prefix))
-  automount-dir-prefix
-"^/tmp_mnt/"
-"Regexp to match any automounter prefix in a pathname."))
-
 ;;; 
 ;;; Public declarations
 ;;; 
@@ -56,6 +50,7 @@ your specific mouse.")
   "Return first part of the term-type if running under a window system, else 
nil.
 Where a part in the term-type is delimited by a `-' or  an `_'."
   (unless frame (setq frame (selected-frame)))
+  ;; FIXME: Do we still care about XEmacs's `device-type'?
   (let* ((display-type (if (fboundp 'device-type) (device-type) window-system))
 (term (cond ((or (memq display-type '(x gtk mswindows win32 w32 ns dps 
pm))
  ;; May be a graphical client spawned from a
@@ -65,20 +60,25 @@ Where a part in the term-type is delimited by a `-' or  an 
`_'."
  (display-mouse-p))
  ;; X11, macOS, NEXTSTEP (DPS), or OS/2 Presentation 
Manager (PM)
  "emacs")
+;; FIXME: Do we still care about NeXT?
 ((or (featurep 'eterm-fns)
  (equal (getenv "TERM") "NeXT")
  (equal (getenv "TERM") "eterm"))
  ;; NEXTSTEP add-on support to Emacs
  "next"
-(set-frame-parameter frame 'hyperb:window-system
-(and term (setq term (substring term 0 (string-match 
"[-_]" term)
+(set-frame-parameter frame 'hyperb:window-system term)
 term))
 
 (defun hyperb:window-system (&optional frame)
+  ;; FIXME: This apparently can return only "emacs", "next", or nil.
+  ;; What do these things mean?  What does "window system available" mean?
+  ;; What does "mouse available mean"?
   "Return name of window system or term type where the selected FRAME is 
running.
 If nil after system initialization, no window system or mouse
 support is available."
   (unless frame (setq frame (selected-frame)))
+  ;; FIXME: Why not compute it on the fly rather than precomputing it
+  ;; via a hook and then saving it as a frame property?
   (frame-parameter frame 'hyperb:window-system))
 
 ;; Each frame could be on a different window system when under a
@@ -122,7 +122,7 @@ support is available."
 ;; Force execution of Info-mode-hook which adds the
 ;; Hyperbole man directory to Info-directory-list.
 (info)
-(if (string-match "^(\\([^\)]+\\))\\(.*\\)" index-item)
+(if (string-match "^(\\([^)]+\\))\\(.*\\)" index-item)
 (let ((file (match-string-no-properties 1 index-item))
   (item-name (match-string-no-properties 2 index-item)))
   (if (and file (setq file (hpath:substitute-value file)))



[elpa] scratch/hyperbole fd3f79a9ee 15/16: * hargs.el (hargs:set-string-to-complete): Don't mess with windows

2023-06-19 Thread Stefan Monnier via
branch: scratch/hyperbole
commit fd3f79a9ee64a48eee3cd7601013e02da17a12ce
Author: Stefan Monnier 
Commit: Stefan Monnier 

* hargs.el (hargs:set-string-to-complete): Don't mess with windows
---
 hargs.el | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/hargs.el b/hargs.el
index f0178a1225..4cee338726 100644
--- a/hargs.el
+++ b/hargs.el
@@ -276,8 +276,7 @@ Optional DEFAULT-PROMPT is used to describe default value."
 
 (defun hargs:set-string-to-complete ()
   "Store the current minibuffer contents into `hargs:string-to-complete'."
-  (save-window-excursion
-(set-buffer (window-buffer (minibuffer-window)))
+  (with-current-buffer (window-buffer (minibuffer-window))
 (setq hargs:string-to-complete (minibuffer-contents-no-properties))
 (when (equal hargs:string-to-complete "")
   (setq hargs:string-to-complete nil



[elpa] scratch/hyperbole fc7e33b5e5 11/16: * hui-select.el: Fix a few warnings and improve some docstrings

2023-06-19 Thread Stefan Monnier via
branch: scratch/hyperbole
commit fc7e33b5e53c2d059c6d302351f8cb3c5657c5a8
Author: Stefan Monnier 
Commit: Stefan Monnier 

* hui-select.el: Fix a few warnings and improve some docstrings

(hui-select-initialize): Use `dolist`; let-bind
vars rather than just `setq`ing them; use closures.
(hui-select-goto-matching-tag): Fix markup.
(hui-select-indent-non-end-regexp-alist)
(hui-select-indent-end-regexp-alist): Use conventional markup for metavars.
---
 hui-select.el | 62 ++-
 1 file changed, 32 insertions(+), 30 deletions(-)

diff --git a/hui-select.el b/hui-select.el
index c807d8ced7..9633c61e21 100644
--- a/hui-select.el
+++ b/hui-select.el
@@ -169,7 +169,7 @@ Use for language major modes."
 (Info-mode "[^ \t\n]")
 (outline-mode "[^*]")
 (text-mode  "[^ \t\n*]"))
-  "List of (major-mode . non-terminator-line-regexp) elements.
+  "List of (MAJOR-MODE . NON-TERMINATOR-LINE-REGEXP) elements.
 Used to avoid early dropoff when marking indented code.")
 
 (defvar hui-select-indent-end-regexp-alist
@@ -185,7 +185,7 @@ Used to avoid early dropoff when marking indented code.")
 (indented-text-mode "[ \t]*$")
 (Info-mode "[ \t]*$")
 (text-mode  "[ \t]*$"))
-  "List of (major-mode . terminator-line-regexp) elements.
+  "List of (MAJOR-MODE . TERMINATOR-LINE-REGEXP) elements.
 Used to include a final line when marking indented code.")
 
 (defcustom hui-select-char-p nil
@@ -366,33 +366,35 @@ Also, add language-specific syntax setups to aid in thing 
selection."
   ;;
   ;; Make tag begin and end delimiters act like grouping characters,
   ;; for easy syntactical selection of tags.
-  (let (hook-sym mode-str)
-(mapc (lambda (mode)
-(setq mode-str (symbol-name mode)
-  hook-sym (intern (concat mode-str "-hook"))
-  syntax-table-sym (intern (concat mode-str "-syntax-table"))
-  keymap-sym (intern (concat mode-str "-map")))
-(var:add-and-run-hook hook-sym
- `(lambda ()
- (let ((syntax-table (symbol-value 
',syntax-table-sym))
-   (keymap (symbol-value 
',keymap-sym)))
-  (modify-syntax-entry ?\< "(>" 
syntax-table)
-  (modify-syntax-entry ?\> ")<" 
syntax-table)
-  (modify-syntax-entry ?\{ "(}" 
syntax-table)
-  (modify-syntax-entry ?\} "){" 
syntax-table)
-  (modify-syntax-entry ?\" "\"" 
syntax-table)
-  (modify-syntax-entry ?=  "."  
syntax-table)
-  (modify-syntax-entry ?.  "_"  
syntax-table)
-  (setq sentence-end "\\([^ 
\t\n\r>]<\\|>\\(<[^>]*>\\)*\\|[.?!][]\"')}]*\\($\\| $\\|\t\\|  \\)\\)[ \t\n]*")
-  (define-key keymap "\C-c." 
'hui-select-goto-matching-tag
-(unless (eq mode 'web-mode)
-  (var:add-and-run-hook
-   hook-sym (lambda ()
- (make-local-variable 'comment-start)
- (make-local-variable 'comment-end)
- (setq comment-start "")
- (make-local-variable 'sentence-end)
-  hui-select-markup-modes)))
+  (dolist (mode hui-select-markup-modes)
+(let* ((mode-str (symbol-name mode))
+   (hook-sym (intern (concat mode-str "-hook")))
+   (syntax-table-sym (intern (concat mode-str "-syntax-table")))
+   (keymap-sym (intern (concat mode-str "-map"
+  ;; FIXME: Don't add lambdas to hooks.  Instead give names to
+  ;; those functions and add the symbol to the hook.  Makes it
+  ;; easier/possible to remove/update the function on the hook.
+  (var:add-and-run-hook hook-sym
+   (lambda ()
+  (let ((syntax-table (symbol-value 
syntax-table-sym))
+(keymap (symbol-value keymap-sym)))
+   (modify-syntax-entry ?\< "(>" syntax-table)
+   (modify-syntax-entry ?\> ")<" syntax-table)
+   (modify-syntax-entry ?\{ "(}" syntax-table)
+   (modify-syntax-entry ?\} "){" syntax-table)
+   (modify-syntax-entry ?\" "\"" syntax-table)
+   (modify-syntax-entry ?=  "."  syntax-table)
+   (modify-syntax-entry ?.  "_"  syntax-table)
+   (setq sentence-end "\\([^ 
\t\n\r>]<\\|>\\(<[^>]*>\\)*\\|[.?!][]\"')}]*\\($\\| $\\|\t\\|  \\)\\)[ \t\n]*")
+   (define-key keymap "\C-c." 
#'hui-select-goto-matching-tag
+  (unle

[elpa] scratch/hyperbole fbcfcc04a3 08/16: * hyperbole.el: Preload `kotl-autoloads`

2023-06-19 Thread Stefan Monnier via
branch: scratch/hyperbole
commit fbcfcc04a3f9d3c2c9ec8e99d8c5d3562c78cea7
Author: Stefan Monnier 
Commit: Stefan Monnier 

* hyperbole.el: Preload `kotl-autoloads`

(hyperbole-mode): Remove redundant keywords.
---
 hyperbole.el | 18 --
 1 file changed, 16 insertions(+), 2 deletions(-)

diff --git a/hyperbole.el b/hyperbole.el
index a9fc5f0cf3..088ddbfbb6 100644
--- a/hyperbole.el
+++ b/hyperbole.el
@@ -78,6 +78,9 @@
 ;;; Start Initializations
 ;;; 
 
+;; FIXME: Just loading `hyperbole-autoloads.el' eagerly loads `hhist.el',
+;; `set.el', and `hact.el'.
+
 (defconst hyperbole-loading t
   "Temporary constant available for testing while Hyperbole is loading.")
 
@@ -154,9 +157,7 @@ Info documentation at \"(hyperbole)Top\".
 
 \\{hyperbole-mode-map}"
   :global t
-  :keymap 'hyperbole-mode-map
   :lighter hyperbole-mode-lighter
-  :require 'hyperbole
   (if hyperbole-mode
   (hyperbole--enable-mode)
 (hyperbole--disable-mode)))
@@ -562,6 +563,19 @@ frame, those functions by default still return the prior 
frame."
 
 (makunbound 'hyperbole-loading)
 
+;; Autoload this form so that when `package.el' activates Hyperbole's autoloads
+;; it also sets up Kotl's autoloads.
+;;;###autoload
+(let ((us (if (fboundp 'macroexp-file-name)
+  (macroexp-file-name) load-file-name)))
+  (when us
+;; FIXME: Contrary to the usual ELPA autoloads files, `kotl-autoloads'
+;; does not add its directory to `load-path', so let's do it here by
+;; hand.
+(add-to-list 'load-path
+ (expand-file-name "kotl" (file-name-directory us)))
+(require 'kotl-autoloads nil t)))
+
 (provide 'hyperbole)
 
 ;;; hyperbole.el ends here



[elpa] scratch/hyperbole 57d02f8456 09/16: hyperbole-autoloads.el: Remove needless definitions

2023-06-19 Thread Stefan Monnier via
branch: scratch/hyperbole
commit 57d02f8456ce6cef63600557c891af883bc843f4
Author: Stefan Monnier 
Commit: Stefan Monnier 

hyperbole-autoloads.el: Remove needless definitions

* hversion.el (hyperb:mouse-buttons):
* hload-path.el (hyperb:microsoft-os-p, hyperb:wsl-os-p): Don't
needlessly predefine internal variables.
(load-path): Don't add `test` to the `load-path`.
---
 hload-path.el | 8 +---
 hversion.el   | 2 +-
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/hload-path.el b/hload-path.el
index 1b5e9dce58..b144b5f674 100644
--- a/hload-path.el
+++ b/hload-path.el
@@ -25,14 +25,14 @@
 ;;; Public variables
 ;;; 
 
-;;;###autoload
+
 (defvar hyperb:microsoft-os-p
   (memq system-type '(ms-windows windows-nt ms-dos win32))
   "Non-nil iff Hyperbole is running under a Microsoft OS but not for WSL.
 WSL is Windows Subsystem for Linux.
 Use `hyperb:wsl-os-p' to test if running under WSL.")
 
-;;;###autoload
+
 (defvar hyperb:wsl-os-p
   (and (eq system-type 'gnu/linux) (executable-find "wsl.exe") t)
   "T iff Hyperbole is running under Microsoft Windows Subsystem for Linux 
(WSL).")
@@ -72,7 +72,9 @@ Valid values end with a directory separator character.")
 ;;; Hyperbole test importation settings
 ;;; 
 
-(add-to-list 'load-path (expand-file-name "test" hyperb:dir))
+;; FIXME: This should be done only when running the tests, not in
+;; normal sessions.
+;;(add-to-list 'load-path (expand-file-name "test" hyperb:dir))
 
 ;; Ensure final name (after resolving all links) of hyperb:dir is
 ;; used after setting up load-path; otherwise, Hyperbole may fail
diff --git a/hversion.el b/hversion.el
index e993e7c53b..653952d84f 100644
--- a/hversion.el
+++ b/hversion.el
@@ -28,7 +28,7 @@
 
 (defconst hyperb:version "8.0.1pre" "GNU Hyperbole revision number.")
 
-;;;###autoload
+
 (defvar hyperb:mouse-buttons
   (if (or (and hyperb:microsoft-os-p (not (memq window-system '(w32 w64 x
  (memq window-system '(ns dps)))



[elpa] scratch/hyperbole 824a71773c 04/16: Get rid of `hyperb:stack-frame`

2023-06-19 Thread Stefan Monnier via
branch: scratch/hyperbole
commit 824a71773c7b056859c56a924ea1e99fbe439400
Author: Stefan Monnier 
Commit: Stefan Monnier 

Get rid of `hyperb:stack-frame`

* hmouse-drv.el (hui--ignore-action-key-depress-prev-point): New var.
* hui.el (hui:ebut-create, hui:ebut-edit, hui:ebut-edit-region)
(hui:gbut-create, hui:gbut-edit, hui:link-create, hui:ibut-create)
(hui:ibut-edit): Bind it.
* hbut.el (ebut:program, ibut:program): Bind it.
(ebut:operate, ibut:operate): Use it instead of `hyperb:stack-frame`.

* hversion.el (hyperb:stack-frame): Delete function.
---
 hbut.el   | 26 +++---
 hmouse-drv.el |  5 +
 hui.el| 24 +++-
 hversion.el   | 41 -
 hypb.el   |  4 ++--
 hyperbole.el  |  2 +-
 6 files changed, 38 insertions(+), 64 deletions(-)

diff --git a/hbut.el b/hbut.el
index 631c7f371e..5f30890b3a 100644
--- a/hbut.el
+++ b/hbut.el
@@ -385,19 +385,16 @@ button is found in the current buffer."
(insert new-label)
(setq end (point)))
   ((and (hmouse-use-region-p)
-(if (hyperb:stack-frame
- '(hui:ebut-create hui:ebut-edit 
hui:ebut-edit-region
-   hui:ebut-link-create 
hui:gbut-create
-   hui:gbut-edit 
hui:link-create ebut:program
-   hui:ibut-create hui:ibut-edit
-   hui:ibut-link-create 
ibut:program))
+(if hui--ignore-action-key-depress-prev-point
 ;; Ignore action-key-depress-prev-point
 (progn (setq mark (marker-position (mark-marker))
  start (region-beginning)
  end (region-end)
  buf-lbl 
(buffer-substring-no-properties start end))
(equal buf-lbl curr-label))
-  ;; Utilize any action-key-depress-prev-point
+  ;; Utilize any action-key-depress-prev-point.
+  ;; FIXME: Can't `action-key-depress-prev-point'
+  ;; be nil at this point?
   (setq mark (marker-position (mark-marker)))
   (setq prev-point (and action-key-depress-prev-point
 (marker-position 
action-key-depress-prev-point)))
@@ -455,8 +452,9 @@ the button LABEL which is automatically provided as the 
first argument.
 
 For interactive creation, use `hui:ebut-create' instead."
   (save-excursion
- (let ((but-buf (current-buffer))
-  (actype-sym (actype:action actype)))
+(let ((but-buf (current-buffer))
+ (hui--ignore-action-key-depress-prev-point t)
+ (actype-sym (actype:action actype)))
   (hui:buf-writable-err but-buf "ebut-create")
   (condition-case err
  (progn
@@ -1929,6 +1927,7 @@ Return symbol for button deleted or nil."
   "Delimit implicit button name spanning region START to END in current buffer.
 If button is already delimited or delimit fails, return nil, else t.
 Insert INSTANCE-FLAG after END, before ending delimiter."
+  ;; FIXME: Merge with `ebut:delimit'!
   (goto-char start)
   (when (looking-at (regexp-quote ibut:label-start))
 (forward-char (length ibut:label-start)))
@@ -2264,12 +2263,7 @@ Summary of operations based on inputs:
;; No name to insert, just insert ibutton text below
)
   ((and region-flag
-(if (hyperb:stack-frame
- '(hui:ebut-create hui:ebut-edit 
hui:ebut-edit-region
-   hui:ebut-link-create 
hui:gbut-create
-   hui:gbut-edit 
hui:link-create ebut:program
-   hui:ibut-create hui:ibut-edit
-   hui:ibut-link-create 
ibut:program))
+(if hui--ignore-action-key-depress-prev-point
 ;; Ignore action-key-depress-prev-point
 (progn (setq mark (marker-position (mark-marker))
  start (region-beginning)
@@ -2441,8 +2435,10 @@ function, followed by a list of arguments for the 
actype, aside from
 the button NAME which is automatically provided as the first argument.
 
 For interactive creation, use `hui:ibut-create' instead."
+  ;; FIXME: This code duplication between ibut:* and ebut:* is awful.
   (save-excursion
 (let ((but-buf (current-buffer))
+ (hui--ignore-action-key-depress-prev-point t)
  (actype-sym 

[elpa] scratch/hyperbole 12fa8e328d 12/16: (man-show): Fix miscompilation

2023-06-19 Thread Stefan Monnier via
branch: scratch/hyperbole
commit 12fa8e328d99738fe5f68f4c4a713b3581ea68da
Author: Stefan Monnier 
Commit: Stefan Monnier 

(man-show): Fix miscompilation

* hactypes.el (annot-bib): Avoid gratuitous `setq`.
(man-show): Declare `Man-notify-method` to fix miscompilation.
(rfc-toc): `select-buffer` doesn't exist.
---
 hactypes.el | 15 ---
 1 file changed, 8 insertions(+), 7 deletions(-)

diff --git a/hactypes.el b/hactypes.el
index 1101ba186f..a56624fea3 100644
--- a/hactypes.el
+++ b/hactypes.el
@@ -32,14 +32,14 @@
 ;;; Standard Hyperbole action types
 ;;; 
 
-(defact annot-bib (key)
+(defact annot-bib (key) ;; FIXME: Clean up namespace use!
   "Follow internal ref KEY within an annotated bibliography, delimiters=[]."
   (interactive "sReference key (no []): ")
-  (let ((key-regexp (concat "^[*]*[ \t]*\\[" (ebut:key-to-label key) "\\]"))
-   citation)
-(if (save-excursion
- (goto-char (point-max))
- (setq citation (re-search-backward key-regexp nil t)))
+  (let* ((key-regexp (concat "^[*]*[ \t]*\\[" (ebut:key-to-label key) "\\]"))
+(citation (save-excursion
+(goto-char (point-max))
+(re-search-backward key-regexp nil t
+(if citation
(progn (hpath:display-buffer (current-buffer))
   (goto-char citation)
   (beginning-of-line))
@@ -689,6 +689,7 @@ package to display search results."
 Uses `hpath:display-where' setting to control where the man page is displayed."
   (interactive "sManual topic: ")
   (require 'man)
+  (defvar Man-notify-method)
   (let ((Man-notify-method 'meek))
 (hpath:display-buffer (man topic
 
@@ -716,7 +717,7 @@ Optional SECTIONS-START limits toc entries to those after 
that point."
   (insert "Sections of " rfc-buf-name ":\n")
   (set-buffer-modified-p nil))
 (when opoint
-  (select-buffer buf-name)
+  (set-buffer buf-name)
   (goto-char opoint
 
 (defact text-toc (section)



[elpa] scratch/hyperbole 10ac3f59df 13/16: Fix a few minor miscompilations and warnings

2023-06-19 Thread Stefan Monnier via
branch: scratch/hyperbole
commit 10ac3f59df7e819d6f4f50bfa3e72d5508d4193f
Author: Stefan Monnier 
Commit: Stefan Monnier 

Fix a few minor miscompilations and warnings

* Makefile (LOAD_EL): Escape trailing double quote so it's not confused
with a beginning-of-string.

* hbut.el: Require `house-drv` to fix miscompilation of let-bindings of
`hui--ignore-action-key-depress-prev-point`.
Prefer #' to quote function names.
(hbut:max-len, ibut:label-start, ibut:label-end): Add `defvar`s to fix
some of the many warnings and to make sure they're compiled as dynvars.
(ibut:at-type-p): Remove unused `types` var.
(defib): Remove redundant indent property.

* hibtypes.el (org-link-outside-org-mode): Silence some warnings.
(grep-msg): Avoid NUL bytes in source files (makes Emacs thinks
they're binary).

* set.el: Prefer #' to quote function names.
---
 Makefile|  2 +-
 hbut.el | 28 ++--
 hibtypes.el |  9 ++---
 set.el  |  8 
 4 files changed, 29 insertions(+), 18 deletions(-)

diff --git a/Makefile b/Makefile
index 6d881daee6..382ec79957 100644
--- a/Makefile
+++ b/Makefile
@@ -306,7 +306,7 @@ bin: src
 
 # Create -l "file.el" load-file command-line args for each Hyperbole .el file 
for use in
 # eln native compile target below.
-LOAD_EL = $(shell echo "$(EL_KOTL) $(EL_COMPILE)" | sed - -e 's+ +" -l "./+g' 
-e 's+^+-l "+')"
+LOAD_EL = $(shell echo "$(EL_KOTL) $(EL_COMPILE)" | sed - -e 's+ +" -l "./+g' 
-e 's+^+-l "+')\"
 
 load-hyperbole:
$(EMACS_BATCH) \
diff --git a/hbut.el b/hbut.el
index 5f30890b3a..a04cb21f64 100644
--- a/hbut.el
+++ b/hbut.el
@@ -22,6 +22,7 @@
 (eval-and-compile (mapc #'require '(cl-lib elisp-mode help-mode hversion
hmoccur hbmap htz hbdata hact
hui-select view)))
+(require 'hmouse-drv) ;For `hui--ignore-action-key-depress-prev-point'.
 
 ;;; 
 ;;; Public declarations
@@ -218,6 +219,8 @@ Return nil if no matching button is found."
 (defalias 'ebut:key-src-fmt#'hbut:key-src-fmt)
 (defalias 'ebut:key-to-label   #'hbut:key-to-label)
 
+(defvar hbut:max-len)
+
 (defunebut:label-p (&optional as-label start-delim end-delim pos-flag 
two-lines-flag)
   "Return key for the explicit button label that point is within, else nil.
 This is the normalized key form of the explicit button's label.
@@ -694,7 +697,7 @@ Return nil if no matching button is found."
 (defungbut:help (label)
   "Display help for Hyperbole global button with LABEL."
   (interactive (list (hargs:read-match "Report on global button labeled: "
-  (mapcar 'list (gbut:label-list))
+  (mapcar #'list (gbut:label-list))
   nil t nil 'hbut)))
   (let* ((lbl-key (hbut:label-to-key label))
 (but (hbut:get lbl-key nil (gbut:file
@@ -1523,7 +1526,7 @@ If a file, always return a full path if optional 
FULL-FLAG is non-nil."
   (expand-file-name file default-directory)
 file)
 
-(defalias 'hbut:summarize 'hbut:report)
+(defalias 'hbut:summarize #'hbut:report)
 
 (defunhbut:to (lbl-key)
   "Find the nearest explicit button or labeled/named implicit button.
@@ -1622,8 +1625,12 @@ associated arguments from the button."
   (unless (string-match "::" type-name)
(setq ibut-type-symbol (intern-soft (concat "ibtypes::" type-name
   (when ibut-type-symbol
-   (let ((types (htype:category 'ibtypes))
+   (let (;; (types (htype:category 'ibtypes))
  ;; 'types' is a global var used in (hact) function, don't delete.
+ ;; FIXME: I can't see where `types' is used as a global var
+ ;; "in (hact) function", and the above binding was treated
+ ;; by Emacs as lexically-scoped so it wasn't affecting any
+ ;; other global `types' definition anyway.
  (hrule:action 'actype:identity))
  (funcall ibut-type-symbol))
 
@@ -1896,6 +1903,9 @@ Store new button attributes in the symbol, 'hbut:current."
[&optional ["&optional" arg &rest arg]]
&optional ["&rest" arg])))
 
+(defvar ibut:label-start)
+(defvar ibut:label-end)
+
 (defunibut:delete (&optional but-sym)
   "Delete Hyperbole implicit button based on optional BUT-SYM.
 Default is the symbol hbut:current'.
@@ -2132,10 +2142,10 @@ positions at which the button label delimiter begins 
and ends."
 (error "(ibut:key): Argument is not a Hyperbole implicit button symbol, 
`%s'"
   ibut)))
 
-(defalias 'ibut:to-key-src   'hbut:to-key-src)
-(defalias 'ibut:key-to-label 'hbut:key-to-label)
-(defalias 'ibut:label-to-key 'hbut:label-to-key)
-(defalias 'map-ibut  'ibut:map)
+(defalias 'ibut:to-key-src   #'hbut:to-key-src)
+(defalias 'ibut:key-to-label #'hbut:key

[elpa] scratch/hyperbole ab0338d714 05/16: Fix compilation of test file

2023-06-19 Thread Stefan Monnier via
branch: scratch/hyperbole
commit ab0338d714f739f2b28b361f2535febcc6568873
Author: Stefan Monnier 
Commit: Stefan Monnier 

Fix compilation of test file

* test/kcell-tests.el (kcell): Don't presume `kotl/` is in `load-path`.
---
 test/kcell-tests.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/test/kcell-tests.el b/test/kcell-tests.el
index 0ec633a26c..3187be79e2 100644
--- a/test/kcell-tests.el
+++ b/test/kcell-tests.el
@@ -24,7 +24,7 @@
 
 ;;; Code:
 
-(require 'kcell)
+(require 'kcell "kotl/kcell")
 (require 'kotl-mode)
 (require 'hy-test-helpers "test/hy-test-helpers")
 



[elpa] scratch/hyperbole 5aa8d7a577 10/16: * hycontrol.el (hycontrol-windows-mode-map): Don't autoload

2023-06-19 Thread Stefan Monnier via
branch: scratch/hyperbole
commit 5aa8d7a577ce2ecb3a2666db9678b3a7c3611577
Author: Stefan Monnier 
Commit: Stefan Monnier 

* hycontrol.el (hycontrol-windows-mode-map): Don't autoload

Copying this whole keymap definition to `hyperbole-autoloads.el` just
slows down startup unnecessarily.
---
 hycontrol.el | 10 +-
 1 file changed, 5 insertions(+), 5 deletions(-)

diff --git a/hycontrol.el b/hycontrol.el
index 88139e0684..f164619014 100644
--- a/hycontrol.el
+++ b/hycontrol.el
@@ -359,7 +359,7 @@ The final predicate should always be t, for default values, 
typically of zero.")
 ;;;###autoload
 (eval-after-load "dired" '(define-key dired-mode-map   "@" 
'hycontrol-windows-grid))
 
-;;;###autoload
+
 (defvar hycontrol-windows-mode-map
   (let ((map (make-sparse-keymap)))
 (suppress-keymap map t) ;; Disable self-inserting keys and prefix keys
@@ -428,11 +428,11 @@ The final predicate should always be t, for default 
values, typically of zero.")
 
 ;; Don't call these interactively because a prefix arg of 1 tries
 ;; to make one window 1 line tall.
-(define-key map "\["(lambda () (interactive) 
(split-window-vertically)))
-(define-key map "\]"(lambda () (interactive) 
(split-window-horizontally)))
+(define-key map "["(lambda () (interactive) (split-window-vertically)))
+(define-key map "]"(lambda () (interactive) 
(split-window-horizontally)))
 
-(define-key map "\("'hycontrol-save-frame-configuration)
-(define-key map "\)"'hycontrol-restore-frame-configuration)
+(define-key map "("'hycontrol-save-frame-configuration)
+(define-key map ")"'hycontrol-restore-frame-configuration)
 
 (define-key map "~" (lambda () (interactive)
  (unless (hycontrol-window-swap-buffers)



[elpa] externals/ef-themes f1716daa20 1/2: ef-elea-dark: make date-common a bit more colourful

2023-06-19 Thread ELPA Syncer
branch: externals/ef-themes
commit f1716daa202c97e501af8b6a983c0d78d7b4015e
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

ef-elea-dark: make date-common a bit more colourful
---
 ef-elea-dark-theme.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ef-elea-dark-theme.el b/ef-elea-dark-theme.el
index 753861a467..9e46d66a70 100644
--- a/ef-elea-dark-theme.el
+++ b/ef-elea-dark-theme.el
@@ -198,7 +198,7 @@
 
  Date mappings
 
-  (date-common green-faint)
+  (date-common green-cooler)
   (date-deadline red)
   (date-event fg-alt)
   (date-holiday magenta-warmer)



[elpa] externals/ef-themes 302e5ca53f 2/2: ef-elea-light: make date-common a bit more colourful

2023-06-19 Thread ELPA Syncer
branch: externals/ef-themes
commit 302e5ca53f8b256f28445e8faf9401bc0f1f9346
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

ef-elea-light: make date-common a bit more colourful
---
 ef-elea-light-theme.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ef-elea-light-theme.el b/ef-elea-light-theme.el
index 87a647512c..be82ed73ed 100644
--- a/ef-elea-light-theme.el
+++ b/ef-elea-light-theme.el
@@ -198,7 +198,7 @@
 
  Date mappings
 
-  (date-common green-faint)
+  (date-common green-cooler)
   (date-deadline red)
   (date-event fg-alt)
   (date-holiday magenta-warmer)



[elpa] externals/ef-themes updated (3f5d332835 -> 302e5ca53f)

2023-06-19 Thread ELPA Syncer
elpasync pushed a change to branch externals/ef-themes.

  from  3f5d332835 ef-elea-dark: change shade of magenta for key bindings
   new  f1716daa20 ef-elea-dark: make date-common a bit more colourful
   new  302e5ca53f ef-elea-light: make date-common a bit more colourful


Summary of changes:
 ef-elea-dark-theme.el  | 2 +-
 ef-elea-light-theme.el | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)



[elpa] externals/urgrep updated (a2cc745cb1 -> c40288e965)

2023-06-19 Thread ELPA Syncer
elpasync pushed a change to branch externals/urgrep.

  from  a2cc745cb1 Lint test files too
   new  96e8dba46d Use #' for functions
   new  c40288e965 `urgrep-hit` isn't a function!


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



[elpa] externals/urgrep c40288e965 2/2: `urgrep-hit` isn't a function!

2023-06-19 Thread ELPA Syncer
branch: externals/urgrep
commit c40288e9659572f8ee51e780a44932172c4409c7
Author: Jim Porter 
Commit: Jim Porter 

`urgrep-hit` isn't a function!
---
 urgrep.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/urgrep.el b/urgrep.el
index f6101a6f6e..dcd5b33f6a 100644
--- a/urgrep.el
+++ b/urgrep.el
@@ -884,7 +884,7 @@ This function is called from `compilation-filter-hook'."
   "A compilation mode for various grep-like tools."
   (setq-local tool-bar-map urgrep-mode-tool-bar-map
   compilation-process-setup-function #'urgrep-process-setup
-  compilation-error-face #'urgrep-hit
+  compilation-error-face 'urgrep-hit
   compilation-error-regexp-alist urgrep-regexp-alist
   compilation-mode-line-errors urgrep-mode-line-matches
   compilation-disable-input t



[elpa] externals/urgrep 96e8dba46d 1/2: Use #' for functions

2023-06-19 Thread ELPA Syncer
branch: externals/urgrep
commit 96e8dba46d735947f5c9f6177176fd7e03f383ae
Author: Jim Porter 
Commit: Jim Porter 

Use #' for functions
---
 urgrep.el | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/urgrep.el b/urgrep.el
index 5857375000..f6101a6f6e 100644
--- a/urgrep.el
+++ b/urgrep.el
@@ -883,13 +883,13 @@ This function is called from `compilation-filter-hook'."
 (define-compilation-mode urgrep-mode "Urgrep"
   "A compilation mode for various grep-like tools."
   (setq-local tool-bar-map urgrep-mode-tool-bar-map
-  compilation-process-setup-function 'urgrep-process-setup
-  compilation-error-face 'urgrep-hit
+  compilation-process-setup-function #'urgrep-process-setup
+  compilation-error-face #'urgrep-hit
   compilation-error-regexp-alist urgrep-regexp-alist
   compilation-mode-line-errors urgrep-mode-line-matches
   compilation-disable-input t
   compilation-error-screen-columns nil)
-  (add-hook 'compilation-filter-hook 'urgrep-filter nil t))
+  (add-hook 'compilation-filter-hook #'urgrep-filter nil t))
 
 (defun urgrep--hide-abbreviations (command)
   "If `urgrep-abbreviate-command' is non-nil, hide abbreviations in COMMAND."