[elpa] externals/tramp c1fcc6bfc3: Tramp ELPA version 2.5.3.2 released

[ELPA Syncer]

branch: externals/tramp
commit c1fcc6bfc3a343d15a3cb757039b17af647617e3
Author: Michael Albinus 
Commit: Michael Albinus 

Tramp ELPA version 2.5.3.2 released
---
 README  |  4 ++--
 test/tramp-tests.el | 48 
 texi/tramp.texi | 57 +++--
 texi/trampver.texi  |  2 +-
 tramp-adb.el| 29 +++
 tramp-compat.el | 23 +
 tramp-gvfs.el   | 14 +++--
 tramp.el| 11 +--
 trampver.el |  6 +++---
 9 files changed, 136 insertions(+), 58 deletions(-)

diff --git a/README b/README
index 10c331710e..0139ea0108 100644
--- a/README
+++ b/README
@@ -22,11 +22,11 @@ installed with, you must recompile the package:
 
* Remove all byte-compiled Tramp files
 
-  $ rm -f ~/.emacs.d/elpa/tramp-2.5.3.1/tramp*.elc
+  $ rm -f ~/.emacs.d/elpa/tramp-2.5.3.2/tramp*.elc
 
* Start Emacs with Tramp's source files
 
-  $ emacs -L ~/.emacs.d/elpa/tramp-2.5.3.1 -l tramp
+  $ emacs -L ~/.emacs.d/elpa/tramp-2.5.3.2 -l tramp
 
  This should not give you the error.
 
