about summary refs log tree commit diff
path: root/configs/shared/emacs/.emacs.d/elpa/docker-20180820.1130/docker-volume.el
diff options
context:
space:
mode:
Diffstat (limited to 'configs/shared/emacs/.emacs.d/elpa/docker-20180820.1130/docker-volume.el')
-rw-r--r--configs/shared/emacs/.emacs.d/elpa/docker-20180820.1130/docker-volume.el146
1 files changed, 0 insertions, 146 deletions
diff --git a/configs/shared/emacs/.emacs.d/elpa/docker-20180820.1130/docker-volume.el b/configs/shared/emacs/.emacs.d/elpa/docker-20180820.1130/docker-volume.el
deleted file mode 100644
index 44a6052c0fb6..000000000000
--- a/configs/shared/emacs/.emacs.d/elpa/docker-20180820.1130/docker-volume.el
+++ /dev/null
@@ -1,146 +0,0 @@
-;;; docker-volume.el --- Emacs interface to docker-volume  -*- lexical-binding: t -*-
-
-;; Author: Philippe Vaucher <philippe.vaucher@gmail.com>
-
-;; 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-process)
-(require 'docker-utils)
-
-(defgroup docker-volume nil
-  "Docker volume customization group."
-  :group 'docker)
-
-(defcustom docker-volume-default-sort-key '("Driver" . nil)
-  "Sort key for docker volumes.
-
-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-volume
-  :type '(cons (choice (const "Driver")
-                       (const "Name"))
-               (choice (const :tag "Ascending" nil)
-                       (const :tag "Descending" t))))
-
-(defun docker-volume-parse (line)
-  "Convert a LINE from \"docker volume ls\" to a `tabulated-list-entries' entry."
-  (let ((data (s-split " \\{3,15\\}" line t)))
-    (list (nth 1 data) (apply #'vector data))))
-
-(defun docker-volume-entries ()
-  "Return the docker volumes data for `tabulated-list-entries'."
-  (let* ((data (docker-run "volume" "ls" docker-volume-ls-arguments))
-         (lines (cdr (s-split "\n" data t))))
-    (-map #'docker-volume-parse lines)))
-
-(defun docker-volume-refresh ()
-  "Refresh the volumes list."
-  (setq tabulated-list-entries (docker-volume-entries)))
-
-(defun docker-volume-read-name ()
-  "Read a volume name."
-  (completing-read "Volume: " (-map #'car (docker-volume-entries))))
-
-;;;###autoload
-(defun docker-volume-dired (name)
-  (interactive (list (docker-volume-read-name)))
-  (let ((path (docker-run "inspect" "-f" "\"{{ .Mountpoint }}\"" name)))
-    (dired (format "/sudo::%s" path))))
-
-;;;###autoload
-(defun docker-volume-rm (name)
-  "Destroy the volume named NAME."
-  (interactive (list (docker-volume-read-name)))
-  (docker-run "volume rm" name))
-
-(defun docker-volume-dired-selection ()
-  "Run `docker-volume-dired' on the volumes selection."
-  (interactive)
-  (docker-utils-select-if-empty)
-  (--each (docker-utils-get-marked-items-ids)
-    (docker-volume-dired it)))
-
-(defun docker-volume-rm-selection ()
-  "Run \"docker volume rm\" on the volumes selection."
-  (interactive)
-  (--each (docker-utils-get-marked-items-ids)
-    (docker-run "volume rm" it))
-  (tablist-revert))
-
-(magit-define-popup docker-volume-ls-popup
-  "Popup for listing volumes."
-  'docker-volume
-  :man-page "docker-volume-ls"
-  :options   '((?f "Filter" "--filter "))
-  :actions   `((?l "List" ,(docker-utils-set-then-call 'docker-volume-ls-arguments 'tablist-revert))))
-
-(magit-define-popup docker-volume-rm-popup
-  "Popup for removing volumes."
-  'docker-volume
-  :man-page "docker-volume-rm"
-  :actions  '((?D "Remove" docker-volume-rm-selection))
-  :setup-function #'docker-utils-setup-popup)
-
-(magit-define-popup docker-volume-help-popup
-  "Help popup for docker volumes."
-  'docker-volume
-  :actions '("Docker volumes help"
-             (?D "Remove"     docker-volume-rm-popup)
-             (?d "Dired"      docker-volume-dired-selection)
-             (?l "List"       docker-volume-ls-popup)))
-
-(defvar docker-volume-mode-map
-  (let ((map (make-sparse-keymap)))
-    (define-key map "?" 'docker-volume-help-popup)
-    (define-key map "D" 'docker-volume-rm-popup)
-    (define-key map "d" 'docker-volume-dired-selection)
-    (define-key map "l" 'docker-volume-ls-popup)
-    map)
-  "Keymap for `docker-volume-mode'.")
-
-;;;###autoload
-(defun docker-volumes ()
-  "List docker volumes."
-  (interactive)
-  (docker-utils-pop-to-buffer "*docker-volumes*")
-  (docker-volume-mode)
-  (tablist-revert))
-
-(define-derived-mode docker-volume-mode tabulated-list-mode "Volumes Menu"
-  "Major mode for handling a list of docker volumes."
-  (setq tabulated-list-format [("Driver" 10 t)("Name" 10 t)])
-  (setq tabulated-list-padding 2)
-  (setq tabulated-list-sort-key docker-volume-default-sort-key)
-  (add-hook 'tabulated-list-revert-hook 'docker-volume-refresh nil t)
-  (tabulated-list-init-header)
-  (tablist-minor-mode))
-
-(provide 'docker-volume)
-
-;;; docker-volume.el ends here