Add Named Compile, Change hydra-yank binding

This commit is contained in:
Ivan Malison 2016-06-22 20:18:32 -07:00
parent 9225b95ff0
commit 134ba0b741

View File

@ -819,6 +819,20 @@ For composing functions with an apply so that they can be used with the ~:around
#+BEGIN_SRC emacs-lisp
(defmacro imalison:compose-around-builder (&rest functions)
`(imalison:compose ,@functions 'apply))
#+END_SRC
** Named Compile
#+BEGIN_SRC emacs-lisp
(defun imalison:named-compile (command)
(interactive
(list
(let ((command (eval compile-command)))
(if (or compilation-read-command current-prefix-arg)
(compilation-read-command command)
command))))
(compilation-start command nil (lambda (&rest args)
(format "*compilation %s*" command))))
#+END_SRC
** Other
#+BEGIN_SRC emacs-lisp
@ -1089,7 +1103,7 @@ Sets environment variables by starting a shell
(use-package hydra
:demand t
:bind (("C-M-=" . imalison:hydra-font-resize/body)
("C-c y" . imalison:hydra-yank/body))
("C-x y" . imalison:hydra-yank/body))
:config
(progn
(defhydra imalison:hydra-font-resize