Handle control channel properly

This should have already been done since we are supposedly supporting
Jupyter protocol 5.3 which already specifies the control channel stuff.

* jupyter-base.el (jupyter-channel-from-request-type): Send a
shutdown_request on the control channel.

* jupyter-client.el (jupyter--client-handlers): Add control channel handler.

Author: nnicandro

jupyter-base.el

@@ -494,7 +494,7 @@ call the handler methods of those types."
   "Return the name of the channel that a request with TYPE is sent on."
   (pcase type
     ((or "input_reply" "input_request") "stdin")
-    ("interrupt_request" "control")
+    ((or "interrupt_request" "shutdown_request") "control")
     (_ "shell")))
 
 (declare-function jupyter-message-time "jupyter-messages")

jupyter-client.el

@@ -591,24 +591,26 @@ waiting."
 (defconst jupyter--client-handlers
   (cl-labels
       ((handler-alist
-        (&rest msg-types)
-        (cl-loop
-         for mt in msg-types
-         collect (cons mt (intern
-                           (format "jupyter-handle-%s"
-                                   (replace-regexp-in-string
-                                    "_" "-" mt)))))))
+         (&rest msg-types)
+         (cl-loop
+          for mt in msg-types
+          collect (cons mt (intern
+                            (format "jupyter-handle-%s"
+                                    (replace-regexp-in-string
+                                     "_" "-" mt)))))))
     `(("iopub" . ,(handler-alist
-                  "shutdown_reply" "stream" "comm_open" "comm_msg"
-                  "comm_close" "execute_input" "execute_result"
-                  "error" "status" "clear_output" "display_data"
-                  "update_display_data"))
+                   "shutdown_reply" "stream" "comm_open" "comm_msg"
+                   "comm_close" "execute_input" "execute_result"
+                   "error" "status" "clear_output" "display_data"
+                   "update_display_data"))
       ("shell" . ,(handler-alist
-                  "execute_reply" "shutdown_reply" "inspect_reply"
-                  "complete_reply" "history_reply" "is_complete_reply"
-                  "comm_info_reply" "kernel_info_reply"))
+                   "execute_reply" "shutdown_reply" "interrupt_reply" "inspect_reply"
+                   "complete_reply" "history_reply" "is_complete_reply"
+                   "comm_info_reply" "kernel_info_reply"))
+      ("control" . ,(handler-alist
+                     "shutdown_reply" "interrupt_reply"))
       ("stdin" . ,(handler-alist
-                  "input_reply" "input_request")))))
+                   "input_reply" "input_request")))))
 
 (defun jupyter--run-handler-maybe (client channel msg req)
   (when (and (jupyter--request-allows-handler-p req msg)