diff options
Diffstat (limited to 'configs/shared/emacs/.emacs.d/elpa/docker-20180820.1130/docker-machine.el')
| -rw-r--r-- | configs/shared/emacs/.emacs.d/elpa/docker-20180820.1130/docker-machine.el | 291 |
1 files changed, 0 insertions, 291 deletions
diff --git a/configs/shared/emacs/.emacs.d/elpa/docker-20180820.1130/docker-machine.el b/configs/shared/emacs/.emacs.d/elpa/docker-20180820.1130/docker-machine.el deleted file mode 100644 index 0ae90342c648..000000000000 --- a/configs/shared/emacs/.emacs.d/elpa/docker-20180820.1130/docker-machine.el +++ /dev/null @@ -1,291 +0,0 @@ -;;; 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 's) -(require 'dash) -(require 'tablist) -(require 'magit-popup) - -(require 'docker-group) -(require 'docker-utils) - -(defgroup docker-machine nil - "Docker machine customization group." - :group 'docker) - -(defcustom docker-machine-default-sort-key '("Name" . nil) - "Sort key for docker machines. - -This should be a cons cell (NAME . FLIP) where -NAME is a string matching one of the column names -and FLIP is a boolean to specify the sort order." - :group 'docker-machine - :type '(cons (choice (const "Name") - (const "Active") - (const "Driver") - (const "State") - (const "URL") - (const "Swarm") - (const "Docker") - (const "Errors")) - (choice (const :tag "Ascending" nil) - (const :tag "Descending" t)))) - -(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 (docker-machine-run "ls" docker-machine-ls-arguments (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\" using ARGS." - (let ((command (format "docker-machine %s %s" action (s-join " " (-flatten (-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-create (name driver) - "Create a machine NAME using DRIVER." - (interactive "sName: \nsDriver: ") - (docker-machine-run "create" name "-d" driver)) - -;;;###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))) - -(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-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-kill (name) - "Kill the machine NAME." - (interactive (list (docker-machine-read-name))) - (docker-machine-run "kill" 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)) - -;;;###autoload -(defun docker-machine-start (name) - "Start the machine NAME." - (interactive (list (docker-machine-read-name))) - (docker-machine-run "start" 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-stop (name) - "Stop the machine NAME." - (interactive (list (docker-machine-read-name) current-prefix-arg)) - (docker-machine-run "stop" 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)) - -(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))) - -(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) it)) - (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) it)) - (tablist-revert)) - -(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) it)) - (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) it)) - (tablist-revert)) - -(magit-define-popup docker-machine-env-popup - "Popup for setting up environment variables." - 'docker-machine - :man-page "docker-machine-env" - :actions '((?E "Env" docker-machine-env-selection)) - :setup-function #'docker-utils-setup-popup) - -(magit-define-popup docker-machine-ls-popup - "Popup for listing machines." - 'docker-machine - :man-page "docker-machine-ls" - :options '((?f "Filter" "--filter ") - (?t "Timeout" "--timeout ")) - :actions `((?l "List" ,(docker-utils-set-then-call 'docker-machine-ls-arguments 'tablist-revert)))) - -(magit-define-popup docker-machine-restart-popup - "Popup for restarting machines." - 'docker-machine - :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 - :man-page "docker-machine-rm" - :switches '((?f "Force" "-f") - (?y "Automatic yes" "-y")) - :actions '((?D "Remove" docker-machine-rm-selection)) - :default-arguments '("-y") - :setup-function #'docker-utils-setup-popup) - -(magit-define-popup docker-machine-start-popup - "Popup for starting machines." - 'docker-machine - :man-page "docker-machine-start" - :actions '((?S "Start" docker-machine-start-selection)) - :setup-function #'docker-utils-setup-popup) - -(magit-define-popup docker-machine-stop-popup - "Popup for stoping machines." - 'docker-machine - :man-page "docker-machine-stop" - :actions '((?O "Stop" docker-machine-stop-selection)) - :setup-function #'docker-utils-setup-popup) - -(magit-define-popup docker-machine-help-popup - "Help popup for docker machine." - '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) - (?l "List" docker-machine-ls-popup))) - -(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) - (define-key map "l" 'docker-machine-ls-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 docker-machine-default-sort-key) - (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 |