[elpa] externals/vertico 545a483: Update readme

[ELPA Syncer]

branch: externals/vertico
commit 545a483cd8f7608d45148d70c74bcc2382c25d03
Author: Daniel Mendler 
Commit: Daniel Mendler 

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

diff --git a/README.org b/README.org
index 7096158..bccff63 100644
--- a/README.org
+++ b/README.org
@@ -50,8 +50,7 @@ Here is an example configuration:
 :init
 (vertico-mode)
 
-;; Optionally enable cycling for `vertico-next', `vertico-previous',
-;; `vertico-next-group' and `vertico-previous-group'.
+;; Optionally enable cycling for `vertico-next' and `vertico-previous'.
 ;; (setq vertico-cycle t)
   )
 

[elpa] externals/org updated (ceb78e0 -> 5e4815f)

[ELPA Syncer]

elpasync pushed a change to branch externals/org.

  from  ceb78e0   Merge branch 'maint'
   new  c093565   agenda: Fix `org-get-time-of-day' on empty string
   new  5e4815f   Merge branch 'maint'


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

[elpa] externals-release/org c093565: agenda: Fix `org-get-time-of-day' on empty string

[ELPA Syncer]

branch: externals-release/org
commit c09356548f9fa01f38bf6b1e7606ffda89e33e74
Author: Nicolas Goaziou 
Commit: Nicolas Goaziou 

agenda: Fix `org-get-time-of-day' on empty string

* lisp/org-agenda.el (org-get-time-of-day): Ensure S is not empty
before calling `get-text-property'.

This regression was introduced in aba1f2066.

Reported-by: Ihor Radchenko 


Reported-by: Ihor Radchenko 

