Emacs: use req-package on top of use-package

2 files changed, 96 insertions, 85 deletions

diff --git a/tag-emacs/emacs.d/Cask b/tag-emacs/emacs.d/Cask
index 1d458ef1..5df9a3d7 100644
--- a/tag-emacs/emacs.d/Cask
+++ b/tag-emacs/emacs.d/Cask
@@ -47,6 +47,7 @@
 (depends-on "puppet-mode")
 (depends-on "quickrun")
 (depends-on "redshank")
+(depends-on "req-package")
 (depends-on "s")
 (depends-on "skewer-mode")
 (depends-on "smart-tab")
diff --git a/tag-emacs/emacs.d/init.el b/tag-emacs/emacs.d/init.el
index 484dff86..e1c9c265 100644
--- a/tag-emacs/emacs.d/init.el
+++ b/tag-emacs/emacs.d/init.el
@@ -32,15 +32,15 @@
 (require 'cask)
 (cask-initialize)
 
-(require 'use-package)
-(use-package pallet)
+(require 'req-package)
+(req-package pallet)
 
 ;;;; Style
 
-(use-package linum
+(req-package linum
   :config (setq linum-format " %4d "))
 
-(use-package whitespace
+(req-package whitespace
   :config (setq whitespace-style
                 '(face
                   space
@@ -62,7 +62,7 @@
       jit-lock-chunk-size 1000
       jit-lock-defer-time 0.01)
 
-(use-package solarized-theme
+(req-package solarized-theme
   :config (load-theme 'solarized-light t))
 
 (when (or (display-graphic-p)
@@ -181,7 +181,7 @@
 
 ;;;; Buffers
 
-(use-package ibuffer
+(req-package ibuffer
   :bind (("C-x C-b" . ibuffer))
   :config (progn
             (setq ibuffer-saved-filter-groups
@@ -212,19 +212,19 @@
                           " "
                           filename-and-process)))))
 
-(use-package uniquify
+(req-package uniquify
   :config (progn
             (setq uniquify-buffer-name-style 'reverse
                   uniquify-separator "/"
                   uniquify-after-kill-buffer-p t
                   uniquify-ignore-buffers-re "^\\*")))
 
-(use-package fancy-narrow
+(req-package fancy-narrow
   :config (fancy-narrow-mode 1))
 
 ;;;; Communication
 
-(use-package erc
+(req-package erc
   :config (progn
             (setq erc-user-full-name "Alan Pearce"
                   erc-email-userid "alan@alanpearce.co.uk"
@@ -247,13 +247,13 @@
 (setq completion-styles '(basic initials partial-completion substring)
       completion-ignore-case t)
 
-(use-package smart-tab
+(req-package smart-tab
   :init (global-smart-tab-mode)
   :config (progn
             (nconc smart-tab-completion-functions-alist '((php-mode . php-complete-function)))
             (diminish 'smart-tab-mode "")))
 
-(use-package company
+(req-package company
   :commands (company-mode)
   :bind (("C-<tab>" . company-complete))
   :init (progn
@@ -263,7 +263,7 @@
 
 ;;;; Dates & Times
 
-(use-package calendar
+(req-package calendar
   :config (progn
             (setq calendar-week-start-day 1)
             (calendar-set-date-style 'iso)))
@@ -279,9 +279,8 @@
     (insert (format-time-string format))))
 
 ;;;; Directory browsing
-(use-package dired
+(req-package dired
   :config (progn
-            (use-package dired-x)
             (bind-key "<return>" #'dired-find-file dired-mode-map)
             (bind-key "^" (lambda () (interactive) (find-alternate-file "..")) dired-mode-map)
             (setq dired-dwim-target t
@@ -292,7 +291,11 @@
               (setq insert-directory-program "/usr/local/bin/gls"))
             (put 'dired-find-alternate-file 'disabled nil)))
 
-(use-package dired+
+(req-package dired-x
+  :require dired)
+
+(req-package dired+
+  :require dired
   :config (progn
             (diredp-toggle-find-file-reuse-dir 1)
             (dired-omit-mode 1)
@@ -300,7 +303,7 @@
 
 ;;;; Documentation
 
-(use-package which-func
+(req-package which-func
   :init (which-function-mode)
   :config (setq which-func-modes t))
 
@@ -344,16 +347,16 @@
         (kill-buffer buffer)
         (message "File '%s' successfully removed" filename)))))
 
-(use-package recentf
+(req-package recentf
   :init (progn (setq recentf-auto-cleanup 'never
                      recentf-save-file (expand-file-name "recentf" user-emacs-directory))
                (recentf-mode 1)))
 
-(use-package saveplace
+(req-package saveplace
   :config (progn (setq-default save-place t)
                  (setq save-place-file (expand-file-name ".saveplace" user-emacs-directory))))
 
-(use-package tramp
+(req-package tramp
   :config (progn
             (setq tramp-default-method (if (eq system-type 'windows-nt) "plinkx" "ssh")
                   tramp-default-user-alist '(("\\`su\\(do\\)?\\'" nil "root") (nil nil "alan"))
@@ -369,12 +372,13 @@
             (add-to-list 'tramp-default-proxies-alist '("localhost" nil nil))
             (add-to-list 'tramp-default-proxies-alist '("router" nil nil))))
 
-(use-package tramp-sh
+(req-package tramp-sh
+  :require tramp
   :config (progn
             (add-to-list 'tramp-remote-path "/usr/local/sbin")
             (add-to-list 'tramp-remote-path "~/bin")))
 
-(use-package ediff
+(req-package ediff
   :config (progn
             (setq ediff-split-window-function 'split-window-horizontally
                   ediff-window-setup-function 'ediff-setup-windows-plain)))
@@ -390,7 +394,7 @@
       '(4 8 12 16 20 24 28 32 36 40 44 48 52 56 60 64 68 72 76 80 84 88 92 96 100 104 108 112 116 120)
       tab-always-indent 'complete)
 
-(use-package auto-indent-mode
+(req-package auto-indent-mode
   :commands (auto-indent-minor-mode
              auto-indent-mode)
   :config (progn
@@ -407,7 +411,7 @@
               (set (make-local-variable 'auto-indent-assign-indent-level) 2))
             (add-hook 'lisp-common-mode-hook #'lisp-auto-indent-mode)))
 
-(use-package smart-tabs-mode
+(req-package smart-tabs-mode
   :commands (smart-tabs-mode
              smart-tabs-mode-enable
              smart-tabs-advice)
@@ -457,7 +461,7 @@
 (set-register ?e `(file . ,*init-file*))
 (set-register ?z `(file . ,(expand-file-name ".zshrc" "~")))
 
-(use-package discover
+(req-package discover
   :config (global-discover-mode))
 
 ;; Enable narrowing functions C-x n
@@ -474,12 +478,12 @@
     (defalias 'exit-emacs #'delete-frame)
   (defalias 'exit-emacs #'save-buffers-kill-emacs))
 
-(use-package helm-config
+(req-package helm-config
   :bind (("C-x i"   . helm-imenu))
   :config (setq helm-idle-delay .1
                 helm-input-idle-delay .1))
 
-(use-package ido
+(req-package ido
   :bind (("C-x b"   . ido-switch-buffer))
   :init (progn
           (setq ido-save-directory-list-file (expand-file-name "ido-state" user-emacs-directory))
@@ -504,14 +508,17 @@
 (bind-key "s-x b" #'ap/ido-projectile-switch-buffer-dwim)
 (bind-key "s-x s-b" #'ap/ido-projectile-switch-buffer-dwim)
 
-(use-package ido-vertical-mode
+(req-package ido-vertical-mode
+  :require ido
   :config (ido-vertical-mode 1))
 
-(use-package flx-ido
+(req-package flx-ido
+  :require ido
   :init (progn
           (flx-ido-mode 1)))
 
-(use-package smex
+(req-package smex
+  :require ido
   :bind (("M-x" . smex)
          ("<apps>" . smex)
          ("<menu>" . smex)
@@ -542,37 +549,37 @@
 (add-to-list 'auto-mode-alist '("\\.target\\'" . conf-mode))
 (add-to-list 'auto-mode-alist '("\\.socket\\'" . conf-mode))
 
-(use-package xrdb-mode
+(req-package xrdb-mode
   :mode (("\\.Xdefaults\\'" . xrdb-mode)
          ("\\.Xresources\\'" . xrdb-mode)))
 
-(use-package haskell-mode
+(req-package haskell-mode
   :mode (("\\.hs\\'" . haskell-mode)
          ("xmobarrc\\'" . haskell-mode)))
 
-(use-package nginx-mode
+(req-package nginx-mode
   :mode (("nginx.conf" . nginx-mode)))
 
-(use-package lua-mode
+(req-package lua-mode
   :mode (("\\.lua\\'" . lua-mode)))
 
-(use-package puppet-mode
+(req-package puppet-mode
   :mode (("\\.pp\\'" . puppet-mode))
   :config (progn
             (add-hook 'puppet-mode-hook #'autopair-mode)))
 
-(use-package ruby-mode
+(req-package ruby-mode
   :mode (("\\.rb\\'" . ruby-mode)
          ("\\.cap\\'" . ruby-mode)))
 
-(use-package yaml-mode
+(req-package yaml-mode
   :mode (("/group_vars/.*" . yaml-mode)
          ("/host_vars/.*" . yaml-mode)
          ("\\.sls\\'" . yaml-mode)))
 
 ;;;; Planning
 
-(use-package org
+(req-package org
   :bind (("C-c C-a" . org-agenda-list)
          ("C-c a" . org-agenda)
          ("C-c l" . org-store-link))
@@ -625,13 +632,14 @@
                   (if (looking-at (concat " +" org-todo-regexp "\\( +\\|[ \t]*$\\)"))
                       (org-todo "STARTED")))))))
 
-(use-package org-journal
+(req-package org-journal
+  :require org
   :config (progn
             (setq org-journal-date-format "%A, %d %B %Y")))
 
 ;;;; Programming
 
-(use-package cedet
+(req-package cedet
   :disabled t
   :config (progn
             (semantic-load-enable-code-helpers)
@@ -640,12 +648,12 @@
             (global-semantic-show-unmatched-syntax-mode t)
             (global-semantic-decoration-mode t)))
 
-(use-package flycheck
+(req-package flycheck
   :init (global-flycheck-mode))
 
 ;;;; Projects
 
-(use-package projectile
+(req-package projectile
   :bind (("C-c C-f" . projectile-find-file)
          ("s-x s-f" . projectile-find-file))
   :init (projectile-global-mode)
@@ -653,16 +661,16 @@
             (setq projectile-switch-project-action #'projectile-dired
                   projectile-remember-window-configs t)))
 
-(use-package vc
+(req-package vc
   :config (progn
             (setq vc-follow-symlinks t)))
 
-(use-package diff-hl
+(req-package diff-hl
   :init (progn
           (global-diff-hl-mode)
           (add-hook 'magit-refresh-file-buffer-hook #'diff-hl-update)))
 
-(use-package magit
+(req-package magit
   :commands (magit-status)
   :bind (("C-x g" . magit-status)
          ("s-G" . magit-status))
@@ -675,7 +683,7 @@
 ;; If aspell is too slow
 ;; If it is still too slow, use ‘ultra’ instead of ‘fast’
 ;; (setq ispell-extra-args '(" --sug-mode=fast"))
-(use-package ispell
+(req-package ispell
   :bind (("<f8>" . ispell-word)))
 
 ;;;; Scripting
@@ -683,21 +691,21 @@
 (add-hook 'after-save-hook
           #'executable-make-buffer-file-executable-if-script-p)
 
-(use-package sh-script
+(req-package sh-script
   :mode (("\\.zsh\\'" . shell-script-mode))
   :config (setq sh-shell-file "/usr/bin/env zsh"))
 
-(use-package ntcmd
+(req-package ntcmd
   :mode (("\\`.cmd\\'" . ntcmd-mode)
          ("\\`.bat\\'" . ntcmd-mode)))
 
 ;;;; Shells & REPLs
 
-(use-package eshell
+(req-package eshell
   :bind ("C-c s" . eshell)
   :config (progn
             (setq eshell-directory-name "~/.emacs.d/eshell")
-            (use-package em-smart
+            (req-package em-smart
               :init (progn
                       (setq eshell-where-to-jump 'begin
                             eshell-review-quick-commands nil
@@ -712,11 +720,11 @@
     (eshell/cd dir)))
 (bind-key "C-c S" #'eshell-goto-current-dir)
 
-(use-package shell
+(req-package shell
   :config (define-key shell-mode-map
             (kbd "C-d") 'comint-delchar-or-eof-or-kill-buffer))
 
-(use-package multi-term
+(req-package multi-term
   :if (not (eq system-type 'windows-nt))
   :bind ("C-`" . multi-term-dedicated-toggle))
 
@@ -745,14 +753,14 @@
 
 (bind-key "S-SPC" #'set-mark-command)
 
-(use-package subword
+(req-package subword
   :init (global-subword-mode t))
 
-(use-package misc
+(req-package misc
   :bind (("M-z" . zap-up-to-char)
          ("M-Z" . zap-to-char)))
 
-(use-package ap-functions
+(req-package ap-functions
   :commands (ap/remove-extra-cr)
   :bind (("C-x r M-w" . copy-rectangle)
          ("M-!" . shell-execute)))
@@ -760,14 +768,14 @@
 (when (boundp 'x-select-request-type)
   (setq x-select-request-type '(UTF8_STRING COMPOUND_TEXT TEXT STRING)))
 
-(use-package ace-jump-mode
+(req-package ace-jump-mode
   :bind (("C-c SPC" . ace-jump-mode))
   :config (progn
             (ace-jump-mode-enable-mark-sync)
             (setq ace-jump-word-mode-use-query-char nil
                   ace-jump-mode-scope 'window)))
 
-(use-package autopair
+(req-package autopair
   :commands (autopair-mode
              autopair-on)
   :init (progn
@@ -778,13 +786,13 @@
           (setq autopair-blink nil
                 autopair-skip-whitespace nil)))
 
-(use-package expand-region
+(req-package expand-region
   :bind ("C-M-SPC" . er/expand-region))
 
-(use-package goto-chg
+(req-package goto-chg
   :bind ("C-x SPC" . goto-last-change))
 
-(use-package multiple-cursors
+(req-package multiple-cursors
   :config (progn
             (bind-key "C-." #'mc/mark-next-like-this)
             (bind-key "C-," #'mc/mark-previous-like-this)
@@ -792,11 +800,11 @@
             (bind-key "C-<f3>" #'mc/mark-more-like-this-extended)
             (bind-key "C-S-L" #'mc/edit-lines)))
 
-(use-package eldoc
+(req-package eldoc
   :config (progn
             (eldoc-add-command 'paredit-backward-delete 'paredit-close-round)))
 
-(use-package paredit
+(req-package paredit
   :commands (paredit-mode)
   :init (progn
           (add-hook 'lisp-common-mode-hook #'enable-paredit-mode)
@@ -808,17 +816,17 @@
             (if (eq this-command 'eval-expression)
                 (paredit-mode 1)))))
 
-(use-package shuffle-lines
+(req-package shuffle-lines
   :bind (("C-S-<up>" . move-line-up)
          ("C-S-<down>" . move-line-down)))
 
-(use-package smart-forward
+(req-package smart-forward
   :bind (("C-M-u" . smart-up)
          ("C-M-d" . smart-down)
          ("C-M-p" . smart-backward)
          ("C-M-n" . smart-forward)))
 
-(use-package undo-tree
+(req-package undo-tree
   :config (progn
             (global-undo-tree-mode)
             ;; Keep region when undoing in region
@@ -834,7 +842,7 @@
                 ad-do-it)))
   :diminish undo-tree-mode)
 
-(use-package visual-regexp
+(req-package visual-regexp
   :bind (("C-c r" . vr/replace)
          ("C-c q" . vr/query-replace)
          ("C-c m" . vc/mc-mark)))
@@ -857,22 +865,22 @@
 (add-hook 'lisp-mode-hook #'ap/lisp-setup)
 (add-hook 'lisp-mode-hook #'set-common-lisp-indentation)
 
-(use-package elisp-slime-nav
+(req-package elisp-slime-nav
   :commands elisp-slime-nav-mode
   :diminish elisp-slime-nav-mode)
 
-(use-package geiser
+(req-package geiser
+  :require quack
   :commands (geiser-mode
              geiser
              run-geiser
-             run-racket)
-  :config (use-package quack))
+             run-racket))
 
-(use-package redshank
+(req-package redshank
   :init (progn
           (add-hook 'lisp-common-mode-hook #'turn-on-redshank-mode)))
 
-(use-package slime
+(req-package slime
     :commands (slime)
   :config (progn
             (let ((ql-slime-helper (expand-file-name "~/quicklisp/slime-helper.el")))
@@ -884,7 +892,7 @@
 (defun imenu-elisp-sections ()
   (setq imenu-prev-index-position-function nil)
   (add-to-list 'imenu-generic-expression '("Sections" "^;;;; \\(.+\\)$" 1) t)
-  (add-to-list 'imenu-generic-expression '("Packages" "^(use-package\\s-+\\(\\(\\sw\\|\\s_\\)+\\)$" 1) t))
+  (add-to-list 'imenu-generic-expression '("Packages" "^(req-package\\s-+\\(\\(\\sw\\|\\s_\\)+\\)$" 1) t))
 
 (defun init-narrow-to-section ()
   (interactive)
@@ -921,10 +929,10 @@
 
 ;;;; Programming
 
-(use-package auto-compile
+(req-package auto-compile
   :init (add-hook 'emacs-lisp-mode-hook #'auto-compile-on-save-mode))
 
-(use-package cc-mode
+(req-package cc-mode
   :init (progn
           (add-hook 'c-mode-common-hook #'electric-indent-mode))
   :config (progn
@@ -934,17 +942,17 @@
                   c-basic-offset 4)
             (c-set-offset 'case-label '+)))
 
-(use-package quickrun)
+(req-package quickrun)
 
 ;;;; Web Development
 
-(use-package skewer-mode
+(req-package skewer-mode
   :init (progn
           (add-hook 'js2-mode-hook #'skewer-mode)
           (add-hook 'html-mode-hook #'skewer-html-mode)
           (add-hook 'css-mode-hook #'skewer-css-mode)))
 
-(use-package js2-mode
+(req-package js2-mode
   :mode ("\\.js\\'" . js2-mode)
   :config (progn
             (defun ap/javascript-setup ()
@@ -954,15 +962,15 @@
             (setq js2-basic-offset 4
                   js2-global-externs '("$"))))
 
-(use-package mustache-mode
+(req-package mustache-mode
   :mode (("\\.mustache" . mustache-mode)
          ("\\.mt\\'" . mustache-mode)
          ("\\.template\\'" . mustache-mode)))
 
-(use-package jinja2-mode
+(req-package jinja2-mode
   :mode (("\\.j2\\'" . jinja2-mode)))
 
-(use-package php-mode
+(req-package php-mode
   :mode ("\\.php\\'" . php-mode)
   :config (progn
             (bind-key "C-h C-f" #'php-search-documentation php-mode-map)
@@ -991,15 +999,15 @@
             (add-hook 'php-mode-hook #'ap/php-style)
             (add-hook 'php-mode-hook #'turn-on-eldoc-mode)))
 
-(use-package sgml-mode
+(req-package sgml-mode
   :config (setq sgml-basic-offset 4))
 
-(use-package emmet-mode
+(req-package emmet-mode
   :config (progn
             (if (functionp 'web-mode)
                 (add-hook 'web-mode-hook #'emmet-mode))))
 
-(use-package web-mode
+(req-package web-mode
   :mode (("/views/.*\\.php\\'" . web-mode)
          ("/templates/.*\\.php\\'" . web-mode))
   :config (setq web-mode-code-indent-offset 4
@@ -1031,12 +1039,12 @@
   (tooltip-mode -1)
   (tool-bar-mode -1))
 
-(use-package winner
+(req-package winner
   :init (progn
           (winner-mode 1)
           (setq winner-boring-buffers '("*Completions*" "*Help*" "*Apropos*" "*Buffer List*" "*info*" "*Compile-Log*"))))
 
-(use-package windmove
+(req-package windmove
   :bind (("S-<left>"  . windmove-left)
          ("S-<right>" . windmove-right)
          ("S-<up>"    . windmove-up)
@@ -1044,3 +1052,5 @@
 
 (if (eq system-type 'darwin)
     (setq ns-pop-up-frames nil))
+
+(req-package-finish)