1 files changed, 70 insertions, 0 deletions
diff --git a/lisp/use-package/use-package-ensure-system-package.el b/lisp/use-package/use-package-ensure-system-package.el
new file mode 100644
index 00000000000..e34bb16d738
--- /dev/null
+++ b/lisp/use-package/use-package-ensure-system-package.el
@@ -0,0 +1,70 @@
+;;; use-package-ensure-system-package.el --- auto install system packages
+
+;; Copyright (C) 2017 Justin Talbott
+
+;; Author: Justin Talbott <justin@waymondo.com>
+;; Keywords: convenience, tools, extensions
+;; URL: https://github.com/waymondo/use-package-ensure-system-package
+;; Version: 0.1
+;; Package-Requires: ((use-package "2.1") (system-packages "0.1"))
+;; Filename: use-package-ensure-system-package.el
+;; License: GNU General Public License version 3, or (at your option) any later version
+;;
+
+;;; Commentary:
+;;
+;; The `:ensure-system-package` keyword allows you to ensure system
+;; binaries exist alongside your `use-package` declarations.
+;;
+
+;;; Code:
+
+(require 'use-package)
+(require 'system-packages)
+
+(add-to-list 'use-package-keywords :ensure-system-package t)
+
+(defun use-package-ensure-system-package-install-command (pack)
+  "Return the default install command for `pack'."
+  (let ((command
+         (cdr (assoc 'install (cdr (assoc system-packages-packagemanager
+                                          system-packages-supported-package-managers))))))
+    (unless command
+      (error (format "%S not supported in %S" 'install system-packages-packagemanager)))
+    (unless (listp command)
+      (setq command (list command)))
+    (when system-packages-usesudo
+      (setq command (mapcar (lambda (part) (concat "sudo " part)) command)))
+    (setq command (mapconcat 'identity command " && "))
+    (mapconcat 'identity (list command pack) " ")))
+
+(defun use-package-ensure-system-package-consify (arg)
+  "Turn `arg' into a cons of (`package-name' . `install-command')."
+  (cond
+   ((stringp arg)
+    (cons arg (use-package-ensure-system-package-install-command arg)))
+   ((symbolp arg)
+    (cons arg (use-package-ensure-system-package-install-command (symbol-name arg))))
+   ((consp arg) arg)))
+
+(defun use-package-normalize/:ensure-system-package (name-symbol keyword args)
+  "Turn `arg' into a list of cons-es of (`package-name' . `install-command')."
+  (use-package-only-one (symbol-name keyword) args
+    (lambda (label arg)
+      (cond
+       ((and (listp arg) (listp (cdr arg)))
+        (mapcar #'use-package-ensure-system-package-consify arg))
+       (t
+        (list (use-package-ensure-system-package-consify arg)))))))
+
+(defun use-package-handler/:ensure-system-package (name keyword arg rest state)
+  "Execute the handler for `:ensure-system-package' keyword in `use-package'."
+  (let ((body (use-package-process-keywords name rest state)))
+    (use-package-concat
+     (mapcar #'(lambda (cons)
+                 `(unless (executable-find (symbol-name ',(car cons)))
+                    (async-shell-command ,(cdr cons)))) arg)
+     body)))
+
+(provide 'use-package-ensure-system-package)
+;;; use-package-ensure-system-package.el ends here