[elpa] externals/cursory 1b2d6416ac 2/5: Implement fallback value for cursory-presets

[ELPA Syncer]

branch: externals/cursory
commit 1b2d6416ac937cde7a22d43d8eac3d5b6c2efa18
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Implement fallback value for cursory-presets
---
 README.org | 49 ++---
 cursory.el | 48 +---
 2 files changed, 63 insertions(+), 34 deletions(-)

diff --git a/README.org b/README.org
index 08a5094bec..ec82fc733e 100644
--- a/README.org
+++ b/README.org
@@ -95,6 +95,35 @@ built-in variables: ~cursor-type~, 
~cursor-in-non-selected-windows~,
 The value each property accepts is the same as the variable it
 references.
 
+[ The fallback =t= value for ~cursory-presets~ is part of 
{{{development-version}}} ]
+
+A preset whose car is =t= is treated as the default option.  This makes
+it possible to specify multiple presets without duplicating their
+properties.  The other presets beside =t= act as overrides of the
+defaults and, as such, need only consist of the properties that change
+from the default.  See the original value of this variable for how that
+is done:
+
+#+begin_src emacs-lisp
+(defcustom cursory-presets
+  '((box
+ :blink-cursor-interval 0.8)
+(bar
+ :cursor-type (bar . 2)
+ :blink-cursor-interval 0.5)
+(underscore
+ :cursor-type (hbar . 3)
+ :blink-cursor-blinks 50)
+(t ; the default values
+ :cursor-type box
+ :cursor-in-non-selected-windows hollow
+ :blink-cursor-blinks 10
+ :blink-cursor-interval 0.2
+ :blink-cursor-delay 0.2))
+  ;; Omitting the doc string for demo purposes
+  )
+#+end_src
+
 When called from Lisp, the ~cursory-set-preset~ command requires a
 PRESET argument, such as:
 
@@ -179,25 +208,7 @@ Remember to read the doc string of each of these variables 
or functions.
 #+begin_src emacs-lisp
 (require 'cursory)
 
-(setq cursory-presets
-  '((bar
- :cursor-type (bar . 2)
- :cursor-in-non-selected-windows hollow
- :blink-cursor-blinks 10
- :blink-cursor-interval 0.5
- :blink-cursor-delay 0.2)
-(box
- :cursor-type box
- :cursor-in-non-selected-windows hollow
- :blink-cursor-blinks 10
- :blink-cursor-interval 0.5
- :blink-cursor-delay 0.2)
-(underscore
- :cursor-type (hbar . 3)
- :cursor-in-non-selected-windows hollow
- :blink-cursor-blinks 50
- :blink-cursor-interval 0.2
- :blink-cursor-delay 0.2)))
+;; Check the `cursory-presets' for how to set your own preset styles.
 
 (setq cursory-latest-state-file (locate-user-emacs-file 
"cursory-latest-state"))
 
diff --git a/cursory.el b/cursory.el
index d61a8ec2b3..38c66a89aa 100644
--- a/cursory.el
+++ b/cursory.el
@@ -77,28 +77,32 @@
   :group 'cursor)
 
 (defcustom cursory-presets
-  '((bar
+  '((box
+ :blink-cursor-interval 0.8)
+(bar
  :cursor-type (bar . 2)
- :cursor-in-non-selected-windows hollow
- :blink-cursor-blinks 10
- :blink-cursor-interval 0.5
- :blink-cursor-delay 0.2)
-(box
- :cursor-type box
- :cursor-in-non-selected-windows hollow
- :blink-cursor-blinks 10
- :blink-cursor-interval 0.5
- :blink-cursor-delay 0.2)
+ :blink-cursor-interval 0.5)
 (underscore
  :cursor-type (hbar . 3)
+ :blink-cursor-blinks 50)
+(t ; the default values
+ :cursor-type box
  :cursor-in-non-selected-windows hollow
- :blink-cursor-blinks 50
+ :blink-cursor-blinks 10
  :blink-cursor-interval 0.2
  :blink-cursor-delay 0.2))
   "Alist of preset configurations for `blink-cursor-mode'.
 
 The car of each cons cell is an arbitrary, user-specified key
-that broadly describes the set.
+that broadly describes the set (e.g. slow-blinking-box or
+fast-blinking-bar).
+
+A preset whose car is t is treated as the default option.  This
+makes it possible to specify multiple presets without duplicating
+their properties.  The other presets beside t act as overrides of
+the defaults and, as such, need only consist of the properties
+that change from the default.  See the original value of this
+variable for how that is done.
 
 The cdr is a plist which specifies the cursor type and blink
 properties.  In particular, it accepts the following properties:
@@ -144,6 +148,20 @@ Saving is done by the `cursory-store-latest-preset' 
function."
 (defvar cursory--style-hist '()
   "Minibuffer history of `cursory--set-cursor-prompt'.")
 
+(defun cursory--preset-values (preset)
+  "Get properties of PRESET with relevant fallbacks."
+  (append (alist-get preset cursory-presets)
+  (alist-get t cursory-presets)))
+
+(defun cursory--presets-no-fallback ()
+  "Return list of `cursory-presets', minus the fallback value."
+  (delete
+   nil
+   (mapcar (lambda (symbol)
+ (unless (eq (car symbol) t)
+   symbol))
+   cursory-presets)))
+
 (defun cursory--set-cursor-prompt ()
   "Promp for `cursory-presets' (used by `cursory-set-preset')."
  

[elpa] externals/cursory 0c8c41cff2 1/5: Refine default value of prompt

[ELPA Syncer]

branch: externals/cursory
commit 0c8c41cff2302d91140348428e35e6d69a271558
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Refine default value of prompt

Use the previous one from the history, if available.
---
 cursory.el | 7 +--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/cursory.el b/cursory.el
index 93944ce3ce..d61a8ec2b3 100644
--- a/cursory.el
+++ b/cursory.el
@@ -146,10 +146,13 @@ Saving is done by the `cursory-store-latest-preset' 
function."
 
 (defun cursory--set-cursor-prompt ()
   "Promp for `cursory-presets' (used by `cursory-set-preset')."
