Emacs: Fix :ensure-ing of non-packages

1 files changed, 18 insertions, 2 deletions

diff --git a/tag-emacs/emacs.d/init.org b/tag-emacs/emacs.d/init.org
index 777b6f9..feeb55d 100644
--- a/tag-emacs/emacs.d/init.org
+++ b/tag-emacs/emacs.d/init.org
@@ -41,8 +41,11 @@ the buffer to be empty.
     (package-initialize)
     (unless (package-installed-p 'use-package)
       (package-refresh-contents)
-      (package-install 'use-package))
-    (require 'use-package))
+      (package-install 'use-package)))
+  (eval-when-compile (require 'use-package))
+  (unless (featurep 'use-package)
+    (require 'diminish)
+    (require 'bind-key))
   (setq use-package-verbose t
         use-package-always-ensure t)
   (use-package benchmark-init
@@ -507,6 +510,7 @@ that I can sudo on remote machines
               (add-to-list 'tramp-default-proxies-alist '("router" nil nil))))
 
   (use-package tramp-sh
+    :ensure nil
     :defer t
     :config (progn
               (add-to-list 'tramp-remote-path "/usr/local/sbin")
@@ -880,6 +884,7 @@ copying/moving files between them.
 #+BEGIN_SRC emacs-lisp
 (use-package dired
   :defer 3
+  :ensure nil
   :config (progn
             (bind-key "<return>" #'dired-find-file dired-mode-map)
             (bind-key "^" (lambda () (interactive) (find-alternate-file "..")) dired-mode-map)
@@ -916,6 +921,7 @@ Don’t show uninteresting files in dired listings.
   (use-package dired-x
     :commands (dired-omit-mode
                dired-expunge)
+    :ensure nil
     :config (progn
               (setq dired-omit-files "#\\|\\.$"
                     dired-omit-verbose nil
@@ -1104,6 +1110,7 @@ Option/alt, then Control.
         (replace-match ""))))
 
   (use-package rect
+    :ensure nil
     :init (defun copy-rectangle (start end)
             "Copy the region-rectangle."
             (interactive "r")
@@ -1373,6 +1380,7 @@ Some modes that I don’t really customise much, mostly for
 configuration files.
 #+BEGIN_SRC emacs-lisp
   (use-package xrdb-mode
+    :ensure nil
     :mode (("\\.Xdefaults\\'" . xrdb-mode)
            ("\\.Xresources\\'" . xrdb-mode)))
 
@@ -1532,6 +1540,7 @@ with R or something.
 #+BEGIN_SRC emacs-lisp
 (use-package org-babel
   :defer t
+  :ensure nil
   :config (org-babel-do-load-languages
            'org-babel-load-languages
            '((ledger . t)
@@ -1560,6 +1569,7 @@ I can use this to keep a journal.  I should use it.
 #+BEGIN_SRC emacs-lisp
   (use-package org-mobile
     :defer 30
+    :ensure nil
     :config (progn
               (setq org-mobile-directory "~/Mobile/Org"
                     org-mobile-inbox-for-pull "~/Mobile/Org/from-mobile.org")
@@ -1716,6 +1726,7 @@ Interactive elisp
 #+BEGIN_SRC emacs-lisp
 (use-package ielm
   :defer t
+  :ensure nil
   :config (progn
             (add-hook 'ielm-mode-hook (lambda ()
                                         (run-hooks 'lisp-mode-common-hook)))))
@@ -2062,6 +2073,7 @@ nice, when I remember to use it.
                                             (bind-key "C-c C-l" #'helm-eshell-history eshell-mode-map)))))
 
   (use-package em-smart
+    :ensure nil
     :commands eshell-smart-initialize
     :init (progn
             (add-hook 'eshell-load-hook #'eshell-smart-initialize))
@@ -2095,11 +2107,13 @@ nice, when I remember to use it.
 #+BEGIN_SRC emacs-lisp
   (use-package shell
     :defer t
+    :ensure nil
     :config (define-key shell-mode-map
               (kbd "C-d") 'comint-delchar-or-eof-or-kill-buffer))
 
   (use-package comint
     :defer t
+    :ensure nil
     :config (bind-key "C-c C-l" #'helm-comint-input-ring comint-mode-map))
 
   (defun comint-delchar-or-eof-or-kill-buffer (arg)
@@ -2128,6 +2142,7 @@ The most important one for me is JSON property alignment.
 #+BEGIN_SRC emacs-lisp
   (use-package align
     :defer 10
+    :ensure nil
     :config (progn
               (add-to-list 'align-rules-list
                            '(colon-key-value
@@ -2188,6 +2203,7 @@ I find that =zap-up-to-char= normally makes more sense to me than
 
 #+BEGIN_SRC emacs-lisp
 (use-package misc
+  :ensure nil
   :bind (("M-z" . zap-up-to-char)
          ("M-Z" . zap-to-char)))
 #+END_SRC