[elpa] externals/marginalia 7ac0233 2/2: marginalia--variable-value: Add record type

[ELPA Syncer]

branch: externals/marginalia
commit 7ac023301670802a1462d649ff703da04a2070fa
Author: Daniel Mendler 
Commit: Daniel Mendler 

marginalia--variable-value: Add record type
---
 marginalia.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/marginalia.el b/marginalia.el
index 2b544bd..63109ea 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -581,6 +581,7 @@ keybinding since CAND includes it."
;; make an exception for function symbols to visually distinguish 
them from symbols.
;; I am not entirely happy with this, but we should not add 
quotation to every type.
(propertize (format "#'%s" val) 'face 'marginalia-function))
+  ((pred recordp) (propertize (format "#" (type-of val)) 
'face 'marginalia-value))
   ((pred symbolp) (propertize (symbol-name val) 'face 
'marginalia-symbol))
   ((pred numberp) (propertize (number-to-string val) 'face 
'marginalia-number))
   (_ (let ((print-escape-newlines t)

[elpa] externals/marginalia 29fb491 1/2: marginalia--variable-value: Add more special types

[ELPA Syncer]

branch: externals/marginalia
commit 29fb491c061e3ee5f2aad75b4a46deca20771b3f
Author: Daniel Mendler 
Commit: Daniel Mendler 

marginalia--variable-value: Add more special types
---
 marginalia.el | 7 +--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/marginalia.el b/marginalia.el
index 293e773..2b544bd 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -571,8 +571,11 @@ keybinding since CAND includes it."
 (pcase (symbol-value sym)
   ('nil (propertize "nil" 'face 'marginalia-null))
   ('t (propertize "t" 'face 'marginalia-true))
-  ((pred keymapp) (propertize "" 'face 'marginalia-value))
-  ((pred hash-table-p) (propertize "" 'face 
'marginalia-value))
+  ((pred keymapp) (propertize "#" 'face 'marginalia-value))
+  ((pred hash-table-p) (propertize "#" 'face 
'marginalia-value))
+  ((pred syntax-table-p) (propertize "#" 'face 
'marginalia-value))
+  ((pred char-table-p) (propertize "#" 'face 
'marginalia-value))
+  ((pred byte-code-function-p) (propertize "#" 
'face 'marginalia-function))
   ((and (pred functionp) (pred symbolp))
;; NOTE: We are not consistent here, values are generally printed 
unquoted. But we
;; make an exception for function symbols to visually distinguish 
them from symbols.

[elpa] externals/marginalia updated (37e24b7 -> 7ac0233)

[ELPA Syncer]

elpasync pushed a change to branch externals/marginalia.

  from  37e24b7   Version 0.9
   new  29fb491   marginalia--variable-value: Add more special types
   new  7ac0233   marginalia--variable-value: Add record type


Summary of changes:
 marginalia.el | 8 ++--
 1 file changed, 6 insertions(+), 2 deletions(-)

[elpa] externals/marginalia updated (7ac0233 -> 1aa1be0)

[ELPA Syncer]

elpasync pushed a change to branch externals/marginalia.

  from  7ac0233   marginalia--variable-value: Add record type
   new  c11e382   marginalia--variable-value: Add abbrev table special case
   new  1aa1be0   BUG: abbrev-table-p throws an error


Summary of changes:
 marginalia.el | 2 ++
 1 file changed, 2 insertions(+)

[elpa] externals/marginalia 1aa1be0 2/2: BUG: abbrev-table-p throws an error

[ELPA Syncer]

branch: externals/marginalia
commit 1aa1be0515a84da3f450e45322b5b8a88ec6a956
Author: Daniel Mendler 
Commit: Daniel Mendler 

BUG: abbrev-table-p throws an error
---
 marginalia.el | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/marginalia.el b/marginalia.el
index c98710e..bdb4547 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -574,7 +574,8 @@ keybinding since CAND includes it."
   ((pred keymapp) (propertize "#" 'face 'marginalia-value))
   ((pred hash-table-p) (propertize "#" 'face 
'marginalia-value))
   ((pred syntax-table-p) (propertize "#" 'face 
'marginalia-value))
-  ((pred abbrev-table-p) (propertize "#" 'face 
'marginalia-value))
+  ;; Emacs BUG: abbrev-table-p throws an error
+  ((guard (ignore-errors (abbrev-table-p val))) (propertize 
"#" 'face 'marginalia-value))
   ((pred char-table-p) (propertize "#" 'face 
'marginalia-value))
   ((pred byte-code-function-p) (propertize "#" 
'face 'marginalia-function))
   ((and (pred functionp) (pred symbolp))

[elpa] externals/marginalia c11e382 1/2: marginalia--variable-value: Add abbrev table special case

[ELPA Syncer]

branch: externals/marginalia
commit c11e38209192e982503860c3e62ec6d388db2a2f
Author: Daniel Mendler 
Commit: Daniel Mendler 

marginalia--variable-value: Add abbrev table special case
---
 marginalia.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/marginalia.el b/marginalia.el
index 63109ea..c98710e 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -574,6 +574,7 @@ keybinding since CAND includes it."
   ((pred keymapp) (propertize "#" 'face 'marginalia-value))
   ((pred hash-table-p) (propertize "#" 'face 
'marginalia-value))
   ((pred syntax-table-p) (propertize "#" 'face 
'marginalia-value))
+  ((pred abbrev-table-p) (propertize "#" 'face 
'marginalia-value))
   ((pred char-table-p) (propertize "#" 'face 
'marginalia-value))
   ((pred byte-code-function-p) (propertize "#" 
'face 'marginalia-function))
   ((and (pred functionp) (pred symbolp))

[elpa] externals/vertico fd24221: Minor readme updates

[ELPA Syncer]

branch: externals/vertico
commit fd242215a4b7cf6787db5ea53f7d531c1013ce4f
Author: Daniel Mendler 
Commit: Daniel Mendler 

Minor readme updates
---
 README.org | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/README.org b/README.org
index 38e48e3..505aeb4 100644
--- a/README.org
+++ b/README.org
@@ -119,7 +119,7 @@
   - ~backward-paragraph~ -> ~vertico-previous-group~
   - ~exit-minibuffer~ -> ~vertico-exit~
   - ~kill-ring-save~ -> ~vertico-save~
-  - == -> ~vertico-exit-input~
+  - =C-= -> ~vertico-exit-input~
   - =TAB= -> ~vertico-insert~
 
 * Completion styles and TAB completion
@@ -167,7 +167,8 @@
 
   #+begin_src emacs-lisp
 (setq read-file-name-completion-ignore-case t
-  read-buffer-completion-ignore-case t)
+  read-buffer-completion-ignore-case t
+  completion-ignore-case t)
   #+end_src
 
 * Extensions

[elpa] externals/marginalia 9cd762b: Improve marginalia-bookmark-type-transformers

[ELPA Syncer]

branch: externals/marginalia
commit 9cd762b6c3f2714375f47993e9a6384d3bc16ebf
Author: Daniel Mendler 
Commit: Daniel Mendler 

Improve marginalia-bookmark-type-transformers
---
 marginalia.el | 10 ++
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/marginalia.el b/marginalia.el
index bdb4547..2ad123b 100644
--- a/marginalia.el
+++ b/marginalia.el
@@ -145,10 +145,12 @@ determine it."
   :type '(alist :key-type symbol :value-type symbol))
 
 (defcustom marginalia-bookmark-type-transformers
-  `(("\\`bookmark-\\(.*?\\)-handler\\'" . "\\1")
-("default" . "File")
-("\\`\\(.*?\\)-+bookmark-jump\\(?:-handler\\)?\\'" . "\\1")
-(".*" . ,#'capitalize))
+  (let ((words (regexp-opt '("handle" "handler" "jump" "bookmark"
+`((,(format "-+%s-+" words) . "-")
+  (,(format "\\`%s-+" words) . "")
+  (,(format "-%s\\'" words) . "")
+  ("\\`default\\'" . "File")
+  (".*" . ,#'capitalize)))
   "List of bookmark type transformers."
   :type '(alist :key-type regexp :value-type (choice string function)))
 

[elpa] main 6871d91: * elpa-packages (nano-agenda): New package

[monnier--- via]

branch: main
commit 6871d91f0d853ff9414c0665802d54cd7aafdaf2
Author: Stefan Monnier 
Commit: Stefan Monnier 

* elpa-packages (nano-agenda): New package
---
 elpa-packages | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/elpa-packages b/elpa-packages
index 977a2f8..268f0bf 100644
--- a/elpa-packages
+++ b/elpa-packages
@@ -306,6 +306,8 @@
  ("nadvice":url nil)
  ("nameless"   :url "https://github.com/Malabarba/Nameless";)
  ("names"  :url "https://github.com/Malabarba/names";)
+ ("nano-agenda":url "https://github.com/rougier/nano-agenda";
+  :auto-sync t)
  ("nano-modeline"  :url "https://github.com/rougier/nano-modeline";
   :auto-sync t)
  ("nano-theme" :url "https://github.com/rougier/nano-theme";

[elpa] externals/nano-agenda 7bbe87b 3/6: Added colored busy days

[ELPA Syncer]

branch: externals/nano-agenda
commit 7bbe87b054f157ee490792b2b3fd2d1bba778d14
Author: Nicolas P. Rougier 
Commit: Nicolas P. Rougier 

Added colored busy days
---
 nano-agenda.el | 15 +--
 1 file changed, 9 insertions(+), 6 deletions(-)

diff --git a/nano-agenda.el b/nano-agenda.el
index a725535..abadb70 100644
--- a/nano-agenda.el
+++ b/nano-agenda.el
@@ -68,13 +68,13 @@
 (defvar nano-agenda-today-symbol  "•"
   "Symbol to show curren day")
 
-(defvar nano-agenda-busy-backgrounds  (list "#FFF9DB" "#FFF3BF" "#FFEC99" 
"#FFE066" "#FFD43B"
-   "#FCC419" "#FAB005" "#F59F00" 
"#F08C00" "#E67700")
+(defcustom nano-agenda-busy-backgrounds  (list "#FFF9DB" "#FFF3BF" "#FFEC99" 
"#FFE066" "#FFD43B"
+   "#FCC419" "#FAB005" "#F59F00" 
"#F08C00" "#E67700")
   "Background colors to be used to highlight a day in calendar
   view according to busy level.")
 
-(defvar nano-agenda-busy-foregrounds (list "#00" "#00" "#00" 
"#00" "#00"
-  "#00" "#00" "#00" 
"#00" "#FF")
+(defcustom nano-agenda-busy-foregrounds (list "#00" "#00" "#00" 
"#00" "#00"
+  "#00" "#00" "#00" 
"#00" "#FF")
   "Foreground colors to be used to highlight a day in calendar
   view according to busy level.")
 
@@ -204,6 +204,10 @@
  (rformat (format "%%%ds" (- size
 (format rformat (format lformat string
 
+(defun nano-agenda-select-window ()
+  "Default function to select where to show agenda."
+
+  (split-window nil -10 nil))
 
 (defun nano-agenda ()
   "Create windows & buffers associated with the agenda (below current window).
@@ -229,8 +233,7 @@
   (when agenda-window
 (delete-window agenda-window)
 (setq agenda-window nil))
-  (setq calendar-window (split-window nil -10 nil)))
-;; (setq calendar-window (split-window nil -10 'above)))
+  (setq calendar-window (nano-agenda-select-window)))
 
 ;; Create agenda window if necessary
 (unless agenda-window

[elpa] externals/nano-agenda 034691a 6/6: Linting

[ELPA Syncer]

branch: externals/nano-agenda
commit 034691a5b135e626cf40e32b3b08a41ed9aa0550
Author: Nicolas P. Rougier 
Commit: Nicolas P. Rougier 

Linting
---
 nano-agenda.el | 31 ++-
 1 file changed, 14 insertions(+), 17 deletions(-)

diff --git a/nano-agenda.el b/nano-agenda.el
index d1c1d05..fadfef9 100644
--- a/nano-agenda.el
+++ b/nano-agenda.el
@@ -209,11 +209,20 @@
 
 
 (defun nano-agenda-select-window ()
-  "Default function to select where to show agenda. Default
-behavior is to split vertically current window."
+  "Function to select where to show agenda. Default
+behavior is to split vertically current window.
+
+  (before)(after) 
++--++--+
+|  ||  |
+|  ||  |
+|  | -> |  |
+|  |+--+---+
+|  || calendar | agenda|
++--++--+---+"
+  
   (split-window nil -10 nil))
 
-
 (defun nano-agenda-select-entry (entry)
   "Function to decide whether an entry is
 displayed/counted. Default behavior is to select only timestamped
@@ -237,16 +246,7 @@ entries."
 
 
 (defun nano-agenda ()
-  "Create windows & buffers associated with the agenda (below current window).
-
-  (before) (after) 
-+--+ +--+
-|  | |  |
-|  | |  |
-|  | ->  |  |
-|  | +--+---+
-|  | | calendar | agenda|
-+--+ +--+---+"
+  "Create windows & buffers associated with the agenda."
 
   (interactive)
   
@@ -386,8 +386,6 @@ for efficiency."
   
   (goto-char (point-min)))
 
-
-
 (defun nano-agenda--populate-calendar ()
   "Populate the calendar according to the month of the current selected date."
 
@@ -478,8 +476,7 @@ for efficiency."
  ""))
 'keymap map))
 (if (< col 6)
-(insert (propertize (if is-today "•" " ") 'face face))
-  )))
+(insert (propertize (if is-today "•" " ") 'face face)
   (if (< row 5) (insert "\n")
 
 (provide 'nano-agenda)

[elpa] externals/nano-agenda 1ca4daf 5/6: Added specific function for window selection & entry selection/display

[ELPA Syncer]

branch: externals/nano-agenda
commit 1ca4daf340ac90548fc508a30be18a5423d9bcef
Author: Nicolas P. Rougier 
Commit: Nicolas P. Rougier 

Added specific function for window selection & entry selection/display
---
 nano-agenda.el | 56 
 1 file changed, 36 insertions(+), 20 deletions(-)

diff --git a/nano-agenda.el b/nano-agenda.el
index abadb70..d1c1d05 100644
--- a/nano-agenda.el
+++ b/nano-agenda.el
@@ -65,18 +65,21 @@
 (defvar nano-agenda--busy-levels (list)
   "Cached list of (date busy-level) for internal use")
 
-(defvar nano-agenda-today-symbol  "•"
-  "Symbol to show curren day")
+(defcustom nano-agenda-today-symbol  "•"
+  "Symbol to show current day"
+  :group 'nano-agenda)
 
 (defcustom nano-agenda-busy-backgrounds  (list "#FFF9DB" "#FFF3BF" "#FFEC99" 
"#FFE066" "#FFD43B"
"#FCC419" "#FAB005" "#F59F00" 
"#F08C00" "#E67700")
   "Background colors to be used to highlight a day in calendar
-  view according to busy level.")
+  view according to busy level."
+  :group 'nano-agenda-faces)
 
 (defcustom nano-agenda-busy-foregrounds (list "#00" "#00" "#00" 
"#00" "#00"
   "#00" "#00" "#00" 
"#00" "#FF")
   "Foreground colors to be used to highlight a day in calendar
-  view according to busy level.")
+  view according to busy level."
+  :group 'nano-agenda-faces)
 
 (defface nano-agenda-default
   '((t :inherit default))
@@ -204,11 +207,35 @@
  (rformat (format "%%%ds" (- size
 (format rformat (format lformat string
 
-(defun nano-agenda-select-window ()
-  "Default function to select where to show agenda."
 
+(defun nano-agenda-select-window ()
+  "Default function to select where to show agenda. Default
+behavior is to split vertically current window."
   (split-window nil -10 nil))
 
+
+(defun nano-agenda-select-entry (entry)
+  "Function to decide whether an entry is
+displayed/counted. Default behavior is to select only timestamped
+entries."
+  (get-text-property 0 'time-of-day entry))
+
+
+(defun nano-agenda-display-entry (entry)
+  "Function to display a specific (org) entry"
+
+  (let* ((text(get-text-property 0 'txt entry))
+ (time(get-text-property 0 'time entry))
+ (time-of-day (get-text-property 0 'time-of-day entry))
+ (hours   (if time-of-day
+  (format "/%02dh —/" (floor (/ time-of-day 100)))
+" "))
+ (minutes (if time-of-day
+  (% time-of-day 100) -1))
+ (duration(get-text-property 0 'duration entry)))
+(insert (format "%s %s\n" hours text
+
+
 (defun nano-agenda ()
   "Create windows & buffers associated with the agenda (below current window).
 
@@ -312,7 +339,7 @@ for efficiency."
   (progn
 (dolist (file org-agenda-files)
   (dolist (entry (org-agenda-get-day-entries file date))
-(if (get-text-property 0 'time-of-day entry)
+(if (nano-agenda-select-entry entry)
 (setq level (+ level 1)
 (add-to-list 'nano-agenda--busy-levels `(,date ,level))
 level
@@ -341,7 +368,7 @@ for efficiency."
 ;; Collect all entries with 'time-of-day
 (dolist (file org-agenda-files)
   (dolist (entry (org-agenda-get-day-entries file date))
-(if (get-text-property 0 'time-of-day entry)
+(if (nano-agenda-select-entry entry)
 (add-to-list 'entries entry
 
 ;; Sort entries
@@ -352,18 +379,7 @@ for efficiency."
 
 ;; Display entries
 (dolist (entry (cl-subseq entries 0 (min 4 (length entries
-;;(dolist (entry entries)
-  (let* ((text(get-text-property 0 'txt entry))
- (time(get-text-property 0 'time entry))
- (time-of-day (get-text-property 0 'time-of-day entry))
- (hours   (if time-of-day
-  (format "/%02dh —/" (floor (/ time-of-day 100)))
-" "))
- (minutes (if time-of-day
-  (% time-of-day 100) -1))
- (duration(get-text-property 0 'duration entry)))
-(insert (format "%s %s\n" hours text
-
+  (nano-agenda-display-entry entry))
 (if (> (length entries) 4)
 (insert (format "/+%S non-displayed event(s)/" (- (length entries) 
4)
 

[elpa] externals/nano-agenda 7f67c97 4/6: Updated screenshot with colored days

[ELPA Syncer]

branch: externals/nano-agenda
commit 7f67c970b7b9c9e4a367e41b6538b793e8ee4194
Author: Nicolas P. Rougier 
Commit: Nicolas P. Rougier 

Updated screenshot with colored days
---
 nano-agenda.png | Bin 499055 -> 506686 bytes
 1 file changed, 0 insertions(+), 0 deletions(-)

diff --git a/nano-agenda.png b/nano-agenda.png
index c208d8c..1c2ed71 100644
Binary files a/nano-agenda.png and b/nano-agenda.png differ

[elpa] branch externals/nano-agenda created (now 034691a)

[ELPA Syncer]

elpasync pushed a change to branch externals/nano-agenda.

at  034691a   Linting

This branch includes the following new commits:

   new  5d73ced   Initial commit
   new  6db277f   Added colors according to busy level
   new  7bbe87b   Added colored busy days
   new  7f67c97   Updated screenshot with colored days
   new  1ca4daf   Added specific function for window selection & entry 
selection/display
   new  034691a   Linting

[elpa] externals/nano-agenda 5d73ced 1/6: Initial commit

[ELPA Syncer]

branch: externals/nano-agenda
commit 5d73cedb4ea51091cb953bf104bd70ee6054dcc2
Author: Nicolas P. Rougier 
Commit: Nicolas P. Rougier 

Initial commit
---
 LICENSE.txt | 674 
 README.md   |  10 +
 nano-agenda.el  | 456 ++
 nano-agenda.png | Bin 0 -> 499055 bytes
 4 files changed, 1140 insertions(+)

diff --git a/LICENSE.txt b/LICENSE.txt
new file mode 100644
index 000..f288702
--- /dev/null
+++ b/LICENSE.txt
@@ -0,0 +1,674 @@
+GNU GENERAL PUBLIC LICENSE
+   Version 3, 29 June 2007
+
+ Copyright (C) 2007 Free Software Foundation, Inc. 
+ Everyone is permitted to copy and distribute verbatim copies
+ of this license document, but changing it is not allowed.
+
+Preamble
+
+  The GNU General Public License is a free, copyleft license for
+software and other kinds of works.
+
+  The licenses for most software and other practical works are designed
+to take away your freedom to share and change the works.  By contrast,
+the GNU General Public License is intended to guarantee your freedom to
+share and change all versions of a program--to make sure it remains free
+software for all its users.  We, the Free Software Foundation, use the
+GNU General Public License for most of our software; it applies also to
+any other work released this way by its authors.  You can apply it to
+your programs, too.
+
+  When we speak of free software, we are referring to freedom, not
+price.  Our General Public Licenses are designed to make sure that you
+have the freedom to distribute copies of free software (and charge for
+them if you wish), that you receive source code or can get it if you
+want it, that you can change the software or use pieces of it in new
+free programs, and that you know you can do these things.
+
+  To protect your rights, we need to prevent others from denying you
+these rights or asking you to surrender the rights.  Therefore, you have
+certain responsibilities if you distribute copies of the software, or if
+you modify it: responsibilities to respect the freedom of others.
+
+  For example, if you distribute copies of such a program, whether
+gratis or for a fee, you must pass on to the recipients the same
+freedoms that you received.  You must make sure that they, too, receive
+or can get the source code.  And you must show them these terms so they
+know their rights.
+
+  Developers that use the GNU GPL protect your rights with two steps:
+(1) assert copyright on the software, and (2) offer you this License
+giving you legal permission to copy, distribute and/or modify it.
+
+  For the developers' and authors' protection, the GPL clearly explains
+that there is no warranty for this free software.  For both users' and
+authors' sake, the GPL requires that modified versions be marked as
+changed, so that their problems will not be attributed erroneously to
+authors of previous versions.
+
+  Some devices are designed to deny users access to install or run
+modified versions of the software inside them, although the manufacturer
+can do so.  This is fundamentally incompatible with the aim of
+protecting users' freedom to change the software.  The systematic
+pattern of such abuse occurs in the area of products for individuals to
+use, which is precisely where it is most unacceptable.  Therefore, we
+have designed this version of the GPL to prohibit the practice for those
+products.  If such problems arise substantially in other domains, we
+stand ready to extend this provision to those domains in future versions
+of the GPL, as needed to protect the freedom of users.
+
+  Finally, every program is threatened constantly by software patents.
+States should not allow patents to restrict development and use of
+software on general-purpose computers, but in those that do, we wish to
+avoid the special danger that patents applied to a free program could
+make it effectively proprietary.  To prevent this, the GPL assures that
+patents cannot be used to render the program non-free.
+
+  The precise terms and conditions for copying, distribution and
+modification follow.
+
+   TERMS AND CONDITIONS
+
+  0. Definitions.
+
+  "This License" refers to version 3 of the GNU General Public License.
+
+  "Copyright" also means copyright-like laws that apply to other kinds of
+works, such as semiconductor masks.
+
+  "The Program" refers to any copyrightable work licensed under this
+License.  Each licensee is addressed as "you".  "Licensees" and
+"recipients" may be individuals or organizations.
+
+  To "modify" a work means to copy from or adapt all or part of the work
+in a fashion requiring copyright permission, other than the making of an
+exact copy.  The resulting work is called a "modified version" of the
+earlier work or a work "based on" the earlier work.
+
+  A "covered work" means either the unmodifie

[elpa] externals/nano-agenda 6db277f 2/6: Added colors according to busy level

[ELPA Syncer]

branch: externals/nano-agenda
commit 6db277fac38388ecb7c7114ddd9396cd699e4e3c
Author: Nicolas P. Rougier 
Commit: Nicolas P. Rougier 

Added colors according to busy level
---
 README.md  |  2 --
 nano-agenda.el | 47 +--
 2 files changed, 29 insertions(+), 20 deletions(-)

diff --git a/README.md b/README.md
index f80e895..e2a3021 100644
--- a/README.md
+++ b/README.md
@@ -6,5 +6,3 @@ current selected date) alongside a view of your agenda 
displaying
 timestamped entries. 
 
 ![](nano-agenda.png)
-
-
diff --git a/nano-agenda.el b/nano-agenda.el
index 09ce11a..a725535 100644
--- a/nano-agenda.el
+++ b/nano-agenda.el
@@ -65,9 +65,22 @@
 (defvar nano-agenda--busy-levels (list)
   "Cached list of (date busy-level) for internal use")
 
+(defvar nano-agenda-today-symbol  "•"
+  "Symbol to show curren day")
+
+(defvar nano-agenda-busy-backgrounds  (list "#FFF9DB" "#FFF3BF" "#FFEC99" 
"#FFE066" "#FFD43B"
+   "#FCC419" "#FAB005" "#F59F00" 
"#F08C00" "#E67700")
+  "Background colors to be used to highlight a day in calendar
+  view according to busy level.")
+
+(defvar nano-agenda-busy-foregrounds (list "#00" "#00" "#00" 
"#00" "#00"
+  "#00" "#00" "#00" 
"#00" "#FF")
+  "Foreground colors to be used to highlight a day in calendar
+  view according to busy level.")
+
 (defface nano-agenda-default
   '((t :inherit default))
-  "Default face"
+  "Default face (for casual day)"
   :group 'nano-agenda-faces)
 
 (defface nano-agenda-selected
@@ -75,16 +88,6 @@
   "Face for the selected day"
   :group 'nano-agenda-faces)
 
-(defface nano-agenda-today
-  '((t :inherit (font-lock-string-face bold)))
-  "Today face when not selected."
-  :group 'nano-agenda-faces)
-
-(defface nano-agenda-selected-today
-  '((t :inherit (font-lock-string-face nano-strong) :inverse-video t))
-  "Today face when selected."
-  :group 'nano-agenda-faces)
-
 (defface nano-agenda-weekend
   '((t :inherit font-lock-comment-face))
   "Weekend face"
@@ -97,7 +100,7 @@
 
 (defface nano-agenda-outday
   '((t :inherit font-lock-comment-face))
-  "Out day face"
+  "Out day face, that is, day outside curent month."
   :group 'nano-agenda-faces)
 
 (defface nano-agenda-day-name
@@ -408,15 +411,20 @@ for efficiency."
  (start(make-ts :year year :month month :day 1
 :hour 0 :minute 0 :second 0))
  (dow  (mod (+ 6 (ts-dow start)) 7))
- (start(ts-dec 'day dow start))
- (body ""))
+ (start(ts-dec 'day dow start)))
 
 (dotimes (row 6)
   (dotimes (col 7)
 (let* ((day (+ (* row 7) col))
(date (ts-inc 'day day start))
+
;; Slow
-   ;; (level (nano-agenda--busy-level date))
+   (level (nano-agenda--busy-level date))
+   (level (min (length nano-agenda-busy-foregrounds) level))
+   (foreground (nth (- level 1) nano-agenda-busy-foregrounds))
+   (background (nth (- level 1) nano-agenda-busy-backgrounds))
+   ;; 
+
(map (make-sparse-keymap))
(is-today (and (= (ts-year date) (ts-year today))
   (= (ts-doy date) (ts-doy today
@@ -429,10 +437,11 @@ for efficiency."
   (ts-day date)
   (ts-year date
(is-weekend (or (= (ts-dow date) 0) (= (ts-dow date) 6)))
-   (face (cond (is-selected-today 'nano-agenda-selected-today)
+   (face (cond ;; (is-selected-today 'nano-agenda-selected-today)
(is-selected   'nano-agenda-selected)
-   (is-today  'nano-agenda-today)
+   ;; (is-today  'nano-agenda-today)
(is-outday 'nano-agenda-outday)
+   ((> level 0)   `(:foreground ,foreground 
:background ,background ))
(is-weekend'nano-agenda-weekend)
(is-holidays   'nano-agenda-holidays)
(t 'nano-agenda-default
@@ -449,7 +458,9 @@ for efficiency."
(if is-holidays (format " 
(%s)" (nth 0 is-holidays))
  ""))
 'keymap map))
-(if (< col 6) (insert " "
+(if (< col 6)
+(insert (propertize (if is-today "•" " ") 'face face))
+  )))
   (if (< row 5) (insert "\n")
 
 (provide 'nano-agenda)

[nongnu] elpa/git-commit b137e7d 1/8: magit-save-repository-buffers: Fix saving of remote buffers

[ELPA Syncer]

branch: elpa/git-commit
commit b137e7d698f14a044c921c68a2bfbed21488c8cc
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

magit-save-repository-buffers: Fix saving of remote buffers

- Actually compare the remote parts as intended.
- Remove a redundant condition.

Closes #4292.
---
 Documentation/RelNotes/3.4.0.org | 3 +++
 lisp/magit-mode.el   | 9 +++--
 2 files changed, 6 insertions(+), 6 deletions(-)

diff --git a/Documentation/RelNotes/3.4.0.org b/Documentation/RelNotes/3.4.0.org
index 825c1d5..36ee456 100644
--- a/Documentation/RelNotes/3.4.0.org
+++ b/Documentation/RelNotes/3.4.0.org
@@ -6,3 +6,6 @@
   ~git-commit-setup-hook~.
 
 ** Fixes since v3.3.0
+
+- Automatic saving of file-visiting buffers was broken inside remote
+  repositories that are accessed using Tramp.  #4292
diff --git a/lisp/magit-mode.el b/lisp/magit-mode.el
index af64c05..3cd7bb2 100644
--- a/lisp/magit-mode.el
+++ b/lisp/magit-mode.el
@@ -1206,7 +1206,7 @@ buffer which visits a file in the current repository.  
Optional
 argument (the prefix) non-nil means save all with no questions."
   (interactive "P")
   (when-let ((topdir (magit-rev-parse-safe "--show-toplevel")))
-(let ((remote (file-remote-p topdir))
+(let ((remote (file-remote-p default-directory))
   (save-some-buffers-action-alist
`((?Y (lambda (buffer)
(with-current-buffer buffer
@@ -1223,15 +1223,12 @@ argument (the prefix) non-nil means save all with no 
questions."
  (and (not magit-inhibit-refresh-save)
   buffer-file-name
   ;; Avoid needlessly connecting to unrelated remotes.
-  (equal (file-remote-p buffer-file-name)
- remote)
+  (equal (file-remote-p buffer-file-name) remote)
   ;; For remote files this makes network requests and
   ;; therefore has to come after the above to avoid
   ;; unnecessarily waiting for unrelated hosts.
   (file-exists-p (file-name-directory buffer-file-name))
-  (string-prefix-p topdir (file-truename buffer-file-name))
-  (equal (magit-rev-parse-safe "--show-toplevel")
- topdir)))
+  (equal (magit-rev-parse-safe "--show-toplevel") topdir)))
 
 ;;; Restore Window Configuration
 

[nongnu] elpa/git-commit updated (cabcc9c -> 348d9b9)

[ELPA Syncer]

elpasync pushed a change to branch elpa/git-commit.

  from  cabcc9c   Update release notes
   new  b137e7d   magit-save-repository-buffers: Fix saving of remote 
buffers
   new  ba9caff   magit-save-repository-buffers: Assert file is writable
   new  09333d6   magit-save-repository-buffers: Rearrange and improve 
comments
   new  7aa314c   Fix worktree commands when using tramp
   new  197f51f   magit-list-worktree: Make sure all paths are worktrees
   new  7a94132   Rename magit-keep-region-overlay to 
magit-section-keep-region-overlay
   new  0b9927d   magit-section: Fix :package-version of options
   new  348d9b9   magit-section: Fix immediate selection highlighting


Summary of changes:
 Documentation/RelNotes/3.4.0.org | 10 ++
 lisp/git-rebase.el   |  2 +-
 lisp/magit-git.el| 15 ---
 lisp/magit-mode.el   | 27 ++-
 lisp/magit-section.el| 28 ++--
 lisp/magit-worktree.el   |  9 ++---
 6 files changed, 61 insertions(+), 30 deletions(-)

[nongnu] elpa/git-commit ba9caff 2/8: magit-save-repository-buffers: Assert file is writable

[ELPA Syncer]

branch: elpa/git-commit
commit ba9caffb132868dca1784904b9c6c8f93bfe0d41
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

magit-save-repository-buffers: Assert file is writable
---
 lisp/magit-mode.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lisp/magit-mode.el b/lisp/magit-mode.el
index 3cd7bb2..9a4585c 100644
--- a/lisp/magit-mode.el
+++ b/lisp/magit-mode.el
@@ -1227,7 +1227,7 @@ argument (the prefix) non-nil means save all with no 
questions."
   ;; For remote files this makes network requests and
   ;; therefore has to come after the above to avoid
   ;; unnecessarily waiting for unrelated hosts.
-  (file-exists-p (file-name-directory buffer-file-name))
+  (file-writable-p buffer-file-name)
   (equal (magit-rev-parse-safe "--show-toplevel") topdir)))
 
 ;;; Restore Window Configuration

[nongnu] elpa/git-commit 0b9927d 7/8: magit-section: Fix :package-version of options

[ELPA Syncer]

branch: elpa/git-commit
commit 0b9927daa632b5c16aeed0865429bea5b3f42d1a
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

magit-section: Fix :package-version of options
---
 lisp/magit-section.el | 12 ++--
 1 file changed, 6 insertions(+), 6 deletions(-)

diff --git a/lisp/magit-section.el b/lisp/magit-section.el
index 50cbbc5..7f04a72 100644
--- a/lisp/magit-section.el
+++ b/lisp/magit-section.el
@@ -87,7 +87,7 @@ succeed.")
 (defcustom magit-section-show-child-count t
   "Whether to append the number of children to section headings.
 This only applies to sections for which doing so makes sense."
-  :package-version '(magit . "2.1.0")
+  :package-version '(magit-section . "2.1.0")
   :group 'magit-section
   :type 'boolean)
 
@@ -102,7 +102,7 @@ the case.
 If t, then cache the visibility of all sections.  If a list of
 section types, then only do so for matching sections.  If nil,
 then don't do so for any sections."
-  :package-version '(magit . "2.12.0")
+  :package-version '(magit-section . "2.12.0")
   :group 'magit-section
   :type '(choice (const  :tag "Don't cache visibility" nil)
  (const  :tag "Cache visibility of all sections" t)
@@ -129,7 +129,7 @@ An entry whose key is `magit-status-initial-section' 
specifies
 the visibility of the section `magit-status-goto-initial-section'
 jumps to.  This does not only override defaults, but also other
 entries of this alist."
-  :package-version '(magit . "2.12.0")
+  :package-version '(magit-section . "2.12.0")
   :group 'magit-section
   :type '(alist :key-type (sexp :tag "Section type/lineage")
 :value-type (choice (const hide)
@@ -163,7 +163,7 @@ Otherwise the value has to have one of these two forms:
   these ellipsis take section highlighting into account.  Doing
   so might potentially have an impact on performance, while not
   doing so is kinda ugly."
-  :package-version '(magit . "3.0.0")
+  :package-version '(magit-section . "3.0.0")
   :group 'magit-section
   :type '(choice (const :tag "No indicators" nil)
  (cons  :tag "Use +- fringe indicators"
@@ -229,7 +229,7 @@ visualized, but since it has been requested a few times and
 because it doesn't cost much to offer this option we do so.
 However that might change.  If the existence of this option
 starts complicating other things, then it will be removed."
-  :package-version '(magit . "2.3.0")
+  :package-version '(magit-section . "2.3.0")
   :group 'magit-section
   :type 'boolean)
 
@@ -242,7 +242,7 @@ to be displayed everywhere except in Magit buffers.  Other 
users
 do not expect Magit buffers to be treated differently.  At least
 in theory users in the first group should not use the global mode,
 but that ship has sailed, thus this option."
-  :package-version '(magit . "3.0.0")
+  :package-version '(magit-section . "3.0.0")
   :group 'magit-section
   :type 'boolean)
 

[nongnu] elpa/git-commit 7aa314c 4/8: Fix worktree commands when using tramp

[ELPA Syncer]

branch: elpa/git-commit
commit 7aa314cd61142c3d0766d650ac560943f918e63f
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Fix worktree commands when using tramp

Closes #4326.
---
 lisp/magit-git.el  | 10 +++---
 lisp/magit-worktree.el |  9 ++---
 2 files changed, 13 insertions(+), 6 deletions(-)

diff --git a/lisp/magit-git.el b/lisp/magit-git.el
index 84a6c51..c399b05 100644
--- a/lisp/magit-git.el
+++ b/lisp/magit-git.el
@@ -1823,14 +1823,18 @@ PATH has to be relative to the super-repository."
   (magit-git-string "submodule--helper" "name" path))
 
 (defun magit-list-worktrees ()
-  (let (worktrees worktree)
+  (let ((remote (file-remote-p default-directory))
+worktrees worktree)
 (dolist (line (let ((magit-git-global-arguments
  ;; KLUDGE At least in v2.8.3 this triggers a segfault.
  (remove "--no-pager" magit-git-global-arguments)))
 (magit-git-lines "worktree" "list" "--porcelain")))
   (cond ((string-prefix-p "worktree" line)
- (push (setq worktree (list (substring line 9) nil nil nil))
-   worktrees))
+ (let ((path (substring line 9)))
+   (when remote
+ (setq path (concat remote path)))
+   (setq worktree (list path nil nil nil))
+   (push worktree worktrees)))
 ((string-equal line "bare")
  (let* ((default-directory (car worktree))
 (wt (and (not (magit-get-boolean "core.bare"))
diff --git a/lisp/magit-worktree.el b/lisp/magit-worktree.el
index 47f71b6..556448e 100644
--- a/lisp/magit-worktree.el
+++ b/lisp/magit-worktree.el
@@ -64,7 +64,7 @@ Used by `magit-worktree-checkout' and 
`magit-worktree-branch'."
  (list (funcall magit-worktree-read-directory-name-function
 (format "Checkout %s in new worktree: " branch))
branch)))
-  (magit-run-git "worktree" "add" (expand-file-name path) branch)
+  (magit-run-git "worktree" "add" (magit--expand-worktree path) branch)
   (magit-diff-visit-directory path))
 
 ;;;###autoload
@@ -76,7 +76,7 @@ Used by `magit-worktree-checkout' and 
`magit-worktree-branch'."
  ,@(magit-branch-read-args "Create and checkout branch")
  ,current-prefix-arg))
   (magit-run-git "worktree" "add" (if force "-B" "-b")
- branch (expand-file-name path) start-point)
+ branch (magit--expand-worktree path) start-point)
   (magit-diff-visit-directory path))
 
 ;;;###autoload
@@ -93,7 +93,7 @@ Used by `magit-worktree-checkout' and 
`magit-worktree-branch'."
   (user-error "You may not move the main working tree")
 (let ((preexisting-directory (file-directory-p path)))
   (when (and (zerop (magit-call-git "worktree" "move" worktree
-(expand-file-name path)))
+(magit--expand-worktree path)))
  (not (file-exists-p default-directory))
  (derived-mode-p 'magit-status-mode))
 (kill-buffer)
@@ -143,6 +143,9 @@ then show it in Dired instead."
  :test #'equal :key #'car)
   (magit-diff-visit-directory worktree))
 
+(defun magit--expand-worktree (path)
+  (magit-convert-filename-for-git (expand-file-name path)))
+
 ;;; Sections
 
 (defvar magit-worktree-section-map

[nongnu] elpa/git-commit 197f51f 5/8: magit-list-worktree: Make sure all paths are worktrees

[ELPA Syncer]

branch: elpa/git-commit
commit 197f51fd5b1d43dfc7672bd6b51cd0e3311797d2
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

magit-list-worktree: Make sure all paths are worktrees

If the git directory is separate from the main worktree,
then "git worktree" returns the git directory instead of
the worktree, which isn't what it is supposed to do and
now what we want.
---
 Documentation/RelNotes/3.4.0.org | 4 
 lisp/magit-git.el| 5 +
 2 files changed, 9 insertions(+)

diff --git a/Documentation/RelNotes/3.4.0.org b/Documentation/RelNotes/3.4.0.org
index 36ee456..5543fe9 100644
--- a/Documentation/RelNotes/3.4.0.org
+++ b/Documentation/RelNotes/3.4.0.org
@@ -9,3 +9,7 @@
 
 - Automatic saving of file-visiting buffers was broken inside remote
   repositories that are accessed using Tramp.  #4292
+
+- Worktree commands and listing worktrees in the status buffer were
+  broken inside remote repositories that are accessed using Tramp.
+  #4326
diff --git a/lisp/magit-git.el b/lisp/magit-git.el
index c399b05..6056e94 100644
--- a/lisp/magit-git.el
+++ b/lisp/magit-git.el
@@ -1833,6 +1833,11 @@ PATH has to be relative to the super-repository."
  (let ((path (substring line 9)))
(when remote
  (setq path (concat remote path)))
+   ;; If the git directory is separate from the main
+   ;; worktree, then "git worktree" returns the git
+   ;; directory instead of the worktree, which isn't
+   ;; what it is supposed to do and now what we want.
+   (setq path (magit-toplevel path))
(setq worktree (list path nil nil nil))
(push worktree worktrees)))
 ((string-equal line "bare")

[nongnu] elpa/git-commit 09333d6 3/8: magit-save-repository-buffers: Rearrange and improve comments

[ELPA Syncer]

branch: elpa/git-commit
commit 09333d63a28d476cb036edd588013ac37b2484ac
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

magit-save-repository-buffers: Rearrange and improve comments
---
 lisp/magit-mode.el | 20 
 1 file changed, 12 insertions(+), 8 deletions(-)

diff --git a/lisp/magit-mode.el b/lisp/magit-mode.el
index 9a4585c..59b8fd0 100644
--- a/lisp/magit-mode.el
+++ b/lisp/magit-mode.el
@@ -1220,15 +1220,19 @@ argument (the prefix) non-nil means save all with no 
questions."
  ,@save-some-buffers-action-alist)))
   (save-some-buffers
arg (lambda ()
- (and (not magit-inhibit-refresh-save)
-  buffer-file-name
-  ;; Avoid needlessly connecting to unrelated remotes.
+ (and buffer-file-name
+  ;; - Check whether refreshing is disabled.
+  (not magit-inhibit-refresh-save)
+  ;; - Check whether the visited file is either on the
+  ;;   same remote as the repository, or both are on
+  ;;   the local system.
   (equal (file-remote-p buffer-file-name) remote)
-  ;; For remote files this makes network requests and
-  ;; therefore has to come after the above to avoid
-  ;; unnecessarily waiting for unrelated hosts.
-  (file-writable-p buffer-file-name)
-  (equal (magit-rev-parse-safe "--show-toplevel") topdir)))
+  ;; Delayed checks that are more expensive for remote
+  ;; repositories, due to the required network access.
+  ;; - Check whether the file is inside the repository.
+  (equal (magit-rev-parse-safe "--show-toplevel") topdir)
+  ;; - Check whether the file is actually writable.
+  (file-writable-p buffer-file-name)))
 
 ;;; Restore Window Configuration
 

[nongnu] elpa/git-commit 348d9b9 8/8: magit-section: Fix immediate selection highlighting

[ELPA Syncer]

branch: elpa/git-commit
commit 348d9b98614c824be3e2f05eef5ab91d67f6695e
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

magit-section: Fix immediate selection highlighting

Fixes a regression introduced in [1: bac25e73c].

1: 2021-08-29 bac25e73c50fda8ed319cebb69f20e56f8bc7376
   Avoid needless selection re-highlighting
---
 Documentation/RelNotes/3.4.0.org | 3 +++
 lisp/magit-section.el| 8 +++-
 2 files changed, 10 insertions(+), 1 deletion(-)

diff --git a/Documentation/RelNotes/3.4.0.org b/Documentation/RelNotes/3.4.0.org
index 5543fe9..a1b62bb 100644
--- a/Documentation/RelNotes/3.4.0.org
+++ b/Documentation/RelNotes/3.4.0.org
@@ -13,3 +13,6 @@
 - Worktree commands and listing worktrees in the status buffer were
   broken inside remote repositories that are accessed using Tramp.
   #4326
+
+- Due to a regression in v3.3.0 setting the mark did not highlight the
+  current and only selected section until a second section is selected.
diff --git a/lisp/magit-section.el b/lisp/magit-section.el
index 7f04a72..0706f9b 100644
--- a/lisp/magit-section.el
+++ b/lisp/magit-section.el
@@ -1243,12 +1243,14 @@ evaluated its BODY.  Admittedly that's a bit of a hack."
 
 ;;; Highlight
 
+(defvar-local magit-section-pre-command-region-p nil)
 (defvar-local magit-section-pre-command-section nil)
 (defvar-local magit-section-highlight-overlays nil)
 (defvar-local magit-section-highlighted-sections nil)
 (defvar-local magit-section-unhighlight-sections nil)
 
 (defun magit-section-pre-command-hook ()
+  (setq magit-section-pre-command-region-p (region-active-p))
   (setq magit-section-pre-command-section (magit-current-section)))
 
 (defun magit-section-deactivate-mark ()
@@ -1256,7 +1258,11 @@ evaluated its BODY.  Admittedly that's a bit of a hack."
 
 (defun magit-section-update-highlight (&optional force)
   (let ((section (magit-current-section)))
-(when (or force (not (eq magit-section-pre-command-section section)))
+(when (or force
+  (cond ; `xor' wasn't added until 27.1.
+   ((not magit-section-pre-command-region-p) (region-active-p))
+   ((not (region-active-p)) magit-section-pre-command-region-p))
+  (not (eq magit-section-pre-command-section section)))
   (let ((inhibit-read-only t)
 (deactivate-mark nil)
 (selection (magit-region-sections)))

[nongnu] elpa/git-commit 7a94132 6/8: Rename magit-keep-region-overlay to magit-section-keep-region-overlay

[ELPA Syncer]

branch: elpa/git-commit
commit 7a9413238495cdac0d968907e520317796a03bcb
Author: Jonas Bernoulli 
Commit: Jonas Bernoulli 

Rename magit-keep-region-overlay to magit-section-keep-region-overlay
---
 lisp/git-rebase.el| 2 +-
 lisp/magit-section.el | 8 +---
 2 files changed, 6 insertions(+), 4 deletions(-)

diff --git a/lisp/git-rebase.el b/lisp/git-rebase.el
index 6a8a777..8ffe5ee 100644
--- a/lisp/git-rebase.el
+++ b/lisp/git-rebase.el
@@ -443,7 +443,7 @@ current line."
 (when bounds
   (magit-section-make-overlay (car bounds) (cadr bounds)
   'magit-section-heading-selection))
-(if (and bounds (not magit-keep-region-overlay))
+(if (and bounds (not magit-section-keep-region-overlay))
 (funcall (default-value 'redisplay-unhighlight-region-function) rol)
   (funcall (default-value 'redisplay-highlight-region-function)
start end window rol
diff --git a/lisp/magit-section.el b/lisp/magit-section.el
index a0ec82d..50cbbc5 100644
--- a/lisp/magit-section.el
+++ b/lisp/magit-section.el
@@ -184,7 +184,9 @@ Otherwise the value has to have one of these two forms:
 (const :tag "Yes (potentially slow)" t)
 (const :tag "No (kinda ugly)" nil)
 
-(defcustom magit-keep-region-overlay nil
+(define-obsolete-variable-alias 'magit-keep-region-overlay
+  'magit-section-keep-region-overlay "Magit-Section 3.4.0")
+(defcustom magit-section-keep-region-overlay nil
   "Whether to keep the region overlay when there is a valid selection.
 
 By default Magit removes the regular region overlay if, and only
@@ -1320,7 +1322,7 @@ invisible."
 (defun magit-section-make-overlay (start end face)
   ;; Yes, this doesn't belong here.  But the alternative of
   ;; spreading this hack across the code base is even worse.
-  (when (and magit-keep-region-overlay
+  (when (and magit-section-keep-region-overlay
  (memq face '(magit-section-heading-selection
   magit-diff-file-heading-selection
   magit-diff-hunk-heading-selection)))
@@ -1375,7 +1377,7 @@ invisible."
 
 (defun magit-section--highlight-region (start end window rol)
   (magit-section--delete-region-overlays)
-  (if (and (not magit-keep-region-overlay)
+  (if (and (not magit-section-keep-region-overlay)
(or (magit-region-sections)
(run-hook-with-args-until-success 'magit-region-highlight-hook
  (magit-current-section)))

[nongnu] elpa/magit updated (cabcc9c -> 348d9b9)

[ELPA Syncer]

elpasync pushed a change to branch elpa/magit.

  from  cabcc9c   Update release notes
  adds  b137e7d   magit-save-repository-buffers: Fix saving of remote 
buffers
  adds  ba9caff   magit-save-repository-buffers: Assert file is writable
  adds  09333d6   magit-save-repository-buffers: Rearrange and improve 
comments
  adds  7aa314c   Fix worktree commands when using tramp
  adds  197f51f   magit-list-worktree: Make sure all paths are worktrees
  adds  7a94132   Rename magit-keep-region-overlay to 
magit-section-keep-region-overlay
  adds  0b9927d   magit-section: Fix :package-version of options
  adds  348d9b9   magit-section: Fix immediate selection highlighting

No new revisions were added by this update.

Summary of changes:
 Documentation/RelNotes/3.4.0.org | 10 ++
 lisp/git-rebase.el   |  2 +-
 lisp/magit-git.el| 15 ---
 lisp/magit-mode.el   | 27 ++-
 lisp/magit-section.el| 28 ++--
 lisp/magit-worktree.el   |  9 ++---
 6 files changed, 61 insertions(+), 30 deletions(-)

[nongnu] elpa/magit-section updated (cabcc9c -> 348d9b9)

[ELPA Syncer]

elpasync pushed a change to branch elpa/magit-section.

  from  cabcc9c   Update release notes
  adds  b137e7d   magit-save-repository-buffers: Fix saving of remote 
buffers
  adds  ba9caff   magit-save-repository-buffers: Assert file is writable
  adds  09333d6   magit-save-repository-buffers: Rearrange and improve 
comments
  adds  7aa314c   Fix worktree commands when using tramp
  adds  197f51f   magit-list-worktree: Make sure all paths are worktrees
  adds  7a94132   Rename magit-keep-region-overlay to 
magit-section-keep-region-overlay
  adds  0b9927d   magit-section: Fix :package-version of options
  adds  348d9b9   magit-section: Fix immediate selection highlighting

No new revisions were added by this update.

Summary of changes:
 Documentation/RelNotes/3.4.0.org | 10 ++
 lisp/git-rebase.el   |  2 +-
 lisp/magit-git.el| 15 ---
 lisp/magit-mode.el   | 27 ++-
 lisp/magit-section.el| 28 ++--
 lisp/magit-worktree.el   |  9 ++---
 6 files changed, 61 insertions(+), 30 deletions(-)

[elpa] main 40e7269: * elpa-packages (erc): Add some missing files

[Amin Bandali]

branch: main
commit 40e7269c6c5e775d12eec542b2db2c0111e9bebf
Author: Amin Bandali 
Commit: Amin Bandali 

* elpa-packages (erc): Add some missing files

The doc/emacs/{doclicense,docstyle,emacsver}.texi files are
'@include'd in doc/misc/erc.texi and thus required for building the
Info manual from it.  Also add the COPYING file so we include a copy
of the GNU GPLv3 as mentioned in ERC's headers.
---
 elpa-packages | 6 +-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/elpa-packages b/elpa-packages
index 268f0bf..8ae69ff 100644
--- a/elpa-packages
+++ b/elpa-packages
@@ -199,8 +199,12 @@
  "lisp/erc/erc-truncate.el"
  "lisp/erc/erc-xdcc.el"
  "lisp/erc/erc.el"
+ "doc/emacs/doclicense.texi"
+ "doc/emacs/docstyle.texi"
+ "doc/emacs/emacsver.texi"
  "doc/misc/erc.texi"
- "etc/ERC-NEWS")
+ "etc/ERC-NEWS"
+ "COPYING")
   :doc "erc.texi"
   :news "ERC-NEWS")
  ("ergoemacs-mode" :url "https://github.com/ergoemacs/ergoemacs-mode.git";)