[nongnu] elpa/dockerfile-mode 95f55f3697 031/104: add dockerfile-build-no-cache-buffer

[ELPA Syncer]

branch: elpa/dockerfile-mode
commit 95f55f3697e562cbf43ff31e59ac8dd925211d53
Author: nabeo <watanabe.michikazu@gmail.com>
Commit: nabeo <watanabe.michikazu@gmail.com>

    add dockerfile-build-no-cache-buffer
---
 dockerfile-mode.el | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

diff --git a/dockerfile-mode.el b/dockerfile-mode.el
index c3bc7fffa4..8c6509e909 100644
--- a/dockerfile-mode.el
+++ b/dockerfile-mode.el
@@ -50,6 +50,7 @@
   (let ((map (make-sparse-keymap))
         (menu-map (make-sparse-keymap)))
     (define-key map "\C-c\C-b" 'dockerfile-build-buffer)
+    (define-key map "\C-c\M-b" 'dockerfile-build-no-cache-buffer)
     (define-key map "\C-c\C-z" 'dockerfile-test-function)
     (define-key map "\C-c\C-c" 'comment-region)
     (define-key map [menu-bar dockerfile-mode] (cons "Dockerfile" menu-map))
@@ -59,6 +60,9 @@
     (define-key menu-map [dfb]
       '(menu-item "Build" dockerfile-build-buffer
                   :help "Send the Dockerfile to docker build"))
+    (define-key menu-map [dfb]
+      '(menu-item "Build without cache" dockerfile-build-no-cache-buffer
+                  :help "Send the Dockerfile to docker build without cache"))
     map))
 
 (defvar dockerfile-mode-syntax-table
@@ -89,6 +93,20 @@
        "*docker-build-output*")
     (print "docker-image-name must be a string, consider surrounding it with 
double quotes")))
 
+;;;###autoload
+(defun dockerfile-build-no-cache-buffer (image-name)
+  "Build an image based upon the buffer without cache"
+  (interactive
+   (if (null docker-image-name)
+      (list (read-string "image-name: " nil nil))
+     (list docker-image-name)))
+  (save-buffer)
+  (if (stringp image-name)
+      (async-shell-command
+       (format "%s docker build --no-cache -t %s -f %s %s" (if 
dockerfile-use-sudo "sudo" "") image-name (buffer-file-name) 
(file-name-directory (buffer-file-name)))
+       "*docker-build-output*")
+    (print "docker-image-name must be a string, consider surrounding it with 
double quotes")))
+
 ;; Handle emacs < 24, which does not have prog-mode
 (defalias 'dockerfile-parent-mode
   (if (fboundp 'prog-mode) 'prog-mode 'fundamental-mode))