     (start-process "docker-rm" nil "docker" "rm" container))
   (tabulated-list-print))
 
+(defun docker-exec ()
+  (interactive)
+  (let* ((container (tabulated-list-get-id)))
+    (start-process "docker-exec" nil
+                   "screen" "-t" container
+                   "docker" "exec" "-it"
+                   container "/bin/bash")))
+
 (prin1-to-string '(list '("asdf" ["one" "two"])))
 
 (defun dockercontrol-mode-hook ()

    (define-key map (kbd "s") 'docker-start)
    (define-key map (kbd "S") 'docker-stop)
    (define-key map (kbd "R") 'docker-remove)
    map))

(defvar dockercontrol-mode-map

  "Get docker processes list"
  (interactive)
  (setq tabulated-list-entries
        (car (read-from-string (shell-command-to-string "python2 ~/.emacs.d/el-get/dockercontrol-mode/dockercontrol.py"))))
  (tabulated-list-print))

(defun docker-remove ()
