28 lines
1 KiB
EmacsLisp
28 lines
1 KiB
EmacsLisp
|
;;; kubernetes-props.el --- Functions used to decouple modules for testability. -*- lexical-binding: t; -*-
|
||
|
|
;;; Commentary:
|
||
|
|
;;; Code:
|
||
|
|
|
||
|
|
(defconst kubernetes-props
|
||
|
|
'((message . message)
|
||
|
|
(update-last-error . kubernetes-state-update-last-error)
|
||
|
|
(overview-buffer-selected-p . kubernetes-utils-overview-buffer-selected-p)
|
||
|
|
(get-last-error . (lambda ()
|
||
|
|
(kubernetes-state-last-error (kubernetes-state)))))
|
||
|
|
"Variable used to inject functions across modules.")
|
||
|
|
|
||
|
|
(defun kubernetes-props-update-last-error (props message command time)
|
||
|
|
(funcall (alist-get 'update-last-error props) message command time))
|
||
|
|
|
||
|
|
(defun kubernetes-props-get-last-error (props)
|
||
|
|
(funcall (alist-get 'get-last-error props)))
|
||
|
|
|
||
|
|
(defun kubernetes-props-message (props fmt-string &rest args)
|
||
|
|
(apply (alist-get 'message props) fmt-string args))
|
||
|
|
|
||
|
|
(defun kubernetes-props-overview-buffer-selected-p (props)
|
||
|
|
(funcall (alist-get 'overview-buffer-selected-p props)))
|
||
|
|
|
||
|
|
(provide 'kubernetes-props)
|
||
|
|
|
||
|
|
;;; kubernetes-props.el ends here
|