9da3ffee41
This is a massive diff that I had to do in a hurry - when leaving Urbint. I'm pretty sure that most of these are updating Emacs packages, but I'm not positive.
146 lines
4.8 KiB
EmacsLisp
146 lines
4.8 KiB
EmacsLisp
;;; 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
|