From 134ba0b741df0cb4d4509af8bcf3a61b7893e943 Mon Sep 17 00:00:00 2001 From: Ivan Malison Date: Wed, 22 Jun 2016 20:18:32 -0700 Subject: [PATCH] Add Named Compile, Change hydra-yank binding --- dotfiles/emacs.d/README.org | 16 +++++++++++++++- 1 file changed, 15 insertions(+), 1 deletion(-) diff --git a/dotfiles/emacs.d/README.org b/dotfiles/emacs.d/README.org index 365c5b89..679fd3dc 100644 --- a/dotfiles/emacs.d/README.org +++ b/dotfiles/emacs.d/README.org @@ -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