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))))