Emacs: Don’t install certain packages via package.el

1 files changed, 20 insertions, 1 deletions

diff --git a/dot.emacs.d/init.el b/dot.emacs.d/init.el
index cdc2593..750cf2e 100644
--- a/dot.emacs.d/init.el
+++ b/dot.emacs.d/init.el
@@ -4,11 +4,30 @@
       '(("melpa" . "https://melpa.org/packages/")
 	("gnu" . "https://elpa.gnu.org/packages/")))
 (package-initialize)
+
+(defun qsx-use-package-ensure (name args _state &optional _no-refresh)
+  (dolist (ensure args)
+    (let ((package
+	   (or (and (eq ensure t) (use-package-as-symbol name))
+	       ensure)))
+      (when package
+	(if (memq package
+		      '(auctex
+			bison-mode
+			company
+			crontab-mode
+			magit
+			markdown-mode
+			rust-mode
+			yaml-mode))
+	    t
+	  (use-package-ensure-elpa name args _state _no-refresh))))))
 (unless (package-installed-p 'use-package)
   (package-refresh-contents)
   (package-install 'use-package t))
 (require 'use-package)
-(setq use-package-always-ensure t)
+(setq use-package-ensure-function #'qsx-use-package-ensure
+      use-package-always-ensure t)
 
 (defvar --backup-directory (concat user-emacs-directory "backups"))
 (if (not (file-exists-p --backup-directory))