From f28cad4af4c33af9ab5fedae5737b51ded10d9fe Mon Sep 17 00:00:00 2001 From: Jonathan Jin Date: Wed, 10 Apr 2024 17:48:51 -0400 Subject: [PATCH] define help-echo function --- kele.el | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/kele.el b/kele.el index e2f44f2e..6a53d5d6 100644 --- a/kele.el +++ b/kele.el @@ -1702,6 +1702,16 @@ The `scope' is the current context name." (interactive) (transient-setup 'kele-proxy nil nil :scope (kele-current-context-name))) +;; TODO: Show: +;; - Time of last discovery cache sync +;; - Active proxy servers +(defun kele--help-echo () + "Return text to display for help echo." + (let* ((ns (kele-current-namespace)) + (msgs (list (format "Current context: %s" (kele-current-context-name))))) + (if ns (add-to-list 'msgs (format "Current namespace: %s" ns))) + (string-join msgs "\n"))) + (provide 'kele) ;;; kele.el ends here