forked from colonelpanic/dotfiles
Add Named Compile, Change hydra-yank binding
This commit is contained in:
parent
9225b95ff0
commit
134ba0b741
@ -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
|
||||||
|
Loading…
Reference in New Issue
Block a user