From 17ee0e400bef47c371afcae76037f9ea6a44ad13 Mon Sep 17 00:00:00 2001 From: William Carroll Date: Mon, 10 Sep 2018 14:51:14 -0400 Subject: Support Vim, Tmux, Emacs with Stow After moving off of Meta, Dotfiles has a greater responsibility to manage configs. Vim, Tmux, and Emacs are now within Stow's purview. --- .../elpa/docker-20180710.743/docker-process.el | 48 ++++++++++++++++++++++ 1 file changed, 48 insertions(+) create mode 100644 configs/shared/emacs/.emacs.d/elpa/docker-20180710.743/docker-process.el (limited to 'configs/shared/emacs/.emacs.d/elpa/docker-20180710.743/docker-process.el') diff --git a/configs/shared/emacs/.emacs.d/elpa/docker-20180710.743/docker-process.el b/configs/shared/emacs/.emacs.d/elpa/docker-20180710.743/docker-process.el new file mode 100644 index 000000000000..31a370612803 --- /dev/null +++ b/configs/shared/emacs/.emacs.d/elpa/docker-20180710.743/docker-process.el @@ -0,0 +1,48 @@ +;;; docker-process.el --- Emacs interface to Docker -*- lexical-binding: t -*- + +;; Author: Philippe Vaucher + +;; 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) + +(defcustom docker-run-as-root nil + "Run docker as root." + :type 'boolean + :group 'docker) + +(defcustom docker-command "docker" + "The docker binary." + :type 'string + :group 'docker) + +(defun docker-run (action &rest args) + "Execute docker ACTION passing arguments ARGS." + (let ((default-directory (if (and docker-run-as-root (not (file-remote-p default-directory))) "/sudo::" default-directory))) + (let ((command (format "%s %s %s" docker-command action (s-join " " (-flatten (-non-nil args)))))) + (message command) + (shell-command-to-string command)))) + +(provide 'docker-process) + +;;; docker-process.el ends here -- cgit 1.4.1