branch: elpa/hyperdrive
commit 4146ecd501efacc42de14927c5ec902fb05b6c5d
Author: Joseph Turner <jos...@ushin.org>
Commit: Joseph Turner <jos...@ushin.org>

    Change: (hyperdrive-set-nickname) Don't say anything in callback
    
    If callers want to say something, they can call message in the THEN
    callback.
---
 hyperdrive.el | 4 ----
 1 file changed, 4 deletions(-)

diff --git a/hyperdrive.el b/hyperdrive.el
index 7a6bca0730..de81610752 100644
--- a/hyperdrive.el
+++ b/hyperdrive.el
@@ -234,16 +234,12 @@ Universal prefix argument \\[universal-argument] forces
           (cl-callf map-delete (hyperdrive-metadata hyperdrive) 'name)
           (hyperdrive-put-metadata hyperdrive
             :then (pcase-lambda ((cl-struct plz-response headers))
-                    (hyperdrive-message "Unset nickname")
                     (hyperdrive--fill-latest-version hyperdrive headers)
                     (hyperdrive-persist hyperdrive)
                     (funcall then hyperdrive))))
       (setf (alist-get 'name (hyperdrive-metadata hyperdrive)) nickname)
       (hyperdrive-put-metadata hyperdrive
         :then (pcase-lambda ((cl-struct plz-response headers))
-                (hyperdrive-message "Set nickname for «%s» to %s"
-                                    (hyperdrive--format-hyperdrive hyperdrive)
-                                    (hyperdrive--format-host hyperdrive 
:format '(nickname)))
                 (hyperdrive--fill-latest-version hyperdrive headers)
                 (hyperdrive-persist hyperdrive)
                 (funcall then hyperdrive))))

Reply via email to