---
 lisp/org-agenda.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index 0ad4105..c3fbabc 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -6914,8 +6914,8 @@ where H:MM is the duration above midnight."
  (group-n 3 (or "am" "pm")))
  word-end)))
 (save-match-data
-  (when (and (not (eq 'org-link (get-text-property 1 'face s)))
- (string-match time-regexp s))
+  (when (and (string-match time-regexp s)
+ (not (eq 'org-link (get-text-property 1 'face s
 (let ((hours
(let* ((ampm (and (match-end 3) (downcase (match-string 3 s
   (am-p (equal ampm "am")))

[elpa] externals/org 5e4815f: Merge branch 'maint'

[ELPA Syncer]

branch: externals/org
commit 5e4815f816e80e1f21795ee502f40e135a237a19
Merge: ceb78e0 c093565
Author: Nicolas Goaziou 
Commit: Nicolas Goaziou 

Merge branch 'maint'
---
 lisp/org-agenda.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/lisp/org-agenda.el b/lisp/org-agenda.el
index a6bc8bc..44acd03 100644
--- a/lisp/org-agenda.el
+++ b/lisp/org-agenda.el
@@ -6995,8 +6995,8 @@ where H:MM is the duration above midnight."
  (group-n 3 (or "am" "pm")))
  word-end)))
 (save-match-data
-  (when (and (not (eq 'org-link (get-text-property 1 'face s)))
- (string-match time-regexp s))
+  (when (and (string-match time-regexp s)
+ (not (eq 'org-link (get-text-property 1 'face s
 (let ((hours
(let* ((ampm (and (match-end 3) (downcase (match-string 3 s
   (am-p (equal ampm "am")))

[elpa] externals/corfu fa22510: Version 0.9

[ELPA Syncer]

branch: externals/corfu
commit fa225105b9bc349cf922078e64b78da7d275
Author: Daniel Mendler 
Commit: Daniel Mendler 

Version 0.9
---
 corfu.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/corfu.el b/corfu.el
index fe47b62..a27b89e 100644
--- a/corfu.el
+++ b/corfu.el
@@ -5,7 +5,7 @@
 ;; Author: Daniel Mendler 
 ;; Maintainer: Daniel Mendler 
 ;; Created: 2021
-;; Version: 0.8
+;; Version: 0.9
 ;; Package-Requires: ((emacs "27.1"))
 ;; Homepage: https://github.com/minad/corfu
 

[elpa] externals/marginalia 9796fad: Version 0.7

[ELPA Syncer]

branch: externals/marginalia
commit 9796fada769f44cb8e05914bd6be3fcc15d791e2
Author: Daniel Mendler 
Commit: Daniel Mendler 

Version 0.7
---
 marginalia.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/marginalia.el b/marginalia.el
index 5378d43..c9236e9 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -5,7 +5,7 @@
 ;; Author: Omar Antolín Camarena , Daniel Mendler 

 ;; Maintainer: Omar Antolín Camarena , Daniel Mendler 

 ;; Created: 2020
-;; Version: 0.6
+;; Version: 0.7
 ;; Package-Requires: ((emacs "26.1"))
 ;; Homepage: https://github.com/minad/marginalia
 

[elpa] externals/vertico 27c72e6: Version 0.12

[ELPA Syncer]

branch: externals/vertico
commit 27c72e6b90944239d6ac2510d34f91a6c3cb95da
Author: Daniel Mendler 
Commit: Daniel Mendler 

Version 0.12
---
 vertico.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/vertico.el b/vertico.el
index a207361..fca08e8 100644
--- a/vertico.el
+++ b/vertico.el
@@ -5,7 +5,7 @@
 ;; Author: Daniel Mendler 
 ;; Maintainer: Daniel Mendler 
 ;; Created: 2021
-;; Version: 0.11
+;; Version: 0.12
 ;; Package-Requires: ((emacs "27.1"))
 ;; Homepage: https://github.com/minad/vertico
 

[elpa] externals/hyperbole updated (b3e5e5a -> a81f544)

[ELPA Syncer]

elpasync pushed a change to branch externals/hyperbole.

  from  b3e5e5a   Fix typo in face definition (#99)
   new  700a745   Do not set user customizable vars in settings (#101)
   new  cefd1e4   Make hyrolo-file-list customizable (#102)
   new  a81f544   Add tests for hyrolo (#103)


Summary of changes:
 ChangeLog| 12 
 hsettings.el | 21 ++
 hyrolo.el|  8 --
 test/hyrolo-tests.el | 77 
 4 files changed, 96 insertions(+), 22 deletions(-)
 create mode 100644 test/hyrolo-tests.el

[elpa] externals/hyperbole 700a745 1/3: Do not set user customizable vars in settings (#101)

[ELPA Syncer]

branch: externals/hyperbole
commit 700a7455630a17f8e13ecded76fca7ac03830e92
Author: Mats Lidell 
Commit: GitHub 

Do not set user customizable vars in settings (#101)
---
 ChangeLog|  6 ++
 hsettings.el | 21 ++---
 2 files changed, 8 insertions(+), 19 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 68185f8..56e49d7 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+2021-06-19  Mats Lidell  
+
+* hsettings.el: Do not set user customizable properties
+hproperty:but-highlight-flag, hproperty:but-emphasize-flag,
+hproperty:but-flash-time.
+
 2021-06-06  Mats Lidell  
 
 * hui-em-but.el (hbut-item-face): Fix typo.
diff --git a/hsettings.el b/hsettings.el
index 9371337..9c60de5 100644
--- a/hsettings.el
+++ b/hsettings.el
@@ -4,7 +4,7 @@
 ;;
 ;; Orig-Date:15-Apr-91 at 00:48:49
 ;;
-;; Copyright (C) 1991-2019  Free Software Foundation, Inc.
+;; Copyright (C) 1991-2021  Free Software Foundation, Inc.
 ;; See the "HY-COPY" file for license information.
 ;;
 ;; This file is part of GNU Hyperbole.
@@ -29,7 +29,6 @@
 ;;; 
 ;;; Public declarations
 ;;; 
-(declare-function hproperty:cycle-but-color "hui-em-but")
 (declare-function hproperty:but-create "hui-em-but")
 
 ;;; Read the comments and modify as desired.
@@ -263,23 +262,7 @@ obtained search string."
(require 'hui-em-but)
;; Highlight explicit buttons whenever a file is read in.
(add-hook 'find-file-hook #'hproperty:but-create t)
-   (defalias 'hui:but-flash 'hproperty:but-flash)
-   ;;
-   ;; Substitute for the nil argument below a valid X color name with
-   ;; which to highlight buttons if the default highlighting does not
-   ;; appeal to you. See "hui-em-but.el" for how this works.
-   (hproperty:cycle-but-color nil)
-   ;;
-   ;; Non-nil means highlight all explict buttons with 
`hproperty:but-face'.
-   (setq hproperty:but-highlight-flag t)
-   ;;
-   ;; Non-nil means visually emphasize that button under mouse cursor is
-   ;; selectable.
-   (setq hproperty:but-emphasize-flag nil)
-   ;;
-   ;; If you find that the Hyperbole button flash time is too slow
-   ;; or too fast, adjust it here.
-   (setq hproperty:but-flash-time 1000)))
+   (defalias 'hui:but-flash 'hproperty:but-flash)))
 
 ;;; 
 ;;; ONLINE LIBRARY CONFIGURATION

[elpa] externals/hyperbole a81f544 3/3: Add tests for hyrolo (#103)

[ELPA Syncer]

branch: externals/hyperbole
commit a81f544117dd2066483f20daa4d50f10f6c4d332
Author: Mats Lidell 
Commit: GitHub 

Add tests for hyrolo (#103)
---
 ChangeLog|  4 +++
 test/hyrolo-tests.el | 77 
 2 files changed, 81 insertions(+)

diff --git a/ChangeLog b/ChangeLog
index cee61a4..1430864 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,9 @@
 2021-06-19  Mats Lidell  
 
+* test/hyrolo-tests.el (hyrolo-demo-search-work)
+(hyrolo-demo-tab-jump-to-first-match, hyrolo-demo-toggle-visibility):
+Add tests for hyrolo.
+
 * hyrolo.el (hyrolo-file-list): Make variable customizable.
 
 * hsettings.el: Do not set user customizable properties
diff --git a/test/hyrolo-tests.el b/test/hyrolo-tests.el
new file mode 100644
index 000..68ce444
--- /dev/null
+++ b/test/hyrolo-tests.el
@@ -0,0 +1,77 @@
+;;; hyrolo-tests.el --- unit tests for hyrolo.el -*- lexical-binding: 
t; -*-
+
+;; Author: Mats Lidell 
+;;
+;; Orig-Date: 19-Jun-21 at 22:42:00
+;;
+;; Copyright (C) 2021  Free Software Foundation, Inc.
+;; See the "HY-COPY" file for license information.
+;;
+;; This file is part of GNU Hyperbole.
+
+;;; Commentary:
+
+;; "../hyrolo.el"
+
+;;; Code:
+
+(require 'ert)
+(require 'hact)
+(require 'hyrolo)
+(require 'hyrolo-demo)
+
+(load (expand-file-name "hy-test-helpers"
+(file-name-directory (or load-file-name
+ default-directory
+(declare-function hy-test-helpers:consume-input-events "hy-test-helpers")
+(declare-function hy-test-helpers:should-last-message "hy-test-helpers")
+
+(ert-deftest hyrolo-demo-search-work ()
+  "Use demo example and search for work should match work."
+  (skip-unless (not noninteractive))
+  (unwind-protect
+  (progn
+(load "../hyrolo-demo")
+(should (hact 'kbd-key "C-x 4r work RET"))
+(hy-test-helpers:consume-input-events)
+(should (string= (buffer-name) "*Hyperbole Rolo*"))
+(should (looking-at "=="))
+(forward-line 5)
+(should (looking-at "\\*.*Work")))
+(hyrolo-demo-quit)))
+
+(ert-deftest hyrolo-demo-tab-jump-to-first-match ()
+  "Tab shall jump to first match."
+  (skip-unless (not noninteractive))
+  (unwind-protect
+  (progn
+(load "../hyrolo-demo")
+(should (hact 'kbd-key "C-x 4r work RET TAB"))
+(hy-test-helpers:consume-input-events)
+(should (string= (buffer-name) "*Hyperbole Rolo*"))
+(should (looking-at "Work")))
+(hyrolo-demo-quit)))
+
+(ert-deftest hyrolo-demo-toggle-visibility ()
+  "Keys h and a shall toggle visibility."
+  (skip-unless (not noninteractive))
+  (unwind-protect
+  (progn
+(load "../hyrolo-demo")
+(should (hact 'kbd-key "C-x 4r work RET TAB"))
+(hy-test-helpers:consume-input-events)
+(should (string= (buffer-name) "*Hyperbole Rolo*"))
+(should (looking-at "Work"))
+
+(should (hact 'kbd-key "h"))
+(hy-test-helpers:consume-input-events)
+(end-of-line)
+(should (get-char-property (point) 'invisible))
+
+(should (hact 'kbd-key "a"))
+(hy-test-helpers:consume-input-events)
+(should-not (get-char-property (point) 'invisible)))
+(hyrolo-demo-quit)))
+
+(provide 'hyrolo-tests)
+;;; hyrolo-tests.el ends here

[elpa] externals/hyperbole cefd1e4 2/3: Make hyrolo-file-list customizable (#102)

[ELPA Syncer]

branch: externals/hyperbole
commit cefd1e438d3f5c4cae4af868d8f4c90e098091e8
Author: Mats Lidell 
Commit: GitHub 

Make hyrolo-file-list customizable (#102)
---
 ChangeLog | 2 ++
 hyrolo.el | 8 +---
 2 files changed, 7 insertions(+), 3 deletions(-)

diff --git a/ChangeLog b/ChangeLog
index 56e49d7..cee61a4 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,5 +1,7 @@
 2021-06-19  Mats Lidell  
 
+* hyrolo.el (hyrolo-file-list): Make variable customizable.
+
 * hsettings.el: Do not set user customizable properties
 hproperty:but-highlight-flag, hproperty:but-emphasize-flag,
 hproperty:but-flash-time.
diff --git a/hyrolo.el b/hyrolo.el
index 84a15b1..98b44d3 100644
--- a/hyrolo.el
+++ b/hyrolo.el
@@ -4,7 +4,7 @@
 ;;
 ;; Orig-Date: 7-Jun-89 at 22:08:29
 ;;
-;; Copyright (C) 1991-2019  Free Software Foundation, Inc.
+;; Copyright (C) 1991-2021  Free Software Foundation, Inc.
 ;; See the "HY-COPY" file for license information.
 ;;
 ;; This file is part of GNU Hyperbole.
@@ -119,7 +119,7 @@ executable must be found as well (for Oauth security)."
 list))
 
 (define-obsolete-variable-alias 'rolo-file-list 'hyrolo-file-list "06.00")
-(defvar hyrolo-file-list (hyrolo-initialize-file-list)
+(defcustom hyrolo-file-list (hyrolo-initialize-file-list)
   "*List of files containing rolo entries.
 The first file should be a user-specific rolo file, typically in the home
 directory.
@@ -128,7 +128,9 @@ A hyrolo-file consists of:
(1) an optional header beginning with and ending with a line which matches
hyrolo-hdr-regexp;
(2) one or more rolo entries which each begin with
-   hyrolo-entry-regexp and may be nested.")
+   hyrolo-entry-regexp and may be nested."
+  :group 'hyperbole-rolo
+  :type '(repeat file))
 
 (defcustom hyrolo-highlight-face 'match
   "*Face used to highlight rolo search matches."

[elpa] main 82f96c3: (elpa-packages): Remove `clhs` which Sam doesn't want in GNU ELPA

[monnier--- via]

branch: main
commit 82f96c30ef4255293532c2825913f7be440b872b
Author: Stefan Monnier 
Commit: Stefan Monnier 

(elpa-packages): Remove `clhs` which Sam doesn't want in GNU ELPA
---
 elpa-packages | 1 -
 1 file changed, 1 deletion(-)

diff --git a/elpa-packages b/elpa-packages
index 66380bb..61b1549 100644
--- a/elpa-packages
+++ b/elpa-packages
@@ -84,7 +84,6 @@
  ("cl-generic" :url nil)
  ("cl-lib" :url nil)
  ("cl-print"   :core "lisp/emacs-lisp/cl-print.el")
- ("clhs":url "https://gitlab.com/sam-s/clhs.git";)
  ("clipboard-collector" :url "https://github.com/clemera/clipboard-collector";)
  ("cobol-mode"  :url 
"https://gist.github.com/Edward-H/6768e7dc53ea3dd2adca";)
  ("coffee-mode":url "https://github.com/defunkt/coffee-mode";)

[elpa] branch externals/clhs deleted (was 93b33fd)

[monnier--- via]

monnier pushed a change to branch externals/clhs.

   was  93b33fd   comply with GNU ELPA

This change permanently discards the following revisions:

  discards  93b33fd   comply with GNU ELPA
  discards  2c12bfb   Pacify package-lint
  discards  7fc0256   Pacify checkdoc
  discards  6b01ec2   Remove obsolete `hash-table-complete'
  discards  8e67fde   update the docs
  discards  d458e3e   Add README.md
  discards  dd20a09   Add .gitignore
  discards  713b058   common-lisp-hyperspec-root: Use lisp.se again.
  discards  fbd879c   common-lisp-hyperspec-root: use mit.edu instead of broken 
lisp.se
  discards  8208673   common-lisp-hyperspec-root: reset clhs-symbols when 
setting
  discards  2a1c83b   Update URLs to CLHS.
  discards  766be41   (C) year
  discards  537a263   common-lisp-hyperspec: with prefix arg, save URL in 
kill-ring
  discards  2500ac1   common-lisp-hyperspec-root: default to 
http://clhs.lisp.se/ instead of LW
  discards  5b6de9f   common-lisp-hyperspec: with prefix arg, insert the URL 
instead of visiting it
  discards  bcac1e9   (C)year
  discards  1863215   also mention 
http://www.cs.cmu.edu/afs/cs/project/ai-repository/ai/html/hyperspec/HyperSpec/
  discards  a961ce0   (common-lisp-hyperspec-root): clhs at lisp.org is dead, 
use lispworks
  discards  e6a5a1f   add CLHS root variants
  discards  500   (common-lisp-hyperspec): bind `completion-ignore-case'
  discards  23fd27e   (clhs-table-buffer): strip "file:/", not just "file:"
  discards  f3bf530   emacs format uses %s, not ~s
  discards  b769733   (clhs-table-buffer): permit many spaces between "200" and 
"OK"
  discards  13622ba   fixed links
  discards  74286dc   initial version

[elpa] externals/hyperbole da0c363: Test installations using different sources (#104)

[ELPA Syncer]

branch: externals/hyperbole
commit da0c363a8a437a1d037c176453d06f03e59cbeac
Author: Mats Lidell 
Commit: GitHub 

Test installations using different sources (#104)
---
 install-test/elpa/.emacs  | 11 +++
 install-test/local-install-test.sh| 20 
 install-test/straight/.emacs  | 26 ++
 install-test/tarball/.emacs   |  8 
 install-test/tarball/install-local.sh |  7 +++
 5 files changed, 72 insertions(+)

diff --git a/install-test/elpa/.emacs b/install-test/elpa/.emacs
new file mode 100644
index 000..b0f0880
--- /dev/null
+++ b/install-test/elpa/.emacs
@@ -0,0 +1,11 @@
+;; .emacs
+
+(require 'package)
+(when (< emacs-major-version 27)
+  (package-initialize))
+(unless (package-installed-p 'hyperbole)
+  (package-refresh-contents)
+  (package-install 'hyperbole))
+(hyperbole-mode 1)
+
+(message "%s" "Hyperbole successfully installed")
diff --git a/install-test/local-install-test.sh 
b/install-test/local-install-test.sh
new file mode 100755
index 000..56c9d88
--- /dev/null
+++ b/install-test/local-install-test.sh
@@ -0,0 +1,20 @@
+#!/bin/bash
+
+echo *** Install test ***
+
+install_method="$1"
+
+app=/tmp/hypb-$$
+
+mkdir -p $app
+cp -a * $app
+export HOME=$app/$install_method
+
+[ -e $app/$install_method/install-local.sh ] && cd $app/$install_method && 
./install-local.sh
+
+cd $app/$install_method
+emacs --batch -l $app/$install_method/.emacs \
+  --eval '(load (expand-file-name "test/hy-test-dependencies.el" 
hyperb:dir))' \
+  -l hypb-ert \
+  --eval "(mapc #'load-file (hypb-run-ert-test-libraries))" \
+  -f ert-run-tests-batch-and-exit
diff --git a/install-test/straight/.emacs b/install-test/straight/.emacs
new file mode 100644
index 000..175f486
--- /dev/null
+++ b/install-test/straight/.emacs
@@ -0,0 +1,26 @@
+;; Use this in your Emacs init file to install Straight
+(progn
+  (defvar bootstrap-version)
+  (setq package-enable-at-startup nil)
+  (let ((bootstrap-file
+ (expand-file-name "straight/repos/straight.el/bootstrap.el" 
user-emacs-directory))
+(bootstrap-version 5))
+(unless (file-exists-p bootstrap-file)
+  (with-current-buffer
+  (url-retrieve-synchronously
+   
"https://raw.githubusercontent.com/raxod502/straight.el/develop/install.el";
+   'silent 'inhibit-cookies)
+(goto-char (point-max))
+(eval-print-last-sexp)))
+(load bootstrap-file nil 'nomessage)))
+
+;; Then use this to install Hyperbole
+(straight-use-package
+ '(hyperbole
+   :host nil
+   :repo "https://git.savannah.gnu.org/git/hyperbole.git";
+   :config (hyperbole-mode 1)))
+
+(hyperbole-mode 1)
+
+(message "%s" "Hyperbole successfully installed")
diff --git a/install-test/tarball/.emacs b/install-test/tarball/.emacs
new file mode 100644
index 000..5e8df3c
--- /dev/null
+++ b/install-test/tarball/.emacs
@@ -0,0 +1,8 @@
+;;; tarball -- hyperbole installed from a tar ball
+
+(unless (and (featurep 'hyperbole) hyperbole-mode)
+  (push (expand-file-name "hyperbole" (getenv "HOME")) load-path)
+  (require 'hyperbole)
+  (hyperbole-mode 1))
+
+(message "%s" "Hyperbole successfully installed")
diff --git a/install-test/tarball/install-local.sh 
b/install-test/tarball/install-local.sh
new file mode 100755
index 000..8fecdfd
--- /dev/null
+++ b/install-test/tarball/install-local.sh
@@ -0,0 +1,7 @@
+TARBALL=hyperbole-8.0.0pre0.20210605.220551
+
+curl -O https://elpa.gnu.org/devel/$TARBALL.tar
+tar -xf $TARBALL.tar
+ln -s $TARBALL hyperbole
+cd hyperbole
+make bin