diff options
| author | Kyle Meyer <kyle@kyleam.com> | 2014-10-22 21:09:22 -0400 |
|---|---|---|
| committer | Kyle Meyer <kyle@kyleam.com> | 2014-10-22 21:09:22 -0400 |
| commit | 851de4f6b3e973bdd62463c18050c40d8303a9b0 (patch) | |
| tree | 67010432df0eaa5971470781bc1cbb1dea86322f /lisp/init-external.el | |
| parent | ead2b569124f455b23e828650dfa8864aaba414b (diff) | |
| download | emacs.d-851de4f6b3e973bdd62463c18050c40d8303a9b0.tar.gz | |
Go crazy with anaphoric forms
Diffstat (limited to 'lisp/init-external.el')
| -rw-r--r-- | lisp/init-external.el | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/lisp/init-external.el b/lisp/init-external.el index 0831a48..676bb0a 100644 --- a/lisp/init-external.el +++ b/lisp/init-external.el @@ -24,9 +24,9 @@ of the same name already exists, switch to it unless NEW-BUFFER is non-nil." (interactive "P") (let ((name (concat "zsh:" (abbreviate-file-name default-directory)))) - (-if-let (buffer-name (and (not new-buffer) - (get-buffer (concat "*" name "*")))) - (switch-to-buffer buffer-name) + (--if-let (and (not new-buffer) + (get-buffer (concat "*" name "*"))) + (switch-to-buffer it) (ansi-term "/bin/zsh" name)))) (defun km/zsh-ansi-term-other-window (&optional new-buffer) @@ -66,14 +66,14 @@ monitor setup)." (defun km/display-compilation-other-window () (interactive) - (-if-let (comp-buffer (get-buffer "*compilation*")) - (display-buffer comp-buffer) + (--if-let (get-buffer "*compilation*") + (display-buffer it) (user-error "No compilation buffer"))) (defun km/recompile-current-compilation () (interactive) - (-if-let (comp-buffer (get-buffer "*compilation*")) - (with-current-buffer comp-buffer + (--if-let (get-buffer "*compilation*") + (with-current-buffer it (recompile)) (user-error "No compilation buffer"))) |