diff --git a/test/tramp-tests.el b/test/tramp-tests.el
index cee3651f21..06920ad534 100644
--- a/test/tramp-tests.el
+++ b/test/tramp-tests.el
@@ -3138,20 +3138,21 @@ This tests also `file-directory-p' and 
`file-accessible-directory-p'."
  (goto-char (point-min))
  (should
   (looking-at-p (format "^.+ %s/$" (regexp-quote tmp-name1)
-   (with-temp-buffer
- (insert-directory
-  (file-name-as-directory tmp-name1) "-al" nil 'full-directory-p)
- (goto-char (point-min))
- (should
-  (looking-at-p
-   (concat
-;; There might be a summary line.
-"\\(total.+[[:digit:]]+ ?[kKMGTPEZY]?i?B?\n\\)?"
-;; We don't know in which order ".", ".." and "foo" appear.
-(format
- "\\(.+ %s\\( ->.+\\)?\n\\)\\{%d\\}"
- (regexp-opt (directory-files tmp-name1))
- (length (directory-files tmp-name1)))
+   (let ((directory-files (directory-files tmp-name1)))
+ (with-temp-buffer
+   (insert-directory
+(file-name-as-directory tmp-name1) "-al" nil 'full-directory-p)
+   (goto-char (point-min))
+   (should
+(looking-at-p
+ (concat
+  ;; There might be a summary line.
+  "\\(total.+[[:digit:]]+ ?[kKMGTPEZY]?i?B?\n\\)?"
+  ;; We don't know in which order ".", ".." and "foo" appear.
+  (format
+   "\\(.+ %s\\( ->.+\\)?\n\\)\\{%d\\}"
+   (regexp-opt directory-files)
+   (length directory-files)))
 
;; Check error cases.
(when (and (tramp--test-supports-set-file-modes-p)
@@ -4005,7 +4006,8 @@ This tests also `make-symbolic-link', `file-truename' and 
`add-name-to-file'."
(file-attributes tmp-name1
;; Skip the test, if the remote handler is not able to set
;; the correct time.
-   (skip-unless (set-file-times tmp-name1 (seconds-to-time 1)))
+   ;; Some remote machines cannot resolve seconds.  So we use a minute.
+   (skip-unless (set-file-times tmp-name1 (seconds-to-time 60)))
;; Dumb remote shells without perl(1) or stat(1) are not
;; able to return the date correctly.  They say "don't know".
(unless (tramp-compat-time-equal-p
@@ -4016,7 +4018,7 @@ This tests also `make-symbolic-link', `file-truename' and 
`add-name-to-file'."
   (tramp-compat-time-equal-p
 (tramp-compat-file-attribute-modification-time
 (file-attributes tmp-name1))
-   (seconds-to-time 1)))
+   (seconds-to-time 60)))
  (write-region "bla" nil tmp-name2)
  (should (file-exists-p tmp-name2))
  (should (file-newer-than-file-p tmp-name2 tmp-name1))
@@ -4027,12 +4029,12 @@ This tests also `make-symbolic-link', `file-truename' 
and `add-name-to-file'."
  ;; regular files, there shouldn't be a difference.
  (when (tramp--test-emacs28-p)
(with-no-warnings
- (set-file-times tmp-name1 (seconds-to-time 1) 'nofollow)
+ (set-file-times tmp-name1 (seconds-to-time 60) 'nofollow)
  (should
   (tramp-compat-time-equal-p
 (tramp-compat-file-attribute-modification-time
 (file-attributes tmp-name1))
-   (seconds-to-time 1)))
+   (seconds-to-time 60)))
 
;; Cleanup.
(ignore-errors
@@ -4439,7 +4441,10 @@ This tests also `make-symbolic-link', `file-tr

[elpa] externals/detached d58230fadb: Make C-c C-k kill session in compile mode

[ELPA Syncer]

branch: externals/detached
commit d58230fadbf9fc161a4c6fb3662ca128bea2449f
Author: Niklas Eklund 
Commit: Niklas Eklund 

Make C-c C-k kill session in compile mode
---
 detached-compile.el | 7 +++
 1 file changed, 7 insertions(+)

diff --git a/detached-compile.el b/detached-compile.el
index 76b3f17c91..fb5e560c9b 100644
--- a/detached-compile.el
+++ b/detached-compile.el
@@ -71,6 +71,12 @@ Optionally EDIT-COMMAND."
  (detached-session-mode 'create-and-attach))
 (recompile edit-command)))
 
+;;;###autoload
+(defun detached-compile-kill ()
+  "Kill a 'detached' session."
+  (interactive)
+  (detached-kill-session detached--buffer-session))
+
 ; Functions
 
 ;;;###autoload
@@ -147,6 +153,7 @@ Optionally EDIT-COMMAND."
 
 (defvar detached-compilation-mode-map
   (let ((map (make-sparse-keymap)))
+(define-key map (kbd "C-c C-k") #'detached-compile-kill)
 (define-key map (kbd detached-detach-key) #'detached-detach-session)
 map)
   "Keymap for `detached-compilation-mode'.")

[nongnu] elpa/clojure-mode 68e0e1355c: [Fix #377] Fix font locking for def forms (#630)

[ELPA Syncer]

branch: elpa/clojure-mode
commit 68e0e1355cd21e0752a24432afa091ada4b35b8e
Author: Vadim Rodionov <47952597+oknolomba...@users.noreply.github.com>
Commit: GitHub 

[Fix #377] Fix font locking for def forms (#630)
---
 CHANGELOG.md|  1 +
 README.md   |  8 --
 clojure-mode.el | 42 ++--
 test/clojure-mode-font-lock-test.el | 56 ++---
 4 files changed, 74 insertions(+), 33 deletions(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index f10f099efb..39c37b67f5 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -9,6 +9,7 @@
 ### Bugs fixed
 
 * [#581](https://github.com/clojure-emacs/clojure-mode/issues/581): Fix font 
locking not working for keywords starting with a number.
+* [#377](https://github.com/clojure-emacs/clojure-mode/issues/377): Fix 
everything starting with 'def' being highlighted as a def form.
 
 ## 5.15.1 (2022-07-30)
 
diff --git a/README.md b/README.md
index 3997d63f44..ec5ee369a1 100644
--- a/README.md
+++ b/README.md
@@ -305,11 +305,15 @@ conservative and minimalistic.
 Precise font-locking requires additional data that can obtained from a running
 REPL (that's how CIDER's [dynamic 
font-locking](https://docs.cider.mx/cider/config/syntax_highlighting.html) 
works) or from static code analysis.
 
-When it comes to definitions, `clojure-mode` employs a simple heuristic and 
will treat every symbol named `def`something as a built-in keyword. Still, 
you'll need to
-teach `clojure-mode` manually how to handle the docstrings of non built-in 
definition forms. Here's an example:
+When it comes to non built-in definitions, `clojure-mode` needs to be manually 
instructed how to handle the docstrings and highlighting. Here's an example:
 
 ``` emacs-lisp
 (put '>defn 'clojure-doc-string-elt 2)
+
+(font-lock-add-keywords 'clojure-mode
+`((,(concat "(\\(?:" clojure--sym-regexp "/\\)?"
+"\\(>defn\\)\\>")
+   1 font-lock-keyword-face)))
 ```
 
 **Note:** The `clojure-doc-string-elt` attribute is processed by the function 
`clojure-font-lock-syntactic-face-function`.
diff --git a/clojure-mode.el b/clojure-mode.el
index 414d1ed989..30f6baca69 100644
--- a/clojure-mode.el
+++ b/clojure-mode.el
@@ -825,7 +825,37 @@ any number of matches of 
`clojure--sym-forbidden-rest-chars'."))
 
 (defconst clojure-font-lock-keywords
   (eval-when-compile
-`( ;; Top-level variable definition
+`(;; Any def form
+  (,(concat "(\\(?:" clojure--sym-regexp "/\\)?"
+"\\("
+(regexp-opt '("def"
+  "defonce"
+  "defn"
+  "defn-"
+  "defmacro"
+  "definline"
+  "defmulti"
+  "defmethod"
+  "defprotocol"
+  "definterface"
+  "defrecord"
+  "deftype"
+  "defstruct"
+  ;; clojure.test
+  "deftest"
+  "deftest-"
+  ;; clojure.logic
+  "defne"
+  "defnm"
+  "defnu"
+  "defnc"
+  "defna"
+  ;; Third party
+  "deftask"
+  "defstate"))
+"\\)\\>")
+   (1 font-lock-keyword-face))
+  ;; Top-level variable definition
   (,(concat "(\\(?:clojure.core/\\)?\\("
 (regexp-opt '("def" "defonce"))
 ;; variable declarations
@@ -835,7 +865,6 @@ any number of matches of 
`clojure--sym-forbidden-rest-chars'."))
 ;; Possibly type or metadata
 "\\(?:#?^\\(?:{[^}]*}\\|\\sw+\\)[ \r\n\t]*\\)*"
 "\\(\\sw+\\)?")
-   (1 font-lock-keyword-face)
(2 font-lock-variable-name-face nil t))
   ;; Type definition
   (,(concat "(\\(?:clojure.core/\\)?\\("
@@ -848,7 +877,6 @@ any number of matches of 
`clojure--sym-forbidden-rest-chars'."))
 ;; Possibly type or metadata
 "\\(?:#?^\\(?:{[^}]*}\\|\\sw+\\)[ \r\n\t]*\\)*"
 "\\(\\sw+\\)?")
-   (1 font-lock-keyword-face)
(2 font-lock-type-face nil t))
   ;; Function definition (anything that starts with def and is not
   ;; listed above)
@@ -861,7 +889,6 @@ any number of matches of 
`clojure--sym-forbidden-rest-chars'."))
 ;; Possibly type or metadata
 "\\(?:#?^\\(?:{[^}]*}\\|\\sw+\\)[ \r\n\t]*\\)*"
 (concat "\\(" clojure--sym-regexp "\\)?"))
-   (1 font-lock-keyword-face)
  

[elpa] externals/compat f74464f0e2: Add text-property-search functions from Emacs 27

[ELPA Syncer]

branch: externals/compat
commit f74464f0e2d898d7b008db2815b37a2e93fd534c
Author: Philip Kaludercic 
Commit: Philip Kaludercic 

Add text-property-search functions from Emacs 27
---
 compat-27.el| 234 
 compat-tests.el |  78 +++
 compat.texi |  99 
 3 files changed, 411 insertions(+)

diff --git a/compat-27.el b/compat-27.el
index a96b1e9663..b52d7973c3 100644
--- a/compat-27.el
+++ b/compat-27.el
@@ -760,5 +760,239 @@ The return value is a string (or nil in case we can’t 
find it)."
 31
   30)))
 
+ Defined in text-property-search.el
+
+(compat-defun make-prop-match (&rest attr)
+  "Constructor for objects of type ‘prop-match’."
+  :realname compat--make-prop-match-with-vector
+  :max-version "26.1"
+  (vector
+   'prop-match
+   (plist-get attr :beginning)
+   (plist-get attr :end)
+   (plist-get attr :value)))
+
+(compat-defun make-prop-match (&rest attr)
+  "Constructor for objects of type ‘prop-match’."
+  :realname compat--make-prop-match-with-record
+  :min-version "26.1"
+  (record
+   'prop-match
+   (plist-get attr :beginning)
+   (plist-get attr :end)
+   (plist-get attr :value)))
+
+(compat-defun prop-match-p (match)
+  "Return non-nil if MATCH is a `prop-match' object."
+  :realname compat--prop-match-p-with-vector
+  :max-version "26.1"
+  (and (vectorp match) (eq (aref match 0) 'prop-match)))
+
+(compat-defun prop-match-p (match)
+  "Return non-nil if MATCH is a `prop-match' object."
+  :realname compat--prop-match-p-with-record
+  :min-version "26.1"
+  (eq (type-of match) 'prop-match))
+
+(compat-defun prop-match-beginning (match)
+  "Retrieve the position where MATCH begins."
+  (aref match 1))
+
+(compat-defun prop-match-end (match)
+  "Retrieve the position where MATCH ends."
+  (aref match 2))
+
+(compat-defun prop-match-value (match)
+  "Retrieve the value that MATCH holds."
+  (aref match 3))
+
+(compat-defun text-property-search-forward
+(property &optional value predicate not-current)
+  "Search for the next region of text where PREDICATE is true.
+PREDICATE is used to decide whether a value of PROPERTY should be
+considered as matching VALUE.
+
+If PREDICATE is a function, it will be called with two arguments:
+VALUE and the value of PROPERTY.  The function should return
+non-nil if these two values are to be considered a match.
+
+Two special values of PREDICATE can also be used:
+If PREDICATE is t, that means a value must `equal' VALUE to be
+considered a match.
+If PREDICATE is nil (which is the default value), a value will
+match if is not `equal' to VALUE.  Furthermore, a nil PREDICATE
+means that the match region is ended if the value changes.  For
+instance, this means that if you loop with
+
+  (while (setq prop (text-property-search-forward \\='face))
+...)
+
+you will get all distinct regions with non-nil `face' values in
+the buffer, and the `prop' object will have the details about the
+match.  See the manual for more details and examples about how
+VALUE and PREDICATE interact.
+
+If NOT-CURRENT is non-nil, the function will search for the first
+region that doesn't include point and has a value of PROPERTY
+that matches VALUE.
+
+If no matches can be found, return nil and don't move point.
+If found, move point to the end of the region and return a
+`prop-match' object describing the match.  To access the details
+of the match, use `prop-match-beginning' and `prop-match-end' for
+the buffer positions that limit the region, and
+`prop-match-value' for the value of PROPERTY in the region."
+  (let* ((match-p
+  (lambda (prop-value)
+(funcall
+ (cond
+  ((eq predicate t)
+   #'equal)
+  ((eq predicate nil)
+   (lambda (val p-val)
+ (not (equal val p-val
+  (predicate))
+ value prop-value)))
+ (find-end
+  (lambda (start)
+(let (end)
+  (if (and value
+   (null predicate))
+  ;; This is the normal case: We're looking for areas where the
+  ;; values aren't, so we aren't interested in sub-areas where 
the
+  ;; property has different values, all non-matching value.
+  (let ((ended nil))
+(while (not ended)
+  (setq end (next-single-property-change (point) property))
+  (if (not end)
+  (progn
+(goto-char (point-max))
+(setq end (point)
+  ended t))
+(goto-char end)
+(unless (funcall match-p (get-text-property (point) 
property))
+  (setq ended t)
+;; End this at the first place the property changes value.
+(setq end (next-sin

[nongnu] elpa/evil 26ec0cda1b: Ensure column for evil-indent

[ELPA Syncer]

branch: elpa/evil
commit 26ec0cda1bcb899ae37086a1268a055484171519
Author: Tom Dalziel 
Commit: Tom Dalziel <33435574+tomd...@users.noreply.github.com>

Ensure column for evil-indent
---
 evil-commands.el | 54 +++---
 1 file changed, 27 insertions(+), 27 deletions(-)

diff --git a/evil-commands.el b/evil-commands.el
index ef35e86562..e51a2f613a 100644
--- a/evil-commands.el
+++ b/evil-commands.el
@@ -1936,33 +1936,33 @@ but doesn't insert or remove any spaces."
   "Indent text."
   :move-point nil
   :type line
-  (save-restriction
-(narrow-to-region beg end)
-(if (and (= beg (line-beginning-position))
- (= end (line-beginning-position 2)))
-;; since some Emacs modes can only indent one line at a time,
-;; implement "==" as a call to `indent-according-to-mode'
-(indent-according-to-mode)
-  (goto-char beg)
-  (indent-region beg end))
-;; Update `beg' and `end'
-(setq beg (point-min)
-  end (point-max))
-;; We also need to tabify or untabify the leading white characters
-(when evil-indent-convert-tabs
-  (let* ((beg-line (line-number-at-pos beg))
- (end-line (line-number-at-pos end))
- (ln beg-line)
- (convert-white (if indent-tabs-mode 'tabify 'untabify)))
-(save-excursion
-  (while (<= ln end-line)
-(goto-char (point-min))
-(forward-line (- ln 1))
-(back-to-indentation)
-;; Whether tab or space should be used is determined by 
indent-tabs-mode
-(funcall convert-white (line-beginning-position) (point))
-(setq ln (1+ ln)
-  (back-to-indentation
+  (evil-ensure-column
+(save-restriction
+  (narrow-to-region beg end)
+  (if (and (= beg (line-beginning-position))
+   (= end (line-beginning-position 2)))
+  ;; since some Emacs modes can only indent one line at a time,
+  ;; implement "==" as a call to `indent-according-to-mode'
+  (indent-according-to-mode)
+(goto-char beg)
+(indent-region beg end))
+  ;; Update `beg' and `end'
+  (setq beg (point-min)
+end (point-max))
+  ;; We also need to tabify or untabify the leading white characters
+  (when evil-indent-convert-tabs
+(let* ((beg-line (line-number-at-pos beg))
+   (end-line (line-number-at-pos end))
+   (ln beg-line)
+   (convert-white (if indent-tabs-mode 'tabify 'untabify)))
+  (save-excursion
+(while (<= ln end-line)
+  (goto-char (point-min))
+  (forward-line (- ln 1))
+  (back-to-indentation)
+  ;; Whether tab or space should be used is determined by 
indent-tabs-mode
+  (funcall convert-white (line-beginning-position) (point))
+  (setq ln (1+ ln)
 
 (evil-define-operator evil-indent-line (beg end)
   "Indent the line."

[elpa] externals/compat 948535b0c7 1/4: Define make-prop-match in compat-tests.el if missing

[ELPA Syncer]

branch: externals/compat
commit 948535b0c758da5f00b3bc18af205c3ef933630a
Author: Philip Kaludercic 
Commit: Philip Kaludercic 

Define make-prop-match in compat-tests.el if missing

This is necessary since there are two separate 'make-prop-match'
implementations that cannot be referred to directly using a realname.

An alternative might be to define a compile-time cond and insert the
right code ad the right time.
---
 compat-tests.el | 6 ++
 1 file changed, 6 insertions(+)

diff --git a/compat-tests.el b/compat-tests.el
index 85ca26d4fa..6875db1ed5 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -1862,6 +1862,12 @@ being compared against."
 (ought three three one.5 two one three)
 (ought three three one.5 three two one)))
 
+(unless (fboundp 'make-prop-match)
+  (defalias 'make-prop-match
+(if (version< emacs-version "26.1")
+#'compat--make-prop-match-with-vector
+  #'compat--make-prop-match-with-record)))
+
 (ert-deftest text-property-search-forward ()
   (when (fboundp 'text-property-search-forward)
 (with-temp-buffer

[elpa] externals/compat e48b73c22c 3/4: Prefix text-property-search tests with "compat-"

[ELPA Syncer]

branch: externals/compat
commit e48b73c22caba65537e12f784926bdd9c8a6ea2f
Author: Philip Kaludercic 
Commit: Philip Kaludercic 

Prefix text-property-search tests with "compat-"
---
 compat-tests.el | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/compat-tests.el b/compat-tests.el
index 6875db1ed5..31b5695cde 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -1868,7 +1868,7 @@ being compared against."
 #'compat--make-prop-match-with-vector
   #'compat--make-prop-match-with-record)))
 
-(ert-deftest text-property-search-forward ()
+(ert-deftest compat-text-property-search-forward ()
   (when (fboundp 'text-property-search-forward)
 (with-temp-buffer
   (insert "one "
@@ -1907,7 +1907,7 @@ being compared against."
 (goto-char (point-min))
 (should (null (text-property-search-forward 'non-existant)
 
-(ert-deftest text-property-search-backward ()
+(ert-deftest compat-text-property-search-backward ()
   (when (fboundp 'text-property-search-backward)
 (with-temp-buffer
   (insert "one "

[elpa] externals/compat updated (f74464f0e2 -> a9de656328)

[ELPA Syncer]

elpasync pushed a change to branch externals/compat.

  from  f74464f0e2 Add text-property-search functions from Emacs 27
   new  948535b0c7 Define make-prop-match in compat-tests.el if missing
   new  999ef2a730 Raise an error if the realname would be the same as the 
name
   new  e48b73c22c Prefix text-property-search tests with "compat-"
   new  a9de656328 Use compat--... functions when testing the compatibility 
code


Summary of changes:
 compat-macs.el  |  2 ++
 compat-tests.el | 18 --
 2 files changed, 14 insertions(+), 6 deletions(-)

[elpa] externals/compat 999ef2a730 2/4: Raise an error if the realname would be the same as the name

[ELPA Syncer]

branch: externals/compat
commit 999ef2a730fb2d2a633c7a86c4e012fadc1b66cc
Author: Philip Kaludercic 
Commit: Philip Kaludercic 

Raise an error if the realname would be the same as the name
---
 compat-macs.el | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/compat-macs.el b/compat-macs.el
index c6417c8379..cfd5d27600 100644
--- a/compat-macs.el
+++ b/compat-macs.el
@@ -119,6 +119,8 @@ DEF-FN, INSTALL-FN, CHECK-FN, ATTR and TYPE."
   '(compat--ignore))
  (`(when (and ,(if cond cond t)
   ,(funcall check-fn)))
+(when (eq name realname)
+  (error "%S: Name is equal to realname" name))
 (cond
  ((and (plist-get attr :prefix) (memq type '(func macro))
(string-match "\\`compat-\\(.+\\)\\'" (symbol-name name))

[elpa] externals/compat a9de656328 4/4: Use compat--... functions when testing the compatibility code

[ELPA Syncer]

branch: externals/compat
commit a9de6563286c26de9cc6f32f531937e60c2586b3
Author: Philip Kaludercic 
Commit: Philip Kaludercic 

Use compat--... functions when testing the compatibility code
---
 compat-tests.el | 8 
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/compat-tests.el b/compat-tests.el
index 31b5695cde..4f15e41aef 100644
--- a/compat-tests.el
+++ b/compat-tests.el
@@ -1903,9 +1903,9 @@ being compared against."
   (should (eq (compat--prop-match-beginning match) 15))
   (should (eq (compat--prop-match-end match) 20))
   (should (eq (compat--prop-match-value match) 'wert)))
-(should (null (text-property-search-forward 'prop)))
+(should (null (compat--text-property-search-forward 'prop)))
 (goto-char (point-min))
-(should (null (text-property-search-forward 'non-existant)
+(should (null (compat--text-property-search-forward 'non-existant)
 
 (ert-deftest compat-text-property-search-backward ()
   (when (fboundp 'text-property-search-backward)
@@ -1942,9 +1942,9 @@ being compared against."
   (should (eq (compat--prop-match-beginning match) 5))
   (should (eq (compat--prop-match-end match) 9))
   (should (eq (compat--prop-match-value match) 'val)))
-(should (null (text-property-search-backward 'prop)))
+(should (null (compat--text-property-search-backward 'prop)))
 (goto-char (point-max))
-(should (null (text-property-search-backward 'non-existant)
+(should (null (compat--text-property-search-backward 'non-existant)
 
 (provide 'compat-tests)
 ;;; compat-tests.el ends here

[elpa] main 535c904c57: * elpa-packages (zuul): New package

[Stefan Monnier via]

branch: main
commit 535c904c577506452d1b6669282af1ea38da0b7e
Author: Stefan Monnier 
Commit: Stefan Monnier 

* elpa-packages (zuul): New package
---
 elpa-packages | 4 
 1 file changed, 4 insertions(+)

diff --git a/elpa-packages b/elpa-packages
index 4ae12a26ca..5ab182f93b 100644
--- a/elpa-packages
+++ b/elpa-packages
@@ -810,4 +810,8 @@
  ("yasnippet-classic-snippets" :url nil)
  ("zones"  :url nil)  ;https://www.emacswiki.org/emacs/zones.el
  ("ztree"  :url "https://github.com/fourier/ztree";)
+ ("zuul"   :url "https://git.sr.ht/~niklaseklund/zuul.el";
+  :news "CHANGELOG.org"
+  :readme "README.md"
+  :auto-sync t)
  )

[elpa] externals/zuul 1ac0b6635e 06/17: Move zuul--highlight-cmd

[ELPA Syncer]

branch: externals/zuul
commit 1ac0b6635e3d55d78b9669de1b5800607a4c1a7a
Author: Niklas Eklund 
Commit: Niklas Eklund 

Move zuul--highlight-cmd
---
 zuul.el | 35 ++-
 1 file changed, 18 insertions(+), 17 deletions(-)

diff --git a/zuul.el b/zuul.el
index 328f4afc90..d99510345d 100644
--- a/zuul.el
+++ b/zuul.el
@@ -298,28 +298,12 @@ Each entry in the list is a property list with the 
following properties:
 (erase-buffer)
 (insert build-output)
 (zuul-log-mode)
-(zuul--highlight-cmd)
 (setq zuul--current-build zuul--build)
 (setq zuul--current-builds zuul--builds)
 (goto-char (point-max))
 (select-window
  (display-buffer buffer 
zuul-build-display-buffer-action))
 
-
-(defun zuul--highlight-cmd ()
-  "Highlight commands in build log."
-  (let ((property))
-(save-excursion
-  (goto-char (point-min))
-  (while (setq property (text-property-search-forward 'zuul-task))
-(save-excursion
-  (goto-char (prop-match-beginning property))
-  (search-forward "$")
-  (let* ((ov-prompt (make-overlay (prop-match-beginning property) 
(point)))
- (ov-input (make-overlay (point) (progn (end-of-line) 
(point)
-(overlay-put ov-prompt 'face 'comint-highlight-prompt)
-(overlay-put ov-input 'face 'comint-highlight-input)))
-
 (cl-defun zuul-get-builds (&key
change
project
@@ -1079,6 +1063,22 @@ Optionally provide extra parameters PARAMS, PARSER, 
METHOD, BUFFER or HEADERS."
(zuul--current-builds-with-index)))
   (length (zuul--current-builds-with-index
 
+; Other
+
+(defun zuul--highlight-cmd ()
+  "Highlight commands in build log."
+  (let ((property))
+(save-excursion
+  (goto-char (point-min))
+  (while (setq property (text-property-search-forward 'zuul-task))
+(save-excursion
+  (goto-char (prop-match-beginning property))
+  (search-forward "$")
+  (let* ((ov-prompt (make-overlay (prop-match-beginning property) 
(point)))
+ (ov-input (make-overlay (point) (progn (end-of-line) 
(point)
+(overlay-put ov-prompt 'face 'comint-highlight-prompt)
+(overlay-put ov-input 'face 'comint-highlight-input)))
+
  Major mode
 
 (define-derived-mode zuul-log-mode fundamental-mode "Zuul Log"
@@ -1092,7 +1092,8 @@ Optionally provide extra parameters PARAMS, PARSER, 
METHOD, BUFFER or HEADERS."
   (setq-local font-lock-defaults '(compilation-mode-font-lock-keywords t))
   (add-hook 'eldoc-documentation-functions #'zuul--eldoc-function nil t)
   (read-only-mode)
-  (font-lock-mode))
+  (font-lock-mode)
+  (zuul--highlight-cmd))
 
 (let ((map zuul-log-mode-map))
   (define-key map (kbd "C-c C-b") #'zuul-switch-build)

[elpa] branch externals/zuul created (now ad20c55828)

[ELPA Syncer]

elpasync pushed a change to branch externals/zuul.

at  ad20c55828 Update required Emacs version

This branch includes the following new commits:

   new  83f68268cc Add LICENSE file
   new  aecdb85b15 Add zuul.el
   new  b14fb97cc0 Replace keybinding for eldoc-mode
   new  58af096228 Update output to contain cmd as well
   new  67165f7805 Add highlight of command
   new  1ac0b6635e Move zuul--highlight-cmd
   new  c15f79d769 Add previous/next command in build log
   new  d58e139493 Update zuul-open-build-log implementation
   new  982b0eac12 Add faces for prompt and input in zuul build
   new  0003af3679 Add functions for anonymized screenshots
   new  ef4dba22c6 Increase anonymity
   new  02c7f26463 Version 0.2
   new  22d942a78c Bump header version in zuul.el
   new  c3e69263ce Update command section in README
   new  36fb6e7a13 Address feedback from package-lint
   new  3c0e5ccd4e Address feedback from checkdoc
   new  ad20c55828 Update required Emacs version

[elpa] externals/zuul c3e69263ce 14/17: Update command section in README

[ELPA Syncer]

branch: externals/zuul
commit c3e69263ce25203e466717870e7e1334126ed9ac
Author: Niklas Eklund 
Commit: Niklas Eklund 

Update command section in README
---
 README.md | 7 +--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/README.md b/README.md
index cc818129ef..4956b70c08 100644
--- a/README.md
+++ b/README.md
@@ -62,9 +62,12 @@ The major mode `zuul-log-mode` provides the following 
commands.
 | zuul-switch-build  | C-c C-b | Switch to another build   
 |
 | zuul-switch-buildset   | C-c C-s | Switch to a build from a specific 
buildset |
 | zuul-run-build-command | C-c C-r | Run build command from build log  
 |
-| zuul-previous-build| C-c C-p | Switch to previous build  
 |
-| zuul-next-build| C-c C-n | Switch to next build  
 |
+| zuul-previous-command  | C-c C-p | Go to previous command in build log   
 |
+| zuul-next-command  | C-c C-n | Go to next command in build log   
 |
 | zuul-open-build-in-browser | C-c C-o | Open build in browser 
 |
+| zuul-previous-build| C-c C-[ | Switch to previous build  
 |
+| zuul-next-build| C-c C-] | Switch to next build  
 |
+| zuul-quit-build| C-c C-q | Quit and delete build log buffers 
 |
 
 It also integrates with the following built in features:
 - `imenu`: navigate to beginning of tasks in the build log

[elpa] externals/zuul 67165f7805 05/17: Add highlight of command

[ELPA Syncer]

branch: externals/zuul
commit 67165f780560592959be987868cb592e21ae45e6
Author: Niklas Eklund 
Commit: Niklas Eklund 

Add highlight of command
---
 zuul.el | 31 +--
 1 file changed, 25 insertions(+), 6 deletions(-)

diff --git a/zuul.el b/zuul.el
index cef94215f0..328f4afc90 100644
--- a/zuul.el
+++ b/zuul.el
@@ -298,12 +298,28 @@ Each entry in the list is a property list with the 
following properties:
 (erase-buffer)
 (insert build-output)
 (zuul-log-mode)
+(zuul--highlight-cmd)
 (setq zuul--current-build zuul--build)
 (setq zuul--current-builds zuul--builds)
 (goto-char (point-max))
 (select-window
  (display-buffer buffer 
zuul-build-display-buffer-action))
 
+
+(defun zuul--highlight-cmd ()
+  "Highlight commands in build log."
+  (let ((property))
+(save-excursion
+  (goto-char (point-min))
+  (while (setq property (text-property-search-forward 'zuul-task))
+(save-excursion
+  (goto-char (prop-match-beginning property))
+  (search-forward "$")
+  (let* ((ov-prompt (make-overlay (prop-match-beginning property) 
(point)))
+ (ov-input (make-overlay (point) (progn (end-of-line) 
(point)
+(overlay-put ov-prompt 'face 'comint-highlight-prompt)
+(overlay-put ov-input 'face 'comint-highlight-input)))
+
 (cl-defun zuul-get-builds (&key
change
project
@@ -765,19 +781,22 @@ Optionally provide extra parameters PARAMS, PARSER, 
METHOD, BUFFER or HEADERS."
 
 (defun zuul--build-host-output (host)
   "Return the command and its output from the HOST."
-  (pcase-let* ((`(,_hostname . ,data) host)
+  (pcase-let* ((`(,hostname . ,data) host)
(cmd (let-alist data .cmd))
(output (let-alist data .stdout))
(host-id (let-alist data .zuul_log_id))
(zuul--build-data `(,@zuul--build-data :host ,host)))
 (when-let ((cmd-str
 (when cmd
-  (if (stringp cmd)
-  cmd
-(mapconcat #'identity cmd " ")
+  (format "zuul@%s$ %s"
+  hostname
+  (if (stringp cmd)
+  cmd
+(mapconcat #'identity cmd " "))
+  (zuul--propertize-face cmd-str 'bold-italic)
   (if (or (null output) (string-empty-p output))
-  (setq output (concat "$ " cmd-str "\n"))
-(setq output (concat "$ " cmd-str "\n" output "\n")))
+  (setq output (concat cmd-str "\n"))
+(setq output (concat cmd-str "\n" output "\n")))
   (put-text-property 0 (length output) 'zuul-playbook 
zuul--build-playbook-id output)
   (put-text-property 0 (length output) 'zuul-play zuul--build-play-id 
output)
   (put-text-property 0 (length output) 'zuul-task zuul--build-task-id 
output)

[elpa] externals/zuul 83f68268cc 01/17: Add LICENSE file

[ELPA Syncer]

branch: externals/zuul
commit 83f68268cc05d2da5a1e4b26856d03d1704e07b8
Author: Niklas Eklund 
Commit: Niklas Eklund 

Add LICENSE file
---
 LICENSE | 674 
 1 file changed, 674 insertions(+)

diff --git a/LICENSE b/LICENSE
new file mode 100644
index 00..f7e9330d9e
--- /dev/null
+++ b/LICENSE
@@ -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 unmodified Program or a work based
+on the Program.
+
+  To "propagate" a work means to do anything with it that, without
+permission, would make you directly or

[elpa] externals/zuul b14fb97cc0 03/17: Replace keybinding for eldoc-mode

[ELPA Syncer]

branch: externals/zuul
commit b14fb97cc05f2ebf342f40e06a0406f2eb49f072
Author: Niklas Eklund 
Commit: Niklas Eklund 

Replace keybinding for eldoc-mode

The previous keybinding was not ok according to package-lint.
---
 zuul.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/zuul.el b/zuul.el
index 3df5a51b59..ec08e58f24 100644
--- a/zuul.el
+++ b/zuul.el
@@ -1069,7 +1069,7 @@ Optionally provide extra parameters PARAMS, PARSER, 
METHOD, BUFFER or HEADERS."
 
 (let ((map zuul-log-mode-map))
   (define-key map (kbd "C-c C-b") #'zuul-switch-build)
-  (define-key map (kbd "C-c C-h") #'eldoc-mode)
+  (define-key map (kbd "C-c C-.") #'eldoc-mode)
   (define-key map (kbd "C-c C-n") #'zuul-next-build)
   (define-key map (kbd "C-c C-o") #'zuul-open-build-in-browser)
   (define-key map (kbd "C-c C-p") #'zuul-previous-build)

[elpa] externals/zuul 58af096228 04/17: Update output to contain cmd as well

[ELPA Syncer]

branch: externals/zuul
commit 58af0962289c3c9ec5628f72e88f92ef40753632
Author: Niklas Eklund 
Commit: Niklas Eklund 

Update output to contain cmd as well
---
 zuul.el | 12 ++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/zuul.el b/zuul.el
index ec08e58f24..cef94215f0 100644
--- a/zuul.el
+++ b/zuul.el
@@ -764,12 +764,20 @@ Optionally provide extra parameters PARAMS, PARSER, 
METHOD, BUFFER or HEADERS."
(seq-remove #'null)
 
 (defun zuul--build-host-output (host)
-  "Return the output from the HOST."
+  "Return the command and its output from the HOST."
   (pcase-let* ((`(,_hostname . ,data) host)
+   (cmd (let-alist data .cmd))
(output (let-alist data .stdout))
(host-id (let-alist data .zuul_log_id))
(zuul--build-data `(,@zuul--build-data :host ,host)))
-(when (and output (not (string-empty-p output)))
+(when-let ((cmd-str
+(when cmd
+  (if (stringp cmd)
+  cmd
+(mapconcat #'identity cmd " ")
+  (if (or (null output) (string-empty-p output))
+  (setq output (concat "$ " cmd-str "\n"))
+(setq output (concat "$ " cmd-str "\n" output "\n")))
   (put-text-property 0 (length output) 'zuul-playbook 
zuul--build-playbook-id output)
   (put-text-property 0 (length output) 'zuul-play zuul--build-play-id 
output)
   (put-text-property 0 (length output) 'zuul-task zuul--build-task-id 
output)

[elpa] externals/zuul 982b0eac12 09/17: Add faces for prompt and input in zuul build

[ELPA Syncer]

branch: externals/zuul
commit 982b0eac1216516398ed170a26461eee2cc9b3b7
Author: Niklas Eklund 
Commit: Niklas Eklund 

Add faces for prompt and input in zuul build
---
 zuul.el | 12 ++--
 1 file changed, 10 insertions(+), 2 deletions(-)

diff --git a/zuul.el b/zuul.el
index 2ff40ec697..007f33d43f 100644
--- a/zuul.el
+++ b/zuul.el
@@ -229,6 +229,14 @@ Each entry in the list is a property list with the 
following properties:
   '((t :inherit font-lock-function-name-face))
   "Face used to highlight build command in `zuul'.")
 
+(defface zuul-command-prompt-face
+  '((t :inherit comint-highlight-prompt))
+  "Face used to highlight command prompt in `zuul'.")
+
+(defface zuul-prompt-input-face
+  '((t :inherit comint-highlight-input))
+  "Face used to highlight prompt input in `zuul'.")
+
  Data structures
 
 (cl-defstruct (zuul-buildset
@@ -1108,8 +1116,8 @@ Optionally provide extra parameters PARAMS, PARSER, 
METHOD, BUFFER or HEADERS."
   (search-forward "$")
   (let* ((ov-prompt (make-overlay (prop-match-beginning property) 
(point)))
  (ov-input (make-overlay (point) (progn (end-of-line) 
(point)
-(overlay-put ov-prompt 'face 'comint-highlight-prompt)
-(overlay-put ov-input 'face 'comint-highlight-input)))
+(overlay-put ov-prompt 'face 'zuul-command-prompt-face)
+(overlay-put ov-input 'face 'zuul-prompt-input-face)))
 
  Major mode
 

[elpa] externals/zuul c15f79d769 07/17: Add previous/next command in build log

[ELPA Syncer]

branch: externals/zuul
commit c15f79d7695b3b57ab1bd86e35acc29ec8d9e7b5
Author: Niklas Eklund 
Commit: Niklas Eklund 

Add previous/next command in build log
---
 zuul.el | 24 ++--
 1 file changed, 22 insertions(+), 2 deletions(-)

diff --git a/zuul.el b/zuul.el
index d99510345d..c7d5a25ca2 100644
--- a/zuul.el
+++ b/zuul.el
@@ -437,6 +437,24 @@ Optionally provide parameters CHANGE, PROJECT, PATCHSET 
and LIMIT."
 .change)
  (seq-do #'kill-buffer
 
+;;;###autoload
+(defun zuul-previous-command ()
+  "Navigate to previous command."
+  (interactive)
+  (let ((re-prompt (rx "zuul@" (regexp ".*") "$ ")))
+(beginning-of-line)
+(when (re-search-backward re-prompt nil t)
+  (goto-char (match-end 0)
+
+;;;###autoload
+(defun zuul-next-command ()
+  "Navigate to next command."
+  (interactive)
+  (let ((re-prompt (rx "zuul@" (regexp ".*") "$ ")))
+(end-of-line)
+(when (re-search-forward re-prompt nil t)
+  (goto-char (match-end 0)
+
  Support functions
 
 (defun zuul--tenant-config ()
@@ -1098,9 +1116,11 @@ Optionally provide extra parameters PARAMS, PARSER, 
METHOD, BUFFER or HEADERS."
 (let ((map zuul-log-mode-map))
   (define-key map (kbd "C-c C-b") #'zuul-switch-build)
   (define-key map (kbd "C-c C-.") #'eldoc-mode)
-  (define-key map (kbd "C-c C-n") #'zuul-next-build)
+  (define-key map (kbd "C-c C-]") #'zuul-next-build)
   (define-key map (kbd "C-c C-o") #'zuul-open-build-in-browser)
-  (define-key map (kbd "C-c C-p") #'zuul-previous-build)
+  (define-key map (kbd "C-c C-[") #'zuul-previous-build)
+  (define-key map (kbd "C-c C-p") #'zuul-previous-command)
+  (define-key map (kbd "C-c C-n") #'zuul-next-command)
   (define-key map (kbd "C-c C-q") #'zuul-quit-build)
   (define-key map (kbd "C-c C-s") #'zuul-switch-buildset)
   (define-key map (kbd "C-c C-r") #'zuul-run-build-command))

[elpa] externals/zuul ad20c55828 17/17: Update required Emacs version

[ELPA Syncer]

branch: externals/zuul
commit ad20c55828eb53815c04104cfad51d7275325f25
Author: Niklas Eklund 
Commit: Niklas Eklund 

Update required Emacs version
---
 zuul.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/zuul.el b/zuul.el
index 9a03f98dc3..178022180f 100644
--- a/zuul.el
+++ b/zuul.el
@@ -5,7 +5,7 @@
 ;; Author: Niklas Eklund 
 ;; URL: https://git.sr.ht/~niklaseklund/zuul.el
 ;; Version: 0.2
-;; Package-Requires: ((emacs "27.1"))
+;; Package-Requires: ((emacs "28.1"))
 ;; Keywords: convenience tools
 
 ;; This file is not part of GNU Emacs.

[elpa] externals/zuul 0003af3679 10/17: Add functions for anonymized screenshots

[ELPA Syncer]

branch: externals/zuul
commit 0003af3679c223f087ea6c835a2fec31f643f64b
Author: Niklas Eklund 
Commit: Niklas Eklund 

Add functions for anonymized screenshots
---
 notes.org | 62 ++
 1 file changed, 62 insertions(+)

diff --git a/notes.org b/notes.org
index 9a96e4146c..34aa58d165 100644
--- a/notes.org
+++ b/notes.org
@@ -105,3 +105,65 @@ Select and open a build retrieved with 
=zuul-get-buildsets=.
  (zuul-get-buildsets
   :change "300203")))
 #+end_src
+
+* Screenshots
+
+** Anonymize
+
+Add functions used to =anonymize= data.
+
+#+begin_src elisp :results none
+  (defun zuul-anonymize-build-name (build)
+(with-temp-buffer
+  (insert (let-alist (zuul-data build) .job_name))
+  (unpackaged/lorem-ipsum-overlay t)
+  (buffer-string)))
+
+  (defun zuul-anonymize-buffer-with-overlay (&rest args)
+(unpackaged/lorem-ipsum-overlay)
+(setq mode-line-format nil))
+
+  (defun zuul-anonymize-buffer (&rest args)
+(unpackaged/lorem-ipsum-overlay)
+(setq mode-line-format nil))
+
+  (defun zuul-anonymize-silence-messages (orig-fun &rest args)
+(let ((inhibit-message t))
+  (apply orig-fun args)))
+
+  (defun zuul-anonymize-task-command (data)
+(let ((command
+   (pcase-let* ((`(,_hostname . ,data) (plist-get data ':host))
+(cmd-str (let-alist data .cmd)))
+ (if (stringp cmd-str)
+ cmd-str
+   (mapconcat #'identity cmd-str " ")
+  (with-temp-buffer
+(insert command)
+(unpackaged/lorem-ipsum-overlay t)
+(buffer-string
+#+end_src
+
+Add =advices= around functions that could be sensitive.
+
+#+begin_src elisp :results none
+  (advice-add 'zuul--data-host-cmd-str :override #'zuul-anonymize-task-command)
+  (advice-add 'url-insert-file-contents :around 
#'zuul-anonymize-silence-messages)
+  (advice-add 'compile-goto-error :around #'zuul-anonymize-silence-messages)
+  (advice-add 'compile-goto-error :after #'zuul-anonymize-buffer)
+  (advice-add 'zuul-log-mode :after #'zuul-anonymize-buffer-with-overlay)
+  (advice-add 'zuul--build-name-str :override #'zuul-anonymize-build-name)
+  (toggle-frame-tab-bar)
+#+end_src
+
+Remove advices and settings to restore original behavior.
+
+#+begin_src elisp :results none
+  (advice-remove 'zuul--data-host-cmd-str #'zuul-anonymize-task-command)
+  (advice-remove 'url-insert-file-contents #'zuul-anonymize-silence-messages)
+  (advice-remove 'compile-goto-error #'zuul-anonymize-silence-messages)
+  (advice-remove 'compile-goto-error #'zuul-anonymize-buffer)
+  (advice-remove 'zuul-log-mode #'zuul-anonymize-buffer-with-overlay)
+  (advice-remove 'zuul--build-name-str #'zuul-anonymize-build-name)
+  (toggle-frame-tab-bar)
+#+end_src

[elpa] externals/zuul aecdb85b15 02/17: Add zuul.el

[ELPA Syncer]

branch: externals/zuul
commit aecdb85b151a02b18bec2e31de547833681aa7c1
Author: Niklas Eklund 
Commit: Niklas Eklund 

Add zuul.el

This commit adds the zuul.el package which let's users browse Zuul
build logs from Emacs.
---
 .build.yml|9 +
 .dir-locals.el|3 +
 .gitignore|2 +
 CHANGELOG.org |7 +
 README.md |  104 +
 build-package |   11 +
 notes.org |  107 ++
 test/zuul-test.el |   56 +++
 zuul.el   | 1082 +
 9 files changed, 1381 insertions(+)

diff --git a/.build.yml b/.build.yml
new file mode 100644
index 00..cc480791e6
--- /dev/null
+++ b/.build.yml
@@ -0,0 +1,9 @@
+image: guix
+packages:
+- emacs-minimal
+environment:
+  project: zuul.el
+tasks:
+- guix: |
+cd $project
+./build-package
diff --git a/.dir-locals.el b/.dir-locals.el
new file mode 100644
index 00..a0b2295bb9
--- /dev/null
+++ b/.dir-locals.el
@@ -0,0 +1,3 @@
+((nil . ((compile-command . "guix shell emacs-minimal -- ./build-package")))
+ (prog-mode (eval flymake-mode))
+ (magit-status-mode (magit-todos-exclude-globs)))
diff --git a/.gitignore b/.gitignore
new file mode 100644
index 00..1d8f1fc7f6
--- /dev/null
+++ b/.gitignore
@@ -0,0 +1,2 @@
+/zuul-autoloads.el
+*.elc
diff --git a/CHANGELOG.org b/CHANGELOG.org
new file mode 100644
index 00..99d0448037
--- /dev/null
+++ b/CHANGELOG.org
@@ -0,0 +1,7 @@
+#+title: zuul.el - Changelog
+#+author: Niklas Eklund
+#+language: en
+
+* Version 0.1 (2022-07-19)
+
+- Initial release
diff --git a/README.md b/README.md
new file mode 100644
index 00..f4ec0f9baa
--- /dev/null
+++ b/README.md
@@ -0,0 +1,104 @@
+# zuul.el
+
+[![builds.sr.ht 
status](https://builds.sr.ht/~niklaseklund/zuul.el/commits/main/.build.yml.svg)](https://builds.sr.ht/~niklaseklund/zuul.el/commits/main/.build.yml?)
+
+# Introduction
+
+Browse [Zuul](https://zuul-ci.org/) build outputs from Emacs. The `zuul.el` 
package provides functionality to communicate with Zuul through its [Zuul REST 
API](https://zuul-ci.org/docs/zuul/latest/rest-api.html).
+
+The `zuul-log-mode` major mode makes it as comfortable to browse a build log 
as it would be to navigate a local compilation. The package implements a custom 
filename parser for errors in the logs which allows Emacs to open the correct 
project file when an error is encountered in the log, even though the absolute 
path may not be found on the local machine.
+
+# Configuration
+
+A minimal `use-package` configuration.
+
+``` emacs-lisp
+(use-package zuul
+  :custom ((zuul-base-url "https://base.url.to.zuul.net";)
+   (zuul-tenant "tenant1")
+   (zuul-tenant-configs
+'((:name "tenant1"
+ :project-roots (("foo" . "~/git/foo-repo")
+ ("baz" . "~/git/baz-repo")))
+  (:name "tenant2"
+ :project-roots (("bar" . "~/git/bar-repo")))
+```
+
+# Usage
+
+The package doesn't provide any commands, except those used by the 
`zuul-log-mode`. Other packages, or users themselves, needs to implement 
commands because retrieving builds or buildsets requires knowledge that might 
not be general. An example of a package that integrates with `zuul.el` is 
[egerrit-zuul](https://git.sr.ht/~niklaseklund/egerrit/tree/main/egerrit-zuul.el).
 It provides the command `egerrit-zuul-open-build-log` which can be used as 
inspiration.
+
+The functions `zuul-get-builds` and `zuul-get-buildsets` needs to be called to 
retrieve builds and buildsets from Zuul. Both functions accepts multiple input 
parameters specified as keys in the call. The simplest example would be to use 
a `change` number. 
+
+``` emacs-lisp
+;; For buildsets
+(zuul-get-buildsets :change "300203")
+
+;; For builds
+(zuul-get-builds :change "300203")
+```
+
+A list of builds, or buildsets, can be passed as input to the 
`zuul-open-build-log` in order to view a specific build log.
+
+``` emacs-lisp
+;; For buildsets
+(zuul-open-build-log
+   (zuul-get-buildsets
+:change "300203"))
+
+;; For builds
+(zuul-open-build-log
+   (zuul-get-builds
+:change "300203"))
+```
+
+# Zuul log mode
+
+The major mode `zuul-log-mode` provides the following commands.
+
+| Name   | Binding | Description   
 |
+||-||
+| zuul-switch-build  | C-c C-b | Switch to another build   
 |
+| zuul-switch-buildset   | C-c C-s | Switch to a build from a specific 
buildset |
+| zuul-run-build-command | C-c C-r | Run build command from build log  
 |
+| zuul-previous-build| C-c C-p | Switch to previous build  
 |
+| zuul-next-build| C-c C-n | Switch to next build  
 |
+| zuul-open-build-in-browser | C-c C-o | Open build in browser 
 

[elpa] externals/zuul 36fb6e7a13 15/17: Address feedback from package-lint

[ELPA Syncer]

branch: externals/zuul
commit 36fb6e7a13fc3a021ca6c658b82e8279b516edbf
Author: Niklas Eklund 
Commit: Niklas Eklund 

Address feedback from package-lint
---
 README.md | 4 ++--
 zuul.el   | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/README.md b/README.md
index 4956b70c08..a84d091e17 100644
--- a/README.md
+++ b/README.md
@@ -65,8 +65,8 @@ The major mode `zuul-log-mode` provides the following 
commands.
 | zuul-previous-command  | C-c C-p | Go to previous command in build log   
 |
 | zuul-next-command  | C-c C-n | Go to next command in build log   
 |
 | zuul-open-build-in-browser | C-c C-o | Open build in browser 
 |
-| zuul-previous-build| C-c C-[ | Switch to previous build  
 |
-| zuul-next-build| C-c C-] | Switch to next build  
 |
+| zuul-previous-build| C-c [   | Switch to previous build  
 |
+| zuul-next-build| C-c ]   | Switch to next build  
 |
 | zuul-quit-build| C-c C-q | Quit and delete build log buffers 
 |
 
 It also integrates with the following built in features:
diff --git a/zuul.el b/zuul.el
index d1d6a4f2cc..e1ebdb63d5 100644
--- a/zuul.el
+++ b/zuul.el
@@ -1138,9 +1138,9 @@ Optionally provide extra parameters PARAMS, PARSER, 
METHOD, BUFFER or HEADERS."
 (let ((map zuul-log-mode-map))
   (define-key map (kbd "C-c C-b") #'zuul-switch-build)
   (define-key map (kbd "C-c C-.") #'eldoc-mode)
-  (define-key map (kbd "C-c C-]") #'zuul-next-build)
+  (define-key map (kbd "C-c ]") #'zuul-next-build)
   (define-key map (kbd "C-c C-o") #'zuul-open-build-in-browser)
-  (define-key map (kbd "C-c C-[") #'zuul-previous-build)
+  (define-key map (kbd "C-c [") #'zuul-previous-build)
   (define-key map (kbd "C-c C-p") #'zuul-previous-command)
   (define-key map (kbd "C-c C-n") #'zuul-next-command)
   (define-key map (kbd "C-c C-q") #'zuul-quit-build)

[elpa] externals/zuul ef4dba22c6 11/17: Increase anonymity

[ELPA Syncer]

branch: externals/zuul
commit ef4dba22c6de7a0f5cacb2a89a5f0cb120e26319
Author: Niklas Eklund 
Commit: Niklas Eklund 

Increase anonymity
---
 notes.org | 9 +
 1 file changed, 9 insertions(+)

diff --git a/notes.org b/notes.org
index 34aa58d165..a013454e9d 100644
--- a/notes.org
+++ b/notes.org
@@ -142,12 +142,20 @@ Add functions used to =anonymize= data.
 (insert command)
 (unpackaged/lorem-ipsum-overlay t)
 (buffer-string
+
+  (defun zuul-anonymize-playbook-name (data)
+(with-temp-buffer
+  (insert (let-alist (plist-get data ':playbook)
+.playbook))
+  (unpackaged/lorem-ipsum-overlay t)
+  (buffer-string)))
 #+end_src
 
 Add =advices= around functions that could be sensitive.
 
 #+begin_src elisp :results none
   (advice-add 'zuul--data-host-cmd-str :override #'zuul-anonymize-task-command)
+  (advice-add 'zuul--data-playbook-name-str :override 
#'zuul-anonymize-playbook-name)
   (advice-add 'url-insert-file-contents :around 
#'zuul-anonymize-silence-messages)
   (advice-add 'compile-goto-error :around #'zuul-anonymize-silence-messages)
   (advice-add 'compile-goto-error :after #'zuul-anonymize-buffer)
@@ -160,6 +168,7 @@ Remove advices and settings to restore original behavior.
 
 #+begin_src elisp :results none
   (advice-remove 'zuul--data-host-cmd-str #'zuul-anonymize-task-command)
+  (advice-remove 'zuul--data-playbook-name-str #'zuul-anonymize-playbook-name)
   (advice-remove 'url-insert-file-contents #'zuul-anonymize-silence-messages)
   (advice-remove 'compile-goto-error #'zuul-anonymize-silence-messages)
   (advice-remove 'compile-goto-error #'zuul-anonymize-buffer)

[elpa] externals/zuul d58e139493 08/17: Update zuul-open-build-log implementation

[ELPA Syncer]

branch: externals/zuul
commit d58e13949308b0e96a7490963d3df7df2d1866d0
Author: Niklas Eklund 
Commit: Niklas Eklund 

Update zuul-open-build-log implementation
---
 README.md | 15 ---
 notes.org |  4 ++--
 zuul.el   | 24 +++-
 3 files changed, 29 insertions(+), 14 deletions(-)

diff --git a/README.md b/README.md
index f4ec0f9baa..cc818129ef 100644
--- a/README.md
+++ b/README.md
@@ -38,18 +38,19 @@ The functions `zuul-get-builds` and `zuul-get-buildsets` 
needs to be called to r
 (zuul-get-builds :change "300203")
 ```
 
-A list of builds, or buildsets, can be passed as input to the 
`zuul-open-build-log` in order to view a specific build log.
+A query to retrieve builds or buildsets can be provided as input to the 
`zuul-open-build-log` in order to view a specific build log.
 
 ``` emacs-lisp
-;; For buildsets
+;; Query provided as a list
 (zuul-open-build-log
-   (zuul-get-buildsets
-:change "300203"))
+ '(zuul-get-buildsets
+   :change "300203"))
 
-;; For builds
+;; Query provided as a function
 (zuul-open-build-log
-   (zuul-get-builds
-:change "300203"))
+ (lambda ()
+   '(zuul-get-builds
+ :change "300203")))
 ```
 
 # Zuul log mode
diff --git a/notes.org b/notes.org
index 050c8e4478..9a96e4146c 100644
--- a/notes.org
+++ b/notes.org
@@ -92,7 +92,7 @@ Select and open a build retrieved with =zuul-get-builds=.
 
 #+begin_src elisp :results none
   (let ((zuul-build-display-buffer-action 'display-buffer-pop-up-window))
-(zuul-open-build-log
+(zuul--open-build-log
  (zuul-get-builds
   :change "300203")))
 #+end_src
@@ -101,7 +101,7 @@ Select and open a build retrieved with =zuul-get-buildsets=.
 
 #+begin_src elisp :results none
   (let ((zuul-build-display-buffer-action 'display-buffer-pop-up-window))
-(zuul-open-build-log
+(zuul--open-build-log
  (zuul-get-buildsets
   :change "300203")))
 #+end_src
diff --git a/zuul.el b/zuul.el
index c7d5a25ca2..2ff40ec697 100644
--- a/zuul.el
+++ b/zuul.el
@@ -274,7 +274,21 @@ Each entry in the list is a property list with the 
following properties:
   "Return BUILD's data."
   (zuul--build-data build))
 
-(defun zuul-open-build-log (builds-or-buildsets)
+(defun zuul-open-build-log (query)
+  "Open a build log based on QUERY.
+
+Query which can either be a list or a function returning a list.
+The content of the list should be the query function to use as well as
+the parameter to pass to it.  Examples of query functions are:
+- `zuul-get-buildsets'
+- `zuul-get-builds'"
+  (when-let ((builds-or-buildsets
+  (apply (if (functionp query)
+ (funcall query)
+   query
+(zuul--open-build-log builds-or-buildsets)))
+
+(defun zuul--open-build-log (builds-or-buildsets)
   "Open a build log from an item in list BUILDS-OR-BUILDSETS."
   (when (or (and (listp builds-or-buildsets)
  (or (zuul-buildset-p (seq-first builds-or-buildsets))
@@ -354,7 +368,7 @@ Optionally provide parameters CHANGE, PROJECT, PATCHSET and 
LIMIT."
   "Switch to another build."
   (interactive)
   (let ((zuul--builds zuul--current-builds))
-(zuul-open-build-log
+(zuul--open-build-log
  (zuul--builds zuul--current-build
 
 ;;;###autoload
@@ -362,7 +376,7 @@ Optionally provide parameters CHANGE, PROJECT, PATCHSET and 
LIMIT."
   "Switch to a build from a specific buildset."
   (interactive)
   (let ((zuul--builds zuul--current-builds))
-(zuul-open-build-log
+(zuul--open-build-log
  (zuul--buildsets zuul--current-build
 
 ;;;###autoload
@@ -398,7 +412,7 @@ Optionally provide parameters CHANGE, PROJECT, PATCHSET and 
LIMIT."
(length builds-with-index)))
  (next-build
   (cdr (assoc next-index builds-with-index
-(zuul-open-build-log next-build)))
+(zuul--open-build-log next-build)))
 
 ;;;###autoload
 (defun zuul-previous-build ()
@@ -414,7 +428,7 @@ Optionally provide parameters CHANGE, PROJECT, PATCHSET and 
LIMIT."
(length builds-with-index)))
  (previous-build
   (cdr (assoc previous-index builds-with-index
-(zuul-open-build-log previous-build)))
+(zuul--open-build-log previous-build)))
 
 ;;;###autoload
 (defun zuul-quit-build ()

[elpa] externals/zuul 3c0e5ccd4e 16/17: Address feedback from checkdoc

[ELPA Syncer]

branch: externals/zuul
commit 3c0e5ccd4ebee6b04e4d02dc981f047f897bd5d7
Author: Niklas Eklund 
Commit: Niklas Eklund 

Address feedback from checkdoc
---
 zuul.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/zuul.el b/zuul.el
index e1ebdb63d5..9a03f98dc3 100644
--- a/zuul.el
+++ b/zuul.el
@@ -64,7 +64,7 @@
 
 Each configuration is a property list with the following properties:
 NAME: Name of the tenant
-PROJECT-ROOTS: An alist of (project-name . project-root)"
+PROJECT-ROOTS: An alist of (name . root)"
   :group 'zuul
   :type 'list)
 

[elpa] externals/zuul 22d942a78c 13/17: Bump header version in zuul.el

[ELPA Syncer]

branch: externals/zuul
commit 22d942a78cba0fa76a05054c1bb6659344e947d6
Author: Niklas Eklund 
Commit: Niklas Eklund 

Bump header version in zuul.el
---
 zuul.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/zuul.el b/zuul.el
index 007f33d43f..d1d6a4f2cc 100644
--- a/zuul.el
+++ b/zuul.el
@@ -4,7 +4,7 @@
 
 ;; Author: Niklas Eklund 
 ;; URL: https://git.sr.ht/~niklaseklund/zuul.el
-;; Version: 0.1
+;; Version: 0.2
 ;; Package-Requires: ((emacs "27.1"))
 ;; Keywords: convenience tools
 

[elpa] externals/zuul 02c7f26463 12/17: Version 0.2

[ELPA Syncer]

branch: externals/zuul
commit 02c7f26463d617724db022e5994ed2e33431dc44
Author: Niklas Eklund 
Commit: Niklas Eklund 

Version 0.2
---
 CHANGELOG.org | 9 +
 1 file changed, 9 insertions(+)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index 99d0448037..be0b397945 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -2,6 +2,15 @@
 #+author: Niklas Eklund
 #+language: en
 
+* Develop
+
+* Version 0.2 (2022-08-25)
+
+- Simplify for users/packages to utilize =zuul=
+- Add commands to navigate between previous and next command prompt in logs
+- Highlight line with command and add prompt to make it reminiscent to a shell
+- Update log buffer to contain the executed commands
+
 * Version 0.1 (2022-07-19)
 
 - Initial release

[elpa] externals/ef-themes a02573113c: Fix initial colors list in ef-themes-with-colors

[ELPA Syncer]

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

Fix initial colors list in ef-themes-with-colors

Thanks to Steve Molitor for telling me that the previous design would
not work if 'ef-light' was not loaded.   This was done in issue 11 at
the GitHub mirror: .
---
 ef-themes.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ef-themes.el b/ef-themes.el
index 9a6050420f..377935c424 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -1518,7 +1518,7 @@ Those are stored in `ef-themes-faces' and
  ;; instantiate the actual theme's palette.  We have to do this
  ;; otherwise the macro does not work properly when called from
  ;; inside a function.
- (colors (mapcar #'car (symbol-value 'ef-light-palette
+ (colors (mapcar #'car (ef-themes--current-theme-palette
 `(let* ((c '((class color) (min-colors 256)))
 (,sym (ef-themes--current-theme-palette))
 ,@(mapcar (lambda (color)

[elpa] externals/zuul updated (ad20c55828 -> 35ac410f06)

[ELPA Syncer]

elpasync pushed a change to branch externals/zuul.

  from  ad20c55828 Update required Emacs version
   new  afeed115b6 Apply feedback from ELPA review
   new  785d2d1619 Add defvar to zuul-log-mode-map
   new  40d5bd296a Replace mapconcat with string-join
   new  65777e8eca Require rx at compilation
   new  cda2bc3a40 Use defconst and defvar-local in private vars
   new  35ac410f06 Use composite types for defcustom variables


Summary of changes:
 .gitignore |   1 +
 README.md  |   2 +-
 zuul.el| 175 +++--
 3 files changed, 90 insertions(+), 88 deletions(-)

[elpa] externals/zuul 40d5bd296a 3/6: Replace mapconcat with string-join

[ELPA Syncer]

branch: externals/zuul
commit 40d5bd296ae7301dea2f6415fcdd9ee5f400671c
Author: Niklas Eklund 
Commit: Niklas Eklund 

Replace mapconcat with string-join
---
 zuul.el | 41 +
 1 file changed, 21 insertions(+), 20 deletions(-)

diff --git a/zuul.el b/zuul.el
index 07f4916daf..9e6c751020 100644
--- a/zuul.el
+++ b/zuul.el
@@ -42,6 +42,7 @@
 (require 'ansi-color)
 (require 'comint)
 (require 'project)
+(require 'subr-x)
 (require 'text-property-search)
 (require 'url)
 
@@ -761,10 +762,10 @@ Optionally provide extra parameters PARAMS, PARSER, 
METHOD, BUFFER or HEADERS."
 (defun zuul--build-json-parser ()
   "Parse the output of a json build."
   (let ((build (zuul--request-json-parser)))
-(mapconcat #'identity
-   (flatten-list
-(seq-map #'zuul--build-playbook-output build))
-   "\n")))
+(string-join
+ (flatten-list
+  (seq-map #'zuul--build-playbook-output build))
+ "\n")))
 
 (defun zuul--build-playbook-output (playbook)
   "Return the output from the PLAYBOOK."
@@ -807,7 +808,7 @@ Optionally provide extra parameters PARAMS, PARSER, METHOD, 
BUFFER or HEADERS."
   hostname
   (if (stringp cmd)
   cmd
-(mapconcat #'identity cmd " "))
+(string-join cmd " "))
   (zuul--propertize-face cmd-str 'bold-italic)
   (if (or (null output) (string-empty-p output))
   (setq output (concat cmd-str "\n"))
@@ -889,19 +890,19 @@ Optionally provide extra parameters PARAMS, PARSER, 
METHOD, BUFFER or HEADERS."
   "A member of `eldoc-documentation-functions', for signatures."
   (when-let* ((text-properties (text-properties-at (point)))
   (data (plist-get text-properties 'zuul-data)))
-(mapconcat #'identity
-   `(,(format "%s playbook" (zuul--data-playbook-phase-str data))
- ,(zuul--data-playbook-name-str data)
- ,(format "Play: %s" (zuul--data-play-name-str data))
- ,(concat "Task: ["
-  (when-let ((role-str (zuul--data-task-role-str 
data)))
-(unless (string-empty-p role-str)
-  (concat role-str ": ")))
-  (zuul--data-task-name-str data)
-  "] "
-  (string-trim (zuul--data-task-duration-str data)))
- ,(format "Host: %s" (zuul--data-host-name-str data)))
-   " ")))
+(string-join
+ `(,(format "%s playbook" (zuul--data-playbook-phase-str data))
+   ,(zuul--data-playbook-name-str data)
+   ,(format "Play: %s" (zuul--data-play-name-str data))
+   ,(concat "Task: ["
+(when-let ((role-str (zuul--data-task-role-str data)))
+  (unless (string-empty-p role-str)
+(concat role-str ": ")))
+(zuul--data-task-name-str data)
+"] "
+(string-trim (zuul--data-task-duration-str data)))
+   ,(format "Host: %s" (zuul--data-host-name-str data)))
+ " ")))
 
 (defun zuul--imenu-index ()
   "Create an `imenu' index for the build log."
@@ -935,7 +936,7 @@ Optionally provide extra parameters PARAMS, PARSER, METHOD, 
BUFFER or HEADERS."
   (seq-map (lambda (it)
  (pcase-let ((`(,type . ,builds) it))
(format "%s(%s)" type (length 
builds
-  (mapconcat #'identity summary " ")
+  (string-join summary " ")
 ""))
 
 (defun zuul--buildset-duration-str (buildset)
@@ -1055,7 +1056,7 @@ Optionally provide extra parameters PARAMS, PARSER, 
METHOD, BUFFER or HEADERS."
(cmd-str (let-alist data .cmd)))
 (if (stringp cmd-str)
 cmd-str
-  (mapconcat #'identity cmd-str " "
+  (string-join cmd-str " "
 
 (defun zuul--data-host-result-str (data)
   "Return the result of the host in DATA."

[elpa] externals/zuul 65777e8eca 4/6: Require rx at compilation

[ELPA Syncer]

branch: externals/zuul
commit 65777e8ecacfbeaa1a596b75b3356275d42613dc
Author: Niklas Eklund 
Commit: Niklas Eklund 

Require rx at compilation
---
 zuul.el | 1 +
 1 file changed, 1 insertion(+)

diff --git a/zuul.el b/zuul.el
index 9e6c751020..f536e93ee0 100644
--- a/zuul.el
+++ b/zuul.el
@@ -42,6 +42,7 @@
 (require 'ansi-color)
 (require 'comint)
 (require 'project)
+(eval-when-compile (require 'rx))
 (require 'subr-x)
 (require 'text-property-search)
 (require 'url)

[elpa] externals/zuul cda2bc3a40 5/6: Use defconst and defvar-local in private vars

[ELPA Syncer]

branch: externals/zuul
commit cda2bc3a409509033b536e856121e45a177914fc
Author: Niklas Eklund 
Commit: Niklas Eklund 

Use defconst and defvar-local in private vars
---
 zuul.el | 31 +++
 1 file changed, 11 insertions(+), 20 deletions(-)

diff --git a/zuul.el b/zuul.el
index f536e93ee0..e6c5804ace 100644
--- a/zuul.el
+++ b/zuul.el
@@ -150,32 +150,23 @@ Each entry in the list is a property list with the 
following properties:
 
 ; Private
 
-(defvar zuul--response-buffer " *zuul-response*"
+(defconst zuul--response-buffer " *zuul-response*"
   "Name of the buffer which holds the response from Zuul.")
 
-(defvar zuul--build-playbook-id nil
-  "Identifier for playbook.")
-(defvar zuul--build-play-id nil
-  "Identifier for play.")
-(defvar zuul--build-task-id nil
-  "Identifier for task.")
-(defvar zuul--build-data nil
-  "Data of build.")
-
-(defvar zuul--builds nil)
-(defvar zuul--build nil)
-(defvar zuul--current-build nil
+(defvar zuul--build-playbook-id nil "Identifier for playbook.")
+(defvar zuul--build-play-id nil "Identifier for play.")
+(defvar zuul--build-task-id nil "Identifier for task.")
+(defvar zuul--build-data nil "Data of build.")
+(defvar zuul--builds nil "List of builds.")
+(defvar zuul--build nil "A build.")
+
+(defvar-local zuul--current-build nil
   "A buffer local variable of the current build.")
-(defvar zuul--current-builds nil
+(defvar-local zuul--current-builds nil
   "A buffer local variable of the current builds.")
-(defvar zuul--project-files nil
+(defvar-local zuul--project-files nil
   "A buffer local variable with all files in the current project.")
 
-(dolist (var '(zuul--current-build
-   zuul--current-builds
-   zuul--project-files))
-  (make-variable-buffer-local var))
-
  Faces
 
 (defgroup zuul-faces nil

[elpa] externals/zuul 35ac410f06 6/6: Use composite types for defcustom variables

[ELPA Syncer]

branch: externals/zuul
commit 35ac410f063c4b71492f11d7ec5f1510b8d1d293
Author: Niklas Eklund 
Commit: Niklas Eklund 

Use composite types for defcustom variables
---
 zuul.el | 31 +++
 1 file changed, 23 insertions(+), 8 deletions(-)

diff --git a/zuul.el b/zuul.el
index e6c5804ace..903239ec55 100644
--- a/zuul.el
+++ b/zuul.el
@@ -51,12 +51,12 @@
 
  Variables
 
-(defcustom zuul-base-url nil
+(defcustom zuul-base-url ""
   "Base URL to Zuul."
   :group 'zuul
   :type 'string)
 
-(defcustom zuul-tenant nil
+(defcustom zuul-tenant ""
   "Zuul tenant."
   :group 'zuul
   :type 'string)
@@ -68,7 +68,10 @@ Each configuration is a property list with the following 
properties:
 NAME: Name of the tenant
 PROJECT-ROOTS: An alist of (name . root)"
   :group 'zuul
-  :type 'list)
+  :type '(repeat (plist :options ((:name string)
+  (:project-roots
+   (alist :key-type string
+  :value-type string))
 
 (defcustom zuul-build-annotation
   '((:name build :function zuul--build-name-str)
@@ -84,7 +87,10 @@ Each entry in the list is a property list with the following 
properties:
 - :align
 - :face"
   :group 'zuul
-  :type 'list)
+  :type '(repeat (plist :options ((:name symbol)
+  (:function symbol)
+  (:align symbol)
+  (:face symbol)
 
 (defcustom zuul-buildset-annotation
   '((:name patchset :function zuul--buildset-patchset-str)
@@ -100,7 +106,10 @@ Each entry in the list is a property list with the 
following properties:
 - :align
 - :face"
   :group 'zuul
-  :type 'list)
+  :type '(repeat (plist :options ((:name symbol)
+  (:function symbol)
+  (:align symbol)
+  (:face symbol)
 
 (defcustom zuul-build-command-annotation
   '((:name command :function zuul--data-host-cmd-str :width 50)
@@ -118,7 +127,10 @@ Each entry in the list is a property list with the 
following properties:
 - :align
 - :face"
   :group 'zuul
-  :type 'list)
+  :type '(repeat (plist :options ((:name symbol)
+  (:function symbol)
+  (:align symbol)
+  (:face symbol)
 
 (defcustom zuul-build-imenu-annotation
   '((:name task-name :function zuul--data-task-name-str)
@@ -135,13 +147,16 @@ Each entry in the list is a property list with the 
following properties:
 - :align
 - :face"
   :group 'zuul
-  :type 'list)
+  :type '(repeat (plist :options ((:name symbol)
+  (:function symbol)
+  (:align symbol)
+  (:face symbol)
 
 (defcustom zuul-build-display-buffer-action '(display-buffer-same-window
   (inhibit-same-window . nil))
   "The configuration for `display-buffer' when opening a build."
   :group 'zuul
-  :type 'list)
+  :type 'sexp)
 
 (defcustom zuul-add-builds-to-buildset t
   "If set to t builds will be added to buildsets."

[elpa] externals/zuul afeed115b6 1/6: Apply feedback from ELPA review

[ELPA Syncer]

branch: externals/zuul
commit afeed115b654c85369e5072b544ca142a27157dc
Author: Niklas Eklund 
Commit: Niklas Eklund 

Apply feedback from ELPA review
---
 .gitignore |  1 +
 README.md  |  2 +-
 zuul.el| 47 +++
 3 files changed, 21 insertions(+), 29 deletions(-)

diff --git a/.gitignore b/.gitignore
index 1d8f1fc7f6..2e852834d1 100644
--- a/.gitignore
+++ b/.gitignore
@@ -1,2 +1,3 @@
 /zuul-autoloads.el
+/zuul-pkg.el
 *.elc
diff --git a/README.md b/README.md
index a84d091e17..f3e83404a5 100644
--- a/README.md
+++ b/README.md
@@ -105,4 +105,4 @@ The `zuul.el` package supports [Connection Local 
Variables](https://www.gnu.org/
 
 # Contributions
 
-The author might try to include the package into ELPA in the future, which 
means that if you want to contribute you must have a copyright assignment.
+The author might try to include the package into GNU ELPA in the future, which 
means that if you want to contribute you must have a copyright assignment.
diff --git a/zuul.el b/zuul.el
index 178022180f..b7340dc61c 100644
--- a/zuul.el
+++ b/zuul.el
@@ -1,6 +1,6 @@
 ;;; zuul.el --- Interface to Zuul -*- lexical-binding: t; -*-
 
-;; Copyright (C) 2022 Niklas Eklund
+;; Copyright (C) 2022  Free Software Foundation, Inc.
 
 ;; Author: Niklas Eklund 
 ;; URL: https://git.sr.ht/~niklaseklund/zuul.el
@@ -371,7 +371,6 @@ Optionally provide parameters CHANGE, PROJECT, PATCHSET and 
LIMIT."
 
  Commands
 
-;;;###autoload
 (defun zuul-switch-build ()
   "Switch to another build."
   (interactive)
@@ -379,7 +378,6 @@ Optionally provide parameters CHANGE, PROJECT, PATCHSET and 
LIMIT."
 (zuul--open-build-log
  (zuul--builds zuul--current-build
 
-;;;###autoload
 (defun zuul-switch-buildset ()
   "Switch to a build from a specific buildset."
   (interactive)
@@ -387,7 +385,6 @@ Optionally provide parameters CHANGE, PROJECT, PATCHSET and 
LIMIT."
 (zuul--open-build-log
  (zuul--buildsets zuul--current-build
 
-;;;###autoload
 (defun zuul-open-build-in-browser ()
   "Open build in browser."
   (interactive)
@@ -397,7 +394,6 @@ Optionally provide parameters CHANGE, PROJECT, PATCHSET and 
LIMIT."
  "/t/" zuul-tenant
  "/build/" .uuid "/console"
 
-;;;###autoload
 (defun zuul-run-build-command ()
   "Run build command from build log."
   (interactive)
@@ -406,7 +402,6 @@ Optionally provide parameters CHANGE, PROJECT, PATCHSET and 
LIMIT."
 (detached-compile command)
   (compile command
 
-;;;###autoload
 (defun zuul-next-build ()
   "Switch to next build."
   (interactive)
@@ -422,7 +417,6 @@ Optionally provide parameters CHANGE, PROJECT, PATCHSET and 
LIMIT."
   (cdr (assoc next-index builds-with-index
 (zuul--open-build-log next-build)))
 
-;;;###autoload
 (defun zuul-previous-build ()
   "Switch to previous build."
   (interactive)
@@ -438,7 +432,6 @@ Optionally provide parameters CHANGE, PROJECT, PATCHSET and 
LIMIT."
   (cdr (assoc previous-index builds-with-index
 (zuul--open-build-log previous-build)))
 
-;;;###autoload
 (defun zuul-quit-build ()
   "Kill buffers associated with build."
   (interactive)
@@ -459,7 +452,6 @@ Optionally provide parameters CHANGE, PROJECT, PATCHSET and 
LIMIT."
 .change)
  (seq-do #'kill-buffer
 
-;;;###autoload
 (defun zuul-previous-command ()
   "Navigate to previous command."
   (interactive)
@@ -468,7 +460,6 @@ Optionally provide parameters CHANGE, PROJECT, PATCHSET and 
LIMIT."
 (when (re-search-backward re-prompt nil t)
   (goto-char (match-end 0)
 
-;;;###autoload
 (defun zuul-next-command ()
   "Navigate to next command."
   (interactive)
@@ -484,7 +475,7 @@ Optionally provide parameters CHANGE, PROJECT, PATCHSET and 
LIMIT."
   (with-connection-local-variables
(seq-find
 (lambda (it)
-  (string= (plist-get it ':name) zuul-tenant))
+  (string= (plist-get it :name) zuul-tenant))
 zuul-tenant-configs)))
 
 (defun zuul--project-root (project)
@@ -492,7 +483,7 @@ Optionally provide parameters CHANGE, PROJECT, PATCHSET and 
LIMIT."
   (if-let ((tenant-config (zuul--tenant-config))
(project-root (cdr
   (assoc project
- (plist-get tenant-config ':project-roots)
+ (plist-get tenant-config :project-roots)
   (concat (file-remote-p default-directory) project-root)
 (message "Project root for %s wasn't found, falling back to 
`default-directory'" project)
 default-directory))
@@ -854,13 +845,13 @@ Optionally provide extra parameters PARAMS, PARSER, 
METHOD, BUFFER or HEADERS."
   (let* ((annotations
   (seq-map (lambda (candidate)
  (cl-loop for config in annotation-config
-  collect `(,(plist-get config ':name) .
-,(funcall (plist-get config 

[elpa] externals/zuul 785d2d1619 2/6: Add defvar to zuul-log-mode-map

[ELPA Syncer]

branch: externals/zuul
commit 785d2d1619245023695daa0a1951749b30c00f30
Author: Niklas Eklund 
Commit: Niklas Eklund 

Add defvar to zuul-log-mode-map
---
 zuul.el | 24 +---
 1 file changed, 13 insertions(+), 11 deletions(-)

diff --git a/zuul.el b/zuul.el
index b7340dc61c..07f4916daf 100644
--- a/zuul.el
+++ b/zuul.el
@@ -1126,17 +1126,19 @@ Optionally provide extra parameters PARAMS, PARSER, 
METHOD, BUFFER or HEADERS."
   (font-lock-mode)
   (zuul--highlight-cmd))
 
-(let ((map zuul-log-mode-map))
-  (define-key map (kbd "C-c C-b") #'zuul-switch-build)
-  (define-key map (kbd "C-c C-.") #'eldoc-mode)
-  (define-key map (kbd "C-c ]") #'zuul-next-build)
-  (define-key map (kbd "C-c C-o") #'zuul-open-build-in-browser)
-  (define-key map (kbd "C-c [") #'zuul-previous-build)
-  (define-key map (kbd "C-c C-p") #'zuul-previous-command)
-  (define-key map (kbd "C-c C-n") #'zuul-next-command)
-  (define-key map (kbd "C-c C-q") #'zuul-quit-build)
-  (define-key map (kbd "C-c C-s") #'zuul-switch-buildset)
-  (define-key map (kbd "C-c C-r") #'zuul-run-build-command))
+(defvar zuul-log-mode-map
+  (let ((map (make-sparse-keymap)))
+(define-key map (kbd "C-c C-b") #'zuul-switch-build)
+(define-key map (kbd "C-c C-.") #'eldoc-mode)
+(define-key map (kbd "C-c ]") #'zuul-next-build)
+(define-key map (kbd "C-c C-o") #'zuul-open-build-in-browser)
+(define-key map (kbd "C-c [") #'zuul-previous-build)
+(define-key map (kbd "C-c C-p") #'zuul-previous-command)
+(define-key map (kbd "C-c C-n") #'zuul-next-command)
+(define-key map (kbd "C-c C-q") #'zuul-quit-build)
+(define-key map (kbd "C-c C-s") #'zuul-switch-buildset)
+(define-key map (kbd "C-c C-r") #'zuul-run-build-command)
+map))
 
 (provide 'zuul)
 

[elpa] externals/coterm ef99471848: Use string-replace instead of stripping CR's in the buffer

[ELPA Syncer]

branch: externals/coterm
commit ef994718487abe2004aaf38a63660c76c224cfb1
Author: Miha Rihtaršič 
Commit: Miha Rihtaršič 

Use string-replace instead of stripping CR's in the buffer

This is more performant as it avoids excessively adding undo entries for 
each
CR.
---
 coterm.el | 16 +---
 1 file changed, 5 insertions(+), 11 deletions(-)

diff --git a/coterm.el b/coterm.el
index 883d3ca7ab..75e97327f7 100644
--- a/coterm.el
+++ b/coterm.el
@@ -667,15 +667,6 @@ non-nil. Set it to nil to invalidate the cache."
 (defvar coterm-t-after-insert-hook nil
   "Hook run after inserting process output.")
 
-(defun coterm--comint-strip-CR (_)
-  "Remove all \\r characters from last output."
-  (save-excursion
-(goto-char comint-last-output-start)
-(let ((pmark (process-mark (get-buffer-process (current-buffer)
-  (while (progn (skip-chars-forward "^\r")
-(< (point) pmark))
-(delete-char 1)
-
 (defun coterm--init ()
   "Initialize current buffer for coterm."
   (when-let ((process (get-buffer-process (current-buffer
@@ -686,7 +677,6 @@ non-nil. Set it to nil to invalidate the cache."
 (setq coterm--t-scroll-end coterm--t-height)
 
 (setq-local comint-inhibit-carriage-motion t)
-(add-hook 'comint-output-filter-functions #'coterm--comint-strip-CR nil t)
 (coterm-auto-char-mode)
 (coterm-auto-char-lighter-mode)
 
@@ -917,7 +907,11 @@ Synchronise PROCESS's mark beforehand and insert at its 
position.
 NEWLINES is the number of newlines STR contains.  Unless it is
 zero, insertion must happen at the end of accessible portion of
 buffer and the scrolling region must begin at the top of the
-terminal screen."
+terminal screen.
+
+This function also converts all occuences of \"\\r\\n\" into
+\"\\n\" in STR before inserting it."
+  (setq str (string-replace "\r" "" str))
   (unless (zerop coterm--t-row-off)
 (setq coterm--t-col-off (coterm--t-col))
 (goto-char (point-max)))

[elpa] externals/zuul 05c652ccec: Move zuul-log-mode-map before zuul-log-mode

[ELPA Syncer]

branch: externals/zuul
commit 05c652cceccf52ec2cf48c3c6839cfc64f93c963
Author: Niklas Eklund 
Commit: Niklas Eklund 

Move zuul-log-mode-map before zuul-log-mode
---
 zuul.el | 28 ++--
 1 file changed, 14 insertions(+), 14 deletions(-)

diff --git a/zuul.el b/zuul.el
index 903239ec55..ddd17f8df8 100644
--- a/zuul.el
+++ b/zuul.el
@@ -1120,20 +1120,6 @@ Optionally provide extra parameters PARAMS, PARSER, 
METHOD, BUFFER or HEADERS."
 
  Major mode
 
-(define-derived-mode zuul-log-mode fundamental-mode "Zuul Log"
-  "Mode for `zuul' build log."
-  (ansi-color-apply-on-region (point-min) (point-max))
-  (comint-carriage-motion (point-min) (point-max))
-  (setq zuul--project-files (zuul--project-files))
-  (setq-local compilation-parse-errors-filename-function #'zuul--locate-file)
-  (setq-local imenu-create-index-function #'zuul--imenu-index)
-  (compilation-minor-mode)
-  (setq-local font-lock-defaults '(compilation-mode-font-lock-keywords t))
-  (add-hook 'eldoc-documentation-functions #'zuul--eldoc-function nil t)
-  (read-only-mode)
-  (font-lock-mode)
-  (zuul--highlight-cmd))
-
 (defvar zuul-log-mode-map
   (let ((map (make-sparse-keymap)))
 (define-key map (kbd "C-c C-b") #'zuul-switch-build)
@@ -1148,6 +1134,20 @@ Optionally provide extra parameters PARAMS, PARSER, 
METHOD, BUFFER or HEADERS."
 (define-key map (kbd "C-c C-r") #'zuul-run-build-command)
 map))
 
+(define-derived-mode zuul-log-mode fundamental-mode "Zuul Log"
+  "Mode for `zuul' build log."
+  (ansi-color-apply-on-region (point-min) (point-max))
+  (comint-carriage-motion (point-min) (point-max))
+  (setq zuul--project-files (zuul--project-files))
+  (setq-local compilation-parse-errors-filename-function #'zuul--locate-file)
+  (setq-local imenu-create-index-function #'zuul--imenu-index)
+  (compilation-minor-mode)
+  (setq-local font-lock-defaults '(compilation-mode-font-lock-keywords t))
+  (add-hook 'eldoc-documentation-functions #'zuul--eldoc-function nil t)
+  (read-only-mode)
+  (font-lock-mode)
+  (zuul--highlight-cmd))
+
 (provide 'zuul)
 
 ;;; zuul.el ends here

[elpa] externals/zuul c7fd52eb0d 2/3: Update README contributions section

[ELPA Syncer]

branch: externals/zuul
commit c7fd52eb0d7ddf0bffc1954932cb91f9736dce97
Author: Niklas Eklund 
Commit: Niklas Eklund 

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

diff --git a/README.md b/README.md
index 4a273a4a52..d115b8403e 100644
--- a/README.md
+++ b/README.md
@@ -106,4 +106,4 @@ The `zuul.el` package supports [Connection Local 
Variables](https://www.gnu.org/
 
 # Contributions
 
-The author might try to include the package into GNU ELPA in the future, which 
means that if you want to contribute you must have a copyright assignment.
+The package is part of [GNU ELPA](https://elpa.gnu.org/) which means that if 
you want to contribute you must have a [copyright 
assignment](https://www.gnu.org/software/emacs/manual/html_node/emacs/Copyright-Assignment.html).

[elpa] externals/zuul dfb96c33d0 1/3: Add ELPA devel banner

[ELPA Syncer]

branch: externals/zuul
commit dfb96c33d0c81ba9d44913e03400e1763ecc05b9
Author: Niklas Eklund 
Commit: Niklas Eklund 

Add ELPA devel banner
---
 README.md | 1 +
 1 file changed, 1 insertion(+)

diff --git a/README.md b/README.md
index f3e83404a5..4a273a4a52 100644
--- a/README.md
+++ b/README.md
@@ -1,5 +1,6 @@
 # zuul.el
 
+[![GNU-devel 
ELPA](https://elpa.gnu.org/devel/zuul.svg)](http://elpa.gnu.org/devel/zuul.html)
 [![builds.sr.ht 
status](https://builds.sr.ht/~niklaseklund/zuul.el/commits/main/.build.yml.svg)](https://builds.sr.ht/~niklaseklund/zuul.el/commits/main/.build.yml?)
 
 # Introduction

[elpa] externals/zuul updated (05c652ccec -> c515b22c32)

[ELPA Syncer]

elpasync pushed a change to branch externals/zuul.

  from  05c652ccec Move zuul-log-mode-map before zuul-log-mode
   new  dfb96c33d0 Add ELPA devel banner
   new  c7fd52eb0d Update README contributions section
   new  c515b22c32 Bump version to 0.3


Summary of changes:
 CHANGELOG.org | 5 +
 README.md | 3 ++-
 zuul.el   | 2 +-
 3 files changed, 8 insertions(+), 2 deletions(-)

[elpa] externals/zuul c515b22c32 3/3: Bump version to 0.3

[ELPA Syncer]

branch: externals/zuul
commit c515b22c32f1306e920489868920957e3ebd1e2f
Author: Niklas Eklund 
Commit: Niklas Eklund 

Bump version to 0.3
---
 CHANGELOG.org | 5 +
 zuul.el   | 2 +-
 2 files changed, 6 insertions(+), 1 deletion(-)

diff --git a/CHANGELOG.org b/CHANGELOG.org
index be0b397945..44e56cc14e 100644
--- a/CHANGELOG.org
+++ b/CHANGELOG.org
@@ -4,6 +4,11 @@
 
 * Develop
 
+* Version 0.3 (2022-08-30)
+
+- Make package is available on ELPA
+- Improve package quality by implementing suggestions from tools and reviewers
+
 * Version 0.2 (2022-08-25)
 
 - Simplify for users/packages to utilize =zuul=
diff --git a/zuul.el b/zuul.el
index ddd17f8df8..f2b146c3f3 100644
--- a/zuul.el
+++ b/zuul.el
@@ -4,7 +4,7 @@
 
 ;; Author: Niklas Eklund 
 ;; URL: https://git.sr.ht/~niklaseklund/zuul.el
-;; Version: 0.2
+;; Version: 0.3
 ;; Package-Requires: ((emacs "28.1"))
 ;; Keywords: convenience tools
 

[elpa] externals/ef-themes dcea520ae0: Add support for auctex

[ELPA Syncer]

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

Add support for auctex

Thanks to Philip Kaludercic for providing the sample file that let me
view the relevant faces:

.
---
 README.org   |  3 +--
 ef-themes.el | 22 ++
 2 files changed, 23 insertions(+), 2 deletions(-)

diff --git a/README.org b/README.org
index a424ab979f..21a9aa93ce 100644
--- a/README.org
+++ b/README.org
@@ -771,6 +771,7 @@ everything most users need.
 - all-the-icons-dired
 - all-the-icons-ibuffer
 - ansi-color
+- auctex [ Part of {{{development-version}}} ]
 - bongo
 - bookmark
 - calendar and diary
@@ -877,8 +878,6 @@ design of the =ef-themes=, (ii) complexity or multiple 
points of entry,
 opinion, or (v) inconsiderate use of color out-of-the-box and implicit
 unwillingness to be good Emacs citizens:
 
-- auctex :: it has a zillion dependencies; I don't know LaTeX.
-
 - avy :: its UI is prone to visual breakage and is hard to style
   correctly.
 
diff --git a/ef-themes.el b/ef-themes.el
index 377935c424..edbe8e11c4 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -615,6 +615,28 @@ Helper function for `ef-themes-preview-colors'."
 `(ansi-color-red ((,c :background ,red :foreground ,red)))
 `(ansi-color-white ((,c :background "gray65" :foreground "gray65")))
 `(ansi-color-yellow ((,c :background ,yellow :foreground ,yellow)))
+ auctex and tex
+`(font-latex-bold-face ((,c :inherit bold)))
+`(font-latex-doctex-documentation-face ((,c :inherit font-lock-doc-face)))
+`(font-latex-doctex-preprocessor-face ((,c :inherit 
font-lock-preprocessor-face)))
+`(font-latex-italic-face ((,c :inherit italic)))
+`(font-latex-math-face ((,c :inherit font-lock-constant-face)))
+`(font-latex-script-char-face ((,c :inherit font-lock-builtin-face)))
+`(font-latex-sectioning-5-face ((,c :inherit (bold 
ef-themes-variable-pitch) :foreground ,fg-alt)))
+`(font-latex-sedate-face ((,c :inherit font-lock-keyword-face)))
+`(font-latex-slide-title-face ((,c :inherit modus-themes-heading-1)))
+`(font-latex-string-face ((,c :inherit font-lock-string-face)))
+`(font-latex-subscript-face ((,c :height 0.95)))
+`(font-latex-superscript-face ((,c :height 0.95)))
+`(font-latex-underline-face ((,c :inherit underline)))
+`(font-latex-verbatim-face ((,c :inherit modus-themes-markup-verbatim)))
+`(font-latex-warning-face ((,c :inherit font-lock-warning-face)))
+`(tex-verbatim ((,c :inherit ef-themes-fixed-pitch :foreground ,accent-0)))
+;; `(texinfo-heading ((,c :foreground ,magenta)))
+`(TeX-error-description-error ((,c :inherit error)))
+`(TeX-error-description-help ((,c :inherit success)))
+`(TeX-error-description-tex-said ((,c :inherit success)))
+`(TeX-error-description-warning ((,c :inherit warning)))
  bongo
 `(bongo-album-title (( )))
 `(bongo-artist ((,c :foreground ,rainbow-0)))

[elpa] externals/ef-themes updated (dcea520ae0 -> b385a08284)

[ELPA Syncer]

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

  from  dcea520ae0 Add support for auctex
   new  03c17b5f3c ef-deuteranopia-dark: fine-tune blue, blue-cooler 
distance
   new  b385a08284 ef-deuteranopia-dark: tweak rainbow-5 mapping


Summary of changes:
 contrast-ratios.org   | 4 ++--
 ef-deuteranopia-dark-theme.el | 6 +++---
 ef-themes.el  | 2 +-
 3 files changed, 6 insertions(+), 6 deletions(-)

[elpa] externals/ef-themes 03c17b5f3c 1/2: ef-deuteranopia-dark: fine-tune blue, blue-cooler distance

[ELPA Syncer]

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

ef-deuteranopia-dark: fine-tune blue, blue-cooler distance
---
 contrast-ratios.org   | 4 ++--
 ef-deuteranopia-dark-theme.el | 4 ++--
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/contrast-ratios.org b/contrast-ratios.org
index 0c757b17bd..98563bf043 100644
--- a/contrast-ratios.org
+++ b/contrast-ratios.org
@@ -163,9 +163,9 @@ C1 and C2 are color values written in hexadecimal RGB."
 | yellow-warmer  | #cfaf00 |9.20 |7.99 |7.09 |8.72 |
 | yellow-cooler  | #bfaf7a |9.06 |7.86 |6.98 |8.58 |
 | yellow-faint   | #af9a6a |7.20 |6.25 |5.55 |6.82 |
-| blue   | #3f95f6 |6.43 |5.59 |4.96 |6.10 |
+| blue   | #3f90f0 |6.07 |5.28 |4.68 |5.76 |
 | blue-warmer| #6a9fff |7.54 |6.55 |5.81 |7.14 |
-| blue-cooler| #1f90ff |6.11 |5.30 |4.71 |5.78 |
+| blue-cooler| #009fff |6.96 |6.05 |5.37 |6.60 |
 | blue-faint | #7a94df |6.71 |5.82 |5.17 |6.35 |
 | magenta| #b379bf |6.02 |5.23 |4.64 |5.71 |
 | magenta-warmer | #af80ea |6.68 |5.80 |5.15 |6.33 |
diff --git a/ef-deuteranopia-dark-theme.el b/ef-deuteranopia-dark-theme.el
index 0f98e91b78..e20fe2cf72 100644
--- a/ef-deuteranopia-dark-theme.el
+++ b/ef-deuteranopia-dark-theme.el
@@ -67,9 +67,9 @@
   (yellow-warmer   "#cfaf00")
   (yellow-cooler   "#bfaf7a")
   (yellow-faint"#af9a6a")
-  (blue"#3f95f6")
+  (blue"#3f90f0")
   (blue-warmer "#6a9fff")
-  (blue-cooler "#1f90ff")
+  (blue-cooler "#009fff")
   (blue-faint  "#7a94df")
   (magenta "#b379bf")
   (magenta-warmer  "#af80ea")

[elpa] externals/ef-themes b385a08284 2/2: ef-deuteranopia-dark: tweak rainbow-5 mapping

[ELPA Syncer]

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

ef-deuteranopia-dark: tweak rainbow-5 mapping
---
 ef-deuteranopia-dark-theme.el | 2 +-
 ef-themes.el  | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/ef-deuteranopia-dark-theme.el b/ef-deuteranopia-dark-theme.el
index e20fe2cf72..5444f100c3 100644
--- a/ef-deuteranopia-dark-theme.el
+++ b/ef-deuteranopia-dark-theme.el
@@ -174,7 +174,7 @@
   (rainbow-2 yellow-cooler)
   (rainbow-3 blue-warmer)
   (rainbow-4 yellow)
-  (rainbow-5 blue-cooler)
+  (rainbow-5 cyan-warmer)
   (rainbow-6 yellow-faint)
   (rainbow-7 blue-faint)
   (rainbow-8 magenta-faint))
diff --git a/ef-themes.el b/ef-themes.el
index edbe8e11c4..0a8054b15c 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -319,7 +319,7 @@ sequence given SEQ-PRED, using SEQ-DEFAULT as a fallback."
 
 (defun ef-themes--current-theme ()
   "Return first enabled Ef theme."
-  (when-let* ((theme (car custom-enabled-themes)))
+  (when-let* ((theme (car (ef-themes--list-enabled-themes
 (if (memq theme (ef-themes--list-enabled-themes))
 theme
   (user-error "`%s' is not an Ef theme" theme

[elpa] externals/org 72f66ca0b9: New babel syntax to pass src block contents as argument

[ELPA Syncer]

branch: externals/org
commit 72f66ca0b9d336e0da61b17cbe8ce183eef364dd
Author: Sébastien Miquel 
Commit: Ihor Radchenko 

New babel syntax to pass src block contents as argument

* lisp/ob-ref.el (org-babel-ref-resolve): Add support for
`named-block[]' syntax, resolving to the contents of a named-block.
* lisp/ob-core.el (org-babel-read-element): Read a code block into its
contents, like other blocks.
* testing/listp/test-ob.el (test-ob/block-content-resolution): Test
block content resolution.
* doc/org-manual.org: Document syntax.
* etc/ORG-NEWS: Document syntax.
---
 doc/org-manual.org  |  7 ---
 etc/ORG-NEWS|  5 +
 lisp/ob-core.el |  2 +-
 lisp/ob-ref.el  | 10 ++
 testing/lisp/test-ob.el | 15 +++
 5 files changed, 31 insertions(+), 8 deletions(-)

diff --git a/doc/org-manual.org b/doc/org-manual.org
index 57a57a6fe6..794682b491 100644
--- a/doc/org-manual.org
+++ b/doc/org-manual.org
@@ -17505,9 +17505,10 @@ a colon, for example: =:var 
table=other-file.org:example-table=.
   : 4
   #+end_example
 
-- literal example ::
+- literal example, or code block contents ::
 
-  A literal example block named with a =NAME= keyword.
+  A code block or literal example block named with a =NAME= keyword,
+  followed by brackets (optional for example blocks).
 
   #+begin_example
   ,#+NAME: literal-example
@@ -17517,7 +17518,7 @@ a colon, for example: =:var 
table=other-file.org:example-table=.
   ,#+END_EXAMPLE
 
   ,#+NAME: read-literal-example
-  ,#+BEGIN_SRC emacs-lisp :var x=literal-example
+  ,#+BEGIN_SRC emacs-lisp :var x=literal-example[]
 (concatenate #'string x " for you.")
   ,#+END_SRC
 
diff --git a/etc/ORG-NEWS b/etc/ORG-NEWS
index 7dae03dc66..d6d99a64ba 100644
--- a/etc/ORG-NEWS
+++ b/etc/ORG-NEWS
@@ -288,6 +288,11 @@ The =org-md-toplevel-hlevel= customization variable sets 
the heading
 level used for top level headings, much like how
 =org-html-toplevel-hlevel= sets the heading level used for top level
 headings in HTML export.
+*** Babel: new syntax to pass the contents of a src block as argument
+
+Use the header argument =:var x=code-block[]= or
+: #+CALL: fn(x=code-block[])
+to pass the contents of a named code block as a string argument.
 
 ** New options
 *** A new custom setting =org-hide-drawer-startup= to control initial folding 
state of drawers
diff --git a/lisp/ob-core.el b/lisp/ob-core.el
index 68dd5557c5..c52ef9ed6e 100644
--- a/lisp/ob-core.el
+++ b/lisp/ob-core.el
@@ -2156,7 +2156,7 @@ Return nil if ELEMENT cannot be read."
(or (org-babel--string-to-number v) v)))
  (`table (org-babel-read-table))
  (`plain-list (org-babel-read-list))
- (`example-block
+ ((or `example-block `src-block)
   (let ((v (org-element-property :value element)))
(if (or org-src-preserve-indentation
(org-element-property :preserve-indent element))
diff --git a/lisp/ob-ref.el b/lisp/ob-ref.el
index 87a7ccf63e..ee2745e094 100644
--- a/lisp/ob-ref.el
+++ b/lisp/ob-ref.el
@@ -124,12 +124,14 @@ Emacs Lisp representation of the value of the variable."
   (save-excursion
(let ((case-fold-search t)
  args new-refere new-header-args new-referent split-file split-ref
- index)
+ index contents)
  ;; if ref is indexed grab the indices -- beware nested indices
- (when (and (string-match "\\[\\([^\\[]+\\)\\]$" ref)
+ (when (and (string-match "\\[\\([^\\[]*\\)\\]$" ref)
 (let ((str (substring ref 0 (match-beginning 0
   (= (cl-count ?\( str) (cl-count ?\) str
-   (setq index (match-string 1 ref))
+(if (> (length (match-string 1 ref)) 0)
+   (setq index (match-string 1 ref))
+  (setq contents t))
(setq ref (substring ref 0 (match-beginning 0
  ;; assign any arguments to pass to source block
  (when (string-match
@@ -171,7 +173,7 @@ Emacs Lisp representation of the value of the variable."
(throw :found
   (org-babel-execute-src-block
nil (org-babel-lob-get-info e) params)))
-  (`src-block
+  ((and `src-block (guard (not contents)))
(throw :found
   (org-babel-execute-src-block
nil nil
diff --git a/testing/lisp/test-ob.el b/testing/lisp/test-ob.el
index a62bd56bfd..c944ccd392 100644
--- a/testing/lisp/test-ob.el
+++ b/testing/lisp/test-ob.el
@@ -178,6 +178,21 @@ should still return the link."
(point-at-bol)
(point-at-eol))
 
+(ert-deftest test-ob/block-content-resolution ()
+  "Test block content resolution."
+  (org-test-with-temp-text-in-file "
+
+#+name: f

[nongnu] elpa/helm e86f8addd3: Add macros for creating interactive commands from actions

[ELPA Syncer]

branch: elpa/helm
commit e86f8addd3c14602313b92f689a532584cb3ee29
Author: Thierry Volpiatto 
Commit: Thierry Volpiatto 

Add macros for creating interactive commands from actions

helm-make-command-from-action for commands exiting helm.
helm-make-persistent-command-from-action for persistent commands.

Use it helm-files commands.

Fix helm-ff-toggle-basename
No need to call it with a CANDIDATE arg as it is not an action.
Fix preselection with icons.

Fix toggle update in HFF
It is not an action, no need to use candidate arg.
---
 helm-files.el | 19 +++
 1 file changed, 7 insertions(+), 12 deletions(-)

diff --git a/helm-files.el b/helm-files.el
index 2f1dad447b..dd701ec8a6 100644
--- a/helm-files.el
+++ b/helm-files.el
@@ -2349,11 +2349,9 @@ Called with a prefix arg open menu unconditionally."
   'helm-find-files-eshell-command-on-file)
 (put 'helm-ff-run-eshell-command-on-file 'helm-only t)
 
-(defun helm-ff-run-ediff-file ()
+(helm-make-command-from-action helm-ff-run-ediff-file
   "Run Ediff file action from `helm-source-find-files'."
-  (interactive)
-  (with-helm-alive-p
-(helm-exit-and-execute-action 'helm-find-files-ediff-files)))
+  'helm-find-files-ediff-files)
 (put 'helm-ff-run-ediff-file 'helm-only t)
 
 (helm-make-command-from-action helm-ff-run-ediff-merge-file
@@ -6058,11 +6056,10 @@ list."
   (helm-set-pattern
(expand-file-name candidate)))
 
-(defun helm-ff-file-name-history-run-ff ()
+(helm-make-command-from-action helm-ff-file-name-history-run-ff
   "Switch back to current HFF session with selection as preselect."
-  (interactive)
-  (with-helm-alive-p
-(helm-exit-and-execute-action 'helm-ff-file-name-history-ff)))
+  'helm-ff-file-name-history-ff)
+(put 'helm-ff-file-name-history-run-ff 'helm-only t)
 
 (defun helm-ff-file-name-history-delete-item (_candidate)
   (let ((files (helm-marked-candidates)))
@@ -6182,11 +6179,9 @@ Use FD as backend."
   (let ((dir (with-helm-buffer (helm-get-attr 'root-dir
 (helm-grep-ag dir helm-current-prefix-arg)))
 
-(defun helm-browse-project-run-ag ()
+(helm-make-command-from-action helm-browse-project-run-ag
   "Run `helm-grep' AG from `helm-browse-project'."
-  (interactive)
-  (with-helm-alive-p
-(helm-exit-and-execute-action 'helm-browse-project-ag)))
+  'helm-browse-project-ag)
 (put 'helm-browse-project-run-ag 'helm-only t)
 
 (defclass helm-browse-project-override-inheritor (helm-type-file) ())

[nongnu] elpa/helm-core updated (c90364a9fa -> e86f8addd3)

[ELPA Syncer]

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

  from  c90364a9fa Merge pull request #2541 from leuven65/master
  adds  e86f8addd3 Add macros for creating interactive commands from actions

No new revisions were added by this update.

Summary of changes:
 helm-files.el | 19 +++
 1 file changed, 7 insertions(+), 12 deletions(-)

[nongnu] elpa/nix-mode updated (b3f71c75f7 -> 34d51e2731)

[ELPA Syncer]

elpasync pushed a change to branch elpa/nix-mode.

  from  b3f71c75f7 Merge pull request #153 from 
NixOS/dependabot/github_actions/cachix/install-nix-action-17
   new  c8f33e5869 Differentiate realised/unrealised store paths
   new  e1f3af50bc Make flycheck happier
   new  34d51e2731 Merge pull request #165 from nagy/store-realization


Summary of changes:
 nix-flake.el |  6 --
 nix-mode.el  | 14 ++
 nix-store.el | 34 ++
 3 files changed, 40 insertions(+), 14 deletions(-)

[nongnu] elpa/nix-mode 34d51e2731 3/3: Merge pull request #165 from nagy/store-realization

[ELPA Syncer]

branch: elpa/nix-mode
commit 34d51e2731408b5b615f785a83faa3d6dc2a92a1
Merge: b3f71c75f7 e1f3af50bc
Author: Matthew Bauer 
Commit: GitHub 

Merge pull request #165 from nagy/store-realization

Differentiate between realised and unrealised store paths
---
 nix-flake.el |  6 --
 nix-mode.el  | 14 ++
 nix-store.el | 34 ++
 3 files changed, 40 insertions(+), 14 deletions(-)

diff --git a/nix-flake.el b/nix-flake.el
index b0c11397fa..d40d96e07e 100644
--- a/nix-flake.el
+++ b/nix-flake.el
@@ -2,6 +2,8 @@
 
 ;; Keywords: nix, languages, tools, unix
 ;; Package-Requires: ((emacs "27.1") (transient "0.3"))
+;; Homepage: https://github.com/NixOS/nix-mode
+;; Version: 1.4.4
 
 ;;; Commentary:
 
@@ -15,7 +17,7 @@
 (require 'transient)
 
 (defgroup nix-flake nil
-  "Nix flake commands"
+  "Nix flake commands."
   :group 'nix)
 
  Custom variables
@@ -23,7 +25,7 @@
 (defcustom nix-flake-init-post-action 'open-flake-nix
   "Action to run after successfully initializing a flake.
 
-This action is run after a flake is successlly initialized by
+This action is run after a flake is successfully initialized by
 `nix-flake-init` (or generally `nix-flake-dispatch`).
 
 You can also specify a function, which should take no arguments.
diff --git a/nix-mode.el b/nix-mode.el
index 59ca5a2101..9a67544ed2 100644
--- a/nix-mode.el
+++ b/nix-mode.el
@@ -81,6 +81,20 @@ very large Nix files (all-packages.nix)."
   "Face used to highlight Nix antiquotes."
   :group 'nix-faces)
 
+(defface nix-store-path-face nil
+  "Face used to highlight Nix store paths."
+  :group 'nix-faces)
+
+(defface nix-store-path-realised-face
+  '((t :inherit 'nix-store-path-face))
+  "Face used to highlight realised Nix store paths."
+  :group 'nix-faces)
+
+(defface nix-store-path-unrealised-face
+  '((t :inherit 'nix-store-path-face))
+  "Face used to highlight unrealised Nix store paths."
+  :group 'nix-faces)
+
 ;;; Constants
 
 (defconst nix-system-types
diff --git a/nix-store.el b/nix-store.el
index a05f1d34ec..d633031393 100644
--- a/nix-store.el
+++ b/nix-store.el
@@ -34,15 +34,15 @@ PATH the path within /nix/store to realise"
 (defvar-local nix-buffer-store-path nil "Buffer-local object holding an 
`nix-store-path` object.")
 
 (defclass nix-store-path ()
-  ((path  :initarg :path   :accessor 
nix-store-path-path)
-(status   :initarg :status :initform 'realised :accessor 
nix-store-path-status)
-(hash :initarg :hash   :accessor 
nix-store-path-hash)
-(size :initarg :size   :accessor 
nix-store-path-size)
-(derivers :initarg :derivers   :accessor 
nix-store-path-derivers)
-(outputs  :initarg :outputs:accessor 
nix-store-path-outputs)
-(references :initarg :references   :accessor 
nix-store-path-references)
-(referrers  :initarg :referrers:accessor 
nix-store-path-referrers)
-(requisites :initarg :requisites   :accessor 
nix-store-path-requisites))
+  ((path  :initarg :path  :accessor nix-store-path-path)
+(status   :initarg :status:accessor nix-store-path-status)
+(hash :initarg :hash  :accessor nix-store-path-hash)
+(size :initarg :size  :accessor nix-store-path-size)
+(derivers :initarg :derivers  :accessor nix-store-path-derivers)
+(outputs  :initarg :outputs   :accessor nix-store-path-outputs)
+(references :initarg :references  :accessor nix-store-path-references)
+(referrers  :initarg :referrers   :accessor nix-store-path-referrers)
+(requisites :initarg :requisites  :accessor nix-store-path-requisites))
   "Nix-Store-Path Class holds all information of the path that
 is displayed")
 
@@ -55,6 +55,7 @@ is displayed")
   (oset object :referrers (nix-store--query 'referrers (nix-store-path-path 
object)))
   (oset object :requisites (nix-store--query 'requisites (nix-store-path-path 
object)))
   (oset object :references (nix-store--query 'references (nix-store-path-path 
object)))
+  (oset object :status (file-exists-p (car (nix-store-path-outputs object
   object)
 
 (cl-defun nix-store--query (argument &optional (path (nix-store-path-path 
nix-buffer-store-path)))
@@ -85,7 +86,10 @@ information."
   "Insert a section showing the path of STORE-PATH."
   (magit-insert-section (path (nix-store-path-path store-path))
 (magit-insert-heading (propertize (format "%-11s" "Path:") 'face 
'magit-section-heading)
-  (format "%s" (oref store-path path)
+  (propertize (oref store-path path)
+   'face (if (file-exists-p (nix-store-path-path store-path))
+   'nix-store-path-realised-face
+   'nix-store-path-unrealised-face) 
 
 (cl-defun nix-store-path-insert-size (&optional (store-path 
nix-buffer-store-path))
   "Insert a section showing the size of STORE-PATH."
@@ -103,7 +107,7 @@ inform

[nongnu] elpa/nix-mode c8f33e5869 1/3: Differentiate realised/unrealised store paths

[ELPA Syncer]

branch: elpa/nix-mode
commit c8f33e586917262359d32cbe1a6726b168a6010a
Author: Daniel Nagy 
Commit: Daniel Nagy 

Differentiate realised/unrealised store paths

* propertize store-paths with their respective face
---
 nix-mode.el  | 14 ++
 nix-store.el | 34 ++
 2 files changed, 36 insertions(+), 12 deletions(-)

diff --git a/nix-mode.el b/nix-mode.el
index 59ca5a2101..9a67544ed2 100644
--- a/nix-mode.el
+++ b/nix-mode.el
@@ -81,6 +81,20 @@ very large Nix files (all-packages.nix)."
   "Face used to highlight Nix antiquotes."
   :group 'nix-faces)
 
+(defface nix-store-path-face nil
+  "Face used to highlight Nix store paths."
+  :group 'nix-faces)
+
+(defface nix-store-path-realised-face
+  '((t :inherit 'nix-store-path-face))
+  "Face used to highlight realised Nix store paths."
+  :group 'nix-faces)
+
+(defface nix-store-path-unrealised-face
+  '((t :inherit 'nix-store-path-face))
+  "Face used to highlight unrealised Nix store paths."
+  :group 'nix-faces)
+
 ;;; Constants
 
 (defconst nix-system-types
diff --git a/nix-store.el b/nix-store.el
index a05f1d34ec..d633031393 100644
--- a/nix-store.el
+++ b/nix-store.el
@@ -34,15 +34,15 @@ PATH the path within /nix/store to realise"
 (defvar-local nix-buffer-store-path nil "Buffer-local object holding an 
`nix-store-path` object.")
 
 (defclass nix-store-path ()
-  ((path  :initarg :path   :accessor 
nix-store-path-path)
-(status   :initarg :status :initform 'realised :accessor 
nix-store-path-status)
-(hash :initarg :hash   :accessor 
nix-store-path-hash)
-(size :initarg :size   :accessor 
nix-store-path-size)
-(derivers :initarg :derivers   :accessor 
nix-store-path-derivers)
-(outputs  :initarg :outputs:accessor 
nix-store-path-outputs)
-(references :initarg :references   :accessor 
nix-store-path-references)
-(referrers  :initarg :referrers:accessor 
nix-store-path-referrers)
-(requisites :initarg :requisites   :accessor 
nix-store-path-requisites))
+  ((path  :initarg :path  :accessor nix-store-path-path)
+(status   :initarg :status:accessor nix-store-path-status)
+(hash :initarg :hash  :accessor nix-store-path-hash)
+(size :initarg :size  :accessor nix-store-path-size)
+(derivers :initarg :derivers  :accessor nix-store-path-derivers)
+(outputs  :initarg :outputs   :accessor nix-store-path-outputs)
+(references :initarg :references  :accessor nix-store-path-references)
+(referrers  :initarg :referrers   :accessor nix-store-path-referrers)
+(requisites :initarg :requisites  :accessor nix-store-path-requisites))
   "Nix-Store-Path Class holds all information of the path that
 is displayed")
 
@@ -55,6 +55,7 @@ is displayed")
   (oset object :referrers (nix-store--query 'referrers (nix-store-path-path 
object)))
   (oset object :requisites (nix-store--query 'requisites (nix-store-path-path 
object)))
   (oset object :references (nix-store--query 'references (nix-store-path-path 
object)))
+  (oset object :status (file-exists-p (car (nix-store-path-outputs object
   object)
 
 (cl-defun nix-store--query (argument &optional (path (nix-store-path-path 
nix-buffer-store-path)))
@@ -85,7 +86,10 @@ information."
   "Insert a section showing the path of STORE-PATH."
   (magit-insert-section (path (nix-store-path-path store-path))
 (magit-insert-heading (propertize (format "%-11s" "Path:") 'face 
'magit-section-heading)
-  (format "%s" (oref store-path path)
+  (propertize (oref store-path path)
+   'face (if (file-exists-p (nix-store-path-path store-path))
+   'nix-store-path-realised-face
+   'nix-store-path-unrealised-face) 
 
 (cl-defun nix-store-path-insert-size (&optional (store-path 
nix-buffer-store-path))
   "Insert a section showing the size of STORE-PATH."
@@ -103,7 +107,7 @@ information."
   "Insert a section showing the status of STORE-PATH."
   (magit-insert-section (status (nix-store-path-status store-path))
 (magit-insert-heading (propertize (format "%-11s" "Status:") 'face 
'magit-section-heading)
-  (format "%s" (oref store-path status)
+  (if (nix-store-path-status store-path) "realised" "unrealised"
 
 (defmacro nix-store--magit-insert-section-list (type value label)
   "Helper macro for inserting a list as a magit-section.
@@ -113,7 +117,13 @@ respectively. The LABEL is the text displayed."
  (when (and (listp value) (> (length value) 0))
(magit-insert-section (,type value)
 (magit-insert-heading ,label)
-(cl-loop for x in value do (magit-insert-section (store-path x) 
(insert x) (newline)))
+(cl-loop for x in value
+  for exists = (file-exists-p x)
+  do
+  (magit-insert-section (store-path x)
+  

[nongnu] elpa/nix-mode e1f3af50bc 2/3: Make flycheck happier

[ELPA Syncer]

branch: elpa/nix-mode
commit e1f3af50bc18f1b0dc23373fa5c714e9cbee2bd9
Author: Daniel Nagy 
Commit: Daniel Nagy 

Make flycheck happier
---
 nix-flake.el | 6 --
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/nix-flake.el b/nix-flake.el
index b0c11397fa..d40d96e07e 100644
--- a/nix-flake.el
+++ b/nix-flake.el
@@ -2,6 +2,8 @@
 
 ;; Keywords: nix, languages, tools, unix
 ;; Package-Requires: ((emacs "27.1") (transient "0.3"))
+;; Homepage: https://github.com/NixOS/nix-mode
+;; Version: 1.4.4
 
 ;;; Commentary:
 
@@ -15,7 +17,7 @@
 (require 'transient)
 
 (defgroup nix-flake nil
-  "Nix flake commands"
+  "Nix flake commands."
   :group 'nix)
 
  Custom variables
@@ -23,7 +25,7 @@
 (defcustom nix-flake-init-post-action 'open-flake-nix
   "Action to run after successfully initializing a flake.
 
-This action is run after a flake is successlly initialized by
+This action is run after a flake is successfully initialized by
 `nix-flake-init` (or generally `nix-flake-dispatch`).
 
 You can also specify a function, which should take no arguments.

[elpa] externals/ef-themes 0b9a20a34d: Bump version to rebuild package

[ELPA Syncer]

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

Bump version to rebuild package

To include fixes to 'ef-themes-with-colors' and 'ef-themes--current-theme'.
---
 ef-themes.el | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/ef-themes.el b/ef-themes.el
index 0a8054b15c..3e8bf841e2 100644
--- a/ef-themes.el
+++ b/ef-themes.el
@@ -6,7 +6,7 @@
 ;; Maintainer: Ef-Themes Development <~protesilaos/ef-the...@lists.sr.ht>
 ;; URL: https://git.sr.ht/~protesilaos/ef-themes
 ;; Mailing-List: https://lists.sr.ht/~protesilaos/ef-themes
-;; Version: 0.4.0
+;; Version: 0.4.1
 ;; Package-Requires: ((emacs "27.1"))
 ;; Keywords: faces, theme, accessibility