mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-11-27 07:37:33 +00:00
Code Issues Releases Activity

Merge pull request from npostavs/easy-diminish

Browse Source 
let :diminish "string" guess correct mode symbol
GitHub-reference: https://github.com/jwiegley/use-package/issues/20
This commit is contained in:
John Wiegley 2013-04-14 14:03:46 -07:00
commit 984e0f1044
1 changed files with 17 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
lisp/use-package/use-package.el
View File

@ -212,7 +212,9 @@
;; if you have that installed. It's purpose is to remove strings from your
;; mode-line that would otherwise always be there and provide no useful
;; information. It is invoked with the `:diminish' keyword, which is passed
;; either the minor mode symbol, or a cons of the symbol and a replacement string:
;; either the minor mode symbol, a cons of the symbol and a replacement string,
;; or just a replacement string in which case the minor mode symbol is guessed
;; to be the package name with "-mode" at the end:
;;
;; (use-package abbrev
;; :diminish abbrev-mode
@ -453,16 +455,20 @@ For full documentation. please see commentary.
`(progn
,config-body
(ignore-errors
,@(if (listp diminish-var)
(if (listp (cdr diminish-var))
(mapcar (lambda (var)
(if (listp var)
`(diminish (quote ,(car var)) ,(cdr var))
`(diminish (quote ,var))))
diminish-var)
`((diminish (quote ,(car diminish-var)) ,(cdr diminish-var)))
)
`((diminish (quote ,diminish-var))))))))
,@(cond
((stringp diminish-var)
`(diminish (quote ,(intern (concat name-string "-mode")))
,diminish-var))
((symbolp diminish-var)
`(diminish (quote ,diminish-var)))
((and (consp diminish-var) (stringp (cdr diminish-var)))
`(diminish (quote ,(car diminish-var)) ,(cdr diminish-var)))
(t ; list of symbols or (symbol . "string") pairs
(mapcar (lambda (var)
(if (listp var)
`(diminish (quote ,(car var)) ,(cdr var))
`(diminish (quote ,var))))
diminish-var)))))))
(if (and commands (symbolp commands))
(setq commands (list commands)))