Delight plugin for use-package.el

use-package-delight.el

(use-package delight)

(add-to-list 'use-package-keywords :delight t)

(defun use-package-normalize/:delight (name-symbol keyword args)
  "Normalize arguments to delight."
  (cond
   ((and (= (length args) 1)
         (symbolp (car args)))
    (list (car args) nil name-symbol))
   ((and (= (length args) 2)
         (symbolp (car args)))
    (list (car args) (cadr args) name-symbol))
   ((and (= (length args) 3)
         (symbolp (car args)))
    args)
   (t
    (use-package-error ":delight expects same args as delight function"))))

(defun use-package-handler/:delight (name-symbol keyword args rest state)
  (let ((body (use-package-process-keywords name-symbol rest state)))
    (use-package-concat
     body
     `((delight
        (quote ,(nth 0 args))
        ,(nth 1 args)
        (quote ,(nth 2 args)))
       t))))

(provide 'use-package-delight)

@darkfeline Isn't it impossible for the first test in the cond to ever return t?

Actually, since (symbolp nil) => t it will return t for any list of length 1, but that means the symbolp call is entirely redundant.

@jwiegley You're right, my inexperience with Elisp is showing. It should be checking (car args), not (cdr args). The restriction on delight is that the first argument is a symbol.