[elpa] externals/poke f457341424 22/76: poke.el: command for setting the current IOS in the poke-ios

[ELPA Syncer]

branch: externals/poke
commit f45734142434c338803fb469a80b3e11e4d07101
Author: Jose E. Marchesi <jose.marchesi@oracle.com>
Commit: Jose E. Marchesi <jose.marchesi@oracle.com>

    poke.el: command for setting the current IOS in the poke-ios
    
    2022-03-14  Jose E. Marchesi  <jemarch@gnu.org>
    
            * emacs/poke.el (poke-ios-set-ios): Define.
            (poke-ios-mode-map): Likewise.
---
 poke.el | 17 ++++++++++++++---
 1 file changed, 14 insertions(+), 3 deletions(-)

diff --git a/poke.el b/poke.el
index 759c468752..841f7cfdfb 100644
--- a/poke.el
+++ b/poke.el
@@ -629,6 +629,13 @@ fun plet_elval = (string s) void:
 (defvar poke-ios-alist nil
   "List of IO spaces currently open.")
 
+(defun poke-ios-set-ios ()
+  "Set the current IOS in poke to the entry selected in the
+*poke-ios* buffer."
+  (interactive)
+  (let ((ios-id (tabulated-list-get-id)))
+    (poke-code-send "set_ios (" + (number-to-string ios-id) ")")))
+
 (defun poke-ios-open (ios iohandler ioflags)
   (add-to-list 'poke-ios-alist (list ios iohandler ioflags))
   (poke-ios-populate))
@@ -637,6 +644,12 @@ fun plet_elval = (string s) void:
   (setq poke-ios-alist (assq-delete-all ios poke-ios-alist))
   (poke-ios-populate))
 
+(defvar poke-ios-mode-map
+  (let ((map (make-sparse-keymap)))
+    (define-key map [return] 'poke-ios-set-ios)
+    map)
+  "Local keymap for `poke-ios-mode' buffers.")
+
 (define-derived-mode poke-ios-mode tabulated-list-mode "Poke IOS List"
   "Major mode for summarizing the open IO spaces in poke.
 \\<poke-ios-mode-map>
@@ -644,9 +657,7 @@ fun plet_elval = (string s) void:
   (setq tabulated-list-format nil)
   (setq tabulated-list-padding 2)
   (setq tabulated-list-sort-key nil)
-  (tabulated-list-init-header)
-                                        ;  (add-hook 'post-command-hook 
#'poke-set-ios nil t))
-  )
+  (tabulated-list-init-header))
 
 (defun poke-ios-populate ()
   "Populate a `poke-ios-mode' buffer with the data in `poke-ios-alist."