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 #+BEGIN_SRC emacs-lisp
(defmacro imalison:compose-around-builder (&rest functions) (defmacro imalison:compose-around-builder (&rest functions)
`(imalison:compose ,@functions 'apply)) `(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 #+END_SRC
** Other ** Other
#+BEGIN_SRC emacs-lisp #+BEGIN_SRC emacs-lisp
@ -1089,7 +1103,7 @@ Sets environment variables by starting a shell
(use-package hydra (use-package hydra
:demand t :demand t
:bind (("C-M-=" . imalison:hydra-font-resize/body) :bind (("C-M-=" . imalison:hydra-font-resize/body)
("C-c y" . imalison:hydra-yank/body)) ("C-x y" . imalison:hydra-yank/body))
:config :config
(progn (progn
(defhydra imalison:hydra-font-resize (defhydra imalison:hydra-font-resize