-  (let ((def (nth 1 cursory--style-hist)))
+  (let* ((def (nth 1 cursory--style-hist))
+ (prompt (if def
+ (format "Apply cursor configurations from PRESET [%s]: " 
def)
+   "Apply cursor configurations from PRESET: ")))
 (completing-read
- (format "Select cursor STYLE [%s]: " def)
  (mapcar #'car cursory-presets)
+ prompt
  nil t nil 'cursory--style-hist def)))
 
 ;;;###autoload

[elpa] externals/cursory 3fd1837011 3/5: Add info link to cursory defgroup

[ELPA Syncer]

branch: externals/cursory
commit 3fd183701140b0e4126743560d83ab70451e6ee8
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Add info link to cursory defgroup
---
 cursory.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/cursory.el b/cursory.el
index 38c66a89aa..a05cae7c4a 100644
--- a/cursory.el
+++ b/cursory.el
@@ -74,7 +74,8 @@
 
 (defgroup cursory ()
   "Manage cursor styles using presets."
-  :group 'cursor)
+  :group 'cursor
+  :link '(info-link "(cursory) Top"))
 
 (defcustom cursory-presets
   '((box

[elpa] externals/cursory updated (e04fd74d56 -> e08f234d63)

[ELPA Syncer]

elpasync pushed a change to branch externals/cursory.

  from  e04fd74d56 Bump version to 0.2.1
   new  0c8c41cff2 Refine default value of prompt
   new  1b2d6416ac Implement fallback value for cursory-presets
   new  3fd1837011 Add info link to cursory defgroup
   new  32231efcc5 Speficy cursory-latest-state-file :package-version
   new  e08f234d63 Speficy cursory-presets :package-version


Summary of changes:
 README.org | 49 ++---
 cursory.el | 60 ++--
 2 files changed, 72 insertions(+), 37 deletions(-)

[elpa] externals/cursory 32231efcc5 4/5: Speficy cursory-latest-state-file :package-version

[ELPA Syncer]

branch: externals/cursory
commit 32231efcc55f3403dd58737552458aca4dd7646f
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Speficy cursory-latest-state-file :package-version
---
 cursory.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/cursory.el b/cursory.el
index a05cae7c4a..16dc74b430 100644
--- a/cursory.el
+++ b/cursory.el
@@ -144,6 +144,7 @@ them accepts is the same as the variable it references."
   "File to save the value of `cursory-set-preset'.
 Saving is done by the `cursory-store-latest-preset' function."
   :type 'file
+  :package-version '(cursory . "0.1.0")
   :group 'cursory)
 
 (defvar cursory--style-hist '()

[elpa] externals/cursory e08f234d63 5/5: Speficy cursory-presets :package-version

[ELPA Syncer]

branch: externals/cursory
commit e08f234d63008e11de88932c51d4172089219330
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Speficy cursory-presets :package-version
---
 cursory.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/cursory.el b/cursory.el
index 16dc74b430..ea7c3e5448 100644
--- a/cursory.el
+++ b/cursory.el
@@ -119,6 +119,7 @@ They correspond to built-in variables: `cursor-type',
 `blink-cursor-interval', `blink-cursor-delay'.  The value each of
 them accepts is the same as the variable it references."
   :group 'cursory
+  :package-version '(cursory . "0.3.0")
   :type `(alist
   :value-type
   (plist :options

[elpa] externals/cursory updated (e08f234d63 -> dc45385cec)

[ELPA Syncer]

elpasync pushed a change to branch externals/cursory.

  from  e08f234d63 Speficy cursory-presets :package-version
   new  c21eaaa815 Add cursory-presets :blink-cursor-mode property
   new  b2515a1146 Update links to package sources
   new  9961480a24 Update package Commentary
   new  568310b13d Update to version 0.3.0
   new  dc45385cec Add missing property drawers to CHANGELOG.org


Summary of changes:
 CHANGELOG.org | 59 +++
 README.org| 24 +---
 cursory.el| 54 ++
 3 files changed, 126 insertions(+), 11 deletions(-)

[elpa] externals/cursory c21eaaa815 1/5: Add cursory-presets :blink-cursor-mode property

[ELPA Syncer]

branch: externals/cursory
commit c21eaaa81529ba224bf15a1b7595969e70dd7ac9
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Add cursory-presets :blink-cursor-mode property
---
 README.org |  9 +
 cursory.el | 20 +---
 2 files changed, 26 insertions(+), 3 deletions(-)

diff --git a/README.org b/README.org
index ec82fc733e..a0d2dab0e1 100644
--- a/README.org
+++ b/README.org
@@ -95,6 +95,12 @@ built-in variables: ~cursor-type~, 
~cursor-in-non-selected-windows~,
 The value each property accepts is the same as the variable it
 references.
 
+[ The property =:blink-cursor-mode= is part of {{{development-version}}} ]
+
+A property of =:blink-cursor-mode= is also available.  It is a numeric
+value of either =1= or =-1= and is given to the function
+~blink-cursor-mode~ (=1= is to enable, =-1= is to disable the mode).
+
 [ The fallback =t= value for ~cursory-presets~ is part of 
{{{development-version}}} ]
 
 A preset whose car is =t= is treated as the default option.  This makes
@@ -108,6 +114,8 @@ is done:
 (defcustom cursory-presets
   '((box
  :blink-cursor-interval 0.8)
+(box-no-blink
+ :blink-cursor-mode -1)
 (bar
  :cursor-type (bar . 2)
  :blink-cursor-interval 0.5)
@@ -117,6 +125,7 @@ is done:
 (t ; the default values
  :cursor-type box
  :cursor-in-non-selected-windows hollow
+ :blink-cursor-mode 1
  :blink-cursor-blinks 10
  :blink-cursor-interval 0.2
  :blink-cursor-delay 0.2))
diff --git a/cursory.el b/cursory.el
index ea7c3e5448..c5d7293bb0 100644
--- a/cursory.el
+++ b/cursory.el
@@ -80,6 +80,8 @@
 (defcustom cursory-presets
   '((box
  :blink-cursor-interval 0.8)
+(box-no-blink
+ :blink-cursor-mode -1)
 (bar
  :cursor-type (bar . 2)
  :blink-cursor-interval 0.5)
@@ -89,6 +91,7 @@
 (t ; the default values
  :cursor-type box
  :cursor-in-non-selected-windows hollow
+ :blink-cursor-mode 1
  :blink-cursor-blinks 10
  :blink-cursor-interval 0.2
  :blink-cursor-delay 0.2))
@@ -117,7 +120,11 @@ properties.  In particular, it accepts the following 
properties:
 They correspond to built-in variables: `cursor-type',
 `cursor-in-non-selected-windows', `blink-cursor-blinks',
 `blink-cursor-interval', `blink-cursor-delay'.  The value each of
-them accepts is the same as the variable it references."
+them accepts is the same as the variable it references.
+
+A property of `:blink-cursor-mode' is also available.  It is a
+numeric value of either 1 or -1 and is given to the function
+`blink-cursor-mode' (1 is to enable, -1 is to disable the mode)."
   :group 'cursory
   :package-version '(cursory . "0.3.0")
   :type `(alist
@@ -137,7 +144,12 @@ them accepts is the same as the variable it references."
,(get 'blink-cursor-interval 'custom-type))
   ((const :tag "Blink delay"
   :blink-cursor-delay)
-   ,(get 'blink-cursor-delay 'custom-type
+   ,(get 'blink-cursor-delay 'custom-type))
+  ((const :tag "Blink Cursor Mode"
+  :blink-cursor-mode)
+   (choice :value 1
+   (const :tag "Enable" 1)
+   (const :tag "Disable" -1)
   :key-type symbol))
 
 (defcustom cursory-latest-state-file
@@ -184,7 +196,8 @@ STYLE is a symbol that represents the car of a list in
 `cursory-presets'.
 
 With optional LOCAL as a prefix argument, set the
-`cursory-presets' only for the current buffer."
+`cursory-presets' only for the current buffer.  This does not
+cover the function `blink-cursor-mode', which is always global."
   (interactive
(list
 (if (= (length cursory-presets) 1)
@@ -213,6 +226,7 @@ With optional LOCAL as a prefix argument, set the
 blink-cursor-blinks blinks
 blink-cursor-interval interval
 blink-cursor-delay delay))
+(blink-cursor-mode (plist-get properties :blink-cursor-mode))
 ;; We only want to save global values in
 ;; `cursory-store-latest-preset'.
 (unless local

[elpa] externals/cursory 9961480a24 3/5: Update package Commentary

[ELPA Syncer]

branch: externals/cursory
commit 9961480a24ec751c1980dd77c8c3b056439e6e06
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Update package Commentary
---
 cursory.el | 32 
 1 file changed, 32 insertions(+)

diff --git a/cursory.el b/cursory.el
index c5d7293bb0..f08b05530a 100644
--- a/cursory.el
+++ b/cursory.el
@@ -55,6 +55,38 @@
 ;; The value each property accepts is the same as the variable it
 ;; references.
 ;;
+;; A property of `:blink-cursor-mode' is also available.  It is a numeric
+;; value of either `1' or `-1' and is given to the function
+;; `blink-cursor-mode' (`1' is to enable, `-1' is to disable the mode).
+;;
+;; A preset whose car is `t' is treated as the default option.  This makes
+;; it possible to specify multiple presets without duplicating their
+;; properties.  The other presets beside `t' act as overrides of the
+;; defaults and, as such, need only consist of the properties that change
+;; from the default.  See the original value of this variable for how that
+;; is done:
+;;
+;; (defcustom cursory-presets
+;;   '((box
+;;  :blink-cursor-interval 0.8)
+;; (box-no-blink
+;;  :blink-cursor-mode -1)
+;; (bar
+;;  :cursor-type (bar . 2)
+;;  :blink-cursor-interval 0.5)
+;; (underscore
+;;  :cursor-type (hbar . 3)
+;;  :blink-cursor-blinks 50)
+;; (t ; the default values
+;;  :cursor-type box
+;;  :cursor-in-non-selected-windows hollow
+;;  :blink-cursor-mode 1
+;;  :blink-cursor-blinks 10
+;;  :blink-cursor-interval 0.2
+;;  :blink-cursor-delay 0.2))
+;;   ;; Omitting the doc string for demo purposes
+;;   )
+;;
 ;; When called from Lisp, the `cursory-set-preset' command requires a
 ;; PRESET argument, such as:
 ;;

[elpa] externals/cursory b2515a1146 2/5: Update links to package sources

[ELPA Syncer]

branch: externals/cursory
commit b2515a1146c82237c899a0e91d1a3621fed357f8
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Update links to package sources
---
 README.org | 11 ---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/README.org b/README.org
index a0d2dab0e1..74951800ff 100644
--- a/README.org
+++ b/README.org
@@ -33,9 +33,14 @@ commit, is explicitly marked as such.
 
 Current development target is {{{development-version}}}.
 
-+ Homepage: https://protesilaos.com/emacs/cursory.
-+ Git repository: https://git.sr.ht/~protesilaos/cursory.
-+ Mailing list: https://lists.sr.ht/~protesilaos/cursory.
++ Package name (GNU ELPA): =cursory=
++ Official manual: 
++ Change log: 
++ Git repo on SourceHut: 
+  - Mirrors:
++ GitHub: 
++ GitLab: 
++ Mailing list: 
 
 #+toc: headlines 8 insert TOC here, with eight headline levels
 

[elpa] externals/cursory 568310b13d 4/5: Update to version 0.3.0

[ELPA Syncer]

branch: externals/cursory
commit 568310b13dfeda471fa23c6aa9b88c2a410aed01
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Update to version 0.3.0
---
 CHANGELOG.org | 50 ++
 README.org| 10 +++---
 cursory.el|  2 +-
 3 files changed, 54 insertions(+), 8 deletions(-)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index 47584935f2..9ea8a70d76 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -9,6 +9,56 @@ project's main git repository: 
.
 The newest release is at the top.  For further details, please consult
 the manual: .
 
+* Version 0.3.0 on 2022-09-04
+
++ Implemented a mechanism to read fallback values for the presets
+  specified in the user option ~cursory-presets~.  In practical terms,
+  there can now be a =t= preset which holds the default values.  Any
+  other named preset overrides the =t=, so it only needs to specify the
+  properties that differ from the defaults.  Sample using the original
+  value:
+
+  #+begin_src emacs-lisp
+  (setq cursory-presets
+'((box
+   :blink-cursor-interval 0.8)
+  (box-no-blink
+   :blink-cursor-mode -1)
+  (bar
+   :cursor-type (bar . 2)
+   :blink-cursor-interval 0.5)
+  (underscore
+   :cursor-type (hbar . 3)
+   :blink-cursor-blinks 50)
+  (t ; the default values
+   :cursor-type box
+   :cursor-in-non-selected-windows hollow
+   :blink-cursor-mode 1
+   :blink-cursor-blinks 10
+   :blink-cursor-interval 0.2
+   :blink-cursor-delay 0.2)))
+  #+end_src
+
++ Expanded the available properties of the user option ~cursory-presets~
+  to accept a value for the =:blink-cursor-mode= key (as seen in the
+  above code block).  It is either =1= or =-1= and is passed to the
+  function ~blink-cursor-mode~.  The former value enables the mode, the
+  latter disables it.  This lets ~cursory-presets~ set the
+  ~blink-cursor-mode~ per stylistic variant.
+
++ Refined the default value of the minibuffer prompt that is used by the
+  command ~cursory-set-preset~.  The default value now is the previous
+  element in the history, if it exists.  This makes it easier to toggle
+  between the last two choices (select the default value simply by
+  pressing =RET= without any further input).
+
++ Specified a =:package-version= for all user options.  The user is
+  informed in relevant Help buffers about the last version that
+  introduced or iterated on the variable.
+
++ The =cursory= group now references the Info manual that ships with the
+  GNU ELPA package.  A link is shown in Custom UI buffers.
+
 * Version 0.2.0 on 2022-07-01
 
 This is a stability release that introduces minor tweaks while
diff --git a/README.org b/README.org
index 74951800ff..742eab0a7c 100644
--- a/README.org
+++ b/README.org
@@ -4,9 +4,9 @@
 #+language:  en
 #+options:   ':t toc:nil author:t email:t num:t
 #+startup:   content
-#+macro: stable-version 0.2.0
-#+macro: release-date 2022-07-01
-#+macro: development-version 0.3.0-dev
+#+macro: stable-version 0.3.0
+#+macro: release-date 2022-09-04
+#+macro: development-version 0.4.0-dev
 #+macro: file @@texinfo:@file{@@$1@@texinfo:}@@
 #+macro: space @@texinfo:@: @@
 #+macro: kbd @@texinfo:@kbd{@@$1@@texinfo:}@@
@@ -100,14 +100,10 @@ built-in variables: ~cursor-type~, 
~cursor-in-non-selected-windows~,
 The value each property accepts is the same as the variable it
 references.
 
-[ The property =:blink-cursor-mode= is part of {{{development-version}}} ]
-
 A property of =:blink-cursor-mode= is also available.  It is a numeric
 value of either =1= or =-1= and is given to the function
 ~blink-cursor-mode~ (=1= is to enable, =-1= is to disable the mode).
 
-[ The fallback =t= value for ~cursory-presets~ is part of 
{{{development-version}}} ]
-
 A preset whose car is =t= is treated as the default option.  This makes
 it possible to specify multiple presets without duplicating their
 properties.  The other presets beside =t= act as overrides of the
diff --git a/cursory.el b/cursory.el
index f08b05530a..5fb08902a5 100644
--- a/cursory.el
+++ b/cursory.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Cursory Development <~protesilaos/curs...@lists.sr.ht>
 ;; URL: https://git.sr.ht/~protesilaos/cursory
 ;; Mailing-List: https://lists.sr.ht/~protesilaos/cursory
-;; Version: 0.2.1
+;; Version: 0.3.0
 ;; Package-Requires: ((emacs "27.1"))
 ;; Keywords: convenience, cursor
 

[elpa] externals/cursory dc45385cec 5/5: Add missing property drawers to CHANGELOG.org

[ELPA Syncer]

branch: externals/cursory
commit dc45385cecfa22b5d55015e87725b0f11c3c96d6
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Add missing property drawers to CHANGELOG.org
---
 CHANGELOG.org | 9 +
 1 file changed, 9 insertions(+)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index 9ea8a70d76..c4e4de02f2 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -10,6 +10,9 @@ The newest release is at the top.  For further details, 
please consult
 the manual: .
 
 * Version 0.3.0 on 2022-09-04
+:PROPERTIES:
+:CUSTOM_ID: h:ca7dd1d2-f32c-4141-b9bb-9493457dd4e1
+:END:
 
 + Implemented a mechanism to read fallback values for the presets
   specified in the user option ~cursory-presets~.  In practical terms,
@@ -60,6 +63,9 @@ the manual: .
   GNU ELPA package.  A link is shown in Custom UI buffers.
 
 * Version 0.2.0 on 2022-07-01
+:PROPERTIES:
+:CUSTOM_ID: h:76673384-4888-4160-b4fe-b294e78c54ac
+:END:
 
 This is a stability release that introduces minor tweaks while
 formalising point releases which were already available to users.
@@ -130,6 +136,9 @@ formalising point releases which were already available to 
users.
   #+end_quote
 
 * Version 0.1.0 on 2022-04-15
+:PROPERTIES:
+:CUSTOM_ID: h:750618bd-d3ea-4eac-a061-95d3120d5f6e
+:END:
 
 Initial release of the package.  Please read the manual.
 

[elpa] externals/denote updated (bb349f3383 -> 1971ffeacd)

[ELPA Syncer]

elpasync pushed a change to branch externals/denote.

  from  bb349f3383 Fix point-at-[be]ol obsoletion warnings (Emacs 29)
   new  9c94de9934 Add :link to Info manual in denote group
   new  1971ffeacd Refine denote--title-history


Summary of changes:
 denote.el | 12 +++-
 1 file changed, 7 insertions(+), 5 deletions(-)

[elpa] externals/denote 1971ffeacd 2/2: Refine denote--title-history

[ELPA Syncer]

branch: externals/denote
commit 1971ffeacdcce87511e366378da180ffb6b2f99f
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Refine denote--title-history
---
 denote.el | 9 +
 1 file changed, 5 insertions(+), 4 deletions(-)

diff --git a/denote.el b/denote.el
index 4ee37c25b0..4e0edaf166 100644
--- a/denote.el
+++ b/denote.el
@@ -1165,10 +1165,11 @@ When called from Lisp, all arguments are optional.
 (defun denote--title-prompt (&optional default-title)
   "Read file title for `denote'.
 With optional DEFAULT-TITLE use it as the default value."
-  (let ((format (if (and default-title (not (string-empty-p default-title)))
-(format "File title [%s]: " default-title)
-  "File title: ")))
-(read-string format nil 'denote--title-history default-title)))
+  (let* ((def default-title)
+ (format (if (and def (not (string-empty-p def)))
+ (format "File title [%s]: " def)
+   "File title: ")))
+(read-string format nil 'denote--title-history def)))
 
 (defvar denote--file-type-history nil
   "Minibuffer history of `denote--file-type-prompt'.")

[elpa] externals/denote 9c94de9934 1/2: Add :link to Info manual in denote group

[ELPA Syncer]

branch: externals/denote
commit 9c94de9934ea7840fe182abfca23d69d4d75e62d
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Add :link to Info manual in denote group
---
 denote.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/denote.el b/denote.el
index c11c819a06..4ee37c25b0 100644
--- a/denote.el
+++ b/denote.el
@@ -103,7 +103,8 @@
 
 (defgroup denote ()
   "Simple notes with an efficient file-naming scheme."
-  :group 'files)
+  :group 'files
+  :link '(info-link "(denote) Top"))
 
  User options
 

[elpa] externals/greader b4d228e1ca 2/2: Merge branch 'devel'

[ELPA Syncer]

branch: externals/greader
commit b4d228e1caad3e4c4bc88540e9e2036cf8e05204
Merge: 4a178e8878 af2f7a3c49
Author: Michelangelo Rodriguez 
Commit: Michelangelo Rodriguez 

Merge branch 'devel'
---
 greader.el | 17 +++--
 1 file changed, 7 insertions(+), 10 deletions(-)

diff --git a/greader.el b/greader.el
index ff4d00e9f4..6688552cf3 100644
--- a/greader.el
+++ b/greader.el
@@ -195,11 +195,11 @@ if set to t, when you call function `greader-read', that 
function sets a
 map))
 (defvar greader-reading-map
   (let ((map (make-sparse-keymap)))
-(define-key map (kbd "SPC") #'greader-stop)
-(define-key map (kbd "p")   #'greader-toggle-punctuation)
-(define-key map (kbd ".")   #'greader-stop-with-timer)
-(define-key map (kbd "+")   #'greader-inc-rate)
-(define-key map (kbd "-")   #'greader-dec-rate)
+(define-key map (kbd "C-r SPC") #'greader-stop)
+(define-key map (kbd "C-r p")   #'greader-toggle-punctuation)
+(define-key map (kbd "C-r .")   #'greader-stop-with-timer)
+(define-key map (kbd "c-r +")   #'greader-inc-rate)
+(define-key map (kbd "c-r -")   #'greader-dec-rate)
 map))
 (defvar-local greader--reading nil
   "If non-nil, `greader-reading-map' is active.")
@@ -210,14 +210,11 @@ if set to t, when you call function `greader-read', that 
function sets a
   :lighter " greader"
   :group 'greader
   (cond
-   ;;; why we eval a call to a function?
-   ;;; I suppose because side-effect of enabling the mode.
-;;;   So we do wrong if evaluate greader-mode as a variable?
-   
(greader-mode
 (add-to-list 'minor-mode-map-alist
  `'(greader--reading . ,greader-reading-map))
-  (greader-load-backends
+(greader-load-backends
+
 ;;;code
 (defun greader-set-register ()
   "Set the `?G' register to the point in current buffer."

[elpa] externals/greader af2f7a3c49 1/2: greader-reading-map default bindings changed plus indentation

[ELPA Syncer]

branch: externals/greader
commit af2f7a3c498125f6eeed42e7f9d6e05321368978
Author: Michelangelo Rodriguez 
Commit: Michelangelo Rodriguez 

greader-reading-map default bindings changed plus indentation
corrections.
---
 greader.el | 17 +++--
 1 file changed, 7 insertions(+), 10 deletions(-)

diff --git a/greader.el b/greader.el
index 5f4c3cecd4..9cfa023b7c 100644
--- a/greader.el
+++ b/greader.el
@@ -195,11 +195,11 @@ if set to t, when you call function `greader-read', that 
function sets a
 map))
 (defvar greader-reading-map
   (let ((map (make-sparse-keymap)))
-(define-key map (kbd "SPC") #'greader-stop)
-(define-key map (kbd "p")   #'greader-toggle-punctuation)
-(define-key map (kbd ".")   #'greader-stop-with-timer)
-(define-key map (kbd "+")   #'greader-inc-rate)
-(define-key map (kbd "-")   #'greader-dec-rate)
+(define-key map (kbd "C-r SPC") #'greader-stop)
+(define-key map (kbd "C-r p")   #'greader-toggle-punctuation)
+(define-key map (kbd "C-r .")   #'greader-stop-with-timer)
+(define-key map (kbd "c-r +")   #'greader-inc-rate)
+(define-key map (kbd "c-r -")   #'greader-dec-rate)
 map))
 (defvar-local greader--reading nil
   "If non-nil, `greader-reading-map' is active.")
@@ -210,14 +210,11 @@ if set to t, when you call function `greader-read', that 
function sets a
   :lighter " greader"
   :group 'greader
   (cond
-   ;;; why we eval a call to a function?
-   ;;; I suppose because side-effect of enabling the mode.
-;;;   So we do wrong if evaluate greader-mode as a variable?
-   
(greader-mode
 (add-to-list 'minor-mode-map-alist
  `'(greader--reading . ,greader-reading-map))
-  (greader-load-backends
+(greader-load-backends
+
 ;;;code
 (defun greader-set-register ()
   "Set the `?G' register to the point in current buffer."

[elpa] externals/lin c41d30744e: Remove make-obsolete of old variable

[ELPA Syncer]

branch: externals/lin
commit c41d30744e16bce9e0b87c8df2082d098a3cef4e
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Remove make-obsolete of old variable
---
 lin.el | 2 --
 1 file changed, 2 deletions(-)

diff --git a/lin.el b/lin.el
index 9ed03790a2..c2953b361f 100644
--- a/lin.el
+++ b/lin.el
@@ -67,8 +67,6 @@
 (require 'face-remap)
 (require 'hl-line)
 
-(make-obsolete 'lin--default-foreign-hooks 'lin-mode-hooks "0.2.0")
-
 (defgroup lin ()
   "Make `hl-line' appropriate for selection UIs."
   :group 'convenience)

[nongnu] elpa/autothemer 10d4dbe719 2/2: Update README.md

[ELPA Syncer]

branch: elpa/autothemer
commit 10d4dbe719a89a7384925aedc85dfc4710403e28
Author: Jason Milkins 
Commit: GitHub 

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

diff --git a/README.md b/README.md
index f8e98c94c4..faf4401098 100644
--- a/README.md
+++ b/README.md
@@ -2,7 +2,7 @@
 
 [![Autothemer 
Tests](https://github.com/jasonm23/autothemer/actions/workflows/test.yml/badge.svg)](https://github.com/jasonm23/autothemer/actions/workflows/test.yml)
 
-[![NonGNU 
ELPA](https://elpa.nongnu.org/nongnu/autothemer.svg)](https://elpa.nongnu.org/nongnu/autothemer.html)
+[![NonGNU 
ELPA](https://elpa.nongnu.org/nongnu/autothemer.svg?nocache=238904571345)](https://elpa.nongnu.org/nongnu/autothemer.html)
 
[![MELPA](https://melpa.org/packages/autothemer-badge.svg)](https://melpa.org/#/autothemer)
 [![MELPA 
Stable](https://stable.melpa.org/packages/autothemer-badge.svg)](https://stable.melpa.org/#/autothemer)
 

[nongnu] elpa/autothemer 64d855aee8 1/2: Select sort, grouping functions/ranges + iterate on docs (#26)

[ELPA Syncer]

branch: elpa/autothemer
commit 64d855aee8b0a98183ac3cb2ec70857447dd6497
Author: Jason Milkins 
Commit: GitHub 

Select sort, grouping functions/ranges + iterate on docs (#26)

* Swatch sorting/grouping | update docs
* Function-reference regenerated tables added
* Cleanup docstrings
---
 README.md | 162 ++---
 autothemer.el | 202 ++
 function-reference.md | 351 +++---
 tests/autothemer-tests.el | 147 +++
 4 files changed, 525 insertions(+), 337 deletions(-)

diff --git a/README.md b/README.md
index 2fca846fb3..f8e98c94c4 100644
--- a/README.md
+++ b/README.md
@@ -286,8 +286,8 @@ For example:
 
 ```lisp
 (autothemer-generate-palette-svg 
-'(:theme-file "orangey-bits-theme.el"
-  :svg-out-file "test.svg"
+'(:theme-file "path/folder/my-autotheme.el"
+  :svg-out-file "path/folder/my-autotheme-palette.svg"
   :bg-color "#190700"
   :text-color "#FFE0C0"
   :text-accent-color "#90776C"
@@ -299,22 +299,31 @@ For example:
 
  autothemer-generate-palette-svg options
 
-| Option   | Description   
|
-|--|---|
-| `:theme-file`| Theme filename
|
-| `:theme-name`| Override the title found in `:theme-file` 
|
-| `:theme-description` | Override the description found in `:theme-file`   
|
-| `:theme-url` | Override the url found in `:theme-file`   
|
-| `:swatch-width`  | px width of a color swatch (default: `100`)   
|
-| `:swatch-height` | px height of a color swatch (default: `150`)  
|
-| `:columns`   | Number of columns for each palette row (default: `6`) 
|
-| `:page-template` | See page-template below   
|
-| `:swatch-template`   | see swatch-template below 
|
-| `:font-family`   | Font name to use in the generated SVG 
|
-| `:bg-color`  | Background color  
|
-| `:text-color`| Text color
|
-| `:text-accent-color` | Text accent color 
|
-| `:svg-out-file`  | SVG output filename   
|
+| Option| Description  
 |
+|---|---|
+| `theme-file`  | Theme filename   
 |
+| `theme-name`  | Override the title found in `:theme-file`
 |
+| `theme-description`   | Override the description found in `:theme-file`  
 |
+| `theme-url`   | Override the url found in `:theme-file`  
 |
+| `font-family` | Font name to use in the generated SVG
 |
+| `columns` | Number of columns for each palette row (default: 
`6`) |
+| `bg-color`| Page background color
 |
+| `text-color`  | Main text color  
 |
+| `text-accent-color`   | Accent text color
 |
+| `page-template`   | See page-template below  
 |
+| `page-top-margin` | Top margin of page (Default: `120`)  
 |
+| `page-right-margin`   | Right margin of page (Default: `30`) 
 |
+| `page-bottom-margin`  | Bottom margin of page (Default: `60`)
 |
+| `page-left-margin`| Left margin of page (Default: `30`)  
 |
+| `swatch-template` | See swatch-template below
 |
+| `swatch-border-color` | The border color of a color swatch   
 |
+| `swatch-width`| Px spacing width of a color swatch (default: `100`)  
 |
+| `swatch-height`   | Px spacing height of a color swatch (default: `150`) 
 |
+| `swatch-rotate`   | Degrees of rotation for swatch (default: `45`)   
 |
+| `h-space` | Horizontal-space between swatches (default: `10`)
 |
+| `v-space` | Vertical-space between swatches (default: `10`)  
 |
+| `sort-palette`| Arrange palette using a function see below   
 |
+| `svg-out-file`| The file/pathname to save SVG output 
 |
 
 # :page-template and :swatch-template
 
@@ -343,51 +352,108 @@ The builtin page template
 ```svg
 
 http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd";>
+  "http://www.w3.org/Graphics/SVG/1.1/DTD/svg11.dtd";>
 http://www.w3.org/2000/svg";
  xmlns:xlink="http://www.w3.org/1999/xlink";>
-  
-text {
-font-family: "%3$s";
-fill: %4$s;
-}
-  
-  
-  
-
-%7$s
-%8$s
-%9$s
-
-  
-  
-  %10$s
-  
+  

[nongnu] elpa/autothemer updated (5a193c796a -> 10d4dbe719)

[ELPA Syncer]

elpasync pushed a change to branch elpa/autothemer.

  from  5a193c796a 0.2.11 - develop color grouping and sorting. (#25)
   new  64d855aee8 Select sort, grouping functions/ranges + iterate on docs 
(#26)
   new  10d4dbe719 Update README.md


Summary of changes:
 README.md | 164 +++---
 autothemer.el | 202 ++
 function-reference.md | 351 +++---
 tests/autothemer-tests.el | 147 +++
 4 files changed, 526 insertions(+), 338 deletions(-)

[elpa] externals/denote a143347053 3/3: Bump version 0.6.1 to trigger package rebuild

[ELPA Syncer]

branch: externals/denote
commit a143347053d1b91cbbaae602d6a109157d0e2ed7
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Bump version 0.6.1 to trigger package rebuild

This is to include commit 2532464.
---
 denote.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/denote.el b/denote.el
index 71648f9874..2d5adfd642 100644
--- a/denote.el
+++ b/denote.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Denote Development <~protesilaos/den...@lists.sr.ht>
 ;; URL: https://git.sr.ht/~protesilaos/denote
 ;; Mailing-List: https://lists.sr.ht/~protesilaos/denote
-;; Version: 0.6.0
+;; Version: 0.6.1
 ;; Package-Requires: ((emacs "27.2"))
 
 ;; This file is NOT part of GNU Emacs.

[elpa] externals/denote updated (1971ffeacd -> a143347053)

[ELPA Syncer]

elpasync pushed a change to branch externals/denote.

  from  1971ffeacd Refine denote--title-history
   new  2532464b00 Make denote--current-file-is-note-p check for file
   new  9758fa4393 Acknowledge Hilde Rhyne for commit 2532464
   new  a143347053 Bump version 0.6.1 to trigger package rebuild


Summary of changes:
 README.org | 6 +++---
 denote.el  | 5 +++--
 2 files changed, 6 insertions(+), 5 deletions(-)

[elpa] externals/denote 9758fa4393 2/3: Acknowledge Hilde Rhyne for commit 2532464

[ELPA Syncer]

branch: externals/denote
commit 9758fa4393cb6fd760e6ab1d3696fc3933a44b71
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Acknowledge Hilde Rhyne for commit 2532464

The patch is below the ~15 line threshold and thus does not require
copyright assignment to the Free Software Foundation.

The issue was discussed on the mailing list:

.
---
 README.org | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/README.org b/README.org
index cc28bc1efa..6c9a40901a 100644
--- a/README.org
+++ b/README.org
@@ -2353,9 +2353,9 @@ Denote is meant to be a collective effort.  Every bit of 
help matters.
 + Author/maintainer :: Protesilaos Stavrou.
 
 + Contributions to code or the manual :: Abin Simon, Benjamin Kästner,
-  Colin McLear, Damien Cassou, Eshel Yaron, Jack Baty, Jean-Philippe
-  Gagné Guay, Jürgen Hötzel, Kaushal Modi, Kyle Meyer, Peter Prevos,
-  Philip Kaludercic, Quiliro Ordóñez, Stefan Monnier.
+  Colin McLear, Damien Cassou, Eshel Yaron, Hilde Rhyne, Jack Baty,
+  Jean-Philippe Gagné Guay, Jürgen Hötzel, Kaushal Modi, Kyle Meyer,
+  Peter Prevos, Philip Kaludercic, Quiliro Ordóñez, Stefan Monnier.
 
 + Ideas and/or user feedback :: Abin Simon, Alan Schmitt, Alfredo
   Borrás, Benjamin Kästner, Colin McLear, Damien Cassou, Frank Ehmsen,

[elpa] externals/denote 2532464b00 1/3: Make denote--current-file-is-note-p check for file

[ELPA Syncer]

branch: externals/denote
commit 2532464b001b9aa316103e415df91e73635780c6
Author: Hilde Rhyne 
Commit: Protesilaos Stavrou 

Make denote--current-file-is-note-p check for file

This avoids errors when buffer-file-name returns a nil value.
---
 denote.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/denote.el b/denote.el
index 4e0edaf166..71648f9874 100644
--- a/denote.el
+++ b/denote.el
@@ -493,7 +493,8 @@ FILE must be an absolute path."
 
 (defun denote--current-file-is-note-p ()
   "Return non-nil if current file likely is a Denote note."
-  (and (or (string-match-p denote--id-regexp (buffer-file-name))
+  (and (buffer-file-name)
+   (or (string-match-p denote--id-regexp (buffer-file-name))
(string-match-p denote--id-regexp (buffer-name)))
(denote--default-dir-has-denote-prefix)))
 

[elpa] externals/greader 2f42d2dd40 2/2: Merge branch 'devel'

[ELPA Syncer]

branch: externals/greader
commit 2f42d2dd40ccf08f3b52de5645a22bde41211b7b
Merge: b4d228e1ca f760f946c3
Author: Michelangelo Rodriguez 
Commit: Michelangelo Rodriguez 

Merge branch 'devel'
---
 greader.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/greader.el b/greader.el
index 6688552cf3..69915ab6fe 100644
--- a/greader.el
+++ b/greader.el
@@ -212,7 +212,7 @@ if set to t, when you call function `greader-read', that 
function sets a
   (cond
(greader-mode
 (add-to-list 'minor-mode-map-alist
- `'(greader--reading . ,greader-reading-map))
+ `(greader--reading . ,greader-reading-map))
 (greader-load-backends
 
 ;;;code

[elpa] externals/greader f760f946c3 1/2: Removed extra quote from add-to-list.

[ELPA Syncer]

branch: externals/greader
commit f760f946c395d22673a4f4a4f32375ec063af1b4
Author: Michelangelo Rodriguez 
Commit: Michelangelo Rodriguez 

Removed extra quote from add-to-list.
It works!
---
 greader.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/greader.el b/greader.el
index 9cfa023b7c..fe7ba751cf 100644
--- a/greader.el
+++ b/greader.el
@@ -212,7 +212,7 @@ if set to t, when you call function `greader-read', that 
function sets a
   (cond
(greader-mode
 (add-to-list 'minor-mode-map-alist
- `'(greader--reading . ,greader-reading-map))
+ `(greader--reading . ,greader-reading-map))
 (greader-load-backends
 
 ;;;code

[elpa] main d4ce3abfc7: * elpa-packages (cursory): Add :news file

[Protesilaos Stavrou]

branch: main
commit d4ce3abfc7c942d2516968c67e84c568889274d7
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

* elpa-packages (cursory): Add :news file
---
 elpa-packages | 1 +
 1 file changed, 1 insertion(+)

diff --git a/elpa-packages b/elpa-packages
index 0210440ae8..2f83cd6229 100644
--- a/elpa-packages
+++ b/elpa-packages
@@ -184,6 +184,7 @@
   :url "https://git.sr.ht/~protesilaos/cursory";
   :auto-sync t
   :doc "README.org"
+  :news "CHANGELOG.org"
   :ignored-files ("COPYING" "doclicense.texi"))
  ("cycle-quotes"   :url nil)
  ("darkroom":url "https://github.com/capitaomorte/darkroom.git";)

[elpa] externals/logos 5f1d8a423e: Clarify logos-focus-mode-extra-functions docs

[ELPA Syncer]

branch: externals/logos
commit 5f1d8a423ea3d751c8d1f82f139202942a80aed5
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Clarify logos-focus-mode-extra-functions docs
---
 README.org | 18 +-
 logos.el   |  8 ++--
 2 files changed, 15 insertions(+), 11 deletions(-)

diff --git a/README.org b/README.org
index f5cdfc5f97..eff15d6ec6 100644
--- a/README.org
+++ b/README.org
@@ -476,15 +476,15 @@ result can look like this:
 
 #+vindex: logos-focus-mode-extra-functions
 The ~logos-focus-mode-extra-functions~ is a normal hook that runs when
-~logos-focus-mode~ is enabled.  It gives users the power to write their
-own extensions that change how the buffer works when that mode is
-toggled on/off.
-
-The hook is designed to call functions without an argument.  An example
-function that sets a variable is ~logos--buffer-read-only~; one that
-sets a mode is ~logos--scroll-lock~; another that sets the mode of an
-external package is ~logos--olivetti~; while ~logos--hide-fringe~
-provides yet another useful sample.
+~logos-focus-mode~ is enabled.  Each function is run without an argument
+and looks like those in =logos.el=.  An example that sets a variable is
+~logos--buffer-read-only~; one that sets a mode is ~logos--scroll-lock~;
+another that sets the mode of an external package is ~logos--olivetti~;
+while ~logos--hide-fringe~ provides yet another useful sample.
+
+If a function cannot be like the aforementioned though still needs to
+set its state both when ~logos-focus-mode~ is enabled and disabled, then
+use the ~logos-focus-mode-hook~ instead.
 
 *** Conditionally toggle org-indent-mode
 :PROPERTIES:
diff --git a/logos.el b/logos.el
index c2d98ebfdf..3e350f7b56 100644
--- a/logos.el
+++ b/logos.el
@@ -191,7 +191,7 @@ This is only relevant when `logos-focus-mode' is enabled."
   :local t)
 
 (defcustom logos-focus-mode-extra-functions nil
-  "List of functions to execute when `logos-focus-mode' is toggled.
+  "List of functions to execute when `logos-focus-mode' is enabled.
 
 Each function is run without an argument.  An example that sets a
 variable is `logos--buffer-read-only'; one that sets a mode is
@@ -199,7 +199,11 @@ variable is `logos--buffer-read-only'; one that sets a 
mode is
 package is `logos--olivetti'; while `logos--hide-fringe' provides
 yet another useful sample.
 
-Consult the Logos manual for concrete do-it-yourself examples."
+Consult the Logos manual for concrete do-it-yourself examples.
+
+If a function cannot be like the aforementioned though still
+needs to set its state both when `logos-focus-mode' is enabled
+and disabled, then use the `logos-focus-mode-hook' instead."
   :type 'hook
   :package-version '(logos . "0.4.0")
   :group 'logos)

[elpa] externals/ef-themes updated (4dfbaaafc3 -> 34240ee9bd)

[ELPA Syncer]

elpasync pushed a change to branch externals/ef-themes.

  from  4dfbaaafc3 ef-spring: tweak cursor colour
   new  e2153ef77c ef-night: tweak link mapping
   new  14c6dab169 ef-night: tweak variable mapping
   new  d195298d56 Fix company-preview-search face
   new  8164cccf5d Complete support for all Gnus faces
   new  34240ee9bd Add support for icon-button (Emacs 29)


Summary of changes:
 README.org|  2 +-
 ef-night-theme.el |  4 ++--
 ef-themes.el  | 72 ---
 3 files changed, 72 insertions(+), 6 deletions(-)

[elpa] externals/ef-themes e2153ef77c 1/5: ef-night: tweak link mapping

[ELPA Syncer]

branch: externals/ef-themes
commit e2153ef77ce13204b9ee36d85a2882badefa75b7
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

ef-night: tweak link mapping
---
 ef-night-theme.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ef-night-theme.el b/ef-night-theme.el
index 067df6b9c0..65be5d7db7 100644
--- a/ef-night-theme.el
+++ b/ef-night-theme.el
@@ -145,7 +145,7 @@
   (warning yellow-warmer)
   (info green-cooler)
 
-  (link cyan)
+  (link cyan-warmer)
   (link-alt magenta)
   (date cyan)
   (name blue-warmer)

[elpa] externals/ef-themes 14c6dab169 2/5: ef-night: tweak variable mapping

[ELPA Syncer]

branch: externals/ef-themes
commit 14c6dab1698ea1b319b1a343a91a9ffeb598
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

ef-night: tweak variable mapping
---
 ef-night-theme.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ef-night-theme.el b/ef-night-theme.el
index 65be5d7db7..6bd0d41da3 100644
--- a/ef-night-theme.el
+++ b/ef-night-theme.el
@@ -160,7 +160,7 @@
   (docstring cyan-faint)
   (string blue-cooler)
   (type magenta-cooler)
-  (variable cyan-warmer)
+  (variable cyan)
 
   (rx-escape green) ; compare with `string'
   (rx-construct magenta-warmer)

[elpa] externals/ef-themes 34240ee9bd 5/5: Add support for icon-button (Emacs 29)

[ELPA Syncer]

branch: externals/ef-themes
commit 34240ee9bd1e96304ffb7fc22d3b9802bd2f1921
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Add support for icon-button (Emacs 29)
---
 ef-themes.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/ef-themes.el b/ef-themes.el
index 07e77177c4..4dcf4ce758 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -538,6 +538,7 @@ Helper function for `ef-themes-preview-colors'."
 `(elisp-shorthand-font-lock-face ((,c :inherit italic)))
 `(escape-glyph ((,c :foreground ,warning)))
 `(error ((,c :inherit bold :foreground ,err)))
+`(icon-button ((,c :box ,fg-dim :background ,bg-active :foreground 
,fg-intense))) ; same as `custom-button'
 `(success ((,c :inherit bold :foreground ,info)))
 `(warning ((,c :inherit bold :foreground ,warning)))
 `(fringe ((,c :background unspecified)))

[elpa] externals/ef-themes d195298d56 3/5: Fix company-preview-search face

[ELPA Syncer]

branch: externals/ef-themes
commit d195298d563685d992f9cbef0ad07ca101438f81
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Fix company-preview-search face
---
 ef-themes.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ef-themes.el b/ef-themes.el
index 0dc5c3508c..db7be9cd59 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -680,7 +680,7 @@ Helper function for `ef-themes-preview-colors'."
 `(company-echo-common ((,c :inherit bold :foreground ,accent-0)))
 `(company-preview ((,c :background ,bg-dim :foreground ,fg-dim)))
 `(company-preview-common ((,c :inherit company-echo-common)))
-`(company-preview-search ((,c :inherit modus-themes-special-calm)))
+`(company-preview-search ((,c :background ,bg-yellow :foreground 
,fg-intense)))
 `(company-scrollbar-bg ((,c :background ,bg-active)))
 `(company-scrollbar-fg ((,c :background ,fg-main)))
 `(company-template-field ((,c :background ,bg-active :foreground 
,fg-intense)))

[elpa] externals/ef-themes 8164cccf5d 4/5: Complete support for all Gnus faces

[ELPA Syncer]

branch: externals/ef-themes
commit 8164cccf5d8e5f87ab560adae1058928c337df42
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Complete support for all Gnus faces
---
 README.org   |  2 +-
 ef-themes.el | 69 ++--
 2 files changed, 68 insertions(+), 3 deletions(-)

diff --git a/README.org b/README.org
index e42d794ce2..f4af8847b5 100644
--- a/README.org
+++ b/README.org
@@ -831,7 +831,7 @@ everything most users need.
 - font-lock
 - git-commit
 - git-rebase
-- gnus (incomplete, though likely is okay)
+- gnus [ Added all faces as part of {{{development-version}}} ]
 - image-dired [ Part of {{{development-version}}} ]
 - info
 - isearch, occur, query-replace
diff --git a/ef-themes.el b/ef-themes.el
index db7be9cd59..07e77177c4 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -951,13 +951,78 @@ Helper function for `ef-themes-preview-colors'."
 `(git-rebase-comment-heading  ((,c :inherit (bold 
font-lock-comment-face
 `(git-rebase-description ((,c :foreground ,fg-main)))
 `(git-rebase-hash ((,c :foreground ,constant)))
- gnus WORK-IN-PROGRESS
-`(gnus-emphasis-highlight-words ((,c :background ,bg-alt :foreground 
,warning)))
+ gnus
+`(gnus-button ((,c :inherit button)))
+`(gnus-cite-1 ((,c :inherit message-cited-text-1)))
+`(gnus-cite-2 ((,c :inherit message-cited-text-2)))
+`(gnus-cite-3 ((,c :inherit message-cited-text-3)))
+`(gnus-cite-4 ((,c :inherit message-cited-text-4)))
+`(gnus-cite-5 ((,c :inherit message-cited-text-1)))
+`(gnus-cite-6 ((,c :inherit message-cited-text-2)))
+`(gnus-cite-7 ((,c :inherit message-cited-text-3)))
+`(gnus-cite-8 ((,c :inherit message-cited-text-4)))
+`(gnus-cite-9 ((,c :inherit message-cited-text-1)))
+`(gnus-cite-10 ((,c :inherit message-cited-text-2)))
+`(gnus-cite-11 ((,c :inherit message-cited-text-3)))
+`(gnus-cite-attribution ((,c :inherit italic)))
+`(gnus-emphasis-bold ((,c :inherit bold)))
+`(gnus-emphasis-bold-italic ((,c :inherit bold-italic)))
+`(gnus-emphasis-highlight-words ((,c :inherit warning)))
+`(gnus-emphasis-italic ((,c :inherit italic)))
+`(gnus-emphasis-underline-bold ((,c :inherit gnus-emphasis-bold :underline 
t)))
+`(gnus-emphasis-underline-bold-italic ((,c :inherit 
gnus-emphasis-bold-italic :underline t)))
+`(gnus-emphasis-underline-italic ((,c :inherit gnus-emphasis-italic 
:underline t)))
+`(gnus-group-mail-1 ((,c :inherit bold :foreground ,rainbow-1)))
+`(gnus-group-mail-1-empty ((,c :foreground ,rainbow-1)))
+`(gnus-group-mail-2 ((,c :inherit bold :foreground ,rainbow-2)))
+`(gnus-group-mail-2-empty ((,c :foreground ,rainbow-2)))
+`(gnus-group-mail-3 ((,c :inherit bold :foreground ,rainbow-3)))
+`(gnus-group-mail-3-empty ((,c :foreground ,rainbow-3)))
+`(gnus-group-mail-low ((,c :inherit bold :foreground ,fg-alt)))
+`(gnus-group-mail-low-empty ((,c :foreground ,fg-alt)))
+`(gnus-group-news-1 ((,c :inherit bold :foreground ,rainbow-1)))
+`(gnus-group-news-1-empty ((,c :foreground ,rainbow-1)))
+`(gnus-group-news-2 ((,c :inherit bold :foreground ,rainbow-2)))
+`(gnus-group-news-2-empty ((,c :foreground ,rainbow-2)))
+`(gnus-group-news-3 ((,c :inherit bold :foreground ,rainbow-3)))
+`(gnus-group-news-3-empty ((,c :foreground ,rainbow-3)))
+`(gnus-group-news-4 ((,c :inherit bold :foreground ,rainbow-4)))
+`(gnus-group-news-4-empty ((,c :foreground ,rainbow-4)))
+`(gnus-group-news-5 ((,c :inherit bold :foreground ,rainbow-5)))
+`(gnus-group-news-5-empty ((,c :foreground ,rainbow-5)))
+`(gnus-group-news-6 ((,c :inherit bold :foreground ,rainbow-6)))
+`(gnus-group-news-6-empty ((,c :foreground ,rainbow-6)))
+`(gnus-group-news-low ((,c :inherit bold :foreground ,fg-alt)))
+`(gnus-group-news-low-empty ((,c :foreground ,fg-alt)))
 `(gnus-header-content ((,c :inherit message-header-other)))
 `(gnus-header-from ((,c :inherit message-header-to :underline nil)))
 `(gnus-header-name ((,c :inherit message-header-name)))
 `(gnus-header-newsgroups ((,c :inherit message-header-newsgroups)))
 `(gnus-header-subject ((,c :inherit message-header-subject)))
+`(gnus-server-agent ((,c :inherit bold)))
+`(gnus-server-closed ((,c :inherit italic)))
+`(gnus-server-cloud ((,c :inherit bold :foreground ,fg-alt)))
+`(gnus-server-cloud-host ((,c :inherit bold :foreground ,fg-alt :underline 
t)))
+`(gnus-server-denied ((,c :inherit error)))
+`(gnus-server-offline ((,c :inherit shadow)))
+`(gnus-server-opened ((,c :inherit success)))
+`(gnus-summary-cancelled ((,c :background ,bg-warning :foreground ,warning 
:extend t)))
+`(gnus-summary-high-ancient ((,c :inherit bold :foreground ,fg-alt)))
+`(gnus-summary-high-read ((,c :inherit bold :foreground ,fg-dim)))
+`(gnus-summary-high-ticked ((,c :inherit bold :foreground ,err)))
+`(gnus-summary-high-undownloa

[elpa] externals/ef-themes 394154a779: Sort and organise all basic faces

[ELPA Syncer]

branch: externals/ef-themes
commit 394154a779349923c1c01fe4fb6f8ab9fec4946c
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Sort and organise all basic faces
---
 ef-themes.el | 28 +++-
 1 file changed, 15 insertions(+), 13 deletions(-)

diff --git a/ef-themes.el b/ef-themes.el
index 4dcf4ce758..31f738acc6 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -524,40 +524,42 @@ Helper function for `ef-themes-preview-colors'."
 `(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)))
-`(vertical-border ((,c :foreground ,border)))
+; absolute essentials
 `(bold ((,c :weight bold)))
-`(italic ((,c :slant italic)))
 `(bold-italic ((,c :inherit (bold italic
+`(cursor ((,c :background ,cursor)))
+`(default ((,c :background ,bg-main :foreground ,fg-main)))
+`(italic ((,c :slant italic)))
 `(region ((,c :background ,bg-region)))
+`(vertical-border ((,c :foreground ,border)))
+; all other basic faces
+`(button ((,c :foreground ,link :underline ,border)))
 `(comint-highlight-input ((,c :inherit bold)))
 `(comint-highlight-prompt ((,c :foreground ,accent-2)))
-`(minibuffer-prompt ((,c :foreground ,accent-2)))
 `(edmacro-label ((,c :inherit bold)))
 `(elisp-shorthand-font-lock-face ((,c :inherit italic)))
-`(escape-glyph ((,c :foreground ,warning)))
 `(error ((,c :inherit bold :foreground ,err)))
-`(icon-button ((,c :box ,fg-dim :background ,bg-active :foreground 
,fg-intense))) ; same as `custom-button'
-`(success ((,c :inherit bold :foreground ,info)))
-`(warning ((,c :inherit bold :foreground ,warning)))
+`(escape-glyph ((,c :foreground ,warning)))
 `(fringe ((,c :background unspecified)))
 `(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)))
 `(highlight ((,c :background ,bg-hover :foreground ,fg-intense)))
-`(read-multiple-choice-face ((,c :inherit warning :background 
,bg-warning)))
-`(secondary-selection ((,c :background ,bg-hover-alt :foreground 
,fg-intense)))
 `(hl-line ((,c :background ,bg-hl-line)))
-`(button ((,c :foreground ,link :underline ,border)))
+`(icon-button ((,c :box ,fg-dim :background ,bg-active :foreground 
,fg-intense))) ; same as `custom-button'
 `(link ((,c :foreground ,link :underline ,border)))
 `(link-visited ((,c :foreground ,link-alt :underline ,border)))
+`(minibuffer-prompt ((,c :foreground ,accent-2)))
 `(pgtk-im-0 ((,c :inherit secondary-selection)))
+`(read-multiple-choice-face ((,c :inherit warning :background 
,bg-warning)))
 `(rectangle-preview ((,c :inherit secondary-selection)))
+`(secondary-selection ((,c :background ,bg-hover-alt :foreground 
,fg-intense)))
 `(shadow ((,c :foreground ,fg-dim)))
-`(trailing-whitespace ((,c :background ,bg-red :foreground ,fg-intense)))
+`(success ((,c :inherit bold :foreground ,info)))
 `(tooltip ((,c :background ,bg-alt :foreground ,fg-intense)))
+`(trailing-whitespace ((,c :background ,bg-red :foreground ,fg-intense)))
+`(warning ((,c :inherit bold :foreground ,warning)))
  all-the-icons
 `(all-the-icons-blue ((,c :foreground ,blue-cooler)))
 `(all-the-icons-blue-alt ((,c :foreground ,blue-warmer)))

[nongnu] elpa/autothemer 5c878d088a: Cleanup docstring

[ELPA Syncer]

branch: elpa/autothemer
commit 5c878d088a39c1ba8d45d38ade4d8c5a5d8c65e4
Author: Jason Milkins 
Commit: Jason Milkins 

Cleanup docstring
---
 autothemer.el | 11 +++
 1 file changed, 3 insertions(+), 8 deletions(-)

diff --git a/autothemer.el b/autothemer.el
index 2aa6480bf0..2b848cbbf1 100644
--- a/autothemer.el
+++ b/autothemer.el
@@ -315,18 +315,13 @@ Pad with nil if necessary."
 (defun autothemer--replace-nil-by-precursor(palette-row)
   "Replace nil colors in PALETTE-ROW with their precursor.
 
-PALETTE-ROW is of the form `(name color [color ...])'
-
-Where  the first `color' must be non nil.
-
-Any subsequent nil color will be replaced by the previous value.
+PALETTE-ROW is of the form `(name color [color ...])' Where the
+first `color' must be non nil. Any subsequent nil color will be
+replaced by the previous value.
 
 For example:
-
  (\"red-foo\" \"#FF\" nil)
-
 Will become:
-
  (\"red-foo\" \"#FF\" \"#FF\")"
   (cl-assert (car palette-row))
   (let* ((color-name (car palette-row))

[elpa] externals/fontaine updated (06c4b8666e -> 8269bf8fee)

[ELPA Syncer]

elpasync pushed a change to branch externals/fontaine.

  from  06c4b8666e Change default value of 'fontaine-presets'
   new  a8fb21fe07 Make fontaine-current-preset public
   new  8269bf8fee Document how to keep fonts on theme switch


Summary of changes:
 README.org  | 42 ++
 fontaine.el |  7 ---
 2 files changed, 46 insertions(+), 3 deletions(-)

[elpa] externals/fontaine a8fb21fe07 1/2: Make fontaine-current-preset public

[ELPA Syncer]

branch: externals/fontaine
commit a8fb21fe071e11ac9e88d0390add3fce8ef71139
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Make fontaine-current-preset public
---
 fontaine.el | 7 ---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/fontaine.el b/fontaine.el
index 1cc153708c..dd9419cff5 100644
--- a/fontaine.el
+++ b/fontaine.el
@@ -469,8 +469,9 @@ ARGS are its routines."
 (defvar fontaine-set-preset-hook nil
   "Hook that runs after setting fonts.")
 
-(defvar fontaine--current-preset nil
-  "Current font set in `fontaine-presets'.")
+(defvar fontaine-current-preset nil
+  "Current font set in `fontaine-presets'.
+This is the preset last used by `fontaine-set-preset'.")
 
 ;;;###autoload
 (defun fontaine-set-preset (preset &optional frame)
@@ -501,7 +502,7 @@ non-nil."
 (fontaine--apply-variable-pitch-preset preset frame)
 (fontaine--apply-bold-preset preset frame)
 (fontaine--apply-italic-preset preset frame)
-(setq fontaine--current-preset preset)
+(setq fontaine-current-preset preset)
 (add-to-history 'fontaine--preset-history (format "%s" preset))
 (run-hooks 'fontaine-set-preset-hook)))
 

[elpa] externals/fontaine 8269bf8fee 2/2: Document how to keep fonts on theme switch

[ELPA Syncer]

branch: externals/fontaine
commit 8269bf8feefd44b7b53c3f464e170b89dd19f4b6
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Document how to keep fonts on theme switch

Also see commit a8fb21f.
---
 README.org | 42 ++
 1 file changed, 42 insertions(+)

diff --git a/README.org b/README.org
index 1e34860a49..bbd89145a5 100644
--- a/README.org
+++ b/README.org
@@ -546,6 +546,48 @@ Remember to read the relevant doc strings.
 (define-key global-map (kbd "C-c F") #'fontaine-set-face-font)
 #+end_src
 
+** Persist font configurations on theme switch
+:PROPERTIES:
+:CUSTOM_ID: h:f1b48050-e8e1-4689-b92f-7776bbaa55a4
+:END:
+
+Themes re-apply face definitions when they are loaded.  This is
+necessary to render the theme.  For certain faces, such as ~bold~ and
+~italic~, this means that their font family is reset.  To avoid this
+problem, we can instruct them to restore the current font configuration
+with something like this:
+
+#+begin_src emacs-lisp
+;; Persist font configurations while switching themes (doing it with
+;; my `modus-themes' and `ef-themes' via the hooks they provide).
+(dolist (hook '(modus-themes-after-load-theme-hook ef-themes-post-load-hook))
+  (add-hook hook (lambda () (fontaine-set-preset fontaine-current-preset
+#+end_src
+
+[ The variable ~fontaine-current-preset~ is part of {{{development-version}}} ]
+
+Themes must specify a hook that is called by their relevant commands at
+the post-theme-load phase.  This can also be done in a theme-agnostic
+way:
+
+#+begin_src emacs-lisp
+;; Set up the `after-enable-theme-hook'
+(defvar after-enable-theme-hook nil
+   "Normal hook run after enabling a theme.")
+
+(defun run-after-enable-theme-hook (&rest _args)
+   "Run `after-enable-theme-hook'."
+   (run-hooks 'after-enable-theme-hook))
+
+(advice-add 'enable-theme :after #'run-after-enable-theme-hook)
+#+end_src
+
+And then simply use that hook:
+
+#+begin_src emacs-lisp
+(add-hook 'after-enable-theme-hook (lambda () (fontaine-set-preset 
fontaine-current-preset)))
+#+end_src
+
 * Acknowledgements
 :PROPERTIES:
 :CUSTOM_ID: h:3cf30d7d-e0a0-4835-8f25-570bab6cc3ed

[nongnu] elpa/helm 5496dbf263: Fix tramp error in tramp-file-name-unify in emacs-29

[ELPA Syncer]

branch: elpa/helm
commit 5496dbf263e6d91c6360bb4a278710ab9479810d
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Fix tramp error in tramp-file-name-unify in emacs-29
---
 helm-files.el | 23 ++-
 1 file changed, 22 insertions(+), 1 deletion(-)

diff --git a/helm-files.el b/helm-files.el
index dd701ec8a6..577a0628c5 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -3205,10 +3205,31 @@ debugging purpose."
   ;; Return PATTERN unchanged.
   (t pattern
 
+(defun helm-ff--file-accessible-directory-p (path)
+  ;; Workaround emacs-29 file-error in `tramp-file-name-unify' by
+  ;; using its emacs-28 version instead.
+  ;; We should not need it elsewhere than at start of
+  ;; `helm-find-files-get-candidates' as after this initial call all
+  ;; paths should be absolute. 
+  (cl-letf (((symbol-function 'tramp-file-name-unify)
+ (lambda (vec &optional _localname)
+   (when (tramp-file-name-p vec)
+ (setq vec (copy-tramp-file-name vec))
+ (setf (tramp-file-name-localname vec) nil
+  (tramp-file-name-hop vec) nil))
+   vec)))
+(file-accessible-directory-p path)))
+
+(defvar helm-ff--file-accessible-directory-p-fn
+  (if (equal (func-arity 'tramp-file-name-unify) '(1 . 2))
+  #'helm-ff--file-accessible-directory-p
+#'file-accessible-directory-p))
+
 (defun helm-find-files-get-candidates (&optional require-match)
   "Create candidate list for `helm-source-find-files'."
   (let* ((path  (helm-ff-set-pattern helm-pattern))
- (dir-p (file-accessible-directory-p path))
+ (dir-p (funcall
+ helm-ff--file-accessible-directory-p-fn path))
  basedir
  invalid-basedir
  non-essential

[nongnu] elpa/helm-core updated (fb4ac27148 -> 5496dbf263)

[ELPA Syncer]

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

  from  fb4ac27148 Simplify last loop in helm-highlight-current-line
  adds  5496dbf263 Fix tramp error in tramp-file-name-unify in emacs-29

No new revisions were added by this update.

Summary of changes:
 helm-files.el | 23 ++-
 1 file changed, 22 insertions(+), 1 deletion(-)

[elpa] externals/fontaine 13e85ea81d 2/2: Re-indent code in fontaine.el

[ELPA Syncer]

branch: externals/fontaine
commit 13e85ea81d09edd9efef10bca02dd6c6c85d26b7
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Re-indent code in fontaine.el
---
 fontaine.el | 24 
 1 file changed, 12 insertions(+), 12 deletions(-)

diff --git a/fontaine.el b/fontaine.el
index dd9419cff5..f4ab29dc9c 100644
--- a/fontaine.el
+++ b/fontaine.el
@@ -426,21 +426,21 @@ ARGS are its routines."
 
 (fontaine--apply-preset
  fontaine--apply-bold-preset
-  "Set `bold' face attributes based on PRESET for optional FRAME."
-  (fontaine--set-face-attributes
-   'bold
-   (or (plist-get properties :bold-family) 'unspecified)
-   (or (plist-get properties :bold-weight) 'bold)
-   (or (plist-get properties :variable-pitch-height) 1.0)
-   frame))
+ "Set `bold' face attributes based on PRESET for optional FRAME."
+ (fontaine--set-face-attributes
+  'bold
+  (or (plist-get properties :bold-family) 'unspecified)
+  (or (plist-get properties :bold-weight) 'bold)
+  (or (plist-get properties :variable-pitch-height) 1.0)
+  frame))
 
 (fontaine--apply-preset
  fontaine--apply-italic-preset
-  "Set `italic' face attributes based on PRESET for optional FRAME."
-  (fontaine--set-italic-slant
-   (or (plist-get properties :italic-family) 'unspecified)
-   (or (plist-get properties :italic-slant) 'italic)
-   frame))
+ "Set `italic' face attributes based on PRESET for optional FRAME."
+ (fontaine--set-italic-slant
+  (or (plist-get properties :italic-family) 'unspecified)
+  (or (plist-get properties :italic-slant) 'italic)
+  frame))
 
 (defvar fontaine--font-display-hist '()
   "History of inputs for display-related font associations.")

[elpa] externals/fontaine 65ccbbd4e7 1/2: Re-indent code in the manual

[ELPA Syncer]

branch: externals/fontaine
commit 65ccbbd4e7477a2d5eabaff81356e128080058b4
Author: Protesilaos Stavrou 
Commit: Protesilaos Stavrou 

Re-indent code in the manual
---
 README.org | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/README.org b/README.org
index bbd89145a5..7f18ec9f5f 100644
--- a/README.org
+++ b/README.org
@@ -573,11 +573,11 @@ way:
 #+begin_src emacs-lisp
 ;; Set up the `after-enable-theme-hook'
 (defvar after-enable-theme-hook nil
-   "Normal hook run after enabling a theme.")
+  "Normal hook run after enabling a theme.")
 
 (defun run-after-enable-theme-hook (&rest _args)
-   "Run `after-enable-theme-hook'."
-   (run-hooks 'after-enable-theme-hook))
+  "Run `after-enable-theme-hook'."
+  (run-hooks 'after-enable-theme-hook))
 
 (advice-add 'enable-theme :after #'run-after-enable-theme-hook)
 #+end_src

[elpa] externals/fontaine updated (8269bf8fee -> 13e85ea81d)

[ELPA Syncer]

elpasync pushed a change to branch externals/fontaine.

  from  8269bf8fee Document how to keep fonts on theme switch
   new  65ccbbd4e7 Re-indent code in the manual
   new  13e85ea81d Re-indent code in fontaine.el


Summary of changes:
 README.org  |  6 +++---
 fontaine.el | 24 
 2 files changed, 15 insertions(+), 15 deletions(-)

[elpa] externals/org ac2d0a249e: org.el: Fix percent substitutions in `org-open-file'

[ELPA Syncer]

branch: externals/org
commit ac2d0a249e5419fb52bc1e953e70c847a31d40de
Author: Max Nikulin 
Commit: Ihor Radchenko 

org.el: Fix percent substitutions in `org-open-file'

* lisp/org.el (org--open-file-format-command): New function with better
coverage of mailcap RFC 1524 syntax.  Do not replace percent character
in file name or link component, fix substitution of multiple regular
expression groups matched in the link target.
(org-open-file): Use `org--open-file-format-command' instead of inline
code.
* testing/lisp/test-org.el (org-test/org--open-file-format-command):
Tests for `org--open-file-format-command'.

The primary goal of moving code outside of `org-open-file' function is to
make it testable.

It should fix the following issues:
- Maxim Nikulin. greedy substitution in org-open-file.
  Wed, 20 Jan 2021 23:08:35 +0700.
  https://list.orgmode.org/ru9ki4$t5e$1...@ciao.gmane.io
- Rodrigo Morales. Org mode links: Open a PDF file at a given page
  and highlight a given string. Tue, 02 Mar 2021 15:07:32 -0500.
  https://list.orgmode.org/87lfb5pbej@gmail.com
---
 lisp/org.el  | 101 +++---
 testing/lisp/test-org.el | 160 +++
 2 files changed, 240 insertions(+), 21 deletions(-)

diff --git a/lisp/org.el b/lisp/org.el
index 6fafed8f1b..f317053c4b 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -1299,6 +1299,16 @@ Possible values for the file identifier are:
 \"evince -p %1 %s\")
  to open [[file:document.pdf::5]] with evince at page 5.
 
+ Likely, you will need more entries: without page
+ number; with search pattern; with cross-reference
+ anchor; some combination of options.  Consider simple
+ pattern here and a Lisp function to determine command
+ line arguments instead.  Passing argument list to
+ `call-process' or `make-process' directly allows to
+ avoid treating some character in peculiar file names
+ as shell specialls causing executing part of file
+ name as a subcommand.
+
  `directory'   Matches a directory
  `remote'  Matches a remote file, accessible through tramp or efs.
Remote files most likely should be visited through Emacs
@@ -8015,6 +8025,74 @@ opened in Emacs."
(when add-auto-mode
  (mapcar (lambda (x) (cons (car x) 'emacs)) auto-mode-alist
 
+(defun org--open-file-format-command
+(mailcap-command file link match-data)
+  "Format MAILCAP-COMMAND to launch viewer for the FILE.
+
+MAILCAP-COMMAND may be an entry from the `org-file-apps' list or viewer
+field from mailcap file loaded to `mailcap-mime-data'.  See \"RFC
+1524.  A User Agent Configuration Mechanism For Multimedia Mail Format
+Information\" (URL `https://www.rfc-editor.org/rfc/rfc1524.html') for
+details, man page `mailcap(5)' for brief summary, and Info node
+`(emacs-mime) mailcap' for specific related to Emacs.  Only a part of
+mailcap specification is supported.
+
+The following substitutions are interpolated in the MAILCAP-COMMAND
+string:
+
+- \"%s\" to FILE name passed through
+  `convert-standard-filename', so it must be absolute path.
+
+- \"%1\" to \"%9\" groups from MATCH-DATA found in the LINK string by
+  the regular expression in the key part of the `org-file-apps' entry.
+  (performed by caller).  Not recommended, consider a lisp function
+  instead of a shell command.  For example, the following link in an
+  Org file
+
+   
+
+   may be handled by an `org-file-apps' entry like
+
+   
(\".pdf(?:.[gx]z|.bz2)?::(#[^:]+)::(.+)\\='\"
+. \"okular --find %2 %s%1\")
+
+Use backslash \"\\\" to quote percent \"%\" or any other character
+including backslash itself.
+
+In addition, each argument is passed through `shell-quote-argument',
+so quotes around substitutions should not be used.  For compliance
+with mailcap files shipped e.g. in Debian GNU/Linux, single or double
+quotes around substitutions are stripped.  It deviates from mailcap
+specification that requires file name to be safe for shell and for the
+application."
+  (let ((spec (list (cons ?s  (convert-standard-filename file
+(ngroups (min 9 (- (/ (length match-data) 2) 1
+(when (> ngroups 0)
+  (set-match-data match-data)
+  (dolist (i (number-sequence 1 ngroups))
+(push (cons (+ ?0 i) (match-string-no-properties i link)) spec)))
+(replace-regexp-in-string
+ (rx (or (and "\\" (or (group anything) string-end))
+ (and (optional (group (any "'\"")))
+  "%"
+  (or (group anything) string-end)
+  (optional (group (backref 2))
+ (lambda (fmt)
+   (let* ((backslash (match-string-no-properties 1 fmt))
+  (key (match-string 3 f

[elpa] externals/logos c5ded71c50: Tweak backronym (yes, I know...)

[ELPA Syncer]

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

Tweak backronym (yes, I know...)
---
 README.org | 2 +-
 logos.el   | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/README.org b/README.org
index eff15d6ec6..63c52bd7df 100644
--- a/README.org
+++ b/README.org
@@ -138,7 +138,7 @@ though it also stands for these two perhaps equally 
insightful
 backronyms about the mechanics of this package:
 
 1. =^L= Only Generates Ostensible Slides
-2. Logos Optionally Garners Outline Sections
+2. Logos Optionally Goes through Outline Sections
 
 * Installation
 :PROPERTIES:
diff --git a/logos.el b/logos.el
index 3e350f7b56..d67cdf8c66 100644
--- a/logos.el
+++ b/logos.el
@@ -81,7 +81,7 @@
 ;; backronyms about the mechanics of this package:
 ;;
 ;; 1. `^L' Only Generates Ostensible Slides
-;; 2. Logos Optionally Garners Outline Sections
+;; 2. Logos Optionally Goes through Outline Sections
 ;;
 ;;
 ;; Consult the manual for all sorts of tweaks and extras:

[elpa] externals/org 1b647b00d0 1/2: ORG-NEWS: `org-info-description-as-command'

[ELPA Syncer]

branch: externals/org
commit 1b647b00d08354d1c2824d0140149a39b271fab7
Author: Max Nikulin 
Commit: Ihor Radchenko 

ORG-NEWS: `org-info-description-as-command'

* etc/ORG-NEWS: Mention that `org-info' uses `:insert-description',
a new feature of `org-link-parameters'.
---
 etc/ORG-NEWS | 11 +++
 1 file changed, 11 insertions(+)

diff --git a/etc/ORG-NEWS b/etc/ORG-NEWS
index d6d99a64ba..713a850f6b 100644
--- a/etc/ORG-NEWS
+++ b/etc/ORG-NEWS
@@ -455,6 +455,17 @@ prompting for a link description.  It can be a string 
(used as-is) or
 a function (called with the same arguments as
 ~org-make-link-description-function~ to return a string to use).
 
+An example of a such function for =info:= links is
+~org-info-description-as-command~.  To access a manual section outside
+of Org, description may be pasted to shell prompt or evaluated withing
+Emacs using =M-:= (wrapped into parenthesis).  For example,
+description of the =info:org#Tags= link is =info "(org) Tags"=.  To
+restore earlier behavior add to your Emacs init file the following:
+#+begin_src elisp :results silent :eval never-export
+  (with-eval-after-load 'ol-info
+(org-link-set-parameters "info" :insert-description nil))
+#+end_src
+
 *** New list of languages for LaTeX export: ~org-latex-language-alist~ 
 
 ~org-latex-language-alist~ unifies into a single list the old language

[elpa] externals/org updated (ac2d0a249e -> 76a5f30034)

[ELPA Syncer]

elpasync pushed a change to branch externals/org.

  from  ac2d0a249e org.el: Fix percent substitutions in `org-open-file'
   new  1b647b00d0 ORG-NEWS: `org-info-description-as-command'
   new  76a5f30034 ol-info: Use org function instead of subr-x


Summary of changes:
 etc/ORG-NEWS | 11 +++
 lisp/ol-info.el  |  9 -
 lisp/org-macs.el |  3 ++-
 3 files changed, 17 insertions(+), 6 deletions(-)

[elpa] externals/org 76a5f30034 2/2: ol-info: Use org function instead of subr-x

[ELPA Syncer]

branch: externals/org
commit 76a5f300345fabce7c0eb4908eee217c58b663d0
Author: Max Nikulin 
Commit: Ihor Radchenko 

ol-info: Use org function instead of subr-x

* lisp/org-macs.el (org-unbracket-string): Handle empty suffix string.
* lisp/ol-info.el (org-info--link-file-node):
(org-info-description-as-command): Use `org-trim' and
`org-unbracket-string' instead of `string-trim' and
`string-remove-prefix' from the subr-x package.
---
 lisp/ol-info.el  | 9 -
 lisp/org-macs.el | 3 ++-
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/lisp/ol-info.el b/lisp/ol-info.el
index e54fedc066..d332b2837b 100644
--- a/lisp/ol-info.el
+++ b/lisp/ol-info.el
@@ -30,7 +30,6 @@
 
 ;;; Code:
 
-(require 'subr-x) ; `string-trim', `string-remove-prefix'
 (require 'org-macs)
 (org-assert-version)
 
@@ -78,11 +77,11 @@ File may be a virtual one, see `Info-virtual-files'."
   '("dir" . "Top")
 (string-match "\\`\\([^#:]*\\)\\(?:[#:]:?\\(.*\\)\\)?\\'" path)
 (let* ((node (match-string 2 path))
-   ;; Do not reorder, `string-trim' modifies match.
-   (file (string-trim (match-string 1 path
+   ;; Do not reorder, `org-trim' modifies match.
+   (file (org-trim (match-string 1 path
   (cons
(if (org-string-nw-p file) file "dir")
-   (if (org-string-nw-p node) (string-trim node) "Top")
+   (if (org-string-nw-p node) (org-trim node) "Top")
 
 (defun org-info-description-as-command (link desc)
   "Info link description that can be pasted as command.
@@ -106,7 +105,7 @@ If LINK is not an info link then DESC is returned."
  (need-file-node (and (not (org-string-nw-p desc))
   (string-prefix-p prefix link
 (pcase (and need-file-node
-(org-info--link-file-node (string-remove-prefix prefix link)))
+(org-info--link-file-node (org-unbracket-string prefix "" 
link)))
   ;; Unlike (info "dir"), "info dir" shell command opens "(coreutils)dir 
invocation".
   (`("dir" . "Top") "info \"(dir)\"")
   (`(,file . "Top") (format "info %s" file))
diff --git a/lisp/org-macs.el b/lisp/org-macs.el
index 13d872a827..2e4590e93f 100644
--- a/lisp/org-macs.el
+++ b/lisp/org-macs.el
@@ -1101,7 +1101,8 @@ removed.  Return the new string.  If STRING is nil, 
return nil."
   (and string
(if (and (string-prefix-p pre string)
(string-suffix-p post string))
-  (substring string (length pre) (- (length post)))
+  (substring string (length pre)
+  (and (not (string-equal "" post)) (- (length post
 string)))
 
 (defun org-strip-quotes (string)

[nongnu] elpa/org-contrib 7f32f80f95: file-name-directory return nil with arg file

[ELPA Syncer]

branch: elpa/org-contrib
commit 7f32f80f9589f7cbf944135e4f3cd5c690eb5db2
Author: bar 
Commit: Bastien Guerry 

file-name-directory return nil with arg file
---
 lisp/ox-groff.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/ox-groff.el b/lisp/ox-groff.el
index 3e376f15ff..1eb3da7fa7 100644
--- a/lisp/ox-groff.el
+++ b/lisp/ox-groff.el
@@ -1894,7 +1894,7 @@ through the command specified in `org-groff-pdf-process'.
 Return PDF file name or an error if it couldn't be produced."
   (let* ((base-name (file-name-sans-extension (file-name-nondirectory file)))
 (full-name (file-truename file))
-(out-dir (file-name-directory file))
+(out-dir (file-name-directory full-name))
 (time (org-groff--time-sec nil))
 ;; Properly set working directory for compilation.
 (default-directory (if (file-name-absolute-p file)