Skip to content

Commit

Permalink
define help-echo function
Browse files Browse the repository at this point in the history
  • Loading branch information
jinnovation committed Apr 10, 2024
1 parent b14b11f commit f28cad4
Showing 1 changed file with 10 additions and 0 deletions.
10 changes: 10 additions & 0 deletions kele.el
Original file line number Diff line number Diff line change
Expand Up @@ -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

0 comments on commit f28cad4

Please sign in to comment.