about summary refs log tree commit diff
path: root/configs/shared/emacs/.emacs.d/elpa/docker-20180710.743/docker-machine.el
diff options
context:
space:
mode:
Diffstat (limited to 'configs/shared/emacs/.emacs.d/elpa/docker-20180710.743/docker-machine.el')
-rw-r--r--configs/shared/emacs/.emacs.d/elpa/docker-20180710.743/docker-machine.el260
1 files changed, 260 insertions, 0 deletions
diff --git a/configs/shared/emacs/.emacs.d/elpa/docker-20180710.743/docker-machine.el b/configs/shared/emacs/.emacs.d/elpa/docker-20180710.743/docker-machine.el
new file mode 100644
index 000000000000..cf72812aea50
--- /dev/null
+++ b/configs/shared/emacs/.emacs.d/elpa/docker-20180710.743/docker-machine.el
@@ -0,0 +1,260 @@
+;;; docker-machine.el --- Emacs interface to docker-machine  -*- lexical-binding: t -*-
+
+;; Author: Ben Swift <ben@benswift.me>
+
+;; This file is NOT part of GNU Emacs.
+
+;; This program is free software; you can redistribute it and/or modify
+;; it under the terms of the GNU General Public License as published by
+;; the Free Software Foundation; either version 3, or (at your option)
+;; any later version.
+;;
+;; This program is distributed in the hope that it will be useful,
+;; but WITHOUT ANY WARRANTY; without even the implied warranty of
+;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+;; GNU General Public License for more details.
+;;
+;; You should have received a copy of the GNU General Public License
+;; along with GNU Emacs; see the file COPYING.  If not, write to the
+;; Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+;; Boston, MA 02110-1301, USA.
+
+;;; Commentary:
+
+;;; Code:
+
+(require 'docker-process)
+(require 'docker-utils)
+(require 'magit-popup)
+(require 'tablist)
+
+(defun docker-machine-parse (line)
+  "Convert a LINE from \"docker machine ls\" to a `tabulated-list-entries' entry."
+  (let ((data (s-split "\t" line)))
+    (list (car data) (apply #'vector data))))
+
+(defun docker-machine-entries ()
+  "Return the docker machines data for `tabulated-list-entries'."
+  (let* ((fmt "{{.Name}}\\t{{.Active}}\\t{{.DriverName}}\\t{{.State}}\\t{{.URL}}\\t{{.Swarm}}\\t{{.DockerVersion}}\\t{{.Error}}")
+         (data (shell-command-to-string (format "docker-machine ls %s" (format "--format=\"%s\"" fmt))))
+         (lines (s-split "\n" data t)))
+    (-map #'docker-machine-parse lines)))
+
+(defun docker-machine-refresh ()
+  "Refresh the machines list."
+  (setq tabulated-list-entries (docker-machine-entries)))
+
+(defun docker-machine-read-name ()
+  "Read a machine name."
+  (completing-read "Machine: " (-map #'car (docker-machine-entries))))
+
+(defun docker-machine-run (action &rest args)
+  "Execute \"docker-machine ACTION\" passing arguments ARGS."
+  (let ((command (format "docker-machine %s %s" action (s-join " " (-non-nil args)))))
+    (message command)
+    (shell-command-to-string command)))
+
+;;;###autoload
+(defun docker-machine-config (name)
+  "Print the connection config for the machine NAME."
+  (interactive (list (docker-machine-read-name)))
+  (docker-machine-run "config" name))
+
+;;;###autoload
+(defun docker-machine-inspect (name)
+  "Inspect information about the machine NAME."
+  (interactive (list (docker-machine-read-name)))
+  (docker-machine-run "inspect" name))
+
+;;;###autoload
+(defun docker-machine-ip (name)
+  "Get the IP address of the machine NAME."
+  (interactive (list (docker-machine-read-name)))
+  (docker-machine-run "ip" name))
+
+;;;###autoload
+(defun docker-machine-status (name)
+  "Get the status of the machine NAME."
+  (interactive (list (docker-machine-read-name)))
+  (docker-machine-run "status" name))
+
+;;;###autoload
+(defun docker-machine-upgrade (name)
+  "Upgrade the machine NAME to the latest version of Docker."
+  (interactive (list (docker-machine-read-name)))
+  (docker-machine-run "upgrade" name))
+
+;;;###autoload
+(defun docker-machine-kill (name)
+  "Kill the machine NAME."
+  (interactive (list (docker-machine-read-name)))
+  (docker-machine-run "kill" name))
+
+;;;###autoload
+(defun docker-machine-create (name driver)
+  "Create a machine NAME using DRIVER."
+  (interactive "sName: \nsDriver: ")
+  (docker-machine-run "create" name "-d" driver))
+
+;;;###autoload
+(defun docker-machine-start (name)
+  "Start the machine NAME."
+  (interactive (list (docker-machine-read-name)))
+  (docker-machine-run "start" name))
+
+(defun docker-machine-env-export (line)
+  "Export the env for LINE."
+  (let ((index (s-index-of "=" line)))
+    (unless index
+      (error (format "Cannot find separator in %s" line)))
+    (setenv (substring line (length "export ") index) (substring line (+ 2 index) -1))))
+
+;;;###autoload
+(defun docker-machine-env (name)
+  "Parse and set environment variables from \"docker-machine env NAME\" output."
+  (interactive (list (docker-machine-read-name)))
+  (--each-while
+      (s-lines (docker-machine-run "env" name))
+      (s-prefix? "export" it)
+    (docker-machine-env-export it)))
+
+;;;###autoload
+(defun docker-machine-stop (name)
+  "Stop the machine NAME."
+  (interactive (list (docker-machine-read-name) current-prefix-arg))
+  (docker-machine-run "stop" name))
+
+;;;###autoload
+(defun docker-machine-restart (name)
+  "Restart the machine NAME."
+  (interactive (list (docker-machine-read-name) current-prefix-arg))
+  (docker-machine-run "restart" name))
+
+;;;###autoload
+(defun docker-machine-rm (name &optional force)
+  "Destroy or uncommand the machine NAME.  If FORCE is set, use \"--force\"."
+  (interactive (list (docker-machine-read-name) current-prefix-arg))
+  (docker-machine-run "rm" (when force "--force") name))
+
+(defun docker-machine-start-selection ()
+  "Run `docker-machine-start' on the machines selection."
+  (interactive)
+  (--each (docker-utils-get-marked-items-ids)
+    (docker-machine-run "start" (docker-machine-start-arguments)))
+  (tablist-revert))
+
+(defun docker-machine-stop-selection ()
+  "Run `docker-machine-stop' on the machines selection."
+  (interactive)
+  (--each (docker-utils-get-marked-items-ids)
+    (docker-machine-run "stop" (docker-machine-stop-arguments)))
+  (tablist-revert))
+
+(defun docker-machine-restart-selection ()
+  "Run `docker-machine-restart' on the machines selection."
+  (interactive)
+  (--each (docker-utils-get-marked-items-ids)
+    (docker-machine-run "restart" (docker-machine-restart-arguments)))
+  (tablist-revert))
+
+(defun docker-machine-rm-selection ()
+  "Run `docker-machine-rm' on the machines selection."
+  (interactive)
+  (--each (docker-utils-get-marked-items-ids)
+    (docker-machine-run "rm" (docker-machine-rm-arguments)))
+  (tablist-revert))
+
+(defun docker-machine-env-selection ()
+  "Run \"docker-machine env\" on selected machine."
+  (interactive)
+  (let ((marked (docker-utils-get-marked-items-ids)))
+    (when (/= (length marked) 1)
+      (error "Can only set environment vars for one machine at a time"))
+    (docker-machine-env (car marked))
+    (tablist-revert)))
+
+(magit-define-popup docker-machine-start-popup
+  "Popup for starting machines."
+  'docker-machine-popups
+  :man-page "docker-machine-start"
+  :actions  '((?S "Start" docker-machine-start-selection))
+  :setup-function #'docker-utils-setup-popup)
+
+(magit-define-popup docker-machine-env-popup
+  "Popup for setting up environment variables."
+  'docker-machine-popups
+  :man-page "docker-machine-env"
+  :actions '((?E "Env" docker-machine-env-selection))
+  :setup-function #'docker-utils-setup-popup)
+
+(magit-define-popup docker-machine-stop-popup
+  "Popup for stoping machines."
+  'docker-machine-popups
+  :man-page "docker-machine-stop"
+  :actions '((?O "Stop" docker-machine-stop-selection))
+  :setup-function #'docker-utils-setup-popup)
+
+(magit-define-popup docker-machine-restart-popup
+  "Popup for restarting machines."
+  'docker-machine-popups
+  :man-page "docker-machine-restart"
+  :actions '((?R "Restart" docker-machine-restart-selection))
+  :setup-function #'docker-utils-setup-popup)
+
+(magit-define-popup docker-machine-rm-popup
+  "Popup for removing machines."
+  'docker-machine-popups
+  :man-page "docker-machine-rm"
+  :switches '((?y "Automatic yes" "-y")
+              (?f "Force" "-f"))
+  :actions  '((?D "Remove" docker-machine-rm-selection))
+  :default-arguments '("-y")
+  :setup-function #'docker-utils-setup-popup)
+
+(magit-define-popup docker-machine-help-popup
+  "Help popup for docker machine."
+  :actions '("Docker machines help"
+             (?C "Create"     docker-machine-create)
+             (?D "Remove"     docker-machine-rm-popup)
+             (?E "Env"        docker-machine-env-popup)
+             (?O "Stop"       docker-machine-stop-popup)
+             (?R "Restart"    docker-machine-restart-popup)
+             (?S "Start"      docker-machine-start-popup)
+             "Switch to other parts"
+             (?c "Containers" docker-containers)
+             (?i "Images"     docker-images)
+             (?n "Networks"   docker-networks)
+             (?v "Volumes"    docker-volumes)))
+
+(defvar docker-machine-mode-map
+  (let ((map (make-sparse-keymap)))
+    (define-key map "?" 'docker-machine-help-popup)
+    (define-key map "C" 'docker-machine-create)
+    (define-key map "D" 'docker-machine-rm-popup)
+    (define-key map "E" 'docker-machine-env-popup)
+    (define-key map "O" 'docker-machine-stop-popup)
+    (define-key map "R" 'docker-machine-restart-popup)
+    (define-key map "S" 'docker-machine-start-popup)
+    map)
+  "Keymap for `docker-machine-mode'.")
+
+;;;###autoload
+(defun docker-machines ()
+  "List docker machines."
+  (interactive)
+  (docker-utils-pop-to-buffer "*docker-machines*")
+  (docker-machine-mode)
+  (tablist-revert))
+
+(define-derived-mode docker-machine-mode tabulated-list-mode "Machines Menu"
+  "Major mode for handling a list of docker machines."
+  (setq tabulated-list-format [("Name" 16 t)("Active" 7 t)("Driver" 12 t)("State" 12 t)("URL" 30 t)("Swarm" 10 t)("Docker" 10 t)("Errors" 10 t)])
+  (setq tabulated-list-padding 2)
+  (setq tabulated-list-sort-key (cons "Name" nil))
+  (add-hook 'tabulated-list-revert-hook 'docker-machine-refresh nil t)
+  (tabulated-list-init-header)
+  (tablist-minor-mode))
+
+(provide 'docker-machine)
+
+;;; docker-machine.el ends here