[elpa] externals/corfu bad295b76b: corfu-indexed: Add corfu-indexed-start customization variable

2022-08-21 Thread ELPA Syncer
branch: externals/corfu
commit bad295b76b4953af1161d401170bc86549d89501
Author: Daniel Mendler 
Commit: Daniel Mendler 

corfu-indexed: Add corfu-indexed-start customization variable
---
 extensions/corfu-indexed.el | 13 ++---
 1 file changed, 10 insertions(+), 3 deletions(-)

diff --git a/extensions/corfu-indexed.el b/extensions/corfu-indexed.el
index 321790eae9..b54dd4346d 100644
--- a/extensions/corfu-indexed.el
+++ b/extensions/corfu-indexed.el
@@ -47,6 +47,11 @@
   "Face used for the candidate index prefix."
   :group 'corfu-faces)
 
+(defcustom corfu-indexed-start 0
+  "Start of the indexing."
+  :group 'corfu
+  :type 'integer)
+
 (defvar corfu-indexed--commands
   '(corfu-insert corfu-complete)
   "Commands that should be indexed.")
@@ -55,7 +60,7 @@
   "Advice for `corfu--affixate' which prefixes the CANDS with an index."
   (setq cands (cdr cands))
   (let* ((space #(" " 0 1 (face (:height 0.5 :inherit corfu-indexed
- (width (if (> (length cands) 10) 2 1))
+ (width (if (> (+ corfu-indexed-start (length cands)) 10) 2 1))
  (fmt (concat space
   (propertize (format "%%%ds" width)
   'face 'corfu-indexed)
@@ -64,7 +69,7 @@
   (propertize (make-string width ?\s)
   'display
   `(space :align-to (+ left ,(1+ width))
-(cl-loop for cand in cands for index from 0 do
+(cl-loop for cand in cands for index from corfu-indexed-start do
   (setf (cadr cand)
 (concat
  (propertize " " 'display (format fmt index))
@@ -75,7 +80,9 @@
 (defun corfu-indexed--handle-prefix (orig &rest args)
   "Handle prefix argument before calling ORIG function with ARGS."
   (if (and current-prefix-arg (called-interactively-p t))
-  (let ((corfu--index (+ corfu--scroll (prefix-numeric-value 
current-prefix-arg
+  (let ((corfu--index (+ corfu--scroll
+ (- (prefix-numeric-value current-prefix-arg)
+corfu-indexed-start
 (if (or (< corfu--index 0)
 (>= corfu--index corfu--total)
 (>= corfu--index (+ corfu--scroll corfu-count)))



[elpa] externals/vertico 64cdacd49c: Allow Vertico Indexed to start indexing at 1 instead of 0. (#266)

2022-08-21 Thread ELPA Syncer
branch: externals/vertico
commit 64cdacd49c60bb610a1dae74cbcb9581534a8ebd
Author: okamsn <28612288+oka...@users.noreply.github.com>
Commit: GitHub 

Allow Vertico Indexed to start indexing at 1 instead of 0. (#266)

This affects what is shown before the candidate and how prefix arguments are
interpreted.

Co-authored-by: okamsn 
---
 extensions/vertico-indexed.el | 14 +++---
 1 file changed, 11 insertions(+), 3 deletions(-)

diff --git a/extensions/vertico-indexed.el b/extensions/vertico-indexed.el
index e166e24ed3..482a2254a2 100644
--- a/extensions/vertico-indexed.el
+++ b/extensions/vertico-indexed.el
@@ -40,6 +40,11 @@
   "Face used for the candidate index prefix."
   :group 'vertico-faces)
 
+(defcustom vertico-indexed-start 0
+  "Start of the indexing."
+  :group 'vertico
+  :type 'integer)
+
 (defvar vertico-indexed--commands
   '(vertico-insert vertico-exit vertico-directory-enter))
 (defvar-local vertico-indexed--min 0)
@@ -50,8 +55,9 @@
   (setq vertico-indexed--min start vertico-indexed--max index)
   (funcall orig cand
(concat (propertize (format
-(format "%%%ds " (if (> vertico-count 10) 2 1))
-(- index start))
+(if (> (+ vertico-indexed-start vertico-count) 
10)
+"%2d " "%1d ")
+(+ (- index start) vertico-indexed-start))
'face 'vertico-indexed)
prefix)
suffix index start))
@@ -59,7 +65,9 @@
 (defun vertico-indexed--handle-prefix (orig &rest args)
   "Handle prefix argument before calling ORIG function with ARGS."
   (if (and current-prefix-arg (called-interactively-p t))
-  (let ((vertico--index (+ vertico-indexed--min (prefix-numeric-value 
current-prefix-arg
+  (let ((vertico--index (+ vertico-indexed--min
+   (- (prefix-numeric-value current-prefix-arg)
+  vertico-indexed-start
 (if (or (< vertico--index vertico-indexed--min)
 (> vertico--index vertico-indexed--max)
 (= vertico--total 0))



[nongnu] elpa/multiple-cursors 1e4842d129: Fix `mc/mark-all-in-region` leaving fake cursor.

2022-08-21 Thread ELPA Syncer
branch: elpa/multiple-cursors
commit 1e4842d1297241a5277bfd5c7bfab9e8711da60a
Author: Seungheon Oh 
Commit: Magnar Sveen 

Fix `mc/mark-all-in-region` leaving fake cursor.

Previously this function left a remain of fake function if there was
only one matching string in selected region.
---
 mc-mark-more.el | 22 --
 1 file changed, 12 insertions(+), 10 deletions(-)

diff --git a/mc-mark-more.el b/mc-mark-more.el
index 635e01298e..dc5b975606 100644
--- a/mc-mark-more.el
+++ b/mc-mark-more.el
@@ -419,16 +419,18 @@ matching the currently active region."
   (progn
 (mc/remove-fake-cursors)
 (goto-char beg)
-(while (search-forward search end t)
-  (push-mark (match-beginning 0))
-  (mc/create-fake-cursor-at-point))
-(let ((first (mc/furthest-cursor-before-point)))
-  (if (not first)
-  (error "Search failed for %S" search)
-(mc/pop-state-from-overlay first)))
-(if (> (mc/num-cursors) 1)
-(multiple-cursors-mode 1)
-  (mc/disable-multiple-cursors-mode))
+   (let ((lastmatch))
+  (while (search-forward search end t)
+(push-mark (match-beginning 0))
+(mc/create-fake-cursor-at-point)
+   (setq lastmatch t))
+  (unless lastmatch
+   (error "Search failed for %S" search)))
+   (goto-char (match-end 0))
+   (if (< (mc/num-cursors) 3)
+(mc/disable-multiple-cursors-mode)
+  (mc/pop-state-from-overlay (mc/furthest-cursor-before-point))
+  (multiple-cursors-mode 1))
 
 ;;;###autoload
 (defun mc/mark-all-in-region-regexp (beg end)



[elpa] externals/denote 495f452392 2/3: Mention Org date selection in denote-prompts

2022-08-21 Thread ELPA Syncer
branch: externals/denote
commit 495f452392456087f53869f5d13c3af5bc4e0cab
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Mention Org date selection in denote-prompts
---
 denote.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/denote.el b/denote.el
index 1c17031aed..780081a4dd 100644
--- a/denote.el
+++ b/denote.el
@@ -199,7 +199,8 @@ The value is a list of symbols, which includes any of the 
following:
 - `date': Prompts for the date of the new note.  It will expect
   an input like 2022-06-16 or a date plus time: 2022-06-16 14:30.
   Without the `date' prompt, the `denote' command uses the
-  `current-time'.
+  `current-time'.  (To leverage the more sophisticated Org
+  method, see the `denote-date-prompt-use-org-read-date'.)
 
 - `template': Prompts for a KEY among `denote-templates'.  The
   value of that KEY is used to populate the new note with



[elpa] externals/denote 5d578096e2 1/3: Reword denote-date-prompt-use-org-read-date docstring

2022-08-21 Thread ELPA Syncer
branch: externals/denote
commit 5d578096e26763a4a125c6c9ad5ff62b2ceac873
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Reword denote-date-prompt-use-org-read-date docstring
---
 denote.el | 6 --
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/denote.el b/denote.el
index a0d825d488..1c17031aed 100644
--- a/denote.el
+++ b/denote.el
@@ -319,9 +319,11 @@ are described in the doc string of `format-time-string'."
 (defcustom denote-date-prompt-use-org-read-date nil
   "Whether to use `org-read-date' in date prompts.
 
-If non-nil, use `org-read-date'.
+If non-nil, use `org-read-date'.  If nil, input the date as a
+string, as described in `denote'.
 
-If nil, input the date as a string, as described in `denote'."
+This option is relevant when `denote-prompts' includes a `date'
+and/or when the user invokes the command `denote-date'."
   :group 'denote
   :package-version '(denote . "0.6.0")
   :type 'boolean)



[elpa] externals/denote 621a721468 3/3: Add Org date selection to the manual

2022-08-21 Thread ELPA Syncer
branch: externals/denote
commit 621a72146830f2ea5ab47393db927318b082fd87
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Add Org date selection to the manual
---
 README.org | 26 ++
 1 file changed, 26 insertions(+)

diff --git a/README.org b/README.org
index a2ba43fa84..ad5f092646 100644
--- a/README.org
+++ b/README.org
@@ -213,6 +213,8 @@ The value is a list of symbols, which includes any of the 
following:
   like 2022-06-16 or a date plus time: 2022-06-16 14:30.  Without the
   =date= prompt, the ~denote~ command uses the ~current-time~.
 
+  [[#h:e7ef08d6-af1b-4ab3-bb00-494a653e6d63][The 
denote-date-prompt-use-org-read-date option]].
+
 - =template=: Prompts for a KEY among the ~denote-templates~.  The value
   of that KEY is used to populate the new note with content, which is
   added after the front matter ([[#h:f635a490-d29e-4608-9372-7bd13b34d56c][The 
denote-templates option]]).
@@ -344,6 +346,8 @@ commands for note creation:
   while prompting for a date.  The date can be in YEAR-MONTH-DAY
   notation like =2022-06-30= or that plus the time: =2022-06-16 14:30=.
 
+  [[#h:e7ef08d6-af1b-4ab3-bb00-494a653e6d63][The 
denote-date-prompt-use-org-read-date option]].
+
   This is the equivalent to calling ~denote~ when ~denote-prompts~ is
   set to ='(date title keywords)=.
 
@@ -374,6 +378,23 @@ commands for note creation:
   The ~denote-create-note-with-template~ is an alias of the command
   ~denote-template~, meant to help with discoverability.
 
+*** The ~denote-date-prompt-use-org-read-date~ option
+:PROPERTIES:
+:CUSTOM_ID: h:e7ef08d6-af1b-4ab3-bb00-494a653e6d63
+:END:
+
+[ Part of {{{development-version}}} ]
+
+By default, Denote uses its own simple prompt for date or date+time
+input ([[#h:f9204f1f-fcee-49b1-8081-16a08a338099][The denote-prompts 
option]]).  This is done when the
+~denote-prompts~ option includes a =date= symbol and/or when the user
+invokes the ~denote-date~ command.
+
+#+vindex: denote-date-prompt-use-org-read-date
+Users who want to benefit from the more advanced date selection method
+that is common in interactions with Org mode, can set the user option
+~denote-date-prompt-use-org-read-date~ to a non-nil value.
+
 ** Create note using Org capture
 :PROPERTIES:
 :CUSTOM_ID: h:656c70cd-cf9a-4471-a0b5-4f0aaf60f881
@@ -1741,6 +1762,11 @@ Everything is in place to set up the package.
 (setq denote-file-type nil) ; Org is the default, set others here
 (setq denote-prompts '(title keywords))
 
+
+;; Pick dates, where relevant, with Org's advanced interface:
+(setq denote-date-prompt-use-org-read-date t)
+
+
 ;; Read this manual for how to specify `denote-templates'.  We do not
 ;; include an example here to avoid potential confusion.
 



[elpa] externals/denote updated (8eea59281a -> 621a721468)

2022-08-21 Thread ELPA Syncer
elpasync pushed a change to branch externals/denote.

  from  8eea59281a Merge pull request #99 from pprevos/main
   new  5d578096e2 Reword denote-date-prompt-use-org-read-date docstring
   new  495f452392 Mention Org date selection in denote-prompts
   new  621a721468 Add Org date selection to the manual


Summary of changes:
 README.org | 26 ++
 denote.el  |  9 ++---
 2 files changed, 32 insertions(+), 3 deletions(-)



[elpa] externals/ef-themes ec26318ec8: Add support for EWW

2022-08-21 Thread ELPA Syncer
branch: externals/ef-themes
commit ec26318ec8067822108556ed27acc463eee9f315
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Add support for EWW
---
 ef-themes.el | 9 +
 1 file changed, 9 insertions(+)

diff --git a/ef-themes.el b/ef-themes.el
index 6c3b6fbc76..a3d78b580b 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -769,6 +769,15 @@ Helper function for `ef-themes-preview-colors'."
 `(eshell-ls-symlink ((,c :inherit link)))
 `(eshell-ls-unreadable ((,c :inherit shadow)))
 `(eshell-prompt ((,c :inherit minibuffer-prompt)))
+ eww
+`(eww-invalid-certificate ((,c :foreground ,err)))
+`(eww-valid-certificate ((,c :foreground ,info)))
+`(eww-form-checkbox ((,c :inherit eww-form-text)))
+`(eww-form-file ((,c :inherit eww-form-submit)))
+`(eww-form-select ((,c :inherit eww-form-submit)))
+`(eww-form-submit ((,c :box ,fg-dim :background ,bg-active :foreground 
,fg-intense)))
+`(eww-form-text ((,c :inherit widget-field)))
+`(eww-form-textarea ((,c :inherit eww-form-text)))
  font-lock
 `(font-lock-builtin-face ((,c :inherit bold :foreground ,builtin)))
 `(font-lock-comment-delimiter-face ((,c :inherit font-lock-comment-face)))



[elpa] externals/ef-themes 43dd00cfc4: Add support for SHR

2022-08-21 Thread ELPA Syncer
branch: externals/ef-themes
commit 43dd00cfc4206e3f9f2a134b2c34566fb1370c9f
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Add support for SHR
---
 ef-themes.el | 9 +
 1 file changed, 9 insertions(+)

diff --git a/ef-themes.el b/ef-themes.el
index a3d78b580b..428e395dae 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -1259,6 +1259,15 @@ Helper function for `ef-themes-preview-colors'."
 `(show-paren-match ((,c :background ,bg-paren :foreground ,fg-intense)))
 `(show-paren-match-expression ((,c :background ,bg-alt)))
 `(show-paren-mismatch ((,c :background ,bg-red :foreground ,fg-intense)))
+ shr
+`(shr-code ((,c :foreground ,accent-1))) ; same as `org-code'
+`(shr-h1 ((,c :inherit ef-themes-heading-1)))
+`(shr-h2 ((,c :inherit ef-themes-heading-2)))
+`(shr-h3 ((,c :inherit ef-themes-heading-3)))
+`(shr-h4 ((,c :inherit ef-themes-heading-4)))
+`(shr-h5 ((,c :inherit ef-themes-heading-5)))
+`(shr-h6 ((,c :inherit ef-themes-heading-6)))
+`(shr-selected-link ((,c :inherit link :background ,bg-dim)))
  smerge
 `(smerge-base ((,c :inherit diff-changed)))
 `(smerge-lower ((,c :inherit diff-added)))



[elpa] externals/logos updated (ddf1040e29 -> b71e9ffcfd)

2022-08-21 Thread ELPA Syncer
elpasync pushed a change to branch externals/logos.

  from  ddf1040e29 Add docs on how to auto-toggle menu and tool bars
   new  4f0da805e1 Make variable-pitch prog-mode exception explicit
   new  b71e9ffcfd Add :package-version to all defcustom


Summary of changes:
 logos.el | 16 +---
 1 file changed, 13 insertions(+), 3 deletions(-)



[elpa] externals/logos b71e9ffcfd 2/2: Add :package-version to all defcustom

2022-08-21 Thread ELPA Syncer
branch: externals/logos
commit b71e9ffcfd7a6f759ca3be4319ce6774e38901e4
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Add :package-version to all defcustom

Makes things easier if/when we change or update a variable.
---
 logos.el | 9 +
 1 file changed, 9 insertions(+)

diff --git a/logos.el b/logos.el
index bf77f492f1..4a6040ebb6 100644
--- a/logos.el
+++ b/logos.el
@@ -79,6 +79,7 @@ What constitutes an outline is determined by the user option
 When this variable is nil, pages are demarcated by the
 `page-delimiter'."
   :type 'boolean
+  :package-version '(logos . "0.1.0")
   :group 'logos)
 
 (defconst logos--page-delimiter (default-value 'page-delimiter)
@@ -97,6 +98,7 @@ The major mode also targets any of its derivatives.  For 
example,
 `emacs-lisp-mode' so one only needs to set the outline regexp of
 the latter."
   :type `(alist :key-type symbol :value-type string) ; TODO 2022-03-02: ensure 
symbol is mode?
+  :package-version '(logos . "0.1.0")
   :group 'logos)
 
 (defcustom logos-hide-mode-line nil
@@ -104,6 +106,7 @@ the latter."
 This is only relevant when `logos-focus-mode' is enabled."
   :type 'boolean
   :group 'logos
+  :package-version '(logos . "0.1.0")
   :local t)
 
 (defcustom logos-scroll-lock nil
@@ -111,6 +114,7 @@ This is only relevant when `logos-focus-mode' is enabled."
 This is only relevant when `logos-focus-mode' is enabled."
   :type 'boolean
   :group 'logos
+  :package-version '(logos . "0.1.0")
   :local t)
 
 (defcustom logos-variable-pitch nil
@@ -122,6 +126,7 @@ spacing-sensitive text.
 This is only relevant when `logos-focus-mode' is enabled."
   :type 'boolean
   :group 'logos
+  :package-version '(logos . "0.5.0")
   :local t)
 
 (define-obsolete-variable-alias
@@ -134,6 +139,7 @@ This is only relevant when `logos-focus-mode' is enabled."
 This is only relevant when `logos-focus-mode' is enabled."
   :type 'boolean
   :group 'logos
+  :package-version '(logos . "0.4.0")
   :local t)
 
 (defcustom logos-buffer-read-only nil
@@ -141,6 +147,7 @@ This is only relevant when `logos-focus-mode' is enabled."
 This applies when `logos-focus-mode' is enabled."
   :type 'boolean
   :group 'logos
+  :package-version '(logos . "0.2.0")
   :local t)
 
 (defcustom logos-olivetti nil
@@ -148,6 +155,7 @@ This applies when `logos-focus-mode' is enabled."
 This is only relevant when `logos-focus-mode' is enabled."
   :type 'boolean
   :group 'logos
+  :package-version '(logos . "0.2.0")
   :local t)
 
 (defcustom logos-hide-fringe nil
@@ -155,6 +163,7 @@ This is only relevant when `logos-focus-mode' is enabled."
 This is only relevant when `logos-focus-mode' is enabled."
   :type 'boolean
   :group 'logos
+  :package-version '(logos . "0.4.0")
   :local t)
 
 (defcustom logos-focus-mode-extra-functions nil



[elpa] externals/logos 4f0da805e1 1/2: Make variable-pitch prog-mode exception explicit

2022-08-21 Thread ELPA Syncer
branch: externals/logos
commit 4f0da805e1bc9204de479193648013d27ee85d7d
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Make variable-pitch prog-mode exception explicit

This is more consistent with the original intent of this option, which
is to enable 'variable-pitch-mode' everywhere except in programming
modes.
---
 logos.el | 7 ---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/logos.el b/logos.el
index 9b179649a4..bf77f492f1 100644
--- a/logos.el
+++ b/logos.el
@@ -114,9 +114,10 @@ This is only relevant when `logos-focus-mode' is enabled."
   :local t)
 
 (defcustom logos-variable-pitch nil
-  "When non-nil, `text-mode' buffers use `variable-pitch-mode'.
+  "When non-nil, use `variable-pitch-mode' where appropriate.
 In programming modes the default font is always used, as that is
-assumed to be a monospaced typeface.
+assumed to be a monospaced typeface, which is appropriate for
+spacing-sensitive text.
 
 This is only relevant when `logos-focus-mode' is enabled."
   :type 'boolean
@@ -402,7 +403,7 @@ options: `logos-scroll-lock', `logos-variable-pitch',
 
 (defun logos--variable-pitch ()
   "Set `logos-variable-pitch'."
-  (when (and logos-variable-pitch (derived-mode-p 'text-mode))
+  (when (and logos-variable-pitch (not (derived-mode-p 'prog-mode)))
 (logos--mode 'variable-pitch-mode 1)))
 
 (defun logos--scroll-lock ()



[nongnu] elpa/geiser bb309de946 1/2: geiser-repl: Silence warnings

2022-08-21 Thread ELPA Syncer
branch: elpa/geiser
commit bb309de946af96e7a1f710171c9e01c6cce9525d
Author: Brian Leung 
Commit: jao 

geiser-repl: Silence warnings
---
 elisp/geiser-repl.el | 17 -
 1 file changed, 8 insertions(+), 9 deletions(-)

diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index 897a17b14c..f1207bd1b1 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -474,13 +474,13 @@ will be set up using `geiser-connect-local' when a REPL 
is started.")
   (narrow-to-region prompt-beg prompt-end)
   t)))
 
-(defun geiser-repl--wrap-fontify-region-function (beg end &optional loudly)
+(defun geiser-repl--wrap-fontify-region-function (_beg _end &optional _loudly)
   (save-restriction
 (when (geiser-repl--narrow-to-prompt)
   (let ((font-lock-dont-widen t))
 (font-lock-default-fontify-region (point-min) (point-max) nil)
 
-(defun geiser-repl--wrap-unfontify-region-function (beg end &optional loudly)
+(defun geiser-repl--wrap-unfontify-region-function (_beg _end &optional 
_loudly)
   (save-restriction
 (when (geiser-repl--narrow-to-prompt)
   (let ((font-lock-dont-widen t))
@@ -541,6 +541,10 @@ will be set up using `geiser-connect-local' when a REPL is 
started.")
 
 (defvar-local geiser-repl--repl-buffer nil)
 
+(defvar-local geiser-repl--binary nil)
+
+(defvar-local geiser-repl--arglist nil)
+
 (defun geiser-repl--start-repl (impl address)
   (message "Starting Geiser REPL ...")
   (when (not address) (geiser-repl--check-version impl))
@@ -732,7 +736,7 @@ If SAVE-HISTORY is non-nil, save CMD in the REPL history."
  (equal cb geiser-repl--repl))
 (geiser-repl--set-up-repl geiser-impl--implementation)))
 
-(defun geiser-repl--sentinel (proc event)
+(defun geiser-repl--sentinel (proc _event)
   (let ((pb (process-buffer proc)))
 (when (buffer-live-p pb)
   (with-current-buffer pb
@@ -820,8 +824,7 @@ If SAVE-HISTORY is non-nil, save CMD in the REPL history."
 
   (let* ((proc (get-buffer-process (current-buffer)))
  (pmark (and proc (process-mark proc)))
- (intxt (and pmark (buffer-substring pmark (point
- (eob (point-max)))
+ (intxt (and pmark (buffer-substring pmark (point)
 (when intxt
   (when geiser-repl-forget-old-errors-p
 (compilation-forget-errors))
@@ -1001,10 +1004,6 @@ over a Unix-domain socket."
  (eq major-mode 'geiser-repl-mode))
 (setq geiser-repl--last-scm-buffer buffer)))
 
-(defvar-local geiser-repl--binary nil)
-
-(defvar-local geiser-repl--arglist nil)
-
 (defun geiser-repl--get-binary (impl)
   (or geiser-repl--binary (geiser-repl--binary impl)))
 



[nongnu] elpa/geiser 5bfce52a63 2/2: Fix: don't use add-to-list on lexical variable

2022-08-21 Thread ELPA Syncer
branch: elpa/geiser
commit 5bfce52a63543b7e3955abfa64b2abac1e14d231
Author: jao 
Commit: jao 

Fix: don't use add-to-list on lexical variable

Thanks to Brian Leung
---
 elisp/geiser-repl.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/elisp/geiser-repl.el b/elisp/geiser-repl.el
index f1207bd1b1..0a1f544163 100644
--- a/elisp/geiser-repl.el
+++ b/elisp/geiser-repl.el
@@ -333,7 +333,8 @@ will be set up using `geiser-connect-local' when a REPL is 
started.")
   (let ((act))
 (dolist (repl geiser-repl--repls act)
   (with-current-buffer repl
-(add-to-list 'act geiser-impl--implementation)
+(unless (memq geiser-impl--implementation act)
+  (push geiser-impl--implementation act))
 
 (defsubst geiser-repl--repl-name (impl)
   (format "%s REPL" (geiser-impl--impl-str impl)))



[nongnu] elpa/geiser updated (b03bad3e5d -> 5bfce52a63)

2022-08-21 Thread ELPA Syncer
elpasync pushed a change to branch elpa/geiser.

  from  b03bad3e5d Version bump
   new  bb309de946 geiser-repl: Silence warnings
   new  5bfce52a63 Fix: don't use add-to-list on lexical variable


Summary of changes:
 elisp/geiser-repl.el | 20 ++--
 1 file changed, 10 insertions(+), 10 deletions(-)



[elpa] externals/logos 04b42159ea 3/4: Document logos-repeat-map

2022-08-21 Thread ELPA Syncer
branch: externals/logos
commit 04b42159eabd2a57f96859e26b03edf7c7a7281c
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Document logos-repeat-map
---
 README.org | 9 +
 1 file changed, 9 insertions(+)

diff --git a/README.org b/README.org
index 3a663ab57e..750a8c672c 100644
--- a/README.org
+++ b/README.org
@@ -99,6 +99,15 @@ On standard Emacs, those key bindings are: =C-x n n=, =C-x 
]=, =C-x [=.
 The ~logos-narrow-dwim~ is not necessary for users who already know how
 to narrow effectively.  Such users may still want to bind it to a key.
 
+#+vindex: logos-repeat-map
+For users running Emacs version 28 or higher, Logos defines the
+~logos-repeat-map~ which is activated when ~repeat-mode~ is enabled.
+This means that page motions, =C-x ]= and =C-x [=, can be repeated by
+following them up with =]= and =[=, respectively.  The repetition stops
+when another command is invoked.
+
+[ The ~logos-repeat-map~ is part of {{{development-version}}} ]
+
 #+findex: logos-focus-mode
 #+vindex: logos-hide-mode-line
 #+vindex: logos-scroll-lock



[elpa] externals/logos updated (b71e9ffcfd -> 4a8270dbcb)

2022-08-21 Thread ELPA Syncer
elpasync pushed a change to branch externals/logos.

  from  b71e9ffcfd Add :package-version to all defcustom
   new  d4716d339d Add :package-version to the hook
   new  6f1d300a6c Add documentation about tweaking EWW
   new  04b42159ea Document logos-repeat-map
   new  4a8270dbcb Update package Commentary


Summary of changes:
 README.org | 41 +
 logos.el   | 61 +++--
 2 files changed, 84 insertions(+), 18 deletions(-)



[elpa] externals/logos d4716d339d 1/4: Add :package-version to the hook

2022-08-21 Thread ELPA Syncer
branch: externals/logos
commit d4716d339d018e9dbf1511fe00c6c64b59e9c032
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Add :package-version to the hook

Same idea as with commit b71e9ff.
---
 logos.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/logos.el b/logos.el
index 4a6040ebb6..24f8a5836e 100644
--- a/logos.el
+++ b/logos.el
@@ -177,6 +177,7 @@ yet another useful sample.
 
 Consult the Logos manual for concrete do-it-yourself examples."
   :type 'hook
+  :package-version '(logos . "0.4.0")
   :group 'logos)
 
  General utilities



[elpa] externals/logos 4a8270dbcb 4/4: Update package Commentary

2022-08-21 Thread ELPA Syncer
branch: externals/logos
commit 4a8270dbcb10703e414e5d5f820a52864a893052
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Update package Commentary
---
 logos.el | 60 ++--
 1 file changed, 42 insertions(+), 18 deletions(-)

diff --git a/logos.el b/logos.el
index 24f8a5836e..a05182200c 100644
--- a/logos.el
+++ b/logos.el
@@ -27,39 +27,63 @@
 
 ;;; Commentary:
 ;;
-;; This package provides a simple "focus mode" which can be applied to
-;; any buffer for reading, writing, or even doing a presentation.  The
-;; buffer can be divided in pages using the `page-delimiter', outline
-;; structure, or any other pattern.  Commands are provided to move
-;; between those pages.  These motions work even when narrowing is in
-;; effect (and they preserve it).  `logos.el' is designed to be simple
-;; by default and easy to extend.  This manual provides concrete
-;; examples to that end.
+;; This package provides a simple "focus mode" which can be applied to any
+;; buffer for reading, writing, or even doing a presentation.  The buffer
+;; can be divided in pages using the `page-delimiter', outline structure,
+;; or any other pattern.  Commands are provided to move between those
+;; pages.  These motions work even when narrowing is in effect (and they
+;; preserve it).  `logos.el' is designed to be simple by default and easy
+;; to extend.  This manual provides concrete examples to that end.
 ;;
-;; Logos does not define any key bindings.  Try something like this:
+;; What constitutes a page delimiter is determined by the user options
+;; `logos-outlines-are-pages' and `logos-outline-regexp-alist'.  By
+;; default, this only corresponds to the `^L' character (which can be
+;; inserted using the standard keys with `C-q C-l').
+;;
+;; Logos does not define any key bindings.  Try something like this, if you
+;; want:
 ;;
 ;; (let ((map global-map))
 ;;   (define-key map [remap narrow-to-region] #'logos-narrow-dwim)
 ;;   (define-key map [remap forward-page] #'logos-forward-page-dwim)
 ;;   (define-key map [remap backward-page] #'logos-backward-page-dwim))
 ;;
-;; By default those key bindings are: C-x n n, C-x ], C-x [.
+;; On standard Emacs, those key bindings are: `C-x n n', `C-x ]', `C-x ['.
+;; The `logos-narrow-dwim' is not necessary for users who already know how
+;; to narrow effectively.  Such users may still want to bind it to a key.
+;;
+;; For users running Emacs version 28 or higher, Logos defines the
+;; `logos-repeat-map' which is activated when `repeat-mode' is enabled.
+;; This means that page motions, `C-x ]' and `C-x [', can be repeated by
+;; following them up with `]' and `[', respectively.  The repetition stops
+;; when another command is invoked.
 ;;
-;; The `logos-focus-mode' tweaks the aesthetics of the current buffer.
-;; When enabled it sets the buffer-local value of these user options:
-;; `logos-scroll-lock', `logos-variable-pitch',`logos-hide-mode-line',
-;; `logos-hide-buffer-boundaries', `logos-buffer-read-only',
-;; `logos-olivetti', and `logos-hide-fringe'.
+;; Logos provides some optional aesthetic tweaks which come into effect
+;; when the buffer-local `logos-focus-mode' is enabled.  These will hide
+;; the mode line (`logos-hide-mode-line'), disable the buffer boundary
+;; indicators (`indicate-buffer-boundaries'), enable `scroll-lock-mode'
+;; (`logos-scroll-lock'), use `variable-pitch-mode' in non-programming
+;; buffers (`logos-variable-pitch'), make the buffer read-only
+;; (`logos-buffer-read-only'), center the buffer in its window if the
+;; `olivetti' package is installed (`logos-olivetti'), and hide the
+;; `fringe' face (`logos-hide-fringe').  All these variables are
+;; buffer-local.
 ;;
-;; Logos is the familiar word derived from Greek (watch my presentation
-;; on philosophy about Cosmos, Logos, and the living universe:
+;; Furthermore, the `logos-focus-mode' establishes a bespoke keymap, which
+;; can be used to, for example, bind the arrow keys to page motions.  The
+;; keymap is `logos-focus-mode-map' and is empty by default (we do not
+;; define any keys and trust the user to pick their own).
+;;
+;; Logos is the familiar word derived from Greek (watch my presentation on
+;; philosophy about Cosmos, Logos, and the living universe:
 ;; ),
 ;; though it also stands for these two perhaps equally insightful
 ;; backronyms about the mechanics of this package:
 ;;
-;; 1. ^L Only Generates Ostensible Slides
+;; 1. `^L' Only Generates Ostensible Slides
 ;; 2. Logos Optionally Garners Outline Sections
 ;;
+;;
 ;; Consult the manual for all sorts of tweaks and extras:
 ;; .
 



[elpa] externals/logos 6f1d300a6c 2/4: Add documentation about tweaking EWW

2022-08-21 Thread ELPA Syncer
branch: externals/logos
commit 6f1d300a6c0786dd029ff2179332556c820a5455
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Add documentation about tweaking EWW

This is in response to the relevant question of Ypot in issue 4 over at
the GitHub mirror: .
---
 README.org | 32 
 1 file changed, 32 insertions(+)

diff --git a/README.org b/README.org
index 5c2ead1d95..3a663ab57e 100644
--- a/README.org
+++ b/README.org
@@ -274,6 +274,38 @@ The present author's favourite settings given a 
~fill-column~ of =72=:
 Though note that Olivetti works well even without a ~fill-column~ and
 ~auto-fill-mode~ disabled.
 
+** Make EWW look like the rest of Emacs
+:PROPERTIES:
+:CUSTOM_ID: h:2b598775-8a3d-4728-a7ce-edc05d90fdb9
+:END:
+
+By default, all =M-x eww= buffers use the ~shr-max-width~ which is set
+to 120 characters.  This is above the standard value of ~fill-column~
+and thus does not let text flow nicely while using =olivetti= package
+([[#h:8864fb36-53d6-40a2-8e0a-2c609e06d70f][Center the buffer in its window]]).
+
+For a general customization, the user can evaluate this:
+
+#+begin_src emacs-lisp
+(setq shr-max-width fill-column)
+#+end_src
+
+EWW buffers also default to ~variable-pitch~ typography by default (as
+opposed to whatever the font family of the ~default~ face is).  This too
+can be made consistent with the rest of Emacs:
+
+#+begin_src emacs-lisp
+(setq shr-use-fonts nil)
+#+end_src
+
+[ For font-related customizations check the =fontaine= package on GNU
+  ELPA (by Protesilaos). ]
+
+Note that all variables with the =shr-= prefix are about the built-in
+Simple HTML Renderer, so they will affect any other package that relies
+on them beside EWW (in principle, the aforementioned should not pose any
+problem).
+
 ** Automatically reveal Org or Outline subtree
 :PROPERTIES:
 :CUSTOM_ID: h:e18f828f-f9a8-4821-b73b-46793be57abb



[elpa] externals/denote cab563803c 2/2: Merge pull request #100 from jeanphilippegg/filetype-heuristics

2022-08-21 Thread ELPA Syncer
branch: externals/denote
commit cab563803c7a73c5d4935e6cb2efd36d342e7815
Merge: 621a721468 5d9f1992e9
Author: Protesilaos Stavrou 
Commit: GitHub 

Merge pull request #100 from jeanphilippegg/filetype-heuristics

Fix denote--filetype-heuristics for md files when no key regexps match
---
 denote.el | 50 --
 1 file changed, 28 insertions(+), 22 deletions(-)

diff --git a/denote.el b/denote.el
index 780081a4dd..f310a81e17 100644
--- a/denote.el
+++ b/denote.el
@@ -665,22 +665,22 @@ identifier: %s
  :keywords-key-regexp "^#\\+filetags\\s-*:"
  :keywords-value-function denote--format-keywords-for-org-front-matter
  :keywords-value-reverse-function 
denote--extract-keywords-from-front-matter)
-(markdown-toml
+(markdown-yaml
  :extension ".md"
- :front-matter ,denote-toml-front-matter
- :title-key-regexp "^title\\s-*="
+ :front-matter ,denote-yaml-front-matter
+ :title-key-regexp "^title\\s-*:"
  :title-value-function denote--surround-with-quotes
  :title-value-reverse-function denote--trim-whitespace-then-quotes
- :keywords-key-regexp "^tags\\s-*="
+ :keywords-key-regexp "^tags\\s-*:"
  :keywords-value-function denote--format-keywords-for-md-front-matter
  :keywords-value-reverse-function 
denote--extract-keywords-from-front-matter)
-(markdown-yaml
+(markdown-toml
  :extension ".md"
- :front-matter ,denote-yaml-front-matter
- :title-key-regexp "^title\\s-*:"
+ :front-matter ,denote-toml-front-matter
+ :title-key-regexp "^title\\s-*="
  :title-value-function denote--surround-with-quotes
  :title-value-reverse-function denote--trim-whitespace-then-quotes
- :keywords-key-regexp "^tags\\s-*:"
+ :keywords-key-regexp "^tags\\s-*="
  :keywords-value-function denote--format-keywords-for-md-front-matter
  :keywords-value-reverse-function 
denote--extract-keywords-from-front-matter)
 (text
@@ -1263,23 +1263,29 @@ See the format of `denote-file-types'."
 (defun denote--filetype-heuristics (file)
   "Return likely file type of FILE.
 Use the file extension to detect the file type of the file.
-If more than one file type correspond to this file extension,
-use the first file type for which the key-title-kegexp matches
-in the file.
-Else, if nothing works, the file type is assumed to be the first
-in `denote-file-types'."
+
+If more than one file type correspond to this file extension, use
+the first file type for which the key-title-kegexp matches in the
+file or, if none matches, use the first type with this file
+extension in `denote-file-type'.
+
+If no file types in `denote-file-types' has the file extension,
+the file type is assumed to be the first of `denote-file-types'."
   (let* ((file-type)
  (extension (file-name-extension file t))
  (types (denote--file-types-with-extension extension)))
-(if (= (length types) 1)
-(setq file-type (caar types))
-  (when-let ((found-type (seq-find
-  (lambda (type)
-(denote--regexp-in-file-p (plist-get (cdr 
type) :title-key-regexp) file))
-  types)))
-(setq file-type (car found-type
-(unless file-type
-  (setq file-type (caar denote-file-types)))
+(cond ((not types)
+   (setq file-type (caar denote-file-types)))
+  ((= (length types) 1)
+   (setq file-type (caar types)))
+  (t
+   (if-let ((found-type
+ (seq-find
+  (lambda (type)
+(denote--regexp-in-file-p (plist-get (cdr type) 
:title-key-regexp) file))
+  types)))
+   (setq file-type (car found-type))
+ (setq file-type (caar types)
 file-type))
 
 (defun denote--file-attributes-time (file)



[elpa] externals/denote 5d9f1992e9 1/2: Rework denote--filetype-heuristics

2022-08-21 Thread ELPA Syncer
branch: externals/denote
commit 5d9f1992e93fceee57a498c9ba0b937cdc29c33d
Author: Jean-Philippe Gagné Guay 
Commit: Jean-Philippe Gagné Guay 

Rework denote--filetype-heuristics

denote--filetype-heuristics should always return an md filetype if the
file extension is md even if no key regexps match in the file. In that
case, we use the first md type in denote-file-types.

markdown-yaml should appear before markdown-toml in denote-file-types
because it used to be the default markdown type of
denote--filetype-heuristics.
---
 denote.el | 50 --
 1 file changed, 28 insertions(+), 22 deletions(-)

diff --git a/denote.el b/denote.el
index 780081a4dd..f310a81e17 100644
--- a/denote.el
+++ b/denote.el
@@ -665,22 +665,22 @@ identifier: %s
  :keywords-key-regexp "^#\\+filetags\\s-*:"
  :keywords-value-function denote--format-keywords-for-org-front-matter
  :keywords-value-reverse-function 
denote--extract-keywords-from-front-matter)
-(markdown-toml
+(markdown-yaml
  :extension ".md"
- :front-matter ,denote-toml-front-matter
- :title-key-regexp "^title\\s-*="
+ :front-matter ,denote-yaml-front-matter
+ :title-key-regexp "^title\\s-*:"
  :title-value-function denote--surround-with-quotes
  :title-value-reverse-function denote--trim-whitespace-then-quotes
- :keywords-key-regexp "^tags\\s-*="
+ :keywords-key-regexp "^tags\\s-*:"
  :keywords-value-function denote--format-keywords-for-md-front-matter
  :keywords-value-reverse-function 
denote--extract-keywords-from-front-matter)
-(markdown-yaml
+(markdown-toml
  :extension ".md"
- :front-matter ,denote-yaml-front-matter
- :title-key-regexp "^title\\s-*:"
+ :front-matter ,denote-toml-front-matter
+ :title-key-regexp "^title\\s-*="
  :title-value-function denote--surround-with-quotes
  :title-value-reverse-function denote--trim-whitespace-then-quotes
- :keywords-key-regexp "^tags\\s-*:"
+ :keywords-key-regexp "^tags\\s-*="
  :keywords-value-function denote--format-keywords-for-md-front-matter
  :keywords-value-reverse-function 
denote--extract-keywords-from-front-matter)
 (text
@@ -1263,23 +1263,29 @@ See the format of `denote-file-types'."
 (defun denote--filetype-heuristics (file)
   "Return likely file type of FILE.
 Use the file extension to detect the file type of the file.
-If more than one file type correspond to this file extension,
-use the first file type for which the key-title-kegexp matches
-in the file.
-Else, if nothing works, the file type is assumed to be the first
-in `denote-file-types'."
+
+If more than one file type correspond to this file extension, use
+the first file type for which the key-title-kegexp matches in the
+file or, if none matches, use the first type with this file
+extension in `denote-file-type'.
+
+If no file types in `denote-file-types' has the file extension,
+the file type is assumed to be the first of `denote-file-types'."
   (let* ((file-type)
  (extension (file-name-extension file t))
  (types (denote--file-types-with-extension extension)))
-(if (= (length types) 1)
-(setq file-type (caar types))
-  (when-let ((found-type (seq-find
-  (lambda (type)
-(denote--regexp-in-file-p (plist-get (cdr 
type) :title-key-regexp) file))
-  types)))
-(setq file-type (car found-type
-(unless file-type
-  (setq file-type (caar denote-file-types)))
+(cond ((not types)
+   (setq file-type (caar denote-file-types)))
+  ((= (length types) 1)
+   (setq file-type (caar types)))
+  (t
+   (if-let ((found-type
+ (seq-find
+  (lambda (type)
+(denote--regexp-in-file-p (plist-get (cdr type) 
:title-key-regexp) file))
+  types)))
+   (setq file-type (car found-type))
+ (setq file-type (caar types)
 file-type))
 
 (defun denote--file-attributes-time (file)



[elpa] externals/shell-command+ 3f5e27cc7f 3/5: Autoload 'shell-command+-features'

2022-08-21 Thread ELPA Syncer
branch: externals/shell-command+
commit 3f5e27cc7fdd7ad0136d33f84f0d123cbd7f22b0
Author: Philip Kaludercic 
Commit: Philip Kaludercic 

Autoload 'shell-command+-features'
---
 shell-command+.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/shell-command+.el b/shell-command+.el
index 4282de1565..dfae52cc6b 100644
--- a/shell-command+.el
+++ b/shell-command+.el
@@ -120,6 +120,7 @@ is specified."
 
 ;;; Modular feature support
 
+;;;###autoload
 (defcustom shell-command+-features
   (list #'shell-command+-expand-%
 #'shell-command+-command-substitution



[elpa] externals/shell-command+ updated (20b5602df8 -> 06b0b39473)

2022-08-21 Thread ELPA Syncer
elpasync pushed a change to branch externals/shell-command+.

  from  20b5602df8 Add a basic Makefile
   new  c91cb867f7 Fix input redirection
   new  4ccdcc63e7 Slightly restructure commentary section
   new  3f5e27cc7f Autoload 'shell-command+-features'
   new  473b3f1239 Add example on how to customize shell-command+-features
   new  06b0b39473 Delete trailing whitespace from README.md


Summary of changes:
 README.md |  4 ++--
 shell-command+.el | 38 ++
 2 files changed, 20 insertions(+), 22 deletions(-)



[elpa] externals/shell-command+ c91cb867f7 1/5: Fix input redirection

2022-08-21 Thread ELPA Syncer
branch: externals/shell-command+
commit c91cb867f78ba4e0ef6fc3a3907c1b9b7da86976
Author: Visuwesh 
Commit: Philip Kaludercic 

Fix input redirection

* shell-command+.el (shell-command+-redirect-output): Tranpose the
sexps so that FORM gets returned correctly.
---
 shell-command+.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/shell-command+.el b/shell-command+.el
index e2cc209c40..f61c395fd2 100644
--- a/shell-command+.el
+++ b/shell-command+.el
@@ -151,10 +151,10 @@ For PARSE, FORM and CONTEXT see 
`shell-command+-features'."
 (list parse
   (cond ((if shell-command+-flip-redirection
  (eq mode 'output) (eq mode 'input))
+ (exchange-point-and-mark)
  `(progn
 (delete-region ,beg ,end)
-(shell-command ,shell-command+--command-hole t 
shell-command-default-error-buffer))
- (exchange-point-and-mark))
+(shell-command ,shell-command+--command-hole t 
shell-command-default-error-buffer)))
 ((if shell-command+-flip-redirection
  (eq mode 'input) (eq mode 'output))
  `(shell-command-on-region



[elpa] externals/shell-command+ 06b0b39473 5/5: Delete trailing whitespace from README.md

2022-08-21 Thread ELPA Syncer
branch: externals/shell-command+
commit 06b0b3947376d275e265d94bcccb5b5c4f5129ca
Author: Philip Kaludercic 
Commit: Philip Kaludercic 

Delete trailing whitespace from README.md
---
 README.md | 1 -
 1 file changed, 1 deletion(-)

diff --git a/README.md b/README.md
index 7f1358c8bf..166a9bf342 100644
--- a/README.md
+++ b/README.md
@@ -45,4 +45,3 @@ Copying
 [setup]: http://elpa.gnu.org/packages/setup.html
 [ca]: 
https://www.gnu.org/software/emacs/manual/html_node/emacs/Copyright-Assignment.html#Copyright-Assignment
 [gpl3]: https://www.gnu.org/licenses/gpl-3.0.en.html
-



[elpa] externals/shell-command+ 473b3f1239 4/5: Add example on how to customize shell-command+-features

2022-08-21 Thread ELPA Syncer
branch: externals/shell-command+
commit 473b3f1239a3cc7691abe2334b44ff41ac80d408
Author: Philip Kaludercic 
Commit: Philip Kaludercic 

Add example on how to customize shell-command+-features
---
 README.md | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/README.md b/README.md
index 353833f83a..7f1358c8bf 100644
--- a/README.md
+++ b/README.md
@@ -21,7 +21,8 @@ Using [`setup`][setup] I configure `shell-command+` as so:
 
 ~~~elisp
 (setup (:package shell-command+)
-  (:option shell-command+-prompt "$ ")
+  (:option (remove shell-command+-features) #'shell-command+-implicit-cd
+   shell-command+-prompt "$ ")
   (:bind-into dired "M-!" shell-command+)
   (:global "M-!" shell-command+))
 ~~~



[elpa] externals/shell-command+ 4ccdcc63e7 2/5: Slightly restructure commentary section

2022-08-21 Thread ELPA Syncer
branch: externals/shell-command+
commit 4ccdcc63e7b593c62eb7e3c45a78b394841694f2
Author: Philip Kaludercic 
Commit: Philip Kaludercic 

Slightly restructure commentary section
---
 shell-command+.el | 33 +++--
 1 file changed, 15 insertions(+), 18 deletions(-)

diff --git a/shell-command+.el b/shell-command+.el
index f61c395fd2..4282de1565 100644
--- a/shell-command+.el
+++ b/shell-command+.el
@@ -32,33 +32,30 @@
 ;;
 ;; A few examples of what `shell-command+' can do:
 ;;
+;; * Count all lines in a buffer, and display the result in the
+;;   minibuffer:
 ;;
-;; > wc -l
+;;   > wc -l
 ;;
-;; Count all lines in a buffer, and display the result in the
-;; minibuffer.
+;; * Replace the current region (or buffer in no region is selected)
+;;   with a directory listing of the parent directory.
 ;;
+;;   .. < ls -l
 ;;
-;; .. < ls -l
+;; * Delete all instances of the charachters a, b, c, ..., z, in the
+;;   selected region (or buffer, if no region was selected).
 ;;
-;; Replace the current region (or buffer in no region is selected)
-;; with a directory listing of the parent directory.
+;;   | tr -d a-z
 ;;
+;; * Open a man-page using Emacs default man page viewer.
+;;   `shell-command+' can be extended to use custom Elisp handlers via
+;;   as specified in `shell-command+-substitute-alist'.
 ;;
-;; | tr -d a-z
-;;
-;; Delete all instances of the charachters a, b, c, ..., z, in the
-;; selected region (or buffer, if no region was selected).
-;;
-;;
-;; man fprintf
-;;
-;; Open a man-page using Emacs default man page viewer.
-;; `shell-command+' can be extended to use custom Elisp handlers via
-;; as specified in `shell-command+-substitute-alist'.
+;;   man fprintf
 ;;
 ;; See `shell-command+'s docstring for more details on how it's input
-;; is interpreted.
+;; is interpreted.  See `shell-command+-features' if you want to
+;; disable or add new features.
 ;;
 ;; `shell-command+' was originally based on the command `bang' by Leah
 ;; Neukirchen (https://leahneukirchen.org/dotfiles/.emacs).



[elpa] externals/detached c340055644: Make functions private in detached-.*.el files

2022-08-21 Thread ELPA Syncer
branch: externals/detached
commit c34005564459c656fcb0d54b7aceb66aa72e8dd7
Author: Niklas Eklund 
Commit: Niklas Eklund 

Make functions private in detached-.*.el files
---
 detached-compile.el | 12 ++-
 detached-eshell.el  | 60 ++---
 detached-init.el| 42 +++--
 detached-shell.el   | 56 -
 detached-vterm.el   | 19 -
 detached.el |  4 ++--
 6 files changed, 98 insertions(+), 95 deletions(-)

diff --git a/detached-compile.el b/detached-compile.el
index 4847b91395..fe9a8ddd4e 100644
--- a/detached-compile.el
+++ b/detached-compile.el
@@ -84,16 +84,10 @@ Optionally EDIT-COMMAND."
  (detached--session-working-directory session)))
   (compilation-start (detached--session-command session)
 
-;;;###autoload
-(defun detached-compile-open (session)
-  "Open SESSION with `detached-compile'."
-  (when (detached-valid-session session)
-(if (eq 'active (detached--session-state session))
-(detached-compile-attach session)
-  (detached-compile-session session
+; Support functions
 
 ;;;###autoload
-(defun detached-compile-start (_)
+(defun detached-compile--start (_)
   "Run in `compilation-start-hook' if `detached-enabled'."
   (when detached-enabled
 (setq detached--buffer-session detached--current-session)
@@ -103,8 +97,6 @@ Optionally EDIT-COMMAND."
 (add-hook 'comint-preoutput-filter-functions 
#'detached--env-message-filter 0 t)
 (add-hook 'comint-preoutput-filter-functions 
#'detached--dtach-eof-message-filter 0 t)))
 
-; Support functions
-
 (defun detached-compile--compilation-start (compilation-start &rest args)
   "Create a `detached' session before running COMPILATION-START with ARGS."
   (if detached-enabled
diff --git a/detached-eshell.el b/detached-eshell.el
index adc0ca11ce..68b88aaf89 100644
--- a/detached-eshell.el
+++ b/detached-eshell.el
@@ -43,21 +43,20 @@
 
  Functions
 
-(defun detached-eshell-select-session ()
-  "Return selected session."
-  (let* ((host-name (car (detached--host)))
- (sessions
-  (thread-last (detached-get-sessions)
-   (seq-filter (lambda (it)
- (string= (car (detached--session-host 
it)) host-name)))
-   (seq-filter (lambda (it) (eq 'active 
(detached--determine-session-state it)))
-(detached-completing-read sessions)))
-
-(defun detached-eshell-get-dtach-process ()
-  "Return `eshell' process if `detached' is running."
-  (when-let* ((process (and eshell-process-list (caar eshell-process-list
-(and (string= (process-name process) "dtach")
- process)))
+;;;###autoload
+(defun detached-eshell-external-command (orig-fun &rest args)
+  "Advice `eshell-external-command' to optionally use `detached'."
+  (let* ((detached-session-action detached-eshell-session-action)
+ (command (string-trim-right
+   (mapconcat #'identity
+  (flatten-list args)
+  " ")))
+ (session (detached-create-session command))
+ (command (detached--shell-command session)))
+(advice-remove #'eshell-external-command 
#'detached-eshell-external-command)
+(setq detached--buffer-session session)
+(setq detached-enabled nil)
+(apply orig-fun `(,(seq-first command) ,(seq-rest command)
 
  Commands
 
@@ -78,7 +77,7 @@ If prefix-argument directly DETACH from the session."
 (defun detached-eshell-attach-session (session)
   "Attach to SESSION."
   (interactive
-   (list (detached-eshell-select-session)))
+   (list (detached-eshell--select-session)))
   (when (detached-valid-session session)
 (if (eq 'active (detached--determine-session-state session))
 (cl-letf* ((detached-session-mode 'attach)
@@ -101,20 +100,21 @@ If prefix-argument directly DETACH from the session."
 
  Support functions
 
-;;;###autoload
-(defun detached-eshell-external-command (orig-fun &rest args)
-  "Advice `eshell-external-command' to optionally use `detached'."
-  (let* ((detached-session-action detached-eshell-session-action)
- (command (string-trim-right
-   (mapconcat #'identity
-  (flatten-list args)
-  " ")))
- (session (detached-create-session command))
- (command (detached--shell-command session)))
-(advice-remove #'eshell-external-command 
#'detached-eshell-external-command)
-(setq detached--buffer-session session)
-(setq detached-enabled nil)
-(apply orig-fun `(,(seq-first command) ,(seq-rest command)
+(defun detached-eshell--get-dtach-process ()
+  "Return `eshell' process if `detached' is running."
+  (when-let* ((process (and eshell-process-list (caar eshell-process-list
+(and (string= (process-name process) "dtach")
+ process)

[elpa] externals/org-modern 0611604e65: org-modern-keyword: Convert to lowercase before lookup

2022-08-21 Thread ELPA Syncer
branch: externals/org-modern
commit 0611604e65d69ffe51db83659c917063ec9d5cde
Author: Daniel Mendler 
Commit: Daniel Mendler 

org-modern-keyword: Convert to lowercase before lookup
---
 org-modern.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/org-modern.el b/org-modern.el
index f3b330b5ee..e95900041f 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -311,7 +311,7 @@ You can specify a font `:family'. The font families 
`Iosevka', `Hack' and
   "Prettify keywords according to `org-modern-keyword'."
   (let ((beg (match-beginning 0))
 (end (match-end 0))
-(rep (assoc (match-string 2) org-modern-keyword)))
+(rep (assoc (downcase (match-string 2)) org-modern-keyword)))
 (unless rep
   (setq rep (assq t org-modern-keyword) end (match-end 1)))
 (pcase (cdr rep)



[nongnu] elpa/dracula-theme updated (37b3979b91 -> fdf057f5e8)

2022-08-21 Thread ELPA Syncer
elpasync pushed a change to branch elpa/dracula-theme.

  from  37b3979b91 Support eldoc-box faces
   new  f47c453190 Support header-line
   new  b5154b9cbe Avoid duplicate declaration of header-line
   new  0b6b00bec1 Separate mini-modeline face from generic mode-line faces
   new  879908a48d Move mode-line faces in basic faces section
   new  fdf057f5e8 Merge branch 'feat/header-line'


Summary of changes:
 dracula-theme.el | 24 
 1 file changed, 12 insertions(+), 12 deletions(-)



[nongnu] elpa/dracula-theme f47c453190 1/5: Support header-line

2022-08-21 Thread ELPA Syncer
branch: elpa/dracula-theme
commit f47c453190a4f15d790bb945b0c6ba1446891e12
Author: Giap Tran 
Commit: Giap Tran 

Support header-line
---
 dracula-theme.el | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/dracula-theme.el b/dracula-theme.el
index d82877b629..defaec6700 100644
--- a/dracula-theme.el
+++ b/dracula-theme.el
@@ -561,6 +561,9 @@ read it before opening a new issue about your will.")
   (list :foreground dracula-comment :box dracula-bg)
 (list :foreground fg4 :box bg2)))
(mini-modeline-mode-line :inherit mode-line :height 0.1 :box 
nil)
+   ;; header-line
+   (header-line :inherit 'mode-line)
+   (header-line-highlight :inherit 'mode-line-highlight)
;; mu4e
(mu4e-unread-face :foreground ,dracula-pink :weight normal)
(mu4e-view-url-number-face :foreground ,dracula-purple)



[nongnu] elpa/dracula-theme 879908a48d 4/5: Move mode-line faces in basic faces section

2022-08-21 Thread ELPA Syncer
branch: elpa/dracula-theme
commit 879908a48db29f790ae7dd6676b668c0d4590d96
Author: Étienne Deparis 
Commit: Étienne Deparis 

Move mode-line faces in basic faces section
---
 dracula-theme.el | 21 ++---
 1 file changed, 10 insertions(+), 11 deletions(-)

diff --git a/dracula-theme.el b/dracula-theme.el
index 0a208f719f..e3c44b1943 100644
--- a/dracula-theme.el
+++ b/dracula-theme.el
@@ -124,6 +124,16 @@ read it before opening a new issue about your will.")
 ,@(if dracula-alternate-mode-line-and-minibuffer
   (list :weight 'normal :foreground dracula-fg)
 (list :weight 'bold :foreground dracula-pink)))
+   (mode-line :background ,dracula-current
+  :box ,dracula-current :inverse-video nil
+  ,@(if dracula-alternate-mode-line-and-minibuffer
+(list :foreground fg3)
+  (list :foreground dracula-fg)))
+   (mode-line-inactive
+:background ,dracula-bg :inverse-video nil
+,@(if dracula-alternate-mode-line-and-minibuffer
+  (list :foreground dracula-comment :box dracula-bg)
+(list :foreground fg4 :box bg2)))
(read-multiple-choice-face :inherit 
completions-first-difference)
(region :inherit match :extend t)
(shadow :foreground ,dracula-comment)
@@ -549,17 +559,6 @@ read it before opening a new issue about your will.")
(message-cited-text-3 :foreground ,dracula-comment)
(message-cited-text-4 :foreground ,fg2)
(message-mml :foreground ,dracula-green :weight normal)
-   ;; mode-line
-   (mode-line :background ,dracula-current
-  :box ,dracula-current :inverse-video nil
-  ,@(if dracula-alternate-mode-line-and-minibuffer
-(list :foreground fg3)
-  (list :foreground dracula-fg)))
-   (mode-line-inactive
-:background ,dracula-bg :inverse-video nil
-,@(if dracula-alternate-mode-line-and-minibuffer
-  (list :foreground dracula-comment :box dracula-bg)
-(list :foreground fg4 :box bg2)))
;; mini-modeline
(mini-modeline-mode-line :inherit mode-line :height 0.1 :box 
nil)
;; mu4e



[nongnu] elpa/dracula-theme 0b6b00bec1 3/5: Separate mini-modeline face from generic mode-line faces

2022-08-21 Thread ELPA Syncer
branch: elpa/dracula-theme
commit 0b6b00bec16ef7d5397c547d1a0060375318e4d5
Author: Étienne Deparis 
Commit: Étienne Deparis 

Separate mini-modeline face from generic mode-line faces
---
 dracula-theme.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/dracula-theme.el b/dracula-theme.el
index 0de997de4f..0a208f719f 100644
--- a/dracula-theme.el
+++ b/dracula-theme.el
@@ -560,6 +560,7 @@ read it before opening a new issue about your will.")
 ,@(if dracula-alternate-mode-line-and-minibuffer
   (list :foreground dracula-comment :box dracula-bg)
 (list :foreground fg4 :box bg2)))
+   ;; mini-modeline
(mini-modeline-mode-line :inherit mode-line :height 0.1 :box 
nil)
;; mu4e
(mu4e-unread-face :foreground ,dracula-pink :weight normal)



[nongnu] elpa/dracula-theme b5154b9cbe 2/5: Avoid duplicate declaration of header-line

2022-08-21 Thread ELPA Syncer
branch: elpa/dracula-theme
commit b5154b9cbe40ce1a477f6742115c6148f34face1
Author: Étienne Deparis 
Commit: Étienne Deparis 

Avoid duplicate declaration of header-line

Also remove header-line-highlight declaration as it is the same as
default value
---
 dracula-theme.el | 5 +
 1 file changed, 1 insertion(+), 4 deletions(-)

diff --git a/dracula-theme.el b/dracula-theme.el
index defaec6700..0de997de4f 100644
--- a/dracula-theme.el
+++ b/dracula-theme.el
@@ -106,7 +106,7 @@ read it before opening a new issue about your will.")
(error :foreground ,dracula-red)
(ffap :foreground ,fg4)
(fringe :background ,dracula-bg :foreground ,fg4)
-   (header-line :background ,dracula-bg)
+   (header-line :inherit 'mode-line)
(highlight :foreground ,fg3 :background ,bg3)
(hl-line :background ,dracula-current :extend t)
(info-quoted-name :foreground ,dracula-orange)
@@ -561,9 +561,6 @@ read it before opening a new issue about your will.")
   (list :foreground dracula-comment :box dracula-bg)
 (list :foreground fg4 :box bg2)))
(mini-modeline-mode-line :inherit mode-line :height 0.1 :box 
nil)
-   ;; header-line
-   (header-line :inherit 'mode-line)
-   (header-line-highlight :inherit 'mode-line-highlight)
;; mu4e
(mu4e-unread-face :foreground ,dracula-pink :weight normal)
(mu4e-view-url-number-face :foreground ,dracula-purple)



[nongnu] elpa/dracula-theme fdf057f5e8 5/5: Merge branch 'feat/header-line'

2022-08-21 Thread ELPA Syncer
branch: elpa/dracula-theme
commit fdf057f5e80037814098dc8bb6786c89a761
Merge: 37b3979b91 879908a48d
Author: Étienne Deparis 
Commit: Étienne Deparis 

Merge branch 'feat/header-line'
---
 dracula-theme.el | 24 
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/dracula-theme.el b/dracula-theme.el
index d82877b629..e3c44b1943 100644
--- a/dracula-theme.el
+++ b/dracula-theme.el
@@ -106,7 +106,7 @@ read it before opening a new issue about your will.")
(error :foreground ,dracula-red)
(ffap :foreground ,fg4)
(fringe :background ,dracula-bg :foreground ,fg4)
-   (header-line :background ,dracula-bg)
+   (header-line :inherit 'mode-line)
(highlight :foreground ,fg3 :background ,bg3)
(hl-line :background ,dracula-current :extend t)
(info-quoted-name :foreground ,dracula-orange)
@@ -124,6 +124,16 @@ read it before opening a new issue about your will.")
 ,@(if dracula-alternate-mode-line-and-minibuffer
   (list :weight 'normal :foreground dracula-fg)
 (list :weight 'bold :foreground dracula-pink)))
+   (mode-line :background ,dracula-current
+  :box ,dracula-current :inverse-video nil
+  ,@(if dracula-alternate-mode-line-and-minibuffer
+(list :foreground fg3)
+  (list :foreground dracula-fg)))
+   (mode-line-inactive
+:background ,dracula-bg :inverse-video nil
+,@(if dracula-alternate-mode-line-and-minibuffer
+  (list :foreground dracula-comment :box dracula-bg)
+(list :foreground fg4 :box bg2)))
(read-multiple-choice-face :inherit 
completions-first-difference)
(region :inherit match :extend t)
(shadow :foreground ,dracula-comment)
@@ -549,17 +559,7 @@ read it before opening a new issue about your will.")
(message-cited-text-3 :foreground ,dracula-comment)
(message-cited-text-4 :foreground ,fg2)
(message-mml :foreground ,dracula-green :weight normal)
-   ;; mode-line
-   (mode-line :background ,dracula-current
-  :box ,dracula-current :inverse-video nil
-  ,@(if dracula-alternate-mode-line-and-minibuffer
-(list :foreground fg3)
-  (list :foreground dracula-fg)))
-   (mode-line-inactive
-:background ,dracula-bg :inverse-video nil
-,@(if dracula-alternate-mode-line-and-minibuffer
-  (list :foreground dracula-comment :box dracula-bg)
-(list :foreground fg4 :box bg2)))
+   ;; mini-modeline
(mini-modeline-mode-line :inherit mode-line :height 0.1 :box 
nil)
;; mu4e
(mu4e-unread-face :foreground ,dracula-pink :weight normal)



[nongnu] elpa/geiser ecfbef1c77: Version bump

2022-08-21 Thread ELPA Syncer
branch: elpa/geiser
commit ecfbef1c771f3a5c34f46fb2b387b9669c661d2f
Author: jao 
Commit: jao 

Version bump
---
 elisp/geiser.el | 2 +-
 news.org| 5 -
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/elisp/geiser.el b/elisp/geiser.el
index 4f4df8fb58..f9a246cfd5 100644
--- a/elisp/geiser.el
+++ b/elisp/geiser.el
@@ -13,7 +13,7 @@
 ;; Homepage: https://gitlab.com/emacs-geiser/
 ;; Package-Requires: ((emacs "25.1") (transient "0.3") (project "0.8.1"))
 ;; SPDX-License-Identifier: BSD-3-Clause
-;; Version: 0.25
+;; Version: 0.25.1
 
 ;;; Commentary:
 
diff --git a/news.org b/news.org
index d5d25d3de1..1400ae34e8 100644
--- a/news.org
+++ b/news.org
@@ -1,5 +1,8 @@
-* Version 0.25 (August 2022)
+* Version 0.25.1 (August 2022)
+
+  - Fixes for compilation errors.
 
+* Version 0.25 (August 2022)
   - New customizable variables: geiser-repl-startup-hook and
 geiser-repl-startup-forms.
   - Fix: support for .dir-locals.el in REPL buffers.



[elpa] externals/org-modern 713b682bbe: org-modern-keyword: Expand docstring

2022-08-21 Thread ELPA Syncer
branch: externals/org-modern
commit 713b682bbe768d9a09efa10926d5c9568b13983b
Author: Daniel Mendler 
Commit: Daniel Mendler 

org-modern-keyword: Expand docstring
---
 org-modern.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/org-modern.el b/org-modern.el
index e95900041f..3aece3d9e1 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -168,6 +168,7 @@ and faces in the cdr. Example:
 
 (defcustom org-modern-keyword t
   "Prettify keywords like #+title.
+If set to t, the prefix #+ will be hidden.
 If set to a string, e.g., \"‣\", the string is used as replacement for #+.
 If set to an alist of keywords and strings, the associated string will be
 used as replacement for \"#+keyword:\", with t the default key."



[nongnu] elpa/evil 9c6b5f188f: Enable moving from point-min for next flyspell error

2022-08-21 Thread ELPA Syncer
branch: elpa/evil
commit 9c6b5f188ffd5025a234e1185baf630700b6ffd7
Author: Tom Dalziel 
Commit: Tom Dalziel <33435574+tomd...@users.noreply.github.com>

Enable moving from point-min for next flyspell error

Fixes #1133
---
 evil-commands.el |  8 +++-
 evil-tests.el| 12 +++-
 2 files changed, 14 insertions(+), 6 deletions(-)

diff --git a/evil-commands.el b/evil-commands.el
index 4e6109abef..9ae1c2062f 100644
--- a/evil-commands.el
+++ b/evil-commands.el
@@ -618,11 +618,9 @@ and jump to the corresponding one."
   limit
   ov)
   (when (evil--flyspell-overlay-at pos forwardp)
-(if (/= pos (point-min))
-(setq pos (save-excursion (goto-char pos)
-  (forward-word (if forwardp 1 -1))
-  (point)))
-  (setq pos (point-max
+(setq pos (save-excursion (goto-char pos)
+  (forward-word (if forwardp 1 -1))
+  (point
   (setq limit (if forwardp (point-max) (point-min))
 ov (evil--flyspell-overlay-after pos limit forwardp))
   (if ov
diff --git a/evil-tests.el b/evil-tests.el
index f9bc6ec2ec..91492f049c 100644
--- a/evil-tests.el
+++ b/evil-tests.el
@@ -5850,7 +5850,17 @@ Line 2"))
   ("[s")
   "I cannt tpye for [l]yfe"
   ("[s")
-  "I cannt [t]pye for lyfe"))
+  "I cannt [t]pye for lyfe")
+(evil-test-buffer
+  "[o]en otw thre"
+  (flyspell-mode)
+  (flyspell-buffer)
+  ("]s")
+  "oen [o]tw thre"
+  ("]s")
+  "oen otw [t]hre"
+  ("]s")
+  "[o]en otw thre"))
   (ert-info ("With count")
 (evil-test-buffer
   "[I] cannt tpye for lyfe"



[nongnu] elpa/git-commit 420b15b869 1/3: magit-remote-head: New function

2022-08-21 Thread ELPA Syncer
branch: elpa/git-commit
commit 420b15b869c617e6bcba084a35e2213e049270fc
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

magit-remote-head: New function
---
 lisp/magit-git.el | 8 
 1 file changed, 8 insertions(+)

diff --git a/lisp/magit-git.el b/lisp/magit-git.el
index 297a63ea22..07095caec9 100644
--- a/lisp/magit-git.el
+++ b/lisp/magit-git.el
@@ -1972,6 +1972,14 @@ SORTBY is a key or list of keys to pass to the `--sort' 
flag of
(substring it 41))
   (magit-git-lines "ls-remote" remote)))
 
+(defun magit-remote-head (remote)
+  (and-let* ((line (cl-find-if
+(lambda (line)
+  (string-match
+   "\\`ref: refs/heads/\\([^\s\t]+\\)[\s\t]HEAD\\'" line))
+(magit-git-lines "ls-remote" "--symref" remote "HEAD"
+(match-string 1 line)))
+
 (defun magit-list-modified-modules ()
   (--keep (and (string-match "\\`\\+\\([^ ]+\\) \\(.+\\) (.+)\\'" it)
(match-string 2 it))



[nongnu] elpa/git-commit 712be4632b 3/3: ci: Clone compat from Emacsmirror again

2022-08-21 Thread ELPA Syncer
branch: elpa/git-commit
commit 712be4632b0ddc7899ca90db8f9be20d90b4326f
Author: Kyle Meyer 
Commit: Kyle Meyer 

ci: Clone compat from Emacsmirror again

This reverts commit 5e1e6d31 (ci: Clone compat from phikal/compat.el,
2022-08-20).  emacsmirror/compat is now up to date:

https://github.com/magit/magit/commit/5e1e6d317b2ea27e734b73be6f1904f7578267fd#commitcomment-81753297
---
 .github/workflows/test.yml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/.github/workflows/test.yml b/.github/workflows/test.yml
index 308ab043c0..44ff2563d6 100644
--- a/.github/workflows/test.yml
+++ b/.github/workflows/test.yml
@@ -29,7 +29,7 @@ jobs:
 - name: Checkout compat
   uses: actions/checkout@v2
   with:
-repository: phikal/compat.el
+repository: emacsmirror/compat
 path: compat
 - name: Checkout dash
   uses: actions/checkout@v2



[nongnu] elpa/git-commit updated (ffbbfa1e2d -> 712be4632b)

2022-08-21 Thread ELPA Syncer
elpasync pushed a change to branch elpa/git-commit.

  from  ffbbfa1e2d Allow magit-clone-url-format to be more dynamic
   new  420b15b869 magit-remote-head: New function
   new  5f5e065e1e magit-list-worktrees: Always include path in returned 
value
   new  712be4632b ci: Clone compat from Emacsmirror again


Summary of changes:
 .github/workflows/test.yml |  2 +-
 lisp/magit-git.el  | 12 +++-
 2 files changed, 12 insertions(+), 2 deletions(-)



[nongnu] elpa/git-commit 5f5e065e1e 2/3: magit-list-worktrees: Always include path in returned value

2022-08-21 Thread ELPA Syncer
branch: elpa/git-commit
commit 5f5e065e1e8d591fda25f95fcd466fa6b4b82f62
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

magit-list-worktrees: Always include path in returned value

`magit-insert-worktree' fails otherwise, preventing the status
buffer from being fully populated.
---
 lisp/magit-git.el | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/magit-git.el b/lisp/magit-git.el
index 07095caec9..0cc8c09390 100644
--- a/lisp/magit-git.el
+++ b/lisp/magit-git.el
@@ -2013,7 +2013,9 @@ PATH has to be relative to the super-repository."
;; worktree, then "git worktree" returns the git
;; directory instead of the worktree, which isn't
;; what it is supposed to do and not what we want.
-   (setq path (magit-toplevel path))
+   ;; However, if the worktree has been removed, then
+   ;; we want to return it anway; instead of nil.
+   (setq path (or (magit-toplevel path) path))
(setq worktree (list path nil nil nil))
(push worktree worktrees)))
 ((string-equal line "bare")



[nongnu] elpa/magit updated (ffbbfa1e2d -> 712be4632b)

2022-08-21 Thread ELPA Syncer
elpasync pushed a change to branch elpa/magit.

  from  ffbbfa1e2d Allow magit-clone-url-format to be more dynamic
  adds  420b15b869 magit-remote-head: New function
  adds  5f5e065e1e magit-list-worktrees: Always include path in returned 
value
  adds  712be4632b ci: Clone compat from Emacsmirror again

No new revisions were added by this update.

Summary of changes:
 .github/workflows/test.yml |  2 +-
 lisp/magit-git.el  | 12 +++-
 2 files changed, 12 insertions(+), 2 deletions(-)



[nongnu] elpa/magit-section updated (ffbbfa1e2d -> 712be4632b)

2022-08-21 Thread ELPA Syncer
elpasync pushed a change to branch elpa/magit-section.

  from  ffbbfa1e2d Allow magit-clone-url-format to be more dynamic
  adds  420b15b869 magit-remote-head: New function
  adds  5f5e065e1e magit-list-worktrees: Always include path in returned 
value
  adds  712be4632b ci: Clone compat from Emacsmirror again

No new revisions were added by this update.

Summary of changes:
 .github/workflows/test.yml |  2 +-
 lisp/magit-git.el  | 12 +++-
 2 files changed, 12 insertions(+), 2 deletions(-)



[elpa] externals/org-modern 23347906b8: org-modern-agenda: Respect customization variables

2022-08-21 Thread ELPA Syncer
branch: externals/org-modern
commit 23347906b826656c5054b8e35714a1c3d74bdcc4
Author: Daniel Mendler 
Commit: Daniel Mendler 

org-modern-agenda: Respect customization variables
---
 org-modern.el | 44 ++--
 1 file changed, 22 insertions(+), 22 deletions(-)

diff --git a/org-modern.el b/org-modern.el
index 3aece3d9e1..de28061e98 100644
--- a/org-modern.el
+++ b/org-modern.el
@@ -653,28 +653,28 @@ You can specify a font `:family'. The font families 
`Iosevka', `Hack' and
   "Finalize Org agenda highlighting."
   (save-excursion
 (save-match-data
-  ;; Todo keywords
-  (goto-char (point-min))
-  (let ((re (format ": +%s "
-(regexp-opt
- (append org-todo-keywords-for-agenda
- org-done-keywords-for-agenda) t)))
-(org-done-keywords org-done-keywords-for-agenda))
-(while (re-search-forward re nil 'noerror)
-  (org-modern--todo)))
-  ;; Tags
-  (goto-char (point-min))
-  (let ((re (concat "\\( \\)\\(:\\(?:" org-tag-re ":\\)+\\)[ \t]*$")))
-(while (re-search-forward re nil 'noerror)
-  (org-modern--tag)))
-  ;; Priorities
-  (goto-char (point-min))
-  (while (re-search-forward "\\(\\[\\)#.\\(\\]\\)" nil 'noerror)
-;; For some reason the org-agenda-fontify-priorities adds overlays?!
-(when-let (ov (overlays-at (match-beginning 0))) (overlay-put (car ov) 
'face nil))
-(put-text-property (match-beginning 0) (match-end 0) 'face 
'org-modern-priority)
-(put-text-property (match-beginning 1) (match-end 1) 'display " ")
-(put-text-property (match-beginning 2) (match-end 2) 'display " ")
+  (when org-modern-todo
+(goto-char (point-min))
+(let ((re (format ": +%s "
+  (regexp-opt
+   (append org-todo-keywords-for-agenda
+   org-done-keywords-for-agenda) t)))
+  (org-done-keywords org-done-keywords-for-agenda))
+  (while (re-search-forward re nil 'noerror)
+(org-modern--todo
+  (when org-modern-tag
+(goto-char (point-min))
+(let ((re (concat "\\( \\)\\(:\\(?:" org-tag-re ":\\)+\\)[ \t]*$")))
+  (while (re-search-forward re nil 'noerror)
+(org-modern--tag
+  (when org-modern-priority
+(goto-char (point-min))
+(while (re-search-forward "\\(\\[\\)#.\\(\\]\\)" nil 'noerror)
+  ;; For some reason the org-agenda-fontify-priorities adds overlays?!
+  (when-let (ov (overlays-at (match-beginning 0))) (overlay-put (car 
ov) 'face nil))
+  (put-text-property (match-beginning 0) (match-end 0) 'face 
'org-modern-priority)
+  (put-text-property (match-beginning 1) (match-end 1) 'display " ")
+  (put-text-property (match-beginning 2) (match-end 2) 'display " 
"))
 
 ;;;###autoload
 (define-globalized-minor-mode global-org-modern-mode



[nongnu] elpa/evil a58e44f6d6: Goto last window when C-w w arg is > number of windows

2022-08-21 Thread ELPA Syncer
branch: elpa/evil
commit a58e44f6d67c881a146e233b0689edf329be2e70
Author: Tom Dalziel 
Commit: Tom Dalziel <33435574+tomd...@users.noreply.github.com>

Goto last window when C-w w arg is > number of windows
---
 evil-commands.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/evil-commands.el b/evil-commands.el
index 9ae1c2062f..0c6945d42c 100644
--- a/evil-commands.el
+++ b/evil-commands.el
@@ -4411,7 +4411,7 @@ top-left."
   (if (not count)
   (select-window (next-window))
 (evil-window-top-left)
-(other-window (1- count
+(other-window (1- (min count (length (window-list)))
 
 (evil-define-command evil-window-prev (count)
   "Move the cursor to the previous window in the cyclic order.
@@ -4422,7 +4422,7 @@ top-left."
   (if (not count)
   (select-window (previous-window))
 (evil-window-top-left)
-(other-window (1- count
+(other-window (1- (min count (length (window-list)))
 
 (evil-define-command evil-window-new (count file)
   "Splits the current window horizontally



[nongnu] elpa/evil df848372a9 2/2: Refactor evil-window-exchange

2022-08-21 Thread ELPA Syncer
branch: elpa/evil
commit df848372a99bc481c163dcd9292c727ee94ca184
Author: Tom Dalziel 
Commit: Tom Dalziel <33435574+tomd...@users.noreply.github.com>

Refactor evil-window-exchange
---
 evil-commands.el | 24 +++-
 1 file changed, 11 insertions(+), 13 deletions(-)

diff --git a/evil-commands.el b/evil-commands.el
index 6c5da915c7..ef35e86562 100644
--- a/evil-commands.el
+++ b/evil-commands.el
@@ -4560,20 +4560,18 @@ If ARG is empty, maximize the current window height."
 With COUNT: Exchange current window with COUNTth window."
   :repeat nil
   (interactive "")
-  (let ((this-buffer (window-buffer)))
+  (let ((this-buffer (window-buffer))
+other-buffer other-window)
 (if (not count)
-(let ((next-buffer (window-buffer (next-window
-  (switch-to-buffer next-buffer nil t)
-  (select-window (next-window))
-  (switch-to-buffer this-buffer nil t))
-  (let (other-window other-buffer)
-(save-window-excursion
-  (evil-window-next count)
-  (setq other-window (selected-window)
-other-buffer (window-buffer)))
-(switch-to-buffer other-buffer nil t)
-(select-window other-window)
-(switch-to-buffer this-buffer nil t)
+(setq other-buffer (window-buffer (next-window))
+  other-window (next-window))
+  (save-window-excursion
+(evil-window-next count)
+(setq other-buffer (window-buffer)
+  other-window (selected-window
+(switch-to-buffer other-buffer nil t)
+(select-window other-window)
+(switch-to-buffer this-buffer nil t)))
 
 (evil-define-command evil-window-move-very-top ()
   "Closes the current window, splits the upper-left one horizontally



[nongnu] elpa/evil updated (a58e44f6d6 -> df848372a9)

2022-08-21 Thread ELPA Syncer
elpasync pushed a change to branch elpa/evil.

  from  a58e44f6d6 Goto last window when C-w w arg is > number of windows
   new  a941e89a8c Add evil-window-exchange
   new  df848372a9 Refactor evil-window-exchange


Summary of changes:
 evil-commands.el | 18 ++
 evil-maps.el |  2 ++
 2 files changed, 20 insertions(+)



[nongnu] elpa/evil a941e89a8c 1/2: Add evil-window-exchange

2022-08-21 Thread ELPA Syncer
branch: elpa/evil
commit a941e89a8cdd743eeccc0eabb5b833f51bf51cd1
Author: Tom Dalziel 
Commit: Tom Dalziel <33435574+tomd...@users.noreply.github.com>

Add evil-window-exchange

Fixes #1385
---
 evil-commands.el | 20 
 evil-maps.el |  2 ++
 2 files changed, 22 insertions(+)

diff --git a/evil-commands.el b/evil-commands.el
index 0c6945d42c..6c5da915c7 100644
--- a/evil-commands.el
+++ b/evil-commands.el
@@ -4555,6 +4555,26 @@ If ARG is empty, maximize the current window height."
   slist (cdr slist)))
   (select-window (cadr (window-list))
 
+(evil-define-command evil-window-exchange (count)
+  "Without COUNT: exchange current window with next one.
+With COUNT: Exchange current window with COUNTth window."
+  :repeat nil
+  (interactive "")
+  (let ((this-buffer (window-buffer)))
+(if (not count)
+(let ((next-buffer (window-buffer (next-window
+  (switch-to-buffer next-buffer nil t)
+  (select-window (next-window))
+  (switch-to-buffer this-buffer nil t))
+  (let (other-window other-buffer)
+(save-window-excursion
+  (evil-window-next count)
+  (setq other-window (selected-window)
+other-buffer (window-buffer)))
+(switch-to-buffer other-buffer nil t)
+(select-window other-window)
+(switch-to-buffer this-buffer nil t)
+
 (evil-define-command evil-window-move-very-top ()
   "Closes the current window, splits the upper-left one horizontally
 and redisplays the current buffer there."
diff --git a/evil-maps.el b/evil-maps.el
index 63f52f9eb6..3afb46da97 100644
--- a/evil-maps.el
+++ b/evil-maps.el
@@ -142,6 +142,7 @@
 (define-key evil-window-map "v" 'evil-window-vsplit)
 (define-key evil-window-map "w" 'evil-window-next)
 (define-key evil-window-map "W" 'evil-window-prev)
+(define-key evil-window-map "x" 'evil-window-exchange)
 (define-key evil-window-map "+" 'evil-window-increase-height)
 (define-key evil-window-map "-" 'evil-window-decrease-height)
 (define-key evil-window-map ":" 'evil-ex)
@@ -177,6 +178,7 @@
 (define-key evil-window-map "\C-v" 'evil-window-vsplit)
 (define-key evil-window-map "\C-w" 'evil-window-next)
 (define-key evil-window-map (kbd "C-S-W") 'evil-window-prev)
+(define-key evil-window-map "\C-x" 'evil-window-exchange)
 (define-key evil-window-map "\C-_" 'evil-window-set-height)
 (define-key evil-window-map [C-down] 'evil-window-down)
 (define-key evil-window-map [C-up] 'evil-window-up)



[elpa] externals/ef-themes 0363d4ae3c: Make org-modern-statistics inherit org-modern-label

2022-08-21 Thread ELPA Syncer
branch: externals/ef-themes
commit 0363d4ae3c5c75c722b3de363af5129f36de88f0
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Make org-modern-statistics inherit org-modern-label

This is to ensure that the user option 'org-modern-label-border' works
as intended.
---
 ef-themes.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ef-themes.el b/ef-themes.el
index 428e395dae..ee12959810 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -1179,7 +1179,7 @@ Helper function for `ef-themes-preview-colors'."
 `(org-modern-done ((,c :inherit org-modern-label :background ,bg-info 
:foreground ,info)))
 `(org-modern-label ((,c :height 0.9 :width condensed :weight regular 
:underline nil)))
 `(org-modern-priority ((,c :inherit (org-modern-label org-priority) 
:background ,bg-dim)))
-`(org-modern-statistics ((,c :background ,bg-dim)))
+`(org-modern-statistics ((,c :inherit org-modern-label :background 
,bg-dim)))
 `(org-modern-tag ((,c :inherit (org-modern-label org-tag) :background 
,bg-dim)))
 `(org-modern-time-active ((,c :inherit org-modern-label :background 
,bg-active :foreground ,fg-intense)))
 `(org-modern-time-inactive ((,c :inherit (org-modern-label 
org-modern-date-inactive



[elpa] externals/org 8d93f9b6b4: org-manual.org: Update links to MathJax docs

2022-08-21 Thread ELPA Syncer
branch: externals/org
commit 8d93f9b6b4e15427d62b84013ee726a0e6760ad9
Author: Max Nikulin 
Commit: Ihor Radchenko 

org-manual.org: Update links to MathJax docs

* doc/org-manual.org (Footnotes): Fix links to particular sections in
MathJax manual.

Scheme is not changed to https: since the site prefers http:

curl -I https://docs.mathjax.org/
HTTP/2 302
date: Sun, 03 Oct 2021 16:04:15 GMT
location: http://docs.mathjax.org/en/latest/
---
 doc/org-manual.org | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/doc/org-manual.org b/doc/org-manual.org
index 40bfc7b7b8..56ee87ca1d 100644
--- a/doc/org-manual.org
+++ b/doc/org-manual.org
@@ -22479,9 +22479,9 @@ semantic relevance.
 
 [fn:130] Please note that exported formulas are part of an HTML
 document, and that signs such as =<=, =>=, or =&= have special
-meanings.  See 
[[http://docs.mathjax.org/en/latest/tex.html#tex-and-latex-in-html-documents][MathJax
 TeX and LaTeX support]].
+meanings.  See 
[[http://docs.mathjax.org/en/latest/input/tex/html.html#tex-and-latex-in-html-documents][MathJax
 TeX and LaTeX in HTML documents]].
 
-[fn:131] See [[http://docs.mathjax.org/en/latest/tex.html#tex-extensions][TeX 
and LaTeX extensions]] in the [[http://docs.mathjax.org][MathJax manual]] to 
learn
+[fn:131] See 
[[http://docs.mathjax.org/en/latest/input/tex/extensions.html#tex-and-latex-extensions][TeX
 and LaTeX extensions]] in the [[http://docs.mathjax.org][MathJax manual]] to 
learn
 about extensions.
 
 [fn:132] If the classes on TODO keywords and tags lead to conflicts,



[nongnu] elpa/autothemer 026f074b10: fix package header Formatting

2022-08-21 Thread ELPA Syncer
branch: elpa/autothemer
commit 026f074b10a35ee1e0e8e39c2dcb78ebfcb04619
Author: jasonm23 
Commit: jasonm23 

fix package header Formatting
---
 autothemer.el | 14 --
 1 file changed, 8 insertions(+), 6 deletions(-)

diff --git a/autothemer.el b/autothemer.el
index ea5f36f57d..972c50b56e 100644
--- a/autothemer.el
+++ b/autothemer.el
@@ -1,14 +1,16 @@
-;;; autothemer.el --- Conveniently define themes. -*- lexical-binding: t -*-
+;;; autothemer.el --- Conveniently define themes -*- lexical-binding: t -*-
 ;;
-;;; Author: Sebastian Sturm
+;; Author: Sebastian Sturm
 ;;
 ;; Copyright 2015-2022 Sebastian Sturm
 ;;
-;;; Maintainer: Jason Milkins 
+;; Maintainer: Jason Milkins 
 ;;
-;;; URL: https://github.com/jasonm23/autothemer
-;;; Version: 0.2.6
-;;; Package-Requires: ((dash "2.10.0") (emacs "24") (cl-lib "0.5"))
+;; URL: https://github.com/jasonm23/autothemer
+;; Version: 0.2.6
+;; Package-Requires: ((dash "2.10.0") (emacs "24") (cl-lib "0.5"))
+
+;;; License:
 
 ;; 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



[elpa] externals/ef-themes updated (0363d4ae3c -> a16c745e7e)

2022-08-21 Thread ELPA Syncer
elpasync pushed a change to branch externals/ef-themes.

  from  0363d4ae3c Make org-modern-statistics inherit org-modern-label
   new  26dfd148eb ef-autumn: tweak green-cooler
   new  a16c745e7e ef-autumn: tweak yellow, yellow-warmer


Summary of changes:
 contrast-ratios.org | 6 +++---
 ef-autumn-theme.el  | 6 +++---
 2 files changed, 6 insertions(+), 6 deletions(-)



[elpa] externals/ef-themes 26dfd148eb 1/2: ef-autumn: tweak green-cooler

2022-08-21 Thread ELPA Syncer
branch: externals/ef-themes
commit 26dfd148eb871b2cba9d93bff5f259b6ba27e26b
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

ef-autumn: tweak green-cooler

Tone down its saturation so that it does not "pop" out so much.
---
 contrast-ratios.org | 2 +-
 ef-autumn-theme.el  | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/contrast-ratios.org b/contrast-ratios.org
index e16f9ff85b..48e9d361c7 100644
--- a/contrast-ratios.org
+++ b/contrast-ratios.org
@@ -49,7 +49,7 @@ C1 and C2 are color values written in hexadecimal RGB."
 | red-faint  | #d08f72 |7.23 |6.39 |4.75 |6.97 |
 | green  | #2fa526 |6.02 |5.31 |3.95 |5.79 |
 | green-warmer   | #64aa0f |6.72 |5.94 |4.41 |6.47 |
-| green-cooler   | #00b672 |7.31 |6.46 |4.80 |7.04 |
+| green-cooler   | #00b066 |6.82 |6.02 |4.47 |6.57 |
 | green-faint| #519068 |5.10 |4.51 |3.35 |4.91 |
 | yellow | #c48502 |6.17 |5.45 |4.05 |5.95 |
 | yellow-warmer  | #e0832f |6.87 |6.07 |4.51 |6.62 |
diff --git a/ef-autumn-theme.el b/ef-autumn-theme.el
index 875e3f98a1..2aee53059f 100644
--- a/ef-autumn-theme.el
+++ b/ef-autumn-theme.el
@@ -58,7 +58,7 @@
   (red-faint   "#d08f72")
   (green   "#2fa526")
   (green-warmer"#64aa0f")
-  (green-cooler"#00b672")
+  (green-cooler"#00b066")
   (green-faint "#519068")
   (yellow  "#c48502")
   (yellow-warmer   "#e0832f")



[elpa] externals/ef-themes a16c745e7e 2/2: ef-autumn: tweak yellow, yellow-warmer

2022-08-21 Thread ELPA Syncer
branch: externals/ef-themes
commit a16c745e7eae0f5a5ce3150bd287102ca6967f59
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

ef-autumn: tweak yellow, yellow-warmer

Make them more distinct from each other, as their names imply.  Also
tone down the saturation of yellow-warmer so that it does not "pop" out
so much (same idea as with commit 26dfd14).
---
 contrast-ratios.org | 4 ++--
 ef-autumn-theme.el  | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/contrast-ratios.org b/contrast-ratios.org
index 48e9d361c7..379ba66288 100644
--- a/contrast-ratios.org
+++ b/contrast-ratios.org
@@ -51,8 +51,8 @@ C1 and C2 are color values written in hexadecimal RGB."
 | green-warmer   | #64aa0f |6.72 |5.94 |4.41 |6.47 |
 | green-cooler   | #00b066 |6.82 |6.02 |4.47 |6.57 |
 | green-faint| #519068 |5.10 |4.51 |3.35 |4.91 |
-| yellow | #c48502 |6.17 |5.45 |4.05 |5.95 |
-| yellow-warmer  | #e0832f |6.87 |6.07 |4.51 |6.62 |
+| yellow | #c48702 |6.28 |5.54 |4.12 |6.04 |
+| yellow-warmer  | #d0730f |5.66 |5.00 |3.71 |5.45 |
 | yellow-cooler  | #df8f6f |7.64 |6.75 |5.02 |7.36 |
 | yellow-faint   | #cf9f7f |8.21 |7.26 |5.39 |7.91 |
 | blue   | #379cf6 |6.68 |5.90 |4.38 |6.43 |
diff --git a/ef-autumn-theme.el b/ef-autumn-theme.el
index 2aee53059f..d228df8bea 100644
--- a/ef-autumn-theme.el
+++ b/ef-autumn-theme.el
@@ -60,8 +60,8 @@
   (green-warmer"#64aa0f")
   (green-cooler"#00b066")
   (green-faint "#519068")
-  (yellow  "#c48502")
-  (yellow-warmer   "#e0832f")
+  (yellow  "#c48702")
+  (yellow-warmer   "#d0730f")
   (yellow-cooler   "#df8f6f")
   (yellow-faint"#cf9f7f")
   (blue"#379cf6")



[elpa] externals/ef-themes 92724735e8: Add ef-themes-mixed-fonts user option

2022-08-21 Thread ELPA Syncer
branch: externals/ef-themes
commit 92724735e8d7c23e5675e4725867814786497f82
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Add ef-themes-mixed-fonts user option

My original plan was to not implement such an option and instead direct
users to other packages such as 'mixed-pitch'.  However, doing this at
the theme level feels more natural and gives us greater control over
what actually needs to be rendered in 'fixed-pitch'.

Furthermore, adding such an option does not really make the themes
harder to maintain as it does not affect colour combinations.
---
 README.org   | 31 
 ef-themes.el | 66 +++-
 2 files changed, 78 insertions(+), 19 deletions(-)

diff --git a/README.org b/README.org
index 952babff1d..9111a9ca4f 100644
--- a/README.org
+++ b/README.org
@@ -207,6 +207,37 @@ command.
 This is in addition to the other ways of loading a theme, either with
 minibuffer completion or at random 
([[#h:58345e8c-2bec-459c-872c-a85a29e9fe97][Commands to load an Ef theme]]).
 
+** Enable mixed fonts
+:PROPERTIES:
+:CUSTOM_ID: h:621d3bb9-5967-4f97-b253-7470bba9168c
+:END:
+
+[ Part of {{{development-version}}} ]
+
+#+vindex: ef-themes-mixed-fonts
+The user option ~ef-themes-mixed-fonts~ controls whether strictly
+spacing-sensitive constructs inherit from ~fixed-pitch~ (a monospaced
+font family).
+
+By default (a nil value for this user option) no face inherits from
+~fixed-pitch~: they all use the default font family, regardless of
+whether it is monospaced or not.
+
+When ~ef-themes-mixed-fonts~ is set to a non-nil value, faces such as
+Org tables, inline code, code blocks, and the like, are rendered in a
+monospaced font at all times.  The user can thus set their default font
+family to a proportionately spaced font without worrying about breaking
+the alignment of relevant elements, or if they simply prefer the
+aesthetics of mixed mono and proportionately spaced font families.
+
+A temporary switch to a proportionately spaced font (known in Emacs as
+~variable-pitch~) can be enabled in the current buffer with the
+activation of the built-in ~variable-pitch-mode~.
+
+To get consistent typography, the user may need to edit the font family
+of the ~fixed-pitch~ face.  The =fontaine= package on GNU ELPA (by
+Protesilaos) can be helpful in that regard.
+
 ** Option for headings
 :PROPERTIES:
 :CUSTOM_ID: h:a7a02817-e324-43e9-a7d8-fde024530af6
diff --git a/ef-themes.el b/ef-themes.el
index ee12959810..edfb91e1a9 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -209,8 +209,30 @@ will retain the original aesthetic for that level.  For 
example:
   :value-type ,ef-themes--headings-choice)
   :link '(info-link "(ef-themes) Option for headings"))
 
+(defcustom ef-themes-mixed-fonts nil
+  "Non-nil to enable inheritance from `fixed-pitch' in some faces.
+
+This is done to allow spacing-sensitive constructs, such as Org
+tables and code blocks, to remain monospaced when users opt for a
+proportionately spaced font as their default or when they use
+something like the command `variable-pitch-mode'.
+
+Users may need to explicitly configure the font family of
+`fixed-pitch' in order to get a consistent experience with their
+typography (also check the `fontaine' package on GNU ELPA (by
+Protesilaos))."
+  :group 'ef-themes
+  :package-version '(ef-themes . "0.4.0")
+  :type 'boolean
+  :link '(info-link "(ef-themes) Enable mixed fonts"))
+
 ;;; Helpers for user options
 
+(defun ef-themes--fixed-pitch ()
+  "Conditional application of `fixed-pitch' inheritance."
+  (when ef-themes-mixed-fonts
+(list :inherit 'fixed-pitch)))
+
 (defun ef-themes--key-cdr (key alist)
   "Get cdr of KEY in ALIST."
   (cdr (assoc key alist)))
@@ -455,9 +477,15 @@ Helper function for `ef-themes-preview-colors'."
   :package-version '(ef-themes . "0.3.0")
   :group 'ef-themes-faces)
 
+(defface ef-themes-fixed-pitch nil
+  "Face for `fixed-pitch' if `ef-themes-mixed-fonts' is non-nil."
+  :package-version '(ef-themes . "0.4.0")
+  :group 'ef-themes-faces)
+
 (defconst ef-themes-faces
   '(
  internal faces
+`(ef-themes-fixed-pitch ((,c ,@(ef-themes--fixed-pitch
 `(ef-themes-heading-0 ((,c ,@(ef-themes--heading 0) :foreground 
,rainbow-0)))
 `(ef-themes-heading-1 ((,c ,@(ef-themes--heading 1) :foreground 
,rainbow-1)))
 `(ef-themes-heading-2 ((,c ,@(ef-themes--heading 2) :foreground 
,rainbow-2)))
@@ -467,7 +495,7 @@ Helper function for `ef-themes-preview-colors'."
 `(ef-themes-heading-6 ((,c ,@(ef-themes--heading 6) :foreground 
,rainbow-6)))
 `(ef-themes-heading-7 ((,c ,@(ef-themes--heading 7) :foreground 
,rainbow-7)))
 `(ef-themes-heading-8 ((,c ,@(ef-themes--heading 8) :foreground 
,rainbow-8)))
-`(ef-themes-key-binding ((,c :inherit bold :foreground ,keybind)))
+`(ef-themes-key-binding ((,c :inherit (bold ef-themes-fixed-pitch) 
:foreground ,keybind)))
  all

[elpa] externals/ef-themes updated (92724735e8 -> 3105d096d4)

2022-08-21 Thread ELPA Syncer
elpasync pushed a change to branch externals/ef-themes.

  from  92724735e8 Add ef-themes-mixed-fonts user option
   new  3e3c54b3e4 Add ef-themes-variable-pitch-ui user option
   new  00de28be21 Update sample configuration
   new  d0f1b189df Tweak value of tab-line-close-highlight foreground
   new  3105d096d4 Stop using :style flat-button for Emacs 27 compat


Summary of changes:
 README.org   | 30 ++
 ef-themes.el | 48 
 2 files changed, 66 insertions(+), 12 deletions(-)



[elpa] externals/ef-themes 3e3c54b3e4 1/4: Add ef-themes-variable-pitch-ui user option

2022-08-21 Thread ELPA Syncer
branch: externals/ef-themes
commit 3e3c54b3e4d6f45e6babde8ff976dd27520a59df
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Add ef-themes-variable-pitch-ui user option

This is the same idea as with commit 9272473, though here it is even
more clear that it falls within the remit of the theme to control those
elements.
---
 README.org   | 26 ++
 ef-themes.el | 34 +-
 2 files changed, 55 insertions(+), 5 deletions(-)

diff --git a/README.org b/README.org
index 9111a9ca4f..1b80670a72 100644
--- a/README.org
+++ b/README.org
@@ -238,6 +238,32 @@ To get consistent typography, the user may need to edit 
the font family
 of the ~fixed-pitch~ face.  The =fontaine= package on GNU ELPA (by
 Protesilaos) can be helpful in that regard.
 
+** UI typeface
+:PROPERTIES:
+:CUSTOM_ID: h:7c3d1057-c4a7-43b3-b91b-9887264d4072
+:END:
+
+[ Part of {{{development-version}}} ]
+
+#+vindex: ef-themes-variable-pitch-ui
+The user option ~ef-themes-variable-pitch-ui~ controls whether the
+elements of the User Interface (UI) use a proportionately spaced font.
+By default (a nil value), all UI elements use the default font family.
+When this user option is set to a non-nil value, all UI elements will
+inherit the face ~variable-pitch~ instead thus rendering them in a
+proportionately spaced font.
+
+In this context, the UI elements are:
+
+- ~header-line~
+- ~mode-line~ (active and inactive)
+- ~tab-bar-mode~
+- ~tab-line-mode~
+
+To get consistent typography, the user may need to edit the font family
+of the ~variable-pitch~ face.  The =fontaine= package on GNU ELPA (by
+Protesilaos) can be helpful in that regard.
+
 ** Option for headings
 :PROPERTIES:
 :CUSTOM_ID: h:a7a02817-e324-43e9-a7d8-fde024530af6
diff --git a/ef-themes.el b/ef-themes.el
index edfb91e1a9..cffe20dc73 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -226,6 +226,19 @@ Protesilaos))."
   :type 'boolean
   :link '(info-link "(ef-themes) Enable mixed fonts"))
 
+(defcustom ef-themes-variable-pitch-ui nil
+  "Use proportional fonts (`variable-pitch') in UI elements.
+This includes the mode line, header line, tab bar, and tab line.
+
+Users may need to explicitly configure the font family of
+`variable-pitch' in order to get a consistent experience with
+their typography (also check the `fontaine' package on GNU
+ELPA (by Protesilaos))."
+  :group 'ef-themes
+  :package-version '(ef-themes . "0.4.0")
+  :type 'boolean
+  :link '(info-link "(ef-themes) UI typeface"))
+
 ;;; Helpers for user options
 
 (defun ef-themes--fixed-pitch ()
@@ -233,6 +246,11 @@ Protesilaos))."
   (when ef-themes-mixed-fonts
 (list :inherit 'fixed-pitch)))
 
+(defun ef-themes--variable-pitch-ui ()
+  "Conditional application of `variable-pitch' in the UI."
+  (when ef-themes-variable-pitch-ui
+(list :inherit 'variable-pitch)))
+
 (defun ef-themes--key-cdr (key alist)
   "Get cdr of KEY in ALIST."
   (cdr (assoc key alist)))
@@ -482,6 +500,11 @@ Helper function for `ef-themes-preview-colors'."
   :package-version '(ef-themes . "0.4.0")
   :group 'ef-themes-faces)
 
+(defface ef-themes-ui-variable-pitch nil
+  "Face for `variable-pitch' if `ef-themes-variable-pitch-ui' is non-nil."
+  :package-version '(ef-themes . "0.4.0")
+  :group 'ef-themes-faces)
+
 (defconst ef-themes-faces
   '(
  internal faces
@@ -496,6 +519,7 @@ Helper function for `ef-themes-preview-colors'."
 `(ef-themes-heading-7 ((,c ,@(ef-themes--heading 7) :foreground 
,rainbow-7)))
 `(ef-themes-heading-8 ((,c ,@(ef-themes--heading 8) :foreground 
,rainbow-8)))
 `(ef-themes-key-binding ((,c :inherit (bold ef-themes-fixed-pitch) 
:foreground ,keybind)))
+`(ef-themes-ui-variable-pitch ((,c ,@(ef-themes--variable-pitch-ui
  all basic faces
 `(default ((,c :background ,bg-main :foreground ,fg-main)))
 `(cursor ((,c :background ,cursor)))
@@ -509,7 +533,7 @@ Helper function for `ef-themes-preview-colors'."
 `(success ((,c :inherit bold :foreground ,info)))
 `(warning ((,c :inherit bold :foreground ,warning)))
 `(fringe ((,c :background unspecified)))
-`(header-line ((,c :background ,bg-dim)))
+`(header-line ((,c :inherit ef-themes-ui-variable-pitch :background 
,bg-dim)))
 `(header-line-highlight ((,c :inherit highlight)))
 `(help-argument-name ((,c :foreground ,accent-0)))
 `(help-key-binding ((,c :inherit bold :foreground ,keybind)))
@@ -1030,12 +1054,12 @@ Helper function for `ef-themes-preview-colors'."
 `(message-mml ((,c :foreground ,info)))
 `(message-separator ((,c :background ,bg-alt)))
  mode-line
-`(mode-line ((,c :background ,bg-mode-line :foreground ,fg-mode-line)))
+`(mode-line ((,c :inherit ef-themes-ui-variable-pitch :background 
,bg-mode-line :foreground ,fg-mode-line)))
 `(mode-line-active ((,c :inherit mode-line)))
 `(mode-line-buffer-id ((,c :inherit bold)))
 `(mode-line-emphasis ((,c :inherit bold-italic)))
 `(mode-line-

[elpa] externals/ef-themes d0f1b189df 3/4: Tweak value of tab-line-close-highlight foreground

2022-08-21 Thread ELPA Syncer
branch: externals/ef-themes
commit d0f1b189dfbea9f6a957ff263cde9ea73e569699
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Tweak value of tab-line-close-highlight foreground

It should yield the same result, though it guarantees that we always use
the desired colour value.  For example, the deuteranopia-friendly themes
in the collection will use a variant of yellow.
---
 ef-themes.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ef-themes.el b/ef-themes.el
index cffe20dc73..de7ebe59dd 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -1336,7 +1336,7 @@ Helper function for `ef-themes-preview-colors'."
 `(tab-bar-tab-inactive ((,c :box (:line-width (2 . -2) :style flat-button) 
:background ,bg-dim :foreground ,fg-dim)))
  tab-line-mode
 `(tab-line ((,c :inherit ef-themes-ui-variable-pitch :background ,bg-alt 
:height 0.95)))
-`(tab-line-close-highlight ((,c :foreground ,red)))
+`(tab-line-close-highlight ((,c :foreground ,err)))
 `(tab-line-highlight ((,c :inherit highlight)))
 `(tab-line-tab (( )))
 `(tab-line-tab-current ((,c :inherit bold :box (:line-width (2 . -2) 
:style flat-button) :background ,bg-main :foreground ,fg-main)))



[elpa] externals/ef-themes 00de28be21 2/4: Update sample configuration

2022-08-21 Thread ELPA Syncer
branch: externals/ef-themes
commit 00de28be2148ae7f9555e9f04b410680af6ac356
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Update sample configuration
---
 README.org | 4 
 1 file changed, 4 insertions(+)

diff --git a/README.org b/README.org
index 1b80670a72..22bd6fc573 100644
--- a/README.org
+++ b/README.org
@@ -144,6 +144,10 @@ Everything is in place to set up the package.
 (7 . (variable-pitch 1.2))
 (t . (variable-pitch 1.1
 
+;; They are nil by default...
+(setq ef-themes-mixed-fonts t
+  ef-themes-variable-pitch-ui t)
+
 ;; Disable all other themes to avoid awkward blending:
 (mapc #'disable-theme custom-enabled-themes)
 



[elpa] externals/ef-themes 3105d096d4 4/4: Stop using :style flat-button for Emacs 27 compat

2022-08-21 Thread ELPA Syncer
branch: externals/ef-themes
commit 3105d096d434316ccb8f03ab82ee30fbd86dbe33
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Stop using :style flat-button for Emacs 27 compat

This style is for Emacs 28+.  We thus have to use the relevant
background value as the border's color.
---
 ef-themes.el | 12 ++--
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/ef-themes.el b/ef-themes.el
index de7ebe59dd..eff6d11051 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -1330,17 +1330,17 @@ Helper function for `ef-themes-preview-colors'."
 `(smerge-upper ((,c :inherit diff-removed)))
  tab-bar-mode
 `(tab-bar ((,c :inherit ef-themes-ui-variable-pitch :background ,bg-alt)))
-`(tab-bar-tab-group-current ((,c :inherit bold :background ,bg-main :box 
(:line-width (2 . -2) :style flat-button) :foreground ,fg-alt)))
-`(tab-bar-tab-group-inactive ((,c :background ,bg-alt :box (:line-width (2 
. -2) :style flat-button) :foreground ,fg-alt)))
-`(tab-bar-tab ((,c :inherit bold :box (:line-width (2 . -2) :style 
flat-button) :background ,bg-main :foreground ,fg-main)))
-`(tab-bar-tab-inactive ((,c :box (:line-width (2 . -2) :style flat-button) 
:background ,bg-dim :foreground ,fg-dim)))
+`(tab-bar-tab-group-current ((,c :inherit bold :background ,bg-main :box 
(:line-width (2 . -2) :color ,bg-main) :foreground ,fg-alt)))
+`(tab-bar-tab-group-inactive ((,c :background ,bg-alt :box (:line-width (2 
. -2) :color ,bg-alt) :foreground ,fg-alt)))
+`(tab-bar-tab ((,c :inherit bold :box (:line-width (2 . -2) :color 
,bg-main) :background ,bg-main :foreground ,fg-main)))
+`(tab-bar-tab-inactive ((,c :box (:line-width (2 . -2) :color ,bg-dim) 
:background ,bg-dim :foreground ,fg-dim)))
  tab-line-mode
 `(tab-line ((,c :inherit ef-themes-ui-variable-pitch :background ,bg-alt 
:height 0.95)))
 `(tab-line-close-highlight ((,c :foreground ,err)))
 `(tab-line-highlight ((,c :inherit highlight)))
 `(tab-line-tab (( )))
-`(tab-line-tab-current ((,c :inherit bold :box (:line-width (2 . -2) 
:style flat-button) :background ,bg-main :foreground ,fg-main)))
-`(tab-line-tab-inactive ((,c :box (:line-width (2 . -2) :style 
flat-button) :background ,bg-dim :foreground ,fg-dim)))
+`(tab-line-tab-current ((,c :inherit bold :box (:line-width (2 . -2) 
:color ,bg-main) :background ,bg-main :foreground ,fg-main)))
+`(tab-line-tab-inactive ((,c :box (:line-width (2 . -2) :color ,bg-dim) 
:background ,bg-dim :foreground ,fg-dim)))
 `(tab-line-tab-inactive-alternate ((,c :inherit tab-line-tab-inactive 
:foreground ,fg-alt)))
 `(tab-line-tab-modified ((,c :foreground ,warning)))
  term



[nongnu] elpa/gruvbox-theme 0667489943: Mode face sections marked for imenu

2022-08-21 Thread ELPA Syncer
branch: elpa/gruvbox-theme
commit 06674899435910231b1a7e3ffad2a058c21a33f2
Author: jasonm23 
Commit: jasonm23 

Mode face sections marked for imenu
---
 gruvbox.el | 147 +++--
 1 file changed, 74 insertions(+), 73 deletions(-)

diff --git a/gruvbox.el b/gruvbox.el
index 978385cd5b..231280e47b 100644
--- a/gruvbox.el
+++ b/gruvbox.el
@@ -105,7 +105,7 @@ Should contain 2 %s constructs to allow for theme name and 
directory/prefix")
  (link  (:foreground 
gruvbox-faded_blue :underline t))
  (shadow(:foreground gruvbox-dark4))
 
- ;; Built-in syntax
+ ;;; Built-in syntax
 
  (font-lock-builtin-face(:foreground 
gruvbox-bright_orange))
  (font-lock-constant-face   (:foreground 
gruvbox-bright_purple))
@@ -117,7 +117,7 @@ Should contain 2 %s constructs to allow for theme name and 
directory/prefix")
  (font-lock-type-face   (:foreground 
gruvbox-bright_purple))
  (font-lock-warning-face(:foreground 
gruvbox-bright_red :bold t))
 
- ;; Basic faces
+ ;;; Basic faces
  (error (:foreground 
gruvbox-bright_red :bold t))
  (success   (:foreground 
gruvbox-bright_green :bold t))
  (warning   (:foreground 
gruvbox-bright_yellow :bold t))
@@ -129,13 +129,13 @@ Should contain 2 %s constructs to allow for theme name 
and directory/prefix")
  (homoglyph (:foreground 
gruvbox-bright_yellow))
  (match (:foreground 
gruvbox-dark0 :background gruvbox-bright_blue))
 
- ;; Customize faces
+ ;;; Customize faces
 
  (widget-field  (:background 
gruvbox-dark3))
  (custom-group-tag  (:foreground 
gruvbox-bright_blue :weight 'bold))
  (custom-variable-tag   (:foreground 
gruvbox-bright_blue :weight 'bold))
 
- ;; whitespace-mode
+ ;;; whitespace-mode
 
  (whitespace-space  (:background gruvbox-bg 
:foreground gruvbox-dark4))
  (whitespace-hspace (:background gruvbox-bg 
:foreground gruvbox-dark4))
@@ -148,7 +148,7 @@ Should contain 2 %s constructs to allow for theme name and 
directory/prefix")
  (whitespace-empty  (:background nil :foreground 
nil))
  (whitespace-space-after-tab(:background gruvbox-bg 
:foreground gruvbox-dark4))
 
- ;; RainbowDelimiters
+ ;;; RainbowDelimiters
 
  (rainbow-delimiters-depth-1-face   (:foreground 
gruvbox-delimiter-one))
  (rainbow-delimiters-depth-2-face   (:foreground 
gruvbox-delimiter-two))
@@ -164,7 +164,7 @@ Should contain 2 %s constructs to allow for theme name and 
directory/prefix")
  (rainbow-delimiters-depth-12-face  (:foreground 
gruvbox-delimiter-four))
  (rainbow-delimiters-unmatched-face (:background nil :foreground 
gruvbox-light0))
 
- ;; line numbers
+ ;;; line numbers
 
  (line-number   (:foreground gruvbox-dark4 
:background gruvbox-dark1))
  (line-number-current-line  (:foreground 
gruvbox-bright_orange :background gruvbox-dark2))
@@ -172,30 +172,30 @@ Should contain 2 %s constructs to allow for theme name 
and directory/prefix")
  (linum-highlight-face  (:foreground 
gruvbox-bright_orange :background gruvbox-dark2))
  (linum-relative-current-face   (:foreground 
gruvbox-bright_orange :background gruvbox-dark2))
 
- ;; Highlight indentation mode
+ ;;; Highlight indentation mode
 
  (highlight-indentation-current-column-face (:background gruvbox-dark2))
  (highlight-indentation-face(:background gruvbox-dark1))
 
- ;; smartparens
+ ;;; smartparens
 
  (sp-pair-overlay-face  (:background gruvbox-dark2))
  (sp-show-pair-match-face   (:background gruvbox-dark2)) 
;; Pair tags highlight
  (sp-show-pair-mismatch-face(:background 
gruvbox-bright_red)) ;; Highlight for bracket without pair
 
- ;; elscreen
+ ;;; elscreen
 
  (elscreen-tab-background-face  (:background gruvbox-bg :box 
nil)) ;; Tab bar, not the tabs
  (elscreen-tab-control-face (:background gruvbox-dark2 
:foreground gruvbox-bright_red :underline nil :box nil)) ;; The controls
  (elscreen-tab-current-screen-face  (:background gruvbox-dark4 
:foreground gruvbox-dark0 :box nil)) ;; Current tab
  (elscreen-tab-other-screen-face(:background gruvbox-dark2 
:foreground gruvbox-light4

[elpa] externals/ef-themes updated (3105d096d4 -> 2fa83c156f)

2022-08-21 Thread ELPA Syncer
elpasync pushed a change to branch externals/ef-themes.

  from  3105d096d4 Stop using :style flat-button for Emacs 27 compat
   new  4f846b3c20 Make minor rewording in the manual
   new  2fa83c156f Document supported pakcages; note why some aren't


Summary of changes:
 README.org | 198 +
 1 file changed, 188 insertions(+), 10 deletions(-)



[elpa] externals/ef-themes 4f846b3c20 1/2: Make minor rewording in the manual

2022-08-21 Thread ELPA Syncer
branch: externals/ef-themes
commit 4f846b3c201469db61f3d3baae3354e9508d94d8
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Make minor rewording in the manual
---
 README.org | 9 -
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/README.org b/README.org
index 22bd6fc573..5ef213f9bc 100644
--- a/README.org
+++ b/README.org
@@ -507,11 +507,10 @@ code that uses ~ef-themes-with-colors~.
 :CUSTOM_ID: h:a6dd030c-6b6c-4992-83e8-3438b4607b51
 :END:
 
-+ No customization options that affect the style of individual
-  components (e.g. change the color of the mode line, remove bold,
-  etc.)!  Either you like them or you don't.  To change faces, it is
-  better to do it in user-level configurations (report the issue and we
-  can help with the relevant code).  Providing customizations that
++ No customization options that affect the coloration of individual
+  components !  Either you like them or you don't.  To change faces, it
+  is better to do it in user-level configurations (report the issue and
+  we can help with the relevant code).  Providing customizations that
   refashion a wide set of themes is not maintainable.
 
 + Curated list of supported packages.  I will only cover what I use



[elpa] externals/ef-themes 2fa83c156f 2/2: Document supported pakcages; note why some aren't

2022-08-21 Thread ELPA Syncer
branch: externals/ef-themes
commit 2fa83c156faca812f8a1e23ece5e5f70ad803dce
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Document supported pakcages; note why some aren't
---
 README.org | 189 +++--
 1 file changed, 184 insertions(+), 5 deletions(-)

diff --git a/README.org b/README.org
index 5ef213f9bc..d20c77c555 100644
--- a/README.org
+++ b/README.org
@@ -502,6 +502,184 @@ made.  Though please note that some tweaks to individual 
hues or color
 mapping are still possible.  At any rate, we will not outright break any
 code that uses ~ef-themes-with-colors~.
 
+* Supported packages or face groups
+:PROPERTIES:
+:CUSTOM_ID: h:c8d80daf-d039-40c4-bb74-e7814a9b4c79
+:END:
+
+The =ef-themes= will only ever support a curated list of packages based
+on my judgement ([[#h:ea2eedd7-a473-4826-9b83-31bf3ac2c5f7][Packages that are 
hard to support]]).  Nevertheless, the
+list of explicitly or implicitly supported packages already covers
+everything most users need.
+
+** Explicitly supported packages or face groups
+:PROPERTIES:
+:CUSTOM_ID: h:8e87733c-9fc9-45cd-9b9e-97b11f4f6c05
+:END:
+
+- all basic faces
+- all-the-icons
+- all-the-icons-dired
+- all-the-icons-ibuffer
+- ansi-color
+- bongo
+- bookmark
+- calendar and diary
+- change-log and log-view (part of VC)
+- chart
+- compilation
+- completions
+- custom (M-x customize)
+- denote
+- dictionary
+- diff-hl
+- diff-mode
+- dired
+- dired-subtree
+- diredfl
+- doom-modeline (incomplete, though likely is okay)
+- ediff
+- eldoc
+- elfeed
+- epa
+- eshell
+- eww [ Part of {{{development-version}}} ]
+- font-lock
+- git-commit
+- git-rebase
+- gnus (incomplete, though likely is okay)
+- info
+- isearch, occur, query-replace
+- keycast
+- line numbers (~display-line-numbers-mode~ and global variant)
+- magit
+- man
+- marginalia
+- markdown-mode
+- messages
+- mode-line
+- mu4e
+- notmuch
+- orderless
+- org
+- org-habit
+- org-modern
+- outline-mode
+- outline-minor-faces
+- package (M-x list-packages)
+- rainbow-delimiters
+- rcirc
+- regexp-builder (re-builder)
+- ruler-mode
+- show-paren-mode
+- shr [ Part of {{{development-version}}} ]
+- smerge
+- tab-bar-mode
+- tab-line-mode
+- term
+- textsec
+- transient
+- vc (=vc-dir.el=, =vc-hooks.el=)
+- vertico
+- wgrep
+- which-function-mode
+- whitespace-mode
+- widget
+- woman
+
+** Implicitly support packages or face groups
+:PROPERTIES:
+:CUSTOM_ID: h:7d1acc40-a2ce-4e6d-a230-35ddffc00690
+:END:
+
+Those are known to work with the Ef themes either because their colors
+are appropriate or because they inherit from basic faces which the
+themes already cover:
+
+- apropos
+- consult
+- corfu
+- dim-autoload
+- embark
+- flycheck
+- flymake
+- flyspell
+- hl-todo
+- icomplete
+- ido
+- lin
+- multiple-cursors
+- paren-face
+- pulsar
+- tempel
+- which-key (seems okay, but may need explicit support)
+- xref
+
+** Packages that are hard to support
+:PROPERTIES:
+:CUSTOM_ID: h:ea2eedd7-a473-4826-9b83-31bf3ac2c5f7
+:END:
+
+These are difficult to support due to their (i) incompatibility with the
+design of the =ef-themes=, (ii) complexity or multitude of points of
+entry, (iii) external dependencies, (iv) existence of better
+alternatives in my opinion, or (v) inconsiderate use of color
+out-of-the-box and implicit unwillingness to be good Emacs citizens:
+
+- auctex :: it has a zillion dependencies; I don't know LaTeX.
+
+- avy :: its UI is prone to visual breakage and is hard to style
+  correctly.
+
+- calibredb :: has an external dependency that I don't use.
+
+- ctrlf :: use the built-in isearch or the ~consult-line~ command of
+  =consult=.
+
+- dired+ :: it is complex and makes inconsiderate use of color.
+
+- ein (Emacs IPython Notebook) :: external dependency that I don't use.
+
+- elfeed-goodies :: depends on =powerline=...
+
+- ement.el :: has an external dependency that I don't use. - helm :: it
+  is complex and makes inconsiderate use of color.  Prefer the
+  =vertico=, =consult=, and =embark= packages.
+
+- info+ :: it is complex and makes inconsiderate use of color.
+
+- ivy/counsel/swiper :: use the =vertico=, =consult=, and =embark=
+  packages which are designed to be compatible with standard Emacs
+  mechanisms and are modular.
+
+- lsp-mode :: has external dependencies that I don't use.
+
+- powerline :: requires too many shades of background and generally
+  violates our expectation of how the mode-line is supposed to look by
+  placing the designated default background in unexpected places.
+
+- selectrum :: use =vertico=.
+
+- solaire :: in principle, it is incompatible with practically every
+  theme that is not designed around it.  Emacs does not distinguish
+  between "UI" and "syntax" buffers.
+
+- spaceline :: same as =powerline=.
+
+- sx :: has an external dependency that I don't use.
+
+- telega :: has an external dependency that I don't use (I don't even
+  have a smartphone).
+
+- telephone-line :: same as =powerl

[nongnu] elpa/pdf-tools c3d227c11b 2/3: Don't depend on gcc when building with `nix-shell` (#135)

2022-08-21 Thread ELPA Syncer
branch: elpa/pdf-tools
commit c3d227c11bbeb18ea494fa832d0f23f71ccf9a9d
Author: Mario Rodas 
Commit: GitHub 

Don't depend on gcc when building with `nix-shell` (#135)

* Use `--run` flag to execute nix-shell

The `--command` flag is only required to spawn a interactive shell.

* Do not require gcc to build with nix-shell

`nix-shell` already sets CC with a C compiler, for instance Clang on darwin.

* Remove outdated require in test-helper

`f.el` is not needed anywhere.
---
 server/autobuild| 4 ++--
 test/test-helper.el | 1 -
 2 files changed, 2 insertions(+), 3 deletions(-)

diff --git a/server/autobuild b/server/autobuild
index 1dcdff07e7..57d596bfa4 100755
--- a/server/autobuild
+++ b/server/autobuild
@@ -383,8 +383,8 @@ os_nixos() {
 command="AUTOBUILD_NIX_SHELL=true"
 command="$command;export AUTOBUILD_NIX_SHELL"
 command="$command;$(quote "$0" "$@")"
-exec nix-shell --pure --command "$command" \
- -p gcc gnumake automake autoconf pkgconfig libpng zlib poppler
+exec nix-shell --pure --run "$command" \
+ -p automake autoconf pkgconfig libpng zlib poppler
 }
 
 # Gentoo
diff --git a/test/test-helper.el b/test/test-helper.el
index da01765896..a3be618440 100644
--- a/test/test-helper.el
+++ b/test/test-helper.el
@@ -91,7 +91,6 @@
   `(pdf-test-with-pdf "encrypted.pdf" ,@body))
 
 ;; ---
-(require 'f)
 (require 'undercover)
 (undercover "lisp/*.el")
 (require 'let-alist)



[nongnu] elpa/pdf-tools bea5ddb9fc 3/3: synctex_parser: fix vasprintf() not exists in non-GNU environment (#134)

2022-08-21 Thread ELPA Syncer
branch: elpa/pdf-tools
commit bea5ddb9fc234b48db6df3dcb66d75e76bec00c8
Author: lin.sun 
Commit: GitHub 

synctex_parser: fix vasprintf() not exists in non-GNU environment (#134)

The vasprintf() is a GNU extension function, missed in non-GNU build 
environment, so we define it.

Without this change, there will have error message when we build with clang:
```
./autogen.sh
./configure CC=clang
make
```

We will get errors:
```
synctex_parser.c:8448:13: error: call to undeclared function 'vasprintf'; 
ISO C99 and later do not support implicit function declarations 
[-Wimplicit-function-declaration]
if (vasprintf(&buffer, format, va) < 0) {
```

This change fixes the problem.
---
 server/configure.ac | 2 +-
 server/synctex_parser.c | 8 +++-
 2 files changed, 4 insertions(+), 6 deletions(-)

diff --git a/server/configure.ac b/server/configure.ac
index 9a8c46db71..efcc646ba8 100644
--- a/server/configure.ac
+++ b/server/configure.ac
@@ -84,7 +84,7 @@ AC_C_BIGENDIAN
 # Checks for library functions.
 AC_FUNC_ERROR_AT_LINE
 AC_FUNC_STRTOD
-AC_CHECK_FUNCS([strcspn strtol getline])
+AC_CHECK_FUNCS([strcspn strtol getline vasprintf])
 
 AC_CONFIG_FILES([Makefile])
 AC_OUTPUT
diff --git a/server/synctex_parser.c b/server/synctex_parser.c
index 27be60896c..4eddb83424 100644
--- a/server/synctex_parser.c
+++ b/server/synctex_parser.c
@@ -8415,9 +8415,7 @@ static int _synctex_updater_print(synctex_updater_p 
updater, const char * format
 }
 return result;
 }
-#if defined(_MSC_VER)
-#include 
-#include 
+#ifndef HAVE_VASPRINTF
 #include 
 
 static int vasprintf(char **ret,
@@ -8425,11 +8423,11 @@ static int vasprintf(char **ret,
  va_list ap)
 {
 int len;
-len = _vsnprintf(NULL, 0, format, ap);
+len = vsnprintf(NULL, 0, format, ap);
 if (len < 0) return -1;
 *ret = malloc(len + 1);
 if (!*ret) return -1;
-_vsnprintf(*ret, len+1, format, ap);
+vsnprintf(*ret, len + 1, format, ap);
 (*ret)[len] = '\0';
 return len;
 }



[nongnu] elpa/pdf-tools 6df41605cc 1/3: Fix: remove execute permisions from temp files

2022-08-21 Thread ELPA Syncer
branch: elpa/pdf-tools
commit 6df41605cccb6f267693927dc153e7f0ae0c980d
Author: Zachary Newman 
Commit: Vedang Manerikar 

Fix: remove execute permisions from temp files

They aren't used.

Fixes #138.
---
 server/epdfinfo.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/server/epdfinfo.c b/server/epdfinfo.c
index 061df6185b..770035d644 100644
--- a/server/epdfinfo.c
+++ b/server/epdfinfo.c
@@ -354,7 +354,7 @@ mktempfile()
   filename =  tempnam(NULL, "epdfinfo");
   if (filename)
 {
-  int fd = open(filename, O_CREAT | O_EXCL | O_RDONLY, S_IRWXU);
+  int fd = open(filename, O_CREAT | O_EXCL | O_RDONLY, S_IRUSR | 
S_IWUSR);
   if (fd > 0)
 close (fd);
   else



[nongnu] elpa/pdf-tools updated (bb0b71f5ba -> bea5ddb9fc)

2022-08-21 Thread ELPA Syncer
elpasync pushed a change to branch elpa/pdf-tools.

  from  bb0b71f5ba Change the default value of 
`pdf-annot-list-highlight-type`
   new  6df41605cc Fix: remove execute permisions from temp files
   new  c3d227c11b Don't depend on gcc when building with `nix-shell` (#135)
   new  bea5ddb9fc synctex_parser: fix vasprintf() not exists in non-GNU 
environment (#134)


Summary of changes:
 server/autobuild| 4 ++--
 server/configure.ac | 2 +-
 server/epdfinfo.c   | 2 +-
 server/synctex_parser.c | 8 +++-
 test/test-helper.el | 1 -
 5 files changed, 7 insertions(+), 10 deletions(-)