[elpa] externals/srht ce6892bc59 3/5: srht: srht-with-no-message: New macro.

[ELPA Syncer]

branch: externals/srht
commit ce6892bc59fa8a396a8af691679a5ab140796384
Author: Aleksandr Vityazev <avityazev@posteo.org>
Commit: Aleksandr Vityazev <avityazev@posteo.org>

    srht: srht-with-no-message: New macro.
    
    * lisp/srht (srht-gql-mutation): New macro.
    Inhibit auth-source messages.
    (srht--view): Fix.
---
 lisp/srht.el | 61 +++++++++++++++++++++++++++++++++++-------------------------
 1 file changed, 36 insertions(+), 25 deletions(-)

diff --git a/lisp/srht.el b/lisp/srht.el
index 3b67dec13b..6aa1d5bebe 100644
--- a/lisp/srht.el
+++ b/lisp/srht.el
@@ -79,6 +79,12 @@ an error."
         (error "srht-token must not be empty"))
       token)))
 
+(defmacro srht-with-no-message (&rest body)
+  "Evaluate BODY with messages are not displayed."
+  `(let ((inhibit-message t)
+         (message-log-max nil))
+     ,@body))
+
 (cl-defun srht--build-uri-string (scheme &key host path query)
   "Construct a URI string.
 SCHEME should be a symbol.  HOST should be strings or nil
@@ -155,7 +161,9 @@ fails with one argument, a `plz-error' struct."
         (content-type (or form "application/json")))
     (plz method uri
       :headers `(,(cons "Content-Type" content-type)
-                 ,(cons "Authorization" (concat "token " (srht-token 
"sr.ht"))))
+                 ,(cons "Authorization"
+                        (concat "token " (srht-with-no-message
+                                          (srht-token "sr.ht")))))
       :body body
       :then then
       :else else
@@ -171,7 +179,9 @@ fails with one argument, a `plz-error' struct."
         (content-type (or form "application/json")))
     (plz 'post uri
       :headers `(,(cons "Content-Type" content-type)
-                 ,(cons "Authorization" (format "Bearer %s" (srht-token 
token-host))))
+                 ,(cons "Authorization"
+                        (format "Bearer %s" (srht-with-no-message
+                                             (srht-token token-host)))))
       :body query
       :then then
       :else else
@@ -320,29 +330,30 @@ object under point."
   (declare (indent 2))
   (let ((buffer (get-buffer-create "*Sourcehut repositories*")))
     (with-current-buffer buffer
-      (srht--make-vtable
-       :columns '("Name"
-                  (:name "Visibility"
-                   :formatter (lambda (val) (when val (downcase val))))
-                  (:name "Created"
-                   :formatter srht--format-date
-                   :width 10)
-                  (:name "Updated"
-                   :formatter srht--format-date
-                   :width 10))
-       :objects (plist-get repositories (intern instance))
-       :getter (lambda (object column vtable)
-                 (pcase (srht--vtable-colum vtable column)
-                   ("Name" (plist-get object :name))
-                   ("Visibility" (plist-get object :visibility))
-                   ("Created" (plist-get object :created))
-                   ("Updated" (plist-get object :updated))))
-       :separator-width 5
-       :actions actions
-       :keymap (srht--define-keymap
-                 "q" #'kill-current-buffer
-                 "n" #'next-line
-                 "p" #'previous-line))
+      (let ((inhibit-read-only t))
+        (srht--make-vtable
+         :columns '("Name"
+                    (:name "Visibility"
+                     :formatter (lambda (val) (when val (downcase val))))
+                    (:name "Created"
+                     :formatter srht--format-date
+                     :width 10)
+                    (:name "Updated"
+                     :formatter srht--format-date
+                     :width 10))
+         :objects (plist-get repositories (intern instance))
+         :getter (lambda (object column vtable)
+                   (pcase (srht--vtable-colum vtable column)
+                     ("Name" (plist-get object :name))
+                     ("Visibility" (plist-get object :visibility))
+                     ("Created" (plist-get object :created))
+                     ("Updated" (plist-get object :updated))))
+         :separator-width 5
+         :actions actions
+         :keymap (srht--define-keymap
+                   "q" #'kill-current-buffer
+                   "n" #'next-line
+                   "p" #'previous-line)))
       (read-only-mode)
       (hl-line-mode))
     (switch-to-buffer buffer)))