* lisp/net/kubed.el (cronjob): New resource type

diff --git a/lisp/net/kubed.el b/lisp/net/kubed.el
index f93ed41c8050e3b6e47f870807b507961c21c680..d9ac20c19c8f26f7bffacfae3c15af5204673ded 100644 (file)
--- a/lisp/net/kubed.el
+++ b/lisp/net/kubed.el
@@ -1016,6 +1016,30 @@ optional command to run in the images."
      (ownername ".metadata.ownerReferences[0].name" 16)
      (creationtimestamp ".metadata.creationTimestamp" 20)))
 
+;;;###autoload (autoload 'kubed-display-cronjob "kubed" nil t)
+;;;###autoload (autoload 'kubed-edit-cronjob "kubed" nil t)
+;;;###autoload (autoload 'kubed-delete-cronjobs "kubed" nil t)
+;;;###autoload (autoload 'kubed-list-cronjobs "kubed" nil t)
+;;;###autoload (autoload 'kubed-create-cronjob "kubed" nil t)
+;;;###autoload (autoload 'kubed-cronjob-prefix-map "kubed" nil t 'keymap)
+(kubed-define-resource cronjob
+    ((schedule ".spec.schedule" 20)
+     (suspend ".spec.suspend" 20)
+     (lastschedule ".status.lastScheduleTime" 20)
+     (lastsuccess ".status.lastSuccessfulTime" 20)
+     (activejob ".status.active[0].name" 36)))
+
+;; TODO: Events may be numerous.  Need to only get a few.
+;; ;;;###autoload (autoload 'kubed-list-events "kubed" nil t)
+;; ;;;###autoload (autoload 'kubed-event-prefix-map "kubed" nil t 'keymap)
+;; (kubed-define-resource event
+;;     ((last ".lastTimestamp" 20)
+;;      (type ".type" 10)
+;;      (reason ".reason" 20)
+;;      (objectkind ".involvedObject.kind" 12)
+;;      (objectname ".involvedObject.name" 16)
+;;      (message ".message" 36)))
+
 (defun kubed-contexts ()
   "Return list of Kubernetes contexts."
   (process-lines kubed-kubectl-program "config" "get-contexts" "-o" "name"))
@@ -1475,6 +1499,7 @@ Interactively, prompt for COMMAND with completion for `kubectl' arguments."
   "S" 'kubed-secret-prefix-map
   "j" 'kubed-job-prefix-map
   "d" 'kubed-deployment-prefix-map
+  "c" 'kubed-cronjob-prefix-map
   "C" #'kubed-use-context
   "U" #'kubed-update-all
   "A" #'kubed-all-namespaces-mode