Add codespaces-delete function

Author: f4ban

README.org

@@ -77,6 +77,7 @@ And to disable TRAMP's default ControlMaster settings in your Emacs config, add:
 - =codespaces-start= brings up a list of inactive codespaces and upon selection spawns a task that starts the selected codespace.
 - =codespaces-stop= does the same but for stopping active codespaces.
 - =codespaces-create= prompts for a repository, branch, and machine to then create a Codespace. Default branch is fetched via gh.
+- =codespaces-delete= brings up a list of codespaces, and upon selection deletes the selected codespaces.
 
 * Missing features
 - Completion should sort codespaces by most-recently-used.

codespaces.el

@@ -319,6 +319,14 @@ allowing for faster startup.  Validation happens lazily on first use."
                        (or codespaces-default-directory
                            (format "/workspaces/%s" (codespaces-space-repository-name selected)))))))
 
+(defun codespaces-delete ()
+  "Delete a codespace chosen by `completing-read`."
+  (interactive)
+  (let ((selected (codespaces--complete (codespaces--all-codespaces))))
+    (when (yes-or-no-p (format "Are you sure you want to delete the codespace '%s'?" (codespaces-space-name selected)))
+             (shell-command
+              (format "gh codespace delete -c %s --force" (codespaces-space-name selected))))))
+
 (provide 'codespaces)
 
 ;;; codespaces.el